[uim-commit] r394 - trunk/uim

[tkng at freedesktop.org]

Author: tkng
Date: 2005-01-29 22:45:43 -0800 (Sat, 29 Jan 2005)
New Revision: 394

Modified:
   trunk/uim/uim-custom.c
Log:
* uim/uim-custom.c;
 -(custom_cb_add): Fixed wrong order of arguments of custom-register-cb.


Modified: trunk/uim/uim-custom.c
===================================================================
--- trunk/uim/uim-custom.c	2005-01-30 06:35:57 UTC (rev 393)
+++ trunk/uim/uim-custom.c	2005-01-30 06:45:43 UTC (rev 394)
@@ -1247,12 +1247,12 @@
   uim_lisp form;
 
   uim_scm_gc_protect_stack(&stack_start);
-  form = uim_scm_list5(uim_scm_quote(uim_scm_make_symbol(hook)),
+  form = uim_scm_list5(uim_scm_make_symbol(validator),
 		       uim_scm_make_symbol(custom_sym),
 		       uim_scm_make_ptr(ptr),
 		       uim_scm_make_symbol(gate_func),
 		       uim_scm_make_func_ptr(cb));
-  form = uim_scm_cons(uim_scm_make_symbol(validator), form);
+  form = uim_scm_cons(uim_scm_quote(uim_scm_make_symbol(hook)), form);
   form = uim_scm_cons(uim_scm_make_symbol("custom-register-cb"), form);
   succeeded = uim_scm_c_bool(uim_scm_eval(form));
   uim_scm_gc_unprotect_stack(&stack_start);