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:
parent
337a64d116
commit
6bd7e3b415
@ -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.
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user