34 |
|
|
35 |
;;; Code: |
;;; Code: |
36 |
|
|
37 |
(let ((all '(;; abbrev.c |
(let ((all '(;; abbrev.c |
38 |
(abbrev-all-caps abbrev-mode boolean) |
(abbrev-all-caps abbrev-mode boolean) |
39 |
(pre-abbrev-expand-hook abbrev-mode hook) |
(pre-abbrev-expand-hook abbrev-mode hook) |
40 |
;; alloc.c |
;; alloc.c |
53 |
(ctl-arrow display boolean) |
(ctl-arrow display boolean) |
54 |
(truncate-lines display boolean) |
(truncate-lines display boolean) |
55 |
(selective-display-ellipses display boolean) |
(selective-display-ellipses display boolean) |
|
(transient-mark-mode editing-basics boolean) |
|
56 |
(indicate-empty-lines display boolean "21.1") |
(indicate-empty-lines display boolean "21.1") |
57 |
(scroll-up-aggressively windows boolean "21.1") |
(scroll-up-aggressively windows |
58 |
(scroll-down-aggressively windows boolean "21.1") |
(choice (const :tag "off" nil) number) |
59 |
|
"21.1") |
60 |
|
(scroll-down-aggressively windows |
61 |
|
(choice (const :tag "off" nil) number) |
62 |
|
"21.1") |
63 |
;; callint.c |
;; callint.c |
64 |
(mark-even-if-inactive editing-basics boolean) |
(mark-even-if-inactive editing-basics boolean) |
65 |
;; callproc.c |
;; callproc.c |
86 |
(coding-system :tag "Single coding system" |
(coding-system :tag "Single coding system" |
87 |
:value undecided) |
:value undecided) |
88 |
(function :value ignore)))) |
(function :value ignore)))) |
89 |
|
(selection-coding-system mule coding-system) |
90 |
;; dired.c |
;; dired.c |
91 |
(completion-ignored-extensions dired |
(completion-ignored-extensions dired |
92 |
(repeat (string :format "%v"))) |
(repeat (string :format "%v"))) |
93 |
;; dispnew.c |
;; dispnew.c |
94 |
(baud-rate display integer) |
(baud-rate display integer) |
106 |
:value (nil) |
:value (nil) |
107 |
(symbol :format "%v")) |
(symbol :format "%v")) |
108 |
(const :tag "always" t))) |
(const :tag "always" t))) |
109 |
(debug-on-error debug |
(debug-on-error debug |
110 |
(choice (const :tag "off") |
(choice (const :tag "off") |
111 |
(repeat :menu-tag "When" |
(repeat :menu-tag "When" |
112 |
:value (nil) |
:value (nil) |
142 |
(polling-period keyboard integer) |
(polling-period keyboard integer) |
143 |
(double-click-time mouse (restricted-sexp |
(double-click-time mouse (restricted-sexp |
144 |
:match-alternatives (integerp 'nil 't))) |
:match-alternatives (integerp 'nil 't))) |
145 |
|
(double-click-fuzz mouse integer) |
146 |
(inhibit-local-menu-bar-menus menu boolean) |
(inhibit-local-menu-bar-menus menu boolean) |
147 |
(help-char keyboard character) |
(help-char keyboard character) |
148 |
(help-event-list keyboard (repeat (sexp :format "%v"))) |
(help-event-list keyboard (repeat (sexp :format "%v"))) |
155 |
;; version-specific directories when you upgrade. We need |
;; version-specific directories when you upgrade. We need |
156 |
;; customization of the front of the list, maintaining the standard |
;; customization of the front of the list, maintaining the standard |
157 |
;; value intact at the back. |
;; value intact at the back. |
158 |
;;; (load-path environment |
;;; (load-path environment |
159 |
;;; (repeat (choice :tag "[Current dir?]" |
;;; (repeat (choice :tag "[Current dir?]" |
160 |
;;; :format "%[Current dir?%] %v" |
;;; :format "%[Current dir?%] %v" |
161 |
;;; (const :tag " current dir" nil) |
;;; (const :tag " current dir" nil) |
205 |
(display-buffer-function windows (choice (const nil) function)) |
(display-buffer-function windows (choice (const nil) function)) |
206 |
(pop-up-frames frames boolean) |
(pop-up-frames frames boolean) |
207 |
(pop-up-frame-function frames function) |
(pop-up-frame-function frames function) |
208 |
(special-display-buffer-names |
(special-display-buffer-names |
209 |
frames |
frames |
210 |
(repeat (choice :tag "Buffer" |
(repeat (choice :tag "Buffer" |
211 |
:value "" |
:value "" |
212 |
(string :format "%v") |
(string :format "%v") |
219 |
(symbol :tag "Parameter") |
(symbol :tag "Parameter") |
220 |
(sexp :tag "Value"))))))) |
(sexp :tag "Value"))))))) |
221 |
(special-display-regexps |
(special-display-regexps |
222 |
frames |
frames |
223 |
(repeat (choice :tag "Buffer" |
(repeat (choice :tag "Buffer" |
224 |
:value "" |
:value "" |
225 |
(regexp :format "%v") |
(regexp :format "%v") |
260 |
:format "%v") |
:format "%v") |
261 |
(other :tag "Unlimited" t))) |
(other :tag "Unlimited" t))) |
262 |
(unibyte-display-via-language-environment mule boolean) |
(unibyte-display-via-language-environment mule boolean) |
263 |
|
;; xfaces.c |
264 |
|
(scalable-fonts-allowed display boolean) |
265 |
;; xfns.c |
;; xfns.c |
266 |
(x-bitmap-file-path installation |
(x-bitmap-file-path installation |
267 |
(repeat (directory :format "%v"))) |
(repeat (directory :format "%v"))) |
283 |
(numberp sexp)) |
(numberp sexp)) |
284 |
sexp |
sexp |
285 |
(list 'quote sexp))))) |
(list 'quote sexp))))) |
286 |
(while all |
(while all |
287 |
(setq this (car all) |
(setq this (car all) |
288 |
all (cdr all) |
all (cdr all) |
289 |
symbol (nth 0 this) |
symbol (nth 0 this) |
307 |
(message "Note, built-in variable `%S' not bound" symbol)) |
(message "Note, built-in variable `%S' not bound" symbol)) |
308 |
;; Save the standard value, unless we already did. |
;; Save the standard value, unless we already did. |
309 |
(or (get symbol 'standard-value) |
(or (get symbol 'standard-value) |
310 |
(put symbol 'standard-value |
(put symbol 'standard-value |
311 |
(list (funcall quoter (default-value symbol))))) |
(list (funcall quoter (default-value symbol))))) |
312 |
;; If this is NOT while dumping Emacs, |
;; If this is NOT while dumping Emacs, |
313 |
;; set up the rest of the customization info. |
;; set up the rest of the customization info. |
319 |
(put symbol 'custom-version version))))) |
(put symbol 'custom-version version))))) |
320 |
|
|
321 |
(custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) |
(custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) |
322 |
|
(put 'selection-coding-system 'custom-set |
323 |
|
(lambda (symbol value) |
324 |
|
(set-selection-coding-system value) |
325 |
|
(set symbol value))) |
326 |
|
|
327 |
;; Record cus-start as loaded |
;; Record cus-start as loaded |
328 |
;; if we have set up all the info that we can set up. |
;; if we have set up all the info that we can set up. |