mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(file-coding-system-alist): Fix previous commit.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2007-07-09 01:27:15 +00:00
parent 06071e6826
commit 70c2811c5d
1 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/cus-start.el
View File

@ -116,26 +116,18 @@ 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
: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))))
: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
:match (lambda (widget value)
(and value (not (functionp value)))))
(function :value ignore))))
(selection-coding-system mule coding-system)
;; dired.c
(completion-ignored-extensions dired