Mercurial > emacs
annotate lisp/cus-start.el @ 57593:63d364b66fec
(calc-graph-plot): Removed emacs version check.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Tue, 19 Oct 2004 14:41:18 +0000 |
parents | 0bedef20ddc4 |
children | eca3c4f89b4b cce1c0ee76ee |
rev | line source |
---|---|
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35966
diff
changeset
|
1 ;;; cus-start.el --- define customization properties of builtins |
17416 | 2 ;; |
43111
6b161ffa5ef3
(x-use-underline-position-properties): Allow customization.
Pavel Janík <Pavel@Janik.cz>
parents:
43035
diff
changeset
|
3 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002 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 | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
37 (let ((all '(;; abbrev.c |
17416 | 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) | |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
56 (indicate-empty-lines display boolean "21.1") |
48939
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
57 (scroll-up-aggressively windows |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
58 (choice (const :tag "off" nil) number) |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
59 "21.1") |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
60 (scroll-down-aggressively windows |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
61 (choice (const :tag "off" nil) number) |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
62 "21.1") |
17416 | 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) |
30978 | 76 (file-coding-system-alist |
77 mule | |
78 (alist | |
79 :key-type (regexp :tag "File regexp") | |
80 :value-type (choice | |
81 :value (undecided . undecided) | |
82 (cons :tag "Encoding/decoding pair" | |
83 :value (undecided . undecided) | |
84 (coding-system :tag "Decoding") | |
85 (coding-system :tag "Encoding")) | |
86 (coding-system :tag "Single coding system" | |
87 :value undecided) | |
88 (function :value ignore)))) | |
48075
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
89 (selection-coding-system mule coding-system) |
17416 | 90 ;; dired.c |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
91 (completion-ignored-extensions dired |
17416 | 92 (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
|
93 ;; dispnew.c |
17416 | 94 (baud-rate display integer) |
95 (inverse-video display boolean) | |
96 (visible-bell display boolean) | |
97 (no-redraw-on-reenter display boolean) | |
98 ;; editfns.c | |
99 (user-full-name mail string) | |
100 ;; eval.c | |
101 (max-specpdl-size limits integer) | |
102 (max-lisp-eval-depth limits integer) | |
103 (stack-trace-on-error debug | |
104 (choice (const :tag "off") | |
105 (repeat :menu-tag "When" | |
106 :value (nil) | |
107 (symbol :format "%v")) | |
108 (const :tag "always" t))) | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
109 (debug-on-error debug |
17416 | 110 (choice (const :tag "off") |
111 (repeat :menu-tag "When" | |
112 :value (nil) | |
113 (symbol :format "%v")) | |
114 (const :tag "always" t))) | |
115 (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
|
116 (debug-on-quit debug |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
117 (choice (const :tag "off") |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
118 (repeat :menu-tag "When" |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
119 :value (nil) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
120 (symbol :format "%v")) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
121 (const :tag "always" t))) |
17416 | 122 ;; fileio.c |
123 (insert-default-directory minibuffer boolean) | |
56671
bfde3fb6a446
(read-file-name-completion-ignore-case): Add.
John Paul Wallington <jpw@pobox.com>
parents:
53189
diff
changeset
|
124 (read-file-name-completion-ignore-case minibuffer boolean "21.4") |
26619 | 125 ;; fns.c |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
126 (use-dialog-box menu boolean "21.1") |
53189
2c1d6f1a791e
Add variable use-file-dialog to control use of file dialogs.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52432
diff
changeset
|
127 (use-file-dialog menu boolean "21.4") |
17416 | 128 ;; frame.c |
129 (default-frame-alist frames | |
130 (repeat (cons :format "%v" | |
131 (symbol :tag "Parameter") | |
132 (sexp :tag "Value")))) | |
43376 | 133 (mouse-highlight mouse (choice (const :tag "disabled" nil) |
134 (const :tag "always shown" t) | |
135 (other :tag "hidden by keypress" 1))) | |
17416 | 136 ;; indent.c |
137 (indent-tabs-mode fill boolean) | |
138 ;; keyboard.c | |
139 (meta-prefix-char keyboard character) | |
140 (auto-save-interval auto-save integer) | |
141 (auto-save-timeout auto-save (choice (const :tag "off" nil) | |
142 (integer :format "%v"))) | |
27768 | 143 (echo-keystrokes minibuffer number) |
17416 | 144 (polling-period keyboard integer) |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
145 (double-click-time mouse (restricted-sexp |
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
146 :match-alternatives (integerp 'nil 't))) |
46616
676039ef9a4e
(double-click-fuzz): Added.
Richard M. Stallman <rms@gnu.org>
parents:
44357
diff
changeset
|
147 (double-click-fuzz mouse integer) |
17416 | 148 (inhibit-local-menu-bar-menus menu boolean) |
149 (help-char keyboard character) | |
150 (help-event-list keyboard (repeat (sexp :format "%v"))) | |
151 (menu-prompting menu boolean) | |
152 (suggest-key-bindings keyboard (choice (const :tag "off" nil) | |
153 (integer :tag "time" 2) | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
154 (other :tag "on"))) |
41604
b825c024c5de
(recursive-load-depth-limit): Delete item.
Richard M. Stallman <rms@gnu.org>
parents:
40413
diff
changeset
|
155 |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
156 ;; This is not good news because it will use the wrong |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
157 ;; version-specific directories when you upgrade. We need |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
158 ;; customization of the front of the list, maintaining the standard |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
159 ;; value intact at the back. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
160 ;;; (load-path environment |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
161 ;;; (repeat (choice :tag "[Current dir?]" |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
162 ;;; :format "%[Current dir?%] %v" |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
163 ;;; (const :tag " current dir" nil) |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
164 ;;; (directory :format "%v")))) |
17416 | 165 ;; minibuf.c |
166 (completion-auto-help minibuffer boolean) | |
167 (enable-recursive-minibuffers minibuffer boolean) | |
43035
225a3a5477a9
(history-length): Specify customization for it.
Richard M. Stallman <rms@gnu.org>
parents:
41604
diff
changeset
|
168 (history-length minibuffer |
225a3a5477a9
(history-length): Specify customization for it.
Richard M. Stallman <rms@gnu.org>
parents:
41604
diff
changeset
|
169 (choice (const :tag "Infinite" t) |
225a3a5477a9
(history-length): Specify customization for it.
Richard M. Stallman <rms@gnu.org>
parents:
41604
diff
changeset
|
170 integer)) |
57019
0bedef20ddc4
(history-delete-duplicates): Specify customization.
Juri Linkov <juri@jurta.org>
parents:
56671
diff
changeset
|
171 (history-delete-duplicates minibuffer boolean) |
33684
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
172 (minibuffer-prompt-properties |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
173 minibuffer |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
174 (list |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
175 (checklist :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
176 (const :tag "Read-Only" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
177 :doc "Prevent prompt from being modified" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
178 :format "%t%n%h" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
179 :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
180 (read-only t)) |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
181 (const :tag "Inviolable" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
182 :doc "Prevent point from ever entering prompt" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
183 :format "%t%n%h" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
184 :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
185 (point-entered minibuffer-avoid-prompt))) |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
186 (repeat :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
187 :tag "Other Properties" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
188 (list :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
189 :format "%v" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
190 (symbol :tag "Property") |
33922 | 191 (sexp :tag "Value")))) |
192 "21.1") | |
17416 | 193 (minibuffer-auto-raise minibuffer boolean) |
33922 | 194 ;; options property set at end |
34064 | 195 (read-buffer-function minibuffer |
196 (choice (const nil) | |
197 (function-item iswitchb-read-buffer) | |
198 function)) | |
23863
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
199 ;; msdos.c |
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
200 (dos-unsupported-char-glyph display integer) |
17416 | 201 ;; process.c |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
202 (delete-exited-processes processes-basics boolean) |
17416 | 203 ;; syntax.c |
204 (parse-sexp-ignore-comments editing-basics boolean) | |
205 (words-include-escapes editing-basics boolean) | |
52129
f6cc7244ebe6
Add open-paren-in-column-0-is-defun-start,
Dave Love <fx@gnu.org>
parents:
49588
diff
changeset
|
206 (open-paren-in-column-0-is-defun-start editing-basics boolean |
f6cc7244ebe6
Add open-paren-in-column-0-is-defun-start,
Dave Love <fx@gnu.org>
parents:
49588
diff
changeset
|
207 "21.1") |
17416 | 208 ;; window.c |
35966
911b5aa7fe8d
(temp-buffer-show-function, display-buffer-function): Fix :type.
Dave Love <fx@gnu.org>
parents:
34263
diff
changeset
|
209 (temp-buffer-show-function windows (choice (const nil) function)) |
911b5aa7fe8d
(temp-buffer-show-function, display-buffer-function): Fix :type.
Dave Love <fx@gnu.org>
parents:
34263
diff
changeset
|
210 (display-buffer-function windows (choice (const nil) function)) |
17416 | 211 (pop-up-frames frames boolean) |
212 (pop-up-frame-function frames function) | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
213 (special-display-buffer-names |
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
214 frames |
17416 | 215 (repeat (choice :tag "Buffer" |
216 :value "" | |
217 (string :format "%v") | |
218 (cons :tag "With attributes" | |
219 :format "%v" | |
220 :value ("" . nil) | |
221 (string :format "%v") | |
222 (repeat :tag "Attributes" | |
223 (cons :format "%v" | |
224 (symbol :tag "Parameter") | |
225 (sexp :tag "Value"))))))) | |
226 (special-display-regexps | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
227 frames |
17416 | 228 (repeat (choice :tag "Buffer" |
229 :value "" | |
230 (regexp :format "%v") | |
231 (cons :tag "With attributes" | |
232 :format "%v" | |
233 :value ("" . nil) | |
234 (regexp :format "%v") | |
235 (repeat :tag "Attributes" | |
236 (cons :format "%v" | |
237 (symbol :tag "Parameter") | |
238 (sexp :tag "Value"))))))) | |
239 (special-display-function frames function) | |
240 (same-window-buffer-names windows (repeat (string :format "%v"))) | |
241 (same-window-regexps windows (repeat (regexp :format "%v"))) | |
242 (pop-up-windows windows boolean) | |
34263
56d868415168
Add entry for even-window-heights.
Gerd Moellmann <gerd@gnu.org>
parents:
34064
diff
changeset
|
243 (even-window-heights windows boolean) |
21407
ea693abdeb4e
next-screen-context-lines is an integer, not boolean.
Stephen Eglen <stephen@gnu.org>
parents:
20017
diff
changeset
|
244 (next-screen-context-lines windows integer) |
17416 | 245 (split-height-threshold windows integer) |
246 (window-min-height windows integer) | |
247 (window-min-width windows integer) | |
24840
37fd40af2d49
(scroll-preserve-screen-position): Fix typo in type.
Karl Heuer <kwzh@gnu.org>
parents:
24758
diff
changeset
|
248 (scroll-preserve-screen-position windows boolean) |
30978 | 249 (display-buffer-reuse-frames windows boolean "21.1") |
17416 | 250 ;; xdisp.c |
251 (scroll-step windows integer) | |
24758
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
252 (scroll-conservatively windows integer) |
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
253 (scroll-margin windows integer) |
43662
63efe0df9e87
Rename automatic-hscroll-step and
Eli Zaretskii <eliz@gnu.org>
parents:
43376
diff
changeset
|
254 (hscroll-margin windows integer "21.3") |
63efe0df9e87
Rename automatic-hscroll-step and
Eli Zaretskii <eliz@gnu.org>
parents:
43376
diff
changeset
|
255 (hscroll-step windows number "21.3") |
17416 | 256 (truncate-partial-width-windows display boolean) |
33848
401f7cd02fba
(all): Restore entry for `mode-line-inverse-video', so that people can
Miles Bader <miles@gnu.org>
parents:
33722
diff
changeset
|
257 (mode-line-inverse-video modeline boolean) |
43284
62ca366c7991
Added mode-line-in-non-selected-windows.
Kim F. Storm <storm@cua.dk>
parents:
43235
diff
changeset
|
258 (mode-line-in-non-selected-windows modeline boolean "21.3") |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
259 (line-number-display-limit display |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
260 (choice integer |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
261 (const :tag "No limit" nil))) |
52129
f6cc7244ebe6
Add open-paren-in-column-0-is-defun-start,
Dave Love <fx@gnu.org>
parents:
49588
diff
changeset
|
262 (line-number-display-limit-width display integer) |
17416 | 263 (highlight-nonselected-windows display boolean) |
264 (message-log-max debug (choice (const :tag "Disable" nil) | |
265 (integer :menu-tag "lines" | |
266 :format "%v") | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
267 (other :tag "Unlimited" t))) |
24628
fc7a39405297
(all): Handle unibyte-display-via-language-environment.
Karl Heuer <kwzh@gnu.org>
parents:
24202
diff
changeset
|
268 (unibyte-display-via-language-environment mule boolean) |
56671
bfde3fb6a446
(read-file-name-completion-ignore-case): Add.
John Paul Wallington <jpw@pobox.com>
parents:
53189
diff
changeset
|
269 (blink-cursor-alist cursor alist "21.4") |
48075
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
270 ;; xfaces.c |
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
271 (scalable-fonts-allowed display boolean) |
17416 | 272 ;; xfns.c |
273 (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
|
274 (repeat (directory :format "%v"))) |
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
275 ;; xterm.c |
44357
4bbde6981301
Rename `autoselect-window' to `mouse-autoselect-window'.
Pavel Janík <Pavel@Janik.cz>
parents:
44304
diff
changeset
|
276 (mouse-autoselect-window display boolean "21.3") |
43111
6b161ffa5ef3
(x-use-underline-position-properties): Allow customization.
Pavel Janík <Pavel@Janik.cz>
parents:
43035
diff
changeset
|
277 (x-use-underline-position-properties display boolean "21.3") |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
278 (x-stretch-cursor display boolean "21.1"))) |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
279 this symbol group type native-p version |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
280 ;; This function turns a value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
281 ;; 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
|
282 (quoter (lambda (sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
283 (if (or (memq sexp '(t nil)) |
28569 | 284 (keywordp sexp) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
285 (and (listp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
286 (memq (car sexp) '(lambda))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
287 (stringp sexp) |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
288 ;; (and (fboundp 'characterp) |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
289 ;; (characterp sexp)) |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
290 (numberp sexp)) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
291 sexp |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
292 (list 'quote sexp))))) |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
293 (while all |
17416 | 294 (setq this (car all) |
295 all (cdr all) | |
296 symbol (nth 0 this) | |
297 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
|
298 type (nth 2 this) |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
299 version (nth 3 this) |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
300 ;; 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
|
301 ;; irrelevant to this platform. |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
302 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
|
303 (cond |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
304 ((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
|
305 (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
|
306 ((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
|
307 (eq system-type 'windows-nt)) |
43235
19bef4fcdae8
Don't warn about "x-*" symbols when building a non-GUI version.
Eli Zaretskii <eliz@gnu.org>
parents:
43111
diff
changeset
|
308 ((string-match "\\`x-" (symbol-name symbol)) |
19bef4fcdae8
Don't warn about "x-*" symbols when building a non-GUI version.
Eli Zaretskii <eliz@gnu.org>
parents:
43111
diff
changeset
|
309 (fboundp 'x-create-frame)) |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
310 (t t)))) |
17416 | 311 (if (not (boundp symbol)) |
312 ;; 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
|
313 (and native-p |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
314 (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
|
315 ;; 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
|
316 (or (get symbol 'standard-value) |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
317 (put symbol 'standard-value |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
318 (list (funcall quoter (default-value symbol))))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
319 ;; 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
|
320 ;; 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
|
321 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
322 ;; Add it to the right group. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
323 (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
|
324 ;; Set the type. |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
325 (put symbol 'custom-type type) |
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
326 (put symbol 'custom-version version))))) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
327 |
33922 | 328 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) |
52129
f6cc7244ebe6
Add open-paren-in-column-0-is-defun-start,
Dave Love <fx@gnu.org>
parents:
49588
diff
changeset
|
329 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start |
f6cc7244ebe6
Add open-paren-in-column-0-is-defun-start,
Dave Love <fx@gnu.org>
parents:
49588
diff
changeset
|
330 'custom-variable) |
48075
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
331 (put 'selection-coding-system 'custom-set |
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
332 (lambda (symbol value) |
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
333 (set-selection-coding-system value) |
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
334 (set symbol value))) |
33922 | 335 |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
336 ;; Record cus-start as loaded |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
337 ;; 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
|
338 ;; 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
|
339 ;; 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
|
340 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
341 (provide 'cus-start)) |
17416 | 342 |
52401 | 343 ;;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60 |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35966
diff
changeset
|
344 ;;; cus-start.el ends here |