Mercurial > emacs
comparison lisp/cus-start.el @ 49588:37645a051842
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 11:26:42 +0000 |
parents | f3fc48331bdc |
children | f6cc7244ebe6 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49587:e82b3fe06d4c | 49588:37645a051842 |
---|---|
32 ;; this file is loaded again with (require 'cus-start); | 32 ;; this file is loaded again with (require 'cus-start); |
33 ;; then it does the whole job. | 33 ;; then it does the whole job. |
34 | 34 |
35 ;;; Code: | 35 ;;; Code: |
36 | 36 |
37 (let ((all '(;; abbrev.c | 37 (let ((all '(;; abbrev.c |
38 (abbrev-all-caps abbrev-mode boolean) | 38 (abbrev-all-caps abbrev-mode boolean) |
39 (pre-abbrev-expand-hook abbrev-mode hook) | 39 (pre-abbrev-expand-hook abbrev-mode hook) |
40 ;; alloc.c | 40 ;; alloc.c |
41 (gc-cons-threshold alloc integer) | 41 (gc-cons-threshold alloc integer) |
42 (undo-limit undo integer) | 42 (undo-limit undo integer) |
86 (coding-system :tag "Single coding system" | 86 (coding-system :tag "Single coding system" |
87 :value undecided) | 87 :value undecided) |
88 (function :value ignore)))) | 88 (function :value ignore)))) |
89 (selection-coding-system mule coding-system) | 89 (selection-coding-system mule coding-system) |
90 ;; dired.c | 90 ;; dired.c |
91 (completion-ignored-extensions dired | 91 (completion-ignored-extensions dired |
92 (repeat (string :format "%v"))) | 92 (repeat (string :format "%v"))) |
93 ;; dispnew.c | 93 ;; dispnew.c |
94 (baud-rate display integer) | 94 (baud-rate display integer) |
95 (inverse-video display boolean) | 95 (inverse-video display boolean) |
96 (visible-bell display boolean) | 96 (visible-bell display boolean) |
104 (choice (const :tag "off") | 104 (choice (const :tag "off") |
105 (repeat :menu-tag "When" | 105 (repeat :menu-tag "When" |
106 :value (nil) | 106 :value (nil) |
107 (symbol :format "%v")) | 107 (symbol :format "%v")) |
108 (const :tag "always" t))) | 108 (const :tag "always" t))) |
109 (debug-on-error debug | 109 (debug-on-error debug |
110 (choice (const :tag "off") | 110 (choice (const :tag "off") |
111 (repeat :menu-tag "When" | 111 (repeat :menu-tag "When" |
112 :value (nil) | 112 :value (nil) |
113 (symbol :format "%v")) | 113 (symbol :format "%v")) |
114 (const :tag "always" t))) | 114 (const :tag "always" t))) |
153 | 153 |
154 ;; This is not good news because it will use the wrong | 154 ;; This is not good news because it will use the wrong |
155 ;; version-specific directories when you upgrade. We need | 155 ;; version-specific directories when you upgrade. We need |
156 ;; customization of the front of the list, maintaining the standard | 156 ;; customization of the front of the list, maintaining the standard |
157 ;; value intact at the back. | 157 ;; value intact at the back. |
158 ;;; (load-path environment | 158 ;;; (load-path environment |
159 ;;; (repeat (choice :tag "[Current dir?]" | 159 ;;; (repeat (choice :tag "[Current dir?]" |
160 ;;; :format "%[Current dir?%] %v" | 160 ;;; :format "%[Current dir?%] %v" |
161 ;;; (const :tag " current dir" nil) | 161 ;;; (const :tag " current dir" nil) |
162 ;;; (directory :format "%v")))) | 162 ;;; (directory :format "%v")))) |
163 ;; minibuf.c | 163 ;; minibuf.c |
203 ;; window.c | 203 ;; window.c |
204 (temp-buffer-show-function windows (choice (const nil) function)) | 204 (temp-buffer-show-function windows (choice (const nil) function)) |
205 (display-buffer-function windows (choice (const nil) function)) | 205 (display-buffer-function windows (choice (const nil) function)) |
206 (pop-up-frames frames boolean) | 206 (pop-up-frames frames boolean) |
207 (pop-up-frame-function frames function) | 207 (pop-up-frame-function frames function) |
208 (special-display-buffer-names | 208 (special-display-buffer-names |
209 frames | 209 frames |
210 (repeat (choice :tag "Buffer" | 210 (repeat (choice :tag "Buffer" |
211 :value "" | 211 :value "" |
212 (string :format "%v") | 212 (string :format "%v") |
213 (cons :tag "With attributes" | 213 (cons :tag "With attributes" |
214 :format "%v" | 214 :format "%v" |
217 (repeat :tag "Attributes" | 217 (repeat :tag "Attributes" |
218 (cons :format "%v" | 218 (cons :format "%v" |
219 (symbol :tag "Parameter") | 219 (symbol :tag "Parameter") |
220 (sexp :tag "Value"))))))) | 220 (sexp :tag "Value"))))))) |
221 (special-display-regexps | 221 (special-display-regexps |
222 frames | 222 frames |
223 (repeat (choice :tag "Buffer" | 223 (repeat (choice :tag "Buffer" |
224 :value "" | 224 :value "" |
225 (regexp :format "%v") | 225 (regexp :format "%v") |
226 (cons :tag "With attributes" | 226 (cons :tag "With attributes" |
227 :format "%v" | 227 :format "%v" |
281 ;; (and (fboundp 'characterp) | 281 ;; (and (fboundp 'characterp) |
282 ;; (characterp sexp)) | 282 ;; (characterp sexp)) |
283 (numberp sexp)) | 283 (numberp sexp)) |
284 sexp | 284 sexp |
285 (list 'quote sexp))))) | 285 (list 'quote sexp))))) |
286 (while all | 286 (while all |
287 (setq this (car all) | 287 (setq this (car all) |
288 all (cdr all) | 288 all (cdr all) |
289 symbol (nth 0 this) | 289 symbol (nth 0 this) |
290 group (nth 1 this) | 290 group (nth 1 this) |
291 type (nth 2 this) | 291 type (nth 2 this) |
305 ;; If variables are removed from C code, give an error here! | 305 ;; If variables are removed from C code, give an error here! |
306 (and native-p | 306 (and native-p |
307 (message "Note, built-in variable `%S' not bound" symbol)) | 307 (message "Note, built-in variable `%S' not bound" symbol)) |
308 ;; Save the standard value, unless we already did. | 308 ;; Save the standard value, unless we already did. |
309 (or (get symbol 'standard-value) | 309 (or (get symbol 'standard-value) |
310 (put symbol 'standard-value | 310 (put symbol 'standard-value |
311 (list (funcall quoter (default-value symbol))))) | 311 (list (funcall quoter (default-value symbol))))) |
312 ;; If this is NOT while dumping Emacs, | 312 ;; If this is NOT while dumping Emacs, |
313 ;; set up the rest of the customization info. | 313 ;; set up the rest of the customization info. |
314 (unless purify-flag | 314 (unless purify-flag |
315 ;; Add it to the right group. | 315 ;; Add it to the right group. |