Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
70c2811c
Commit
70c2811c
authored
Jul 09, 2007
by
Katsumi Yamaoka
Browse files
(file-coding-system-alist): Fix previous commit.
parent
06071e68
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
20 deletions
+12
-20
lisp/cus-start.el
lisp/cus-start.el
+12
-20
No files found.
lisp/cus-start.el
View file @
70c2811c
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment