Commit 6bd7e3b4 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent 337a64d1
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment