[uim-commit] r704 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-02-23 15:16:36 -0800 (Wed, 23 Feb 2005)
New Revision: 704

Modified:
   trunk/scm/custom-rt.scm
Log:
* scm/custom-rt.scm
  - (define-custom): Fix invalid key-predicate definition for non-key
    custom variables


Modified: trunk/scm/custom-rt.scm
===================================================================
--- trunk/scm/custom-rt.scm	2005-02-23 22:39:13 UTC (rev 703)
+++ trunk/scm/custom-rt.scm	2005-02-23 23:16:36 UTC (rev 704)
@@ -184,8 +184,10 @@
 		;; already define-key'ed in ~/.uim
 		(custom-call-hook-procs sym custom-set-hooks)
 		(begin
-		  (eval (list 'define (symbolconc sym '?) list)
-			toplevel-env)
+		  (if (eq? (car type)
+			   'key)
+		      (eval (list 'define (symbolconc sym '?) list)
+			    toplevel-env))
 		  (custom-set-value! sym default))))))))  ;; to apply hooks
 
 ;; lightweight implementation