[uim-commit] r267 - trunk/scm

[yamaken@freedesktop.org]

Author: yamaken
Date: 2005-01-12 08:52:21 -0800 (Wed, 12 Jan 2005)
New Revision: 267

Modified:
   trunk/scm/custom.scm
Log:
* scm/custom.scm
  - (custom-definition-as-literal): Fix bogus define-key literal
    generation. Thanks No.28 of [Anthy/uim thread 5] for reporting


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-01-12 16:14:03 UTC (rev 266)
+++ trunk/scm/custom.scm	2005-01-12 16:52:21 UTC (rev 267)
@@ -442,7 +442,13 @@
 		  (list "(define " var " " val ")")
 		  (if (eq? (custom-type sym)
 			   'key)
-		      (list "\n(define-key " var "? " val ")")
+		      (let ((key-val (custom-list-as-literal
+				      (map (lambda (key)
+					     (if (symbol? key)
+						 (symbolconc key '?)
+						 key))
+					   (custom-value sym)))))
+			(list "\n(define-key " var "? " key-val ")"))
 		      ())))))))
 
 ;; API