1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00

(file-coding-system-alist): Fix custom type.

This commit is contained in:
Katsumi Yamaoka 2007-07-08 23:41:26 +00:00
parent 337a64d116
commit 6bd7e3b415
2 changed files with 24 additions and 9 deletions

View File

@ -1,3 +1,7 @@
2007-07-08 Katsumi Yamaoka <yamaoka@jpl.org>
* cus-start.el (file-coding-system-alist): Fix custom type.
2007-07-08 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-cvs.el (vc-cvs-revert): Use vc-default-revert.

View File

@ -116,15 +116,26 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
mule
(alist
:key-type (regexp :tag "File regexp")
: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)
(function :value ignore))))
: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
: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
(completion-ignored-extensions dired