Mercurial > emacs
annotate lisp/cus-start.el @ 26304:b3aa5203ccf0
(QCuser_data): New.
(syms_of_xfns): Initialize QCuser_data.
(parse_image_spec): Ignore :user-data DATA properties.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 02 Nov 1999 12:50:53 +0000 |
parents | 59e6ee29c69b |
children | 53b7c03dd560 |
rev | line source |
---|---|
17416 | 1 ;;; cus-start.el --- define customization properties of builtins. |
2 ;; | |
25296
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
3 ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. |
17416 | 4 ;; |
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
6 ;; Keywords: internal | |
7 | |
17520 | 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 | |
17416 | 25 ;;; Commentary: |
26 ;; | |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
27 ;; This file adds customize support for built-in variables. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
28 |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
29 ;; While dumping Emacs, this file is loaded, but it only records |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
30 ;; the standard values; it does not do the rest of the job. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
31 ;; Later on, if the user makes a customization buffer, |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
32 ;; this file is loaded again with (require 'cus-start); |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
33 ;; then it does the whole job. |
17416 | 34 |
35 ;;; Code: | |
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) | |
18496
dd3b72558628
(enable-multibyte-characters): Customize.
Richard M. Stallman <rms@gnu.org>
parents:
18478
diff
changeset
|
48 (enable-multibyte-characters mule boolean) |
17416 | 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-ellipses display boolean) | |
56 (transient-mark-mode editing-basics boolean) | |
25296
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
57 (indicate-empty-lines display boolean) |
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
58 (scroll-up-aggressively windows boolean) |
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
59 (scroll-down-aggressively windows boolean) |
17416 | 60 ;; callint.c |
61 (mark-even-if-inactive editing-basics boolean) | |
62 ;; callproc.c | |
63 (shell-file-name execute file) | |
64 (exec-path execute | |
65 (repeat (choice (const :tag "default" nil) | |
66 (file :format "%v")))) | |
24057 | 67 ;; coding.c |
68 (inhibit-eol-conversion mule boolean) | |
24202
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
69 (eol-mnemonic-undecided mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
70 (eol-mnemonic-unix mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
71 (eol-mnemonic-dos mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
72 (eol-mnemonic-mac mule string) |
17416 | 73 ;; dired.c |
74 (completion-ignored-extensions dired | |
75 (repeat (string :format "%v"))) | |
25296
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
76 ;; dispnew.c |
17416 | 77 (baud-rate display integer) |
78 (inverse-video display boolean) | |
79 (visible-bell display boolean) | |
80 (no-redraw-on-reenter display boolean) | |
81 ;; editfns.c | |
82 (user-full-name mail string) | |
83 ;; eval.c | |
84 (max-specpdl-size limits integer) | |
85 (max-lisp-eval-depth limits integer) | |
86 (stack-trace-on-error debug | |
87 (choice (const :tag "off") | |
88 (repeat :menu-tag "When" | |
89 :value (nil) | |
90 (symbol :format "%v")) | |
91 (const :tag "always" t))) | |
92 (debug-on-error debug | |
93 (choice (const :tag "off") | |
94 (repeat :menu-tag "When" | |
95 :value (nil) | |
96 (symbol :format "%v")) | |
97 (const :tag "always" t))) | |
98 (debug-ignored-errors debug (repeat (choice symbol regexp))) | |
18883
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
99 (debug-on-quit debug |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
100 (choice (const :tag "off") |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
101 (repeat :menu-tag "When" |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
102 :value (nil) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
103 (symbol :format "%v")) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
104 (const :tag "always" t))) |
17416 | 105 ;; fileio.c |
106 (insert-default-directory minibuffer boolean) | |
107 ;; frame.c | |
108 (default-frame-alist frames | |
109 (repeat (cons :format "%v" | |
110 (symbol :tag "Parameter") | |
111 (sexp :tag "Value")))) | |
112 ;; indent.c | |
113 (indent-tabs-mode fill boolean) | |
114 ;; keyboard.c | |
115 (meta-prefix-char keyboard character) | |
116 (auto-save-interval auto-save integer) | |
117 (auto-save-timeout auto-save (choice (const :tag "off" nil) | |
118 (integer :format "%v"))) | |
20017
0bef1d3ea752
(echo-keystrokes): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
18883
diff
changeset
|
119 (echo-keystrokes minibuffer integer) |
17416 | 120 (polling-period keyboard integer) |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
121 (double-click-time mouse (restricted-sexp |
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
122 :match-alternatives (integerp 'nil 't))) |
17416 | 123 (inhibit-local-menu-bar-menus menu boolean) |
124 (help-char keyboard character) | |
125 (help-event-list keyboard (repeat (sexp :format "%v"))) | |
126 (menu-prompting menu boolean) | |
127 (suggest-key-bindings keyboard (choice (const :tag "off" nil) | |
128 (integer :tag "time" 2) | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
129 (other :tag "on"))) |
17416 | 130 ;; lread.c |
131 (load-path environment | |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
132 (repeat (choice :tag "[Current dir?]" |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
133 :format "%[Current dir?%] %v" |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
134 (const :tag " current dir" nil) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
135 (directory :format "%v")))) |
17416 | 136 ;; minibuf.c |
137 (completion-auto-help minibuffer boolean) | |
138 (enable-recursive-minibuffers minibuffer boolean) | |
139 (minibuffer-auto-raise minibuffer boolean) | |
23863
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
140 ;; msdos.c |
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
141 (dos-unsupported-char-glyph display integer) |
17416 | 142 ;; process.c |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
143 (delete-exited-processes processes-basics boolean) |
17416 | 144 ;; syntax.c |
145 (parse-sexp-ignore-comments editing-basics boolean) | |
146 (words-include-escapes editing-basics boolean) | |
147 ;; window.c | |
148 (temp-buffer-show-function windows function) | |
149 (display-buffer-function windows function) | |
150 (pop-up-frames frames boolean) | |
151 (pop-up-frame-function frames function) | |
152 (special-display-buffer-names | |
153 frames | |
154 (repeat (choice :tag "Buffer" | |
155 :value "" | |
156 (string :format "%v") | |
157 (cons :tag "With attributes" | |
158 :format "%v" | |
159 :value ("" . nil) | |
160 (string :format "%v") | |
161 (repeat :tag "Attributes" | |
162 (cons :format "%v" | |
163 (symbol :tag "Parameter") | |
164 (sexp :tag "Value"))))))) | |
165 (special-display-regexps | |
166 frames | |
167 (repeat (choice :tag "Buffer" | |
168 :value "" | |
169 (regexp :format "%v") | |
170 (cons :tag "With attributes" | |
171 :format "%v" | |
172 :value ("" . nil) | |
173 (regexp :format "%v") | |
174 (repeat :tag "Attributes" | |
175 (cons :format "%v" | |
176 (symbol :tag "Parameter") | |
177 (sexp :tag "Value"))))))) | |
178 (special-display-function frames function) | |
179 (same-window-buffer-names windows (repeat (string :format "%v"))) | |
180 (same-window-regexps windows (repeat (regexp :format "%v"))) | |
181 (pop-up-windows windows boolean) | |
21407
ea693abdeb4e
next-screen-context-lines is an integer, not boolean.
Stephen Eglen <stephen@gnu.org>
parents:
20017
diff
changeset
|
182 (next-screen-context-lines windows integer) |
17416 | 183 (split-height-threshold windows integer) |
184 (window-min-height windows integer) | |
185 (window-min-width windows integer) | |
24840
37fd40af2d49
(scroll-preserve-screen-position): Fix typo in type.
Karl Heuer <kwzh@gnu.org>
parents:
24758
diff
changeset
|
186 (scroll-preserve-screen-position windows boolean) |
17416 | 187 ;; xdisp.c |
188 (scroll-step windows integer) | |
24758
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
189 (scroll-conservatively windows integer) |
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
190 (scroll-margin windows integer) |
17416 | 191 (truncate-partial-width-windows display boolean) |
192 (mode-line-inverse-video modeline boolean) | |
193 (line-number-display-limit display integer) | |
194 (highlight-nonselected-windows display boolean) | |
195 (message-log-max debug (choice (const :tag "Disable" nil) | |
196 (integer :menu-tag "lines" | |
197 :format "%v") | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
198 (other :tag "Unlimited" t))) |
24628
fc7a39405297
(all): Handle unibyte-display-via-language-environment.
Karl Heuer <kwzh@gnu.org>
parents:
24202
diff
changeset
|
199 (unibyte-display-via-language-environment mule boolean) |
17416 | 200 ;; xfns.c |
201 (x-bitmap-file-path installation | |
25296
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
202 (repeat (directory :format "%v"))) |
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
203 ;; xterm.c |
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
204 (x-stretch-cursor display boolean))) |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
205 this symbol group type native-p |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
206 ;; This function turns a value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
207 ;; into an expression which produces that value. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
208 (quoter (lambda (sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
209 (if (or (memq sexp '(t nil)) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
210 (and (symbolp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
211 (eq (aref (symbol-name sexp) 0) ?:)) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
212 (and (listp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
213 (memq (car sexp) '(lambda))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
214 (stringp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
215 (numberp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
216 (and (fboundp 'characterp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
217 (characterp sexp))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
218 sexp |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
219 (list 'quote sexp))))) |
17416 | 220 (while all |
221 (setq this (car all) | |
222 all (cdr all) | |
223 symbol (nth 0 this) | |
224 group (nth 1 this) | |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
225 type (nth 2 this) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
226 ;; Don't complain about missing variables which are |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
227 ;; irrelevant to this platform. |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
228 native-p (save-match-data |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
229 (cond |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
230 ((string-match "\\`dos-" (symbol-name symbol)) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
231 (eq system-type 'ms-dos)) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
232 ((string-match "\\`w32-" (symbol-name symbol)) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
233 (eq system-type 'windows-nt)) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
234 (t t)))) |
17416 | 235 (if (not (boundp symbol)) |
236 ;; If variables are removed from C code, give an error here! | |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
237 (and native-p |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
238 (message "Note, built-in variable `%S' not bound" symbol)) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
239 ;; Save the standard value, unless we already did. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
240 (or (get symbol 'standard-value) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
241 (put symbol 'standard-value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
242 (list (funcall quoter (default-value symbol))))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
243 ;; If this is NOT while dumping Emacs, |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
244 ;; set up the rest of the customization info. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
245 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
246 ;; Add it to the right group. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
247 (custom-add-to-group group symbol 'custom-variable) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
248 ;; Set the type. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
249 (put symbol 'custom-type type))))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
250 |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
251 ;; Record cus-start as loaded |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
252 ;; if we have set up all the info that we can set up. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
253 ;; Don't record cus-start as loaded |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
254 ;; if we have set up only the standard values. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
255 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
256 (provide 'cus-start)) |
17416 | 257 |
258 ;;; cus-start.el ends here. |