Revision: 6661
Author: ek.kato
Date: Tue Aug  3 05:25:55 2010
Log: * scm/skk-custom.scm (skk-use-look?) : Add custom set hook.
* uim/skk.c (skk_look_open) : Return #f is uim_look_init() fails.

http://code.google.com/p/uim/source/detail?r=6661

Modified:
 /trunk/scm/skk-custom.scm
 /trunk/uim/skk.c

=======================================
--- /trunk/scm/skk-custom.scm   Tue Jul 20 01:20:45 2010
+++ /trunk/scm/skk-custom.scm   Tue Aug  3 05:25:55 2010
@@ -467,6 +467,12 @@
   (N_ "Use UNIX look command for completion")
   (N_ "long description will be here."))

+(custom-add-hook 'skk-use-look?
+                 'custom-set-hooks
+                 (lambda ()
+                   (if skk-use-look?
+                     (skk-lib-look-open skk-look-dict))))
+
 (define-custom 'skk-look-dict "/usr/share/dict/words"
   '(skk-advanced)
   '(pathname regular-file)
=======================================
--- /trunk/uim/skk.c    Sun Apr  4 20:35:54 2010
+++ /trunk/uim/skk.c    Tue Aug  3 05:25:55 2010
@@ -3371,6 +3371,7 @@
   if ((skk_look_ctx = uim_look_init()) == NULL) {
     use_look = 0;
     uim_fatal_error("uim_look_init() failed");
+    return uim_scm_f();
   }

   if (!uim_look_open_dict(fn, skk_look_ctx)) {

Reply via email to