[uim-commit] r316 - trunk/scm

[yamaken@freedesktop.org]

Author: yamaken
Date: 2005-01-17 21:16:51 -0800 (Mon, 17 Jan 2005)
New Revision: 316

Modified:
   trunk/scm/custom-rt.scm
Log:
* scm/custom-rt.scm
  - (custom-exist?): Add check for symbol-bound?
  - (custom-value): Cosmetic change
  - (define-custom): Replace symbol-bound? with custom-exist?
  - (custom-prop-update-custom-handler): Add a comment


Modified: trunk/scm/custom-rt.scm
===================================================================
--- trunk/scm/custom-rt.scm	2005-01-18 03:34:20 UTC (rev 315)
+++ trunk/scm/custom-rt.scm	2005-01-18 05:16:51 UTC (rev 316)
@@ -109,20 +109,20 @@
 ;; lightweight implementation
 (define custom-exist?
   (lambda (sym type)
-    #t))
+    (symbol-bound? sym)))
 
 ;; lightweight implementation
 (define custom-value
-  (lambda (custom-sym)
-    (symbol-value custom-sym)))
+  (lambda (sym)
+    (symbol-value sym)))
 
 ;; lightweight implementation
 (define define-custom
   (lambda (sym default groups type label desc)
     (custom-rt-add-primary-groups (car groups))
-    (if (not (symbol-bound? sym))
+    (if (not (custom-exist? sym type))
 	(if (eq? (car type)
-		   'key)
+		 'key)
 	    (define-key-internal (symbolconc sym '?)
 	                         (custom-modify-key-predicate-names default))
 	    (let ((quoted-default (if (or (symbol? default)
@@ -133,6 +133,7 @@
 		    toplevel-env))))))
 
 ;; lightweight implementation
+;; TODO: implement
 (define custom-prop-update-custom-handler
   (lambda (context custom-sym val)
     #f))