[uim-commit] r445 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-01-31 18:20:50 -0800 (Mon, 31 Jan 2005)
New Revision: 445

Modified:
   trunk/scm/skk-custom.scm
Log:
* scm/skk-custom.scm : Add custom-get-hooks for
  skk-show-annotation?


Modified: trunk/scm/skk-custom.scm
===================================================================
--- trunk/scm/skk-custom.scm	2005-02-01 02:00:12 UTC (rev 444)
+++ trunk/scm/skk-custom.scm	2005-02-01 02:20:50 UTC (rev 445)
@@ -141,6 +141,12 @@
 		 (lambda ()
 		   skk-show-annotation?))
 
+(custom-add-hook 'skk-show-annotation?
+		 'custom-get-hooks
+		 (lambda ()
+		   (if (not skk-show-annotation?)
+		       (set! skk-show-annotation-in-preedit? #f))))
+
 (define-custom 'skk-dic-file-name (string-append (sys-datadir)
 						 "/skk/SKK-JISYO.L")
   '(skk)