Commit | Line | Data |
---|---|---|
1444b0c0 PA |
1 | ;;; cus-start.el --- define customization properties of builtins. |
2 | ;; | |
3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
4 | ;; | |
5 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
6 | ;; Keywords: internal | |
7 | ||
c2383d2d RS |
8 | ;; This file is part of GNU Emacs. |
9 | ||
10 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 | ;; it under the terms of the GNU General Public License as published by | |
12 | ;; the Free Software Foundation; either version 2, or (at your option) | |
13 | ;; any later version. | |
14 | ||
15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
21 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 | ;; Boston, MA 02111-1307, USA. | |
24 | ||
1444b0c0 PA |
25 | ;;; Commentary: |
26 | ;; | |
4883633e | 27 | ;; This file adds customize support for built-in variables. |
1444b0c0 | 28 | |
4883633e RS |
29 | ;; While dumping Emacs, this file is loaded, but it only records |
30 | ;; the standard values; it does not do the rest of the job. | |
31 | ;; Later on, if the user makes a customization buffer, | |
32 | ;; this file is loaded again with (require 'cus-start); | |
33 | ;; then it does the whole job. | |
1444b0c0 | 34 | |
4883633e | 35 | ;;; Code: |
1444b0c0 PA |
36 | |
37 | (let ((all '(;; abbrev.c | |
38 | (abbrev-all-caps abbrev-mode boolean) | |
39 | (pre-abbrev-expand-hook abbrev-mode hook) | |
40 | ;; alloc.c | |
41 | (gc-cons-threshold alloc integer) | |
42 | (undo-limit undo integer) | |
43 | (undo-strong-limit undo integer) | |
44 | (garbage-collection-messages alloc boolean) | |
45 | ;; buffer.c | |
46 | (mode-line-format modeline sexp) ;Hard to do right. | |
47 | (default-major-mode internal function) | |
924ef223 | 48 | (enable-multibyte-characters mule boolean) |
1444b0c0 PA |
49 | (case-fold-search matching boolean) |
50 | (fill-column fill integer) | |
51 | (left-margin fill integer) | |
52 | (tab-width editing-basics integer) | |
53 | (ctl-arrow display boolean) | |
54 | (truncate-lines display boolean) | |
55 | (selective-display display | |
56 | (choice (const :tag "off" nil) | |
57 | (integer :tag "space" | |
58 | :format "%v" | |
59 | 1) | |
79221864 | 60 | (other :tag "on" t))) |
1444b0c0 PA |
61 | (selective-display-ellipses display boolean) |
62 | (transient-mark-mode editing-basics boolean) | |
63 | ;; callint.c | |
64 | (mark-even-if-inactive editing-basics boolean) | |
65 | ;; callproc.c | |
66 | (shell-file-name execute file) | |
67 | (exec-path execute | |
68 | (repeat (choice (const :tag "default" nil) | |
69 | (file :format "%v")))) | |
70 | ;; dired.c | |
71 | (completion-ignored-extensions dired | |
72 | (repeat (string :format "%v"))) | |
73 | ;; dispnew.el | |
74 | (baud-rate display integer) | |
75 | (inverse-video display boolean) | |
76 | (visible-bell display boolean) | |
77 | (no-redraw-on-reenter display boolean) | |
78 | ;; editfns.c | |
79 | (user-full-name mail string) | |
80 | ;; eval.c | |
81 | (max-specpdl-size limits integer) | |
82 | (max-lisp-eval-depth limits integer) | |
83 | (stack-trace-on-error debug | |
84 | (choice (const :tag "off") | |
85 | (repeat :menu-tag "When" | |
86 | :value (nil) | |
87 | (symbol :format "%v")) | |
88 | (const :tag "always" t))) | |
89 | (debug-on-error debug | |
90 | (choice (const :tag "off") | |
91 | (repeat :menu-tag "When" | |
92 | :value (nil) | |
93 | (symbol :format "%v")) | |
94 | (const :tag "always" t))) | |
95 | (debug-ignored-errors debug (repeat (choice symbol regexp))) | |
507c9247 RS |
96 | (debug-on-quit debug |
97 | (choice (const :tag "off") | |
98 | (repeat :menu-tag "When" | |
99 | :value (nil) | |
100 | (symbol :format "%v")) | |
101 | (const :tag "always" t))) | |
1444b0c0 PA |
102 | ;; fileio.c |
103 | (insert-default-directory minibuffer boolean) | |
104 | ;; frame.c | |
105 | (default-frame-alist frames | |
106 | (repeat (cons :format "%v" | |
107 | (symbol :tag "Parameter") | |
108 | (sexp :tag "Value")))) | |
109 | ;; indent.c | |
110 | (indent-tabs-mode fill boolean) | |
111 | ;; keyboard.c | |
112 | (meta-prefix-char keyboard character) | |
113 | (auto-save-interval auto-save integer) | |
114 | (auto-save-timeout auto-save (choice (const :tag "off" nil) | |
115 | (integer :format "%v"))) | |
218d6445 | 116 | (echo-keystrokes minibuffer integer) |
1444b0c0 | 117 | (polling-period keyboard integer) |
4db2b1c7 RS |
118 | (double-click-time mouse (restricted-sexp |
119 | :match-alternatives (integerp 'nil 't))) | |
1444b0c0 PA |
120 | (inhibit-local-menu-bar-menus menu boolean) |
121 | (help-char keyboard character) | |
122 | (help-event-list keyboard (repeat (sexp :format "%v"))) | |
123 | (menu-prompting menu boolean) | |
1444b0c0 PA |
124 | (suggest-key-bindings keyboard (choice (const :tag "off" nil) |
125 | (integer :tag "time" 2) | |
79221864 | 126 | (other :tag "on"))) |
1444b0c0 PA |
127 | ;; lread.c |
128 | (load-path environment | |
4883633e | 129 | (repeat (choice :tag "[Current dir?]" |
4db2b1c7 | 130 | :format "%[Current dir?%] %v" |
4883633e RS |
131 | (const :tag " current dir" nil) |
132 | (directory :format "%v")))) | |
1444b0c0 PA |
133 | ;; minibuf.c |
134 | (completion-auto-help minibuffer boolean) | |
135 | (enable-recursive-minibuffers minibuffer boolean) | |
136 | (minibuffer-auto-raise minibuffer boolean) | |
137 | ;; process.c | |
4883633e | 138 | (delete-exited-processes processes-basics boolean) |
1444b0c0 PA |
139 | ;; syntax.c |
140 | (parse-sexp-ignore-comments editing-basics boolean) | |
141 | (words-include-escapes editing-basics boolean) | |
142 | ;; window.c | |
143 | (temp-buffer-show-function windows function) | |
144 | (display-buffer-function windows function) | |
145 | (pop-up-frames frames boolean) | |
146 | (pop-up-frame-function frames function) | |
147 | (special-display-buffer-names | |
148 | frames | |
149 | (repeat (choice :tag "Buffer" | |
150 | :value "" | |
151 | (string :format "%v") | |
152 | (cons :tag "With attributes" | |
153 | :format "%v" | |
154 | :value ("" . nil) | |
155 | (string :format "%v") | |
156 | (repeat :tag "Attributes" | |
157 | (cons :format "%v" | |
158 | (symbol :tag "Parameter") | |
159 | (sexp :tag "Value"))))))) | |
160 | (special-display-regexps | |
161 | frames | |
162 | (repeat (choice :tag "Buffer" | |
163 | :value "" | |
164 | (regexp :format "%v") | |
165 | (cons :tag "With attributes" | |
166 | :format "%v" | |
167 | :value ("" . nil) | |
168 | (regexp :format "%v") | |
169 | (repeat :tag "Attributes" | |
170 | (cons :format "%v" | |
171 | (symbol :tag "Parameter") | |
172 | (sexp :tag "Value"))))))) | |
173 | (special-display-function frames function) | |
174 | (same-window-buffer-names windows (repeat (string :format "%v"))) | |
175 | (same-window-regexps windows (repeat (regexp :format "%v"))) | |
176 | (pop-up-windows windows boolean) | |
74f54b54 | 177 | (next-screen-context-lines windows integer) |
1444b0c0 PA |
178 | (split-height-threshold windows integer) |
179 | (window-min-height windows integer) | |
180 | (window-min-width windows integer) | |
181 | ;; xdisp.c | |
182 | (scroll-step windows integer) | |
183 | (truncate-partial-width-windows display boolean) | |
184 | (mode-line-inverse-video modeline boolean) | |
185 | (line-number-display-limit display integer) | |
186 | (highlight-nonselected-windows display boolean) | |
187 | (message-log-max debug (choice (const :tag "Disable" nil) | |
188 | (integer :menu-tag "lines" | |
189 | :format "%v") | |
79221864 | 190 | (other :tag "Unlimited" t))) |
1444b0c0 PA |
191 | ;; xfns.c |
192 | (x-bitmap-file-path installation | |
193 | (repeat (directory :format "%v"))))) | |
4883633e RS |
194 | this symbol group type |
195 | ;; This function turns a value | |
196 | ;; into an expression which produces that value. | |
197 | (quoter (lambda (sexp) | |
198 | (if (or (memq sexp '(t nil)) | |
199 | (and (symbolp sexp) | |
200 | (eq (aref (symbol-name sexp) 0) ?:)) | |
201 | (and (listp sexp) | |
202 | (memq (car sexp) '(lambda))) | |
203 | (stringp sexp) | |
204 | (numberp sexp) | |
205 | (and (fboundp 'characterp) | |
206 | (characterp sexp))) | |
207 | sexp | |
208 | (list 'quote sexp))))) | |
1444b0c0 PA |
209 | (while all |
210 | (setq this (car all) | |
211 | all (cdr all) | |
212 | symbol (nth 0 this) | |
213 | group (nth 1 this) | |
214 | type (nth 2 this)) | |
215 | (if (not (boundp symbol)) | |
216 | ;; If variables are removed from C code, give an error here! | |
325d9e67 | 217 | (message "Note, built-in variable `%S' not bound" symbol) |
4883633e RS |
218 | ;; Save the standard value, unless we already did. |
219 | (or (get symbol 'standard-value) | |
220 | (put symbol 'standard-value | |
221 | (list (funcall quoter (default-value symbol))))) | |
222 | ;; If this is NOT while dumping Emacs, | |
223 | ;; set up the rest of the customization info. | |
224 | (unless purify-flag | |
225 | ;; Add it to the right group. | |
226 | (custom-add-to-group group symbol 'custom-variable) | |
227 | ;; Set the type. | |
228 | (put symbol 'custom-type type))))) | |
229 | ||
230 | ;; Record cus-start as loaded | |
231 | ;; if we have set up all the info that we can set up. | |
232 | ;; Don't record cus-start as loaded | |
233 | ;; if we have set up only the standard values. | |
234 | (unless purify-flag | |
235 | (provide 'cus-start)) | |
1444b0c0 PA |
236 | |
237 | ;;; cus-start.el ends here. |