Mercurial > emacs
comparison lisp/cus-start.el @ 81766:a9af9c6eaaad
(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 |