[uim-commit] r407 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-01-30 18:24:45 -0800 (Sun, 30 Jan 2005)
New Revision: 407

Modified:
   trunk/scm/custom-rt.scm
Log:
* scm/custom-rt.scm
  - (custom-set-value!): Fix invalid key-binding configuration caused
    by r390


Modified: trunk/scm/custom-rt.scm
===================================================================
--- trunk/scm/custom-rt.scm	2005-01-31 00:41:08 UTC (rev 406)
+++ trunk/scm/custom-rt.scm	2005-01-31 02:24:45 UTC (rev 407)
@@ -138,8 +138,10 @@
     (cond
      ((custom-key-exist? sym)
       (set-symbol-value! sym val)
-      (define-key-internal (symbolconc sym '?)
-	                   (custom-modify-key-predicate-names val))
+      (let ((key-val (custom-modify-key-predicate-names val)))
+	(eval (list 'define (symbolconc sym '?)
+		    (list 'make-key-predicate (list 'quote key-val)))
+	      toplevel-env))
       #t)
      ((custom-exist? sym #f)
       (set-symbol-value! sym val)