[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 [EMACS_22_BASE]
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-start.el,v [EMACS_22_BASE] |
Date: |
Sun, 08 Jul 2007 23:41:39 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Katsumi Yamaoka <yamaoka> 07/07/08 23:41:39
Index: cus-start.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-start.el,v
retrieving revision 1.100
retrieving revision 1.100.2.1
diff -u -b -r1.100 -r1.100.2.1
--- cus-start.el 8 Apr 2007 22:02:42 -0000 1.100
+++ cus-start.el 8 Jul 2007 23:41:36 -0000 1.100.2.1
@@ -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
- [Emacs-diffs] Changes to emacs/lisp/cus-start.el,v [EMACS_22_BASE],
Katsumi Yamaoka <=