Mercurial > hg > xemacs-beta

comparison src/ui-gtk.c @ 1811:3fe1a35b705d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-11-29 22:11:47 by james] Several module-related cleanups.
author james
date Sat, 29 Nov 2003 22:11:49 +0000
parents a8d8f419b459
children c347bc6e2cb3
comparison
equal deleted inserted replaced
1810:6f8003dda838 1811:3fe1a35b705d
52 { 52 {
53 if (!dll_cache) 53 if (!dll_cache)
54 { 54 {
55 dll_cache = g_hash_table_new (g_str_hash, g_str_equal); 55 dll_cache = g_hash_table_new (g_str_hash, g_str_equal);
56 56
57 g_hash_table_insert (dll_cache, "---XEmacs Internal Handle---", dll_open (NULL)); 57 g_hash_table_insert (dll_cache, "---XEmacs Internal Handle---", dll_open (Qnil));
58 } 58 }
59 } 59 }
60 60
61 DEFUN ("dll-load", Fdll_load, 1, 1, 0, /* 61 DEFUN ("dll-load", Fdll_load, 1, 1, 0, /*
62 Load a shared library DLL into XEmacs. No initialization routines are required. 62 Load a shared library DLL into XEmacs. No initialization routines are required.
78 /* Check if we have already opened it first */ 78 /* Check if we have already opened it first */
79 h = g_hash_table_lookup (dll_cache, XSTRING_DATA (dll)); 79 h = g_hash_table_lookup (dll_cache, XSTRING_DATA (dll));
80 80
81 if (!h) 81 if (!h)
82 { 82 {
83 h = dll_open ((char *) XSTRING_DATA (dll)); 83 h = dll_open (dll);
84 84
85 if (h) 85 if (h)
86 { 86 {
87 g_hash_table_insert (dll_cache, g_strdup (XSTRING_DATA (dll)), h); 87 g_hash_table_insert (dll_cache, g_strdup (XSTRING_DATA (dll)), h);
88 } 88 }
89 else 89 else
90 { 90 {
91 signal_error (Qfile_error, 91 signal_error (Qfile_error,
92 "dll_open error", build_string (dll_error (NULL))); 92 "dll_open error", build_string (dll_error ()));
93 } 93 }
94 } 94 }
95 return (h ? Qt : Qnil); 95 return (h ? Qt : Qnil);
96 } 96 }
97 97