[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-start.el,v
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-start.el,v |
Date: |
Sun, 08 Jul 2007 23:41:28 +0000 |
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