Author: yamakenz
Date: Fri Sep 7 06:54:41 2007
New Revision: 4942
Modified:
trunk/scm/custom-rt.scm
Log:
* scm/custom-rt.scm
- (custom-prop-update-custom-handler): Fix setting quoted-value as
real value ([uim-ja 47]). Thanks No.825 of [uim thread 7] and
Etsushi
Modified: trunk/scm/custom-rt.scm
==============================================================================
--- trunk/scm/custom-rt.scm (original)
+++ trunk/scm/custom-rt.scm Fri Sep 7 06:54:41 2007
@@ -251,11 +251,14 @@
(define custom-prop-update-custom-handler
(let ((READ-ERR (list 'read-err))) ;; unique id
(lambda (context custom-sym val-str)
- (let ((val (guard (err
- (else READ-ERR))
- (read (open-input-string val-str)))))
- (and (not (eq? val READ-ERR))
- (custom-set-value! custom-sym val))))))
+ (let* ((val (guard (err
+ (else READ-ERR))
+ (read (open-input-string val-str))))
+ (unquoted-val (and (pair? val)
+ (eq? (car val) 'quote)
+ (cadr val))))
+ (and (not (eq? unquoted-val READ-ERR))
+ (custom-set-value! custom-sym unquoted-val))))))
;; custom-reload-user-configs can switch its behavior by
;; custom-enable-mtime-aware-user-conf-reloading? since the
