Mercurial > emacs

comparison lisp/cus-start.el @ 81766:a9af9c6eaaad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-coding-system-alist): Fix custom type.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 08 Jul 2007 23:41:26 +0000
parents a01517ba35e8
children d6cb0c6eace7
comparison
equal deleted inserted replaced
81765:7effaa2c79bd 81766:a9af9c6eaaad
114 (eol-mnemonic-mac mule string) 114 (eol-mnemonic-mac mule string)
115 (file-coding-system-alist 115 (file-coding-system-alist
116 mule 116 mule
117 (alist 117 (alist
118 :key-type (regexp :tag "File regexp") 118 :key-type (regexp :tag "File regexp")
119 :value-type (choice 119 :value-type
120 :value (undecided . undecided) 120 (choice
121 (cons :tag "Encoding/decoding pair" 121 :value (undecided . undecided)
122 :value (undecided . undecided) 122 (cons :tag "Encoding/decoding pair"
123 (coding-system :tag "Decoding") 123 :value (undecided . undecided)
124 (coding-system :tag "Encoding")) 124 (coding-system :tag "Decoding")
125 (coding-system :tag "Single coding system" 125 (coding-system :tag "Encoding"))
126 :value undecided) 126 (coding-system
127 (function :value ignore)))) 127 :tag "Single coding system"
128 :value undecided
129 :validate
130 (lambda (widget)
131 (unless (or (coding-system-p (widget-value widget))
132 (functionp (widget-value widget)))
133 (widget-put
134 widget
135 :error (format "Invalid coding system: %S"
136 (widget-value widget)))
137 widget)))
138 (function :value ignore))))
128 (selection-coding-system mule coding-system) 139 (selection-coding-system mule coding-system)
129 ;; dired.c 140 ;; dired.c
130 (completion-ignored-extensions dired 141 (completion-ignored-extensions dired
131 (repeat (string :format "%v"))) 142 (repeat (string :format "%v")))
132 ;; dispnew.c 143 ;; dispnew.c