[Emacs-diffs] Changes to emacs/lisp/cus-start.el,v

[Katsumi Yamaoka]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       07/07/08 23:41:27

Index: cus-start.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-start.el,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -b -r1.101 -r1.102
--- cus-start.el        1 Jul 2007 17:18:42 -0000       1.101
+++ cus-start.el        8 Jul 2007 23:41:26 -0000       1.102
@@ -116,14 +116,25 @@
              mule
              (alist
               :key-type (regexp :tag "File regexp")
-              :value-type (choice
+              :value-type
+              (choice
                            :value (undecided . undecided)
                            (cons :tag "Encoding/decoding pair"
                                  :value (undecided . undecided)
                                  (coding-system :tag "Decoding")
                                  (coding-system :tag "Encoding"))
-                           (coding-system :tag "Single coding system"
-                                          :value undecided)
+               (coding-system
+                :tag "Single coding system"
+                :value undecided
+                :validate
+                (lambda (widget)
+                  (unless (or (coding-system-p (widget-value widget))
+                              (functionp (widget-value widget)))
+                    (widget-put
+                     widget
+                     :error (format "Invalid coding system: %S"
+                                    (widget-value widget)))
+                    widget)))
                            (function :value ignore))))
             (selection-coding-system mule coding-system)
             ;; dired.c