[uim-commit] r478 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-02-02 08:49:15 -0800 (Wed, 02 Feb 2005)
New Revision: 478

Modified:
   trunk/scm/custom-rt.scm
Log:
* scm/custom-rt.scm
  - (define-custom): Fix broken define-key invocation. Thanks Etsushi
    Kato for reporting


Modified: trunk/scm/custom-rt.scm
===================================================================
--- trunk/scm/custom-rt.scm	2005-02-02 15:17:36 UTC (rev 477)
+++ trunk/scm/custom-rt.scm	2005-02-02 16:49:15 UTC (rev 478)
@@ -171,11 +171,11 @@
 				    (list 'quote default)
 				    default)))
 	    (eval (list 'define sym quoted-default)
-		  toplevel-env))
-	  (if (eq? (car type)
-		   'key)
-	      (define-key-internal (symbolconc sym '?)
-		(custom-modify-key-predicate-names default)))))))
+		  toplevel-env)
+	    (if (eq? (car type)
+		     'key)
+		(eval (list 'define (symbolconc sym '?) list)))
+	    (custom-set-value! sym default))))))  ;; to apply hooks
 
 ;; lightweight implementation
 ;; warning: no validation performed