Mercurial > emacs
annotate lisp/cus-start.el @ 24419:30e478cd167e
(shell-command-default-error-buffer): Renamed from
shell-command-on-region-default-error-buffer.
(shell-command-on-region): Mention in echo area when there
is some error output. Mention success or failure, too.
Accumulate multiple error outputs
going forward, with formfeed in between. Display the error buffer
when we have put something in it.
(shell-command): Add the ERROR-BUFFER argument feature.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Mar 1999 03:19:32 +0000 |
parents | afc9a7e3752f |
children | fc7a39405297 |
rev | line source |
---|---|
17416 | 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 | |
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 display | |
56 (choice (const :tag "off" nil) | |
57 (integer :tag "space" | |
58 :format "%v" | |
59 1) | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
60 (other :tag "on" t))) |
17416 | 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")))) | |
24057 | 70 ;; coding.c |
71 (inhibit-eol-conversion mule boolean) | |
24202
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
72 (eol-mnemonic-undecided mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
73 (eol-mnemonic-unix mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
74 (eol-mnemonic-dos mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
75 (eol-mnemonic-mac mule string) |
17416 | 76 ;; dired.c |
77 (completion-ignored-extensions dired | |
78 (repeat (string :format "%v"))) | |
79 ;; dispnew.el | |
80 (baud-rate display integer) | |
81 (inverse-video display boolean) | |
82 (visible-bell display boolean) | |
83 (no-redraw-on-reenter display boolean) | |
84 ;; editfns.c | |
85 (user-full-name mail string) | |
86 ;; eval.c | |
87 (max-specpdl-size limits integer) | |
88 (max-lisp-eval-depth limits integer) | |
89 (stack-trace-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-on-error debug | |
96 (choice (const :tag "off") | |
97 (repeat :menu-tag "When" | |
98 :value (nil) | |
99 (symbol :format "%v")) | |
100 (const :tag "always" t))) | |
101 (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
|
102 (debug-on-quit debug |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
103 (choice (const :tag "off") |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
104 (repeat :menu-tag "When" |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
105 :value (nil) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
106 (symbol :format "%v")) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
107 (const :tag "always" t))) |
17416 | 108 ;; fileio.c |
109 (insert-default-directory minibuffer boolean) | |
110 ;; frame.c | |
111 (default-frame-alist frames | |
112 (repeat (cons :format "%v" | |
113 (symbol :tag "Parameter") | |
114 (sexp :tag "Value")))) | |
115 ;; indent.c | |
116 (indent-tabs-mode fill boolean) | |
117 ;; keyboard.c | |
118 (meta-prefix-char keyboard character) | |
119 (auto-save-interval auto-save integer) | |
120 (auto-save-timeout auto-save (choice (const :tag "off" nil) | |
121 (integer :format "%v"))) | |
20017
0bef1d3ea752
(echo-keystrokes): Fix customize type.
Karl Heuer <kwzh@gnu.org>
parents:
18883
diff
changeset
|
122 (echo-keystrokes minibuffer integer) |
17416 | 123 (polling-period keyboard integer) |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
124 (double-click-time mouse (restricted-sexp |
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
125 :match-alternatives (integerp 'nil 't))) |
17416 | 126 (inhibit-local-menu-bar-menus menu boolean) |
127 (help-char keyboard character) | |
128 (help-event-list keyboard (repeat (sexp :format "%v"))) | |
129 (menu-prompting menu boolean) | |
130 (suggest-key-bindings keyboard (choice (const :tag "off" nil) | |
131 (integer :tag "time" 2) | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
132 (other :tag "on"))) |
17416 | 133 ;; lread.c |
134 (load-path environment | |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
135 (repeat (choice :tag "[Current dir?]" |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
136 :format "%[Current dir?%] %v" |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
137 (const :tag " current dir" nil) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
138 (directory :format "%v")))) |
17416 | 139 ;; minibuf.c |
140 (completion-auto-help minibuffer boolean) | |
141 (enable-recursive-minibuffers minibuffer boolean) | |
142 (minibuffer-auto-raise minibuffer boolean) | |
23863
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
143 ;; msdos.c |
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
144 (dos-unsupported-char-glyph display integer) |
17416 | 145 ;; process.c |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
146 (delete-exited-processes processes-basics boolean) |
17416 | 147 ;; syntax.c |
148 (parse-sexp-ignore-comments editing-basics boolean) | |
149 (words-include-escapes editing-basics boolean) | |
150 ;; window.c | |
151 (temp-buffer-show-function windows function) | |
152 (display-buffer-function windows function) | |
153 (pop-up-frames frames boolean) | |
154 (pop-up-frame-function frames function) | |
155 (special-display-buffer-names | |
156 frames | |
157 (repeat (choice :tag "Buffer" | |
158 :value "" | |
159 (string :format "%v") | |
160 (cons :tag "With attributes" | |
161 :format "%v" | |
162 :value ("" . nil) | |
163 (string :format "%v") | |
164 (repeat :tag "Attributes" | |
165 (cons :format "%v" | |
166 (symbol :tag "Parameter") | |
167 (sexp :tag "Value"))))))) | |
168 (special-display-regexps | |
169 frames | |
170 (repeat (choice :tag "Buffer" | |
171 :value "" | |
172 (regexp :format "%v") | |
173 (cons :tag "With attributes" | |
174 :format "%v" | |
175 :value ("" . nil) | |
176 (regexp :format "%v") | |
177 (repeat :tag "Attributes" | |
178 (cons :format "%v" | |
179 (symbol :tag "Parameter") | |
180 (sexp :tag "Value"))))))) | |
181 (special-display-function frames function) | |
182 (same-window-buffer-names windows (repeat (string :format "%v"))) | |
183 (same-window-regexps windows (repeat (regexp :format "%v"))) | |
184 (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
|
185 (next-screen-context-lines windows integer) |
17416 | 186 (split-height-threshold windows integer) |
187 (window-min-height windows integer) | |
188 (window-min-width windows integer) | |
189 ;; xdisp.c | |
190 (scroll-step windows integer) | |
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))) |
17416 | 199 ;; xfns.c |
200 (x-bitmap-file-path installation | |
201 (repeat (directory :format "%v"))))) | |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
202 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
|
203 ;; This function turns a value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
204 ;; 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
|
205 (quoter (lambda (sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
206 (if (or (memq sexp '(t nil)) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
207 (and (symbolp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
208 (eq (aref (symbol-name sexp) 0) ?:)) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
209 (and (listp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
210 (memq (car sexp) '(lambda))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
211 (stringp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
212 (numberp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
213 (and (fboundp 'characterp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
214 (characterp sexp))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
215 sexp |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
216 (list 'quote sexp))))) |
17416 | 217 (while all |
218 (setq this (car all) | |
219 all (cdr all) | |
220 symbol (nth 0 this) | |
221 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
|
222 type (nth 2 this) |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
223 ;; 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
|
224 ;; irrelevant to this platform. |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
225 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
|
226 (cond |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
227 ((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
|
228 (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
|
229 ((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
|
230 (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
|
231 (t t)))) |
17416 | 232 (if (not (boundp symbol)) |
233 ;; 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
|
234 (and native-p |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
235 (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
|
236 ;; 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
|
237 (or (get symbol 'standard-value) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
238 (put symbol 'standard-value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
239 (list (funcall quoter (default-value symbol))))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
240 ;; 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
|
241 ;; 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
|
242 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
243 ;; Add it to the right group. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
244 (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
|
245 ;; Set the type. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
246 (put symbol 'custom-type type))))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
247 |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
248 ;; Record cus-start as loaded |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
249 ;; 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
|
250 ;; 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
|
251 ;; 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
|
252 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
253 (provide 'cus-start)) |
17416 | 254 |
255 ;;; cus-start.el ends here. |