[uim-commit] r186 - trunk/scm

[yamaken@freedesktop.org]

Author: yamaken
Date: 2005-01-09 03:01:17 -0800 (Sun, 09 Jan 2005)
New Revision: 186

Modified:
   trunk/scm/custom-vars.scm
   trunk/scm/custom.scm
Log:
* scm/custom.scm
  - (custom-definition-as-literal): Add comment about literalize-hook
* scm/custom-vars.scm
  - (custom-hook-literalize-preserved-default-im-name): Fix infinite
    loop. Thanks No.9 of [Anthy/uim thread 5] for reporting


Modified: trunk/scm/custom-vars.scm
===================================================================
--- trunk/scm/custom-vars.scm	2005-01-09 10:43:25 UTC (rev 185)
+++ trunk/scm/custom-vars.scm	2005-01-09 11:01:17 UTC (rev 186)
@@ -175,8 +175,9 @@
 (define custom-hook-literalize-preserved-default-im-name
   (lambda ()
     (string-append
-     (custom-definition-as-literal 'custom-preserved-default-im-name)
-     "\n"
+     "(define custom-preserved-default-im-name "
+     (custom-value-as-literal 'custom-preserved-default-im-name)
+     ")\n"
      "(define default-im-name "
      (if default-im-name
 	 (string-append "'" (symbol->string default-im-name))

Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-01-09 10:43:25 UTC (rev 185)
+++ trunk/scm/custom.scm	2005-01-09 11:01:17 UTC (rev 186)
@@ -383,6 +383,7 @@
        ((eq? type 'key)
 	"")))))  ;; TODO
 
+;; Don't invoke this from a literalize-hook. It will cause infinite loop
 (define custom-definition-as-literal
   (lambda (sym)
     (let ((var (symbol->string sym))