Mercurial > emacs
annotate lisp/cus-start.el @ 111191:ed5bac97776a
* term/ns-win.el (ns-new-frame, ns-show-prefs): Don't add to global map. * term/common-win.el (x-setup-function-keys): Remove most of the keymappings. Comment on the remaining ones.
author | Adrian Robert <Adrian.B.Robert@gmail.com> |
---|---|
date | Tue, 26 Oct 2010 16:20:00 +0300 |
parents | 7be880404309 |
children | cdad894f9ed0 |
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 ;; |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64731
diff
changeset
|
3 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
17416 | 5 ;; |
6 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
7 ;; Keywords: internal | |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
109802
diff
changeset
|
8 ;; Package: emacs |
17416 | 9 |
17520 | 10 ;; This file is part of GNU Emacs. |
11 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94300
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17520 | 13 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94300
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94300
diff
changeset
|
15 ;; (at your option) any later version. |
17520 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94300
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17520 | 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 | |
85710
beb909dfc54d
Rewrite abbrev.c in Elisp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85267
diff
changeset
|
37 (let ((all '(;; alloc.c |
17416 | 38 (gc-cons-threshold alloc integer) |
60062
016ddb2eb0c6
(all): Comment change.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60057
diff
changeset
|
39 (garbage-collection-messages alloc boolean) |
17416 | 40 ;; buffer.c |
79584
07542a9cc2b3
(all): Use correct group name for members of mode-line group.
Martin Rudalics <rudalics@gmx.at>
parents:
78992
diff
changeset
|
41 (mode-line-format mode-line sexp) ;Hard to do right. |
104626
caa79498564a
* subr.el (default-mode-line-format, default-header-line-format)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103704
diff
changeset
|
42 (major-mode internal function) |
17416 | 43 (case-fold-search matching boolean) |
44 (fill-column fill integer) | |
45 (left-margin fill integer) | |
46 (tab-width editing-basics integer) | |
47 (ctl-arrow display boolean) | |
48 (truncate-lines display boolean) | |
96336
b877913c0692
Add customization types for word-wrap and shift-select-mode.
Chong Yidong <cyd@stupidchicken.com>
parents:
95792
diff
changeset
|
49 (word-wrap display boolean) |
17416 | 50 (selective-display-ellipses display boolean) |
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
parents:
68883
diff
changeset
|
51 (indicate-empty-lines fringe boolean) |
64706
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
52 (indicate-buffer-boundaries |
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
53 fringe |
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
54 (choice |
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
55 (const :tag "No indicators" nil) |
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
56 (const :tag "On left, with arrows" left) |
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64139
diff
changeset
|
57 (const :tag "On right, with arrows" right) |
64711
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
58 (set :tag "Pick your own design" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
59 :value ((t . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
60 :format "%{%t%}:\n%v\n%d" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
61 :doc "You can specify a default and then override it \ |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
62 for individual indicators. |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
63 Leaving \"Default\" unchecked is equivalent with specifying a default of |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
64 \"Do not show\"." |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
65 (choice :tag "Default" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
66 :value (t . nil) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
67 (const :tag "Do not show" (t . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
68 (const :tag "On the left" (t . left)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
69 (const :tag "On the right" (t . right))) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
70 (choice :tag "Top" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
71 :value (top . left) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
72 (const :tag "Do not show" (top . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
73 (const :tag "On the left" (top . left)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
74 (const :tag "On the right" (top . right))) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
75 (choice :tag "Bottom" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
76 :value (bottom . left) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
77 (const :tag "Do not show" (bottom . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
78 (const :tag "On the left" (bottom . left)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
79 (const :tag "On the right" (bottom . right))) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
80 (choice :tag "Up arrow" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
81 :value (up . left) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
82 (const :tag "Do not show" (up . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
83 (const :tag "On the left" (up . left)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
84 (const :tag "On the right" (up . right))) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
85 (choice :tag "Down arrow" |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
86 :value (down . left) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
87 (const :tag "Do not show" (down . nil)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
88 (const :tag "On the left" (down . left)) |
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
parents:
64708
diff
changeset
|
89 (const :tag "On the right" (down . right)))) |
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
parents:
68883
diff
changeset
|
90 (other :tag "On left, no arrows" t))) |
48939
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
91 (scroll-up-aggressively windows |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
92 (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
|
93 "21.1") |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
94 (scroll-down-aggressively windows |
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
parents:
48075
diff
changeset
|
95 (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
|
96 "21.1") |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
97 (line-spacing display (choice (const :tag "none" nil) integer) |
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
98 "22.1") |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
99 (cursor-in-non-selected-windows |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
100 cursor boolean nil t :tag "Cursor In Non-selected Windows" |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
101 :set #'(lambda (symbol value) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
102 (set-default symbol value) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
103 (force-mode-line-update t))) |
17416 | 104 ;; callint.c |
105 (mark-even-if-inactive editing-basics boolean) | |
106 ;; callproc.c | |
107 (shell-file-name execute file) | |
108 (exec-path execute | |
64139
2fcfefeaac70
(exec-path): Fix tag for nil.
Richard M. Stallman <rms@gnu.org>
parents:
64138
diff
changeset
|
109 (repeat (choice (const :tag "default directory" nil) |
64138
a32a0e928f2d
(exec-path): Use `directory' instead of `file'.
Richard M. Stallman <rms@gnu.org>
parents:
64091
diff
changeset
|
110 (directory :format "%v")))) |
88574 | 111 ;; charset.c |
89789
fabd2ab3819f
Handle charset-map-path, not charset-map-directory.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
112 (charset-map-path installation |
fabd2ab3819f
Handle charset-map-path, not charset-map-directory.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
113 (repeat (directory :format "%v"))) |
24057 | 114 ;; coding.c |
115 (inhibit-eol-conversion mule boolean) | |
24202
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
116 (eol-mnemonic-undecided mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
117 (eol-mnemonic-unix mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
118 (eol-mnemonic-dos mule string) |
afc9a7e3752f
(all): Add eol-mnemonic-* variables.
Eli Zaretskii <eliz@gnu.org>
parents:
24057
diff
changeset
|
119 (eol-mnemonic-mac mule string) |
30978 | 120 (file-coding-system-alist |
121 mule | |
122 (alist | |
123 :key-type (regexp :tag "File regexp") | |
78091
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
124 :value-type (choice |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
125 :value (undecided . undecided) |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
126 (cons :tag "Encoding/decoding pair" |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
127 :value (undecided . undecided) |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
128 (coding-system :tag "Decoding") |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
129 (coding-system :tag "Encoding")) |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
130 (coding-system |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
131 :tag "Single coding system" |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
132 :value undecided |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
133 :match (lambda (widget value) |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
134 (and value (not (functionp value))))) |
35e7de7eae29
(file-coding-system-alist): Fix previous commit.
Katsumi Yamaoka <yamaoka@jpl.org>
parents:
78089
diff
changeset
|
135 (function :value ignore)))) |
17416 | 136 ;; dired.c |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
137 (completion-ignored-extensions dired |
17416 | 138 (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
|
139 ;; dispnew.c |
17416 | 140 (baud-rate display integer) |
141 (inverse-video display boolean) | |
142 (visible-bell display boolean) | |
143 (no-redraw-on-reenter display boolean) | |
144 ;; editfns.c | |
145 (user-full-name mail string) | |
146 ;; eval.c | |
147 (max-specpdl-size limits integer) | |
148 (max-lisp-eval-depth limits integer) | |
81677
a01517ba35e8
(max-mini-window-height): Added.
Richard M. Stallman <rms@gnu.org>
parents:
77068
diff
changeset
|
149 (max-mini-window-height limits |
a01517ba35e8
(max-mini-window-height): Added.
Richard M. Stallman <rms@gnu.org>
parents:
77068
diff
changeset
|
150 (choice (const :tag "quarter screen" nil) |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
151 number) "23.1") |
17416 | 152 (stack-trace-on-error debug |
153 (choice (const :tag "off") | |
154 (repeat :menu-tag "When" | |
155 :value (nil) | |
156 (symbol :format "%v")) | |
157 (const :tag "always" t))) | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
158 (debug-on-error debug |
17416 | 159 (choice (const :tag "off") |
160 (repeat :menu-tag "When" | |
161 :value (nil) | |
162 (symbol :format "%v")) | |
163 (const :tag "always" t))) | |
164 (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
|
165 (debug-on-quit debug |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
166 (choice (const :tag "off") |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
167 (repeat :menu-tag "When" |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
168 :value (nil) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
169 (symbol :format "%v")) |
f7e3c766f54c
(debug-on-quit): Define like debug-on-error.
Richard M. Stallman <rms@gnu.org>
parents:
18727
diff
changeset
|
170 (const :tag "always" t))) |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96336
diff
changeset
|
171 ;; fileio.c |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96336
diff
changeset
|
172 (delete-by-moving-to-trash auto-save boolean "23.1") |
97300
6fc28ec407d2
Handle auto-save-visited-file-name.
Chong Yidong <cyd@stupidchicken.com>
parents:
97123
diff
changeset
|
173 (auto-save-visited-file-name auto-save boolean) |
26619 | 174 ;; 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
|
175 (use-dialog-box menu boolean "21.1") |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59739
diff
changeset
|
176 (use-file-dialog menu boolean "22.1") |
78992
15fe36cffb96
(all): Add focus-follows-mouse.
Martin Rudalics <rudalics@gmx.at>
parents:
78236
diff
changeset
|
177 (focus-follows-mouse frames boolean "20.3") |
17416 | 178 ;; frame.c |
179 (default-frame-alist frames | |
180 (repeat (cons :format "%v" | |
181 (symbol :tag "Parameter") | |
182 (sexp :tag "Value")))) | |
43376 | 183 (mouse-highlight mouse (choice (const :tag "disabled" nil) |
184 (const :tag "always shown" t) | |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
185 (other :tag "hidden by keypress" 1)) |
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
186 "22.1") |
103704
6a4e411bd83b
* xterm.h (struct x_display_info): Add invisible_cursor.
Jan Djärv <jan.h.d@swipnet.se>
parents:
103557
diff
changeset
|
187 (make-pointer-invisible mouse boolean "23.2") |
64790
79faff912fc6
(all): Add `overflow-newline-into-fringe'.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64762
diff
changeset
|
188 ;; fringe.c |
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
parents:
68883
diff
changeset
|
189 (overflow-newline-into-fringe fringe boolean) |
17416 | 190 ;; indent.c |
72371
c1c598c2cd83
<indent-tabs-mode>: Move to the `indent' customization group.
Eli Zaretskii <eliz@gnu.org>
parents:
71355
diff
changeset
|
191 (indent-tabs-mode indent boolean) |
17416 | 192 ;; keyboard.c |
193 (meta-prefix-char keyboard character) | |
194 (auto-save-interval auto-save integer) | |
195 (auto-save-timeout auto-save (choice (const :tag "off" nil) | |
196 (integer :format "%v"))) | |
27768 | 197 (echo-keystrokes minibuffer number) |
17416 | 198 (polling-period keyboard integer) |
18478
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
199 (double-click-time mouse (restricted-sexp |
74399f15f71e
(double-click-time): Use restricted-sexp.
Richard M. Stallman <rms@gnu.org>
parents:
18434
diff
changeset
|
200 :match-alternatives (integerp 'nil 't))) |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
201 (double-click-fuzz mouse integer "22.1") |
17416 | 202 (inhibit-local-menu-bar-menus menu boolean) |
203 (help-char keyboard character) | |
204 (help-event-list keyboard (repeat (sexp :format "%v"))) | |
205 (menu-prompting menu boolean) | |
109678
14830418f9fc
Change `select-active-region' mechanics.
Chong Yidong <cyd@stupidchicken.com>
parents:
109604
diff
changeset
|
206 (select-active-regions killing |
109802
acc05fd0631b
Let all active regions set the primary selection.
Chong Yidong <cyd@stupidchicken.com>
parents:
109678
diff
changeset
|
207 (choice (const :tag "always" t) |
acc05fd0631b
Let all active regions set the primary selection.
Chong Yidong <cyd@stupidchicken.com>
parents:
109678
diff
changeset
|
208 (const :tag "only shift-selection or mouse-drag" only) |
109678
14830418f9fc
Change `select-active-region' mechanics.
Chong Yidong <cyd@stupidchicken.com>
parents:
109604
diff
changeset
|
209 (const :tag "off" nil)) |
14830418f9fc
Change `select-active-region' mechanics.
Chong Yidong <cyd@stupidchicken.com>
parents:
109604
diff
changeset
|
210 "24.1") |
17416 | 211 (suggest-key-bindings keyboard (choice (const :tag "off" nil) |
212 (integer :tag "time" 2) | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
213 (other :tag "on"))) |
41604
b825c024c5de
(recursive-load-depth-limit): Delete item.
Richard M. Stallman <rms@gnu.org>
parents:
40413
diff
changeset
|
214 |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
215 ;; 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
|
216 ;; 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
|
217 ;; 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
|
218 ;; value intact at the back. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
219 ;;; (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
|
220 ;;; (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
|
221 ;;; :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
|
222 ;;; (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
|
223 ;;; (directory :format "%v")))) |
17416 | 224 ;; minibuf.c |
225 (enable-recursive-minibuffers minibuffer boolean) | |
43035
225a3a5477a9
(history-length): Specify customization for it.
Richard M. Stallman <rms@gnu.org>
parents:
41604
diff
changeset
|
226 (history-length minibuffer |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
227 (choice (const :tag "Infinite" t) integer) |
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
228 "22.1") |
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
229 (history-delete-duplicates minibuffer boolean "22.1") |
97123
2f70fde56dfe
Add customization info for read-buffer-completion-ignore-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
97043
diff
changeset
|
230 (read-buffer-completion-ignore-case minibuffer boolean "23.1") |
2f70fde56dfe
Add customization info for read-buffer-completion-ignore-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
97043
diff
changeset
|
231 |
33684
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
232 (minibuffer-prompt-properties |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
233 minibuffer |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
234 (list |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
235 (checklist :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
236 (const :tag "Read-Only" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
237 :doc "Prevent prompt from being modified" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
238 :format "%t%n%h" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
239 :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
240 (read-only t)) |
65043
0d1f97bd87d9
(minibuffer-prompt-properties): Correct typo.
Luc Teirlinck <teirllm@auburn.edu>
parents:
65019
diff
changeset
|
241 (const :tag "Don't Enter" |
33684
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
242 :doc "Prevent point from ever entering prompt" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
243 :format "%t%n%h" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
244 :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
245 (point-entered minibuffer-avoid-prompt))) |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
246 (repeat :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
247 :tag "Other Properties" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
248 (list :inline t |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
249 :format "%v" |
1a9baca954a0
Add entry for `minibuffer-prompt-properties'.
Miles Bader <miles@gnu.org>
parents:
30978
diff
changeset
|
250 (symbol :tag "Property") |
33922 | 251 (sexp :tag "Value")))) |
252 "21.1") | |
17416 | 253 (minibuffer-auto-raise minibuffer boolean) |
33922 | 254 ;; options property set at end |
34064 | 255 (read-buffer-function minibuffer |
256 (choice (const nil) | |
257 (function-item iswitchb-read-buffer) | |
258 function)) | |
23863
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
259 ;; msdos.c |
478c3628a2cd
(dos-unsupported-char-glyph): Add.
Eli Zaretskii <eliz@gnu.org>
parents:
22571
diff
changeset
|
260 (dos-unsupported-char-glyph display integer) |
102664
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
261 ;; nsterm.m |
102667 | 262 (ns-control-modifier |
102676
100b06d58ef9
(all): Use existing `ns' rather than new `nextstep' group for variables affected by last two changes.
David Reitter <david.reitter@gmail.com>
parents:
102667
diff
changeset
|
263 ns |
102664
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
264 (choice (const :tag "No modifier" nil) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
265 (const control) (const meta) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
266 (const alt) (const hyper) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
267 (const super)) "23.1") |
102667 | 268 (ns-command-modifier |
102676
100b06d58ef9
(all): Use existing `ns' rather than new `nextstep' group for variables affected by last two changes.
David Reitter <david.reitter@gmail.com>
parents:
102667
diff
changeset
|
269 ns |
102664
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
270 (choice (const :tag "No modifier" nil) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
271 (const control) (const meta) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
272 (const alt) (const hyper) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
273 (const super)) "23.1") |
102667 | 274 (ns-alternate-modifier |
102676
100b06d58ef9
(all): Use existing `ns' rather than new `nextstep' group for variables affected by last two changes.
David Reitter <david.reitter@gmail.com>
parents:
102667
diff
changeset
|
275 ns |
102664
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
276 (choice (const :tag "No modifier (work as alternate/option)" none) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
277 (const control) (const meta) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
278 (const alt) (const hyper) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
279 (const super)) "23.1") |
110930
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
280 (ns-right-alternate-modifier |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
281 ns |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
282 (choice (const :tag "No modifier (work as alternate/option)" none) |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
283 (const :tag "Use the value of ns-alternate-modifier" |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
284 left) |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
285 (const control) (const meta) |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
286 (const alt) (const hyper) |
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
287 (const super)) "23.3") |
102667 | 288 (ns-function-modifier |
102676
100b06d58ef9
(all): Use existing `ns' rather than new `nextstep' group for variables affected by last two changes.
David Reitter <david.reitter@gmail.com>
parents:
102667
diff
changeset
|
289 ns |
102664
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
290 (choice (const :tag "No modifier (work as function)" none) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
291 (const control) (const meta) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
292 (const alt) (const hyper) |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
293 (const super)) "23.1") |
f59da3b2bad3
(all): add `ns-{control|command|alternate|function}-modifier', `ns-antialias-text' and `ns-use-qd-smoothing'
David Reitter <david.reitter@gmail.com>
parents:
100908
diff
changeset
|
294 (ns-antialias-text ns boolean "23.1") |
17416 | 295 ;; process.c |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
296 (delete-exited-processes processes-basics boolean) |
17416 | 297 ;; syntax.c |
298 (parse-sexp-ignore-comments editing-basics boolean) | |
299 (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
|
300 (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
|
301 "21.1") |
67936
07ec77ecb7b5
Add `visible-cursor'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67845
diff
changeset
|
302 ;; term.c |
07ec77ecb7b5
Add `visible-cursor'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67845
diff
changeset
|
303 (visible-cursor cursor boolean "22.1") |
64731
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
304 ;; undo.c |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
305 (undo-limit undo integer) |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
306 (undo-strong-limit undo integer) |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
307 (undo-outer-limit undo |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
308 (choice integer |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
309 (const :tag "No limit" |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
310 :format "%t\n%d" |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
311 :doc |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
312 "With this choice, \ |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
313 the undo info for the current command never gets discarded. |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
314 This should only be chosen under exceptional circumstances, |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
315 since it could result in memory overflow and make Emacs crash." |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
316 nil)) |
b991ecaae196
(all): Put undo.c where it alphabetically belongs.
Luc Teirlinck <teirllm@auburn.edu>
parents:
64711
diff
changeset
|
317 "22.1") |
17416 | 318 ;; window.c |
35966
911b5aa7fe8d
(temp-buffer-show-function, display-buffer-function): Fix :type.
Dave Love <fx@gnu.org>
parents:
34263
diff
changeset
|
319 (temp-buffer-show-function windows (choice (const nil) function)) |
21407
ea693abdeb4e
next-screen-context-lines is an integer, not boolean.
Stephen Eglen <stephen@gnu.org>
parents:
20017
diff
changeset
|
320 (next-screen-context-lines windows integer) |
17416 | 321 (window-min-height windows integer) |
322 (window-min-width windows integer) | |
77068
1ab9d1057ad0
2007-04-08 Martin Rudalics <rudalics@gmx.at>
Kim F. Storm <storm@cua.dk>
parents:
75347
diff
changeset
|
323 (scroll-preserve-screen-position |
1ab9d1057ad0
2007-04-08 Martin Rudalics <rudalics@gmx.at>
Kim F. Storm <storm@cua.dk>
parents:
75347
diff
changeset
|
324 windows (choice |
1ab9d1057ad0
2007-04-08 Martin Rudalics <rudalics@gmx.at>
Kim F. Storm <storm@cua.dk>
parents:
75347
diff
changeset
|
325 (const :tag "Off (nil)" :value nil) |
1ab9d1057ad0
2007-04-08 Martin Rudalics <rudalics@gmx.at>
Kim F. Storm <storm@cua.dk>
parents:
75347
diff
changeset
|
326 (const :tag "Full screen (t)" :value t) |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
327 (other :tag "Always" 1)) "22.1") |
103557
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
328 (recenter-redisplay windows |
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
329 (choice |
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
330 (const :tag "Never (nil)" :value nil) |
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
331 (const :tag "Only on ttys" :value tty) |
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
332 (other :tag "Always" t)) |
f52eb7cf1c20
Add the `recenter-redisplay' variable, and make `recenter' use it.
Miles Bader <miles@gnu.org>
parents:
102745
diff
changeset
|
333 "23.1") |
17416 | 334 ;; xdisp.c |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
335 (show-trailing-whitespace whitespace-faces boolean nil nil |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
336 :safe booleanp) |
17416 | 337 (scroll-step windows integer) |
24758
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
338 (scroll-conservatively windows integer) |
16c7330ad116
(all): Delete selective-display. Add scroll-margin,
Richard M. Stallman <rms@gnu.org>
parents:
24628
diff
changeset
|
339 (scroll-margin windows integer) |
72611
231eb88f2558
(hscroll-margin, hscroll-step)
Eli Zaretskii <eliz@gnu.org>
parents:
72506
diff
changeset
|
340 (hscroll-margin windows integer "22.1") |
231eb88f2558
(hscroll-margin, hscroll-step)
Eli Zaretskii <eliz@gnu.org>
parents:
72506
diff
changeset
|
341 (hscroll-step windows number "22.1") |
97813
2ff12d3be8a7
(truncate-partial-width-windows): Changed in 23.1.
Glenn Morris <rgm@gnu.org>
parents:
97300
diff
changeset
|
342 (truncate-partial-width-windows display boolean "23.1") |
79584
07542a9cc2b3
(all): Use correct group name for members of mode-line group.
Martin Rudalics <rudalics@gmx.at>
parents:
78992
diff
changeset
|
343 (mode-line-inverse-video mode-line boolean) |
07542a9cc2b3
(all): Use correct group name for members of mode-line group.
Martin Rudalics <rudalics@gmx.at>
parents:
78992
diff
changeset
|
344 (mode-line-in-non-selected-windows mode-line boolean "22.1") |
30167
83e9db7aeddb
Add optional version as 4th element of specs and use it for several
Dave Love <fx@gnu.org>
parents:
28569
diff
changeset
|
345 (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
|
346 (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
|
347 (const :tag "No limit" nil))) |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
348 (line-number-display-limit-width display integer "22.1") |
17416 | 349 (highlight-nonselected-windows display boolean) |
350 (message-log-max debug (choice (const :tag "Disable" nil) | |
351 (integer :menu-tag "lines" | |
352 :format "%v") | |
22571
4aebb136294f
(selective-display, suggest-key-bindings,
Andreas Schwab <schwab@suse.de>
parents:
21407
diff
changeset
|
353 (other :tag "Unlimited" t))) |
24628
fc7a39405297
(all): Handle unibyte-display-via-language-environment.
Karl Heuer <kwzh@gnu.org>
parents:
24202
diff
changeset
|
354 (unibyte-display-via-language-environment mule boolean) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59739
diff
changeset
|
355 (blink-cursor-alist cursor alist "22.1") |
72506
2434e33b748e
(all): Add `overline-margin' and `x-underline-at-descent-line'.
Kim F. Storm <storm@cua.dk>
parents:
72371
diff
changeset
|
356 (overline-margin display integer "22.1") |
95792
953225ddde83
* xdisp.c (underline_minimum_offset): Rename from xterm.c's
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95791
diff
changeset
|
357 (underline-minimum-offset display integer "23.1") |
72737
455031002c62
* window.el (mouse-autoselect-window-timer)
Chong Yidong <cyd@stupidchicken.com>
parents:
72611
diff
changeset
|
358 (mouse-autoselect-window |
455031002c62
* window.el (mouse-autoselect-window-timer)
Chong Yidong <cyd@stupidchicken.com>
parents:
72611
diff
changeset
|
359 display (choice |
455031002c62
* window.el (mouse-autoselect-window-timer)
Chong Yidong <cyd@stupidchicken.com>
parents:
72611
diff
changeset
|
360 (const :tag "Off (nil)" :value nil) |
455031002c62
* window.el (mouse-autoselect-window-timer)
Chong Yidong <cyd@stupidchicken.com>
parents:
72611
diff
changeset
|
361 (const :tag "Immediate" :value t) |
455031002c62
* window.el (mouse-autoselect-window-timer)
Chong Yidong <cyd@stupidchicken.com>
parents:
72611
diff
changeset
|
362 (number :tag "Delay by secs" :value 0.5)) "22.1") |
108024
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
363 (tool-bar-style |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
364 frames (choice |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
365 (const :tag "Images" :value image) |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
366 (const :tag "Text" :value text) |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
367 (const :tag "Both" :value both) |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
368 (const :tag "Both-horiz" :value both-horiz) |
109566
d03bc4a3fced
Add tool bar style text-image-horiz (text to the left of the image).
Jan D. <jan.h.d@swipnet.se>
parents:
108300
diff
changeset
|
369 (const :tag "Text-image-horiz" :value text-image-horiz) |
108024
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
370 (const :tag "System default" :value nil)) "23.3") |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
371 (tool-bar-max-label-size frames integer "23.3") |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
372 (auto-hscroll-mode scrolling boolean "21.1") |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
373 (display-hourglass cursor boolean) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
374 (hourglass-delay cursor number) |
108024
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
106815
diff
changeset
|
375 |
48075
801530a6c168
(selection-coding-system, scalable-fonts-allowed):
Dave Love <fx@gnu.org>
parents:
47358
diff
changeset
|
376 ;; xfaces.c |
87708
c52802cd7e09
(all): Add missing version entries.
Martin Rudalics <rudalics@gmx.at>
parents:
87649
diff
changeset
|
377 (scalable-fonts-allowed display boolean "22.1") |
17416 | 378 ;; xfns.c |
379 (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
|
380 (repeat (directory :format "%v"))) |
72970
7bd8e44a9cda
* cus-start.el (all): Rename x-gtk-show-chooser-help-text to
Jan Djärv <jan.h.d@swipnet.se>
parents:
72929
diff
changeset
|
381 (x-gtk-use-old-file-dialog menu boolean "22.1") |
67845
ff56a6742bc2
Add x-gtk-show-hidden-files
Jan Djärv <jan.h.d@swipnet.se>
parents:
67661
diff
changeset
|
382 (x-gtk-show-hidden-files menu boolean "22.1") |
72970
7bd8e44a9cda
* cus-start.el (all): Rename x-gtk-show-chooser-help-text to
Jan Djärv <jan.h.d@swipnet.se>
parents:
72929
diff
changeset
|
383 (x-gtk-file-dialog-help-text menu boolean "22.1") |
68883
64799e14a115
* cus-start.el (all): Add x-gtk-whole-detached-tool-bar
Jan Djärv <jan.h.d@swipnet.se>
parents:
68651
diff
changeset
|
384 (x-gtk-whole-detached-tool-bar x boolean "22.1") |
109604
43eca6c9f493
Use Gtk+ tooltips by default for Gtk+ Emacs.
Jan D <jan.h.d@swipnet.se>
parents:
109566
diff
changeset
|
385 (x-gtk-use-system-tooltips tooltip boolean "23.3") |
25296
59e6ee29c69b
Add x-stretch-cursor, indicate-empty-lines, scroll-up-aggressively,
Dave Love <fx@gnu.org>
parents:
24840
diff
changeset
|
386 ;; xterm.c |
72611
231eb88f2558
(hscroll-margin, hscroll-step)
Eli Zaretskii <eliz@gnu.org>
parents:
72506
diff
changeset
|
387 (x-use-underline-position-properties display boolean "22.1") |
72506
2434e33b748e
(all): Add `overline-margin' and `x-underline-at-descent-line'.
Kim F. Storm <storm@cua.dk>
parents:
72371
diff
changeset
|
388 (x-underline-at-descent-line display boolean "22.1") |
106097
5fa329215a93
xsettings.c didn't check font-use-system-font, fix that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105087
diff
changeset
|
389 (x-stretch-cursor display boolean "21.1") |
5fa329215a93
xsettings.c didn't check font-use-system-font, fix that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105087
diff
changeset
|
390 ;; xsettings.c |
5fa329215a93
xsettings.c didn't check font-use-system-font, fix that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105087
diff
changeset
|
391 (font-use-system-font font-selection boolean "23.2"))) |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
392 this symbol group type standard version native-p rest prop propval |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
393 ;; This function turns a value |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
394 ;; 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
|
395 (quoter (lambda (sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
396 (if (or (memq sexp '(t nil)) |
28569 | 397 (keywordp sexp) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
398 (and (listp sexp) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
399 (memq (car sexp) '(lambda))) |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
400 (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
|
401 (numberp sexp)) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
402 sexp |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
403 (list 'quote sexp))))) |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48939
diff
changeset
|
404 (while all |
17416 | 405 (setq this (car all) |
406 all (cdr all) | |
407 symbol (nth 0 this) | |
408 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
|
409 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
|
410 version (nth 3 this) |
60033
ec4864463fc2
(all): Allow a var to specify a standard value.
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
411 ;; If we did not specify any standard value expression above, |
ec4864463fc2
(all): Allow a var to specify a standard value.
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
412 ;; use the current value as the standard value. |
ec4864463fc2
(all): Allow a var to specify a standard value.
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
413 standard (if (nthcdr 4 this) |
ec4864463fc2
(all): Allow a var to specify a standard value.
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
414 (nth 4 this) |
60096
a9e9af4690d5
(all): Use default-boundp.
Richard M. Stallman <rms@gnu.org>
parents:
60062
diff
changeset
|
415 (when (default-boundp symbol) |
60057
c81f31db6e84
(all): Check if symbol is void.
Lute Kamstra <lute@gnu.org>
parents:
60033
diff
changeset
|
416 (funcall quoter (default-value symbol)))) |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
417 rest (nthcdr 5 this) |
23967
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
418 ;; 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
|
419 ;; irrelevant to this platform. |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
420 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
|
421 (cond |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
422 ((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
|
423 (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
|
424 ((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
|
425 (eq system-type 'windows-nt)) |
102667 | 426 ((string-match "\\`ns-" (symbol-name symbol)) |
427 (featurep 'ns)) | |
63369
fe5c9ccf867c
(all): Don't complain about missing GTK-related variables,
Eli Zaretskii <eliz@gnu.org>
parents:
60096
diff
changeset
|
428 ((string-match "\\`x-.*gtk" (symbol-name symbol)) |
83366 | 429 (featurep 'gtk)) |
43235
19bef4fcdae8
Don't warn about "x-*" symbols when building a non-GUI version.
Eli Zaretskii <eliz@gnu.org>
parents:
43111
diff
changeset
|
430 ((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
|
431 (fboundp 'x-create-frame)) |
65401
27b65d33884f
(all): Don't complain about fringe-related
Eli Zaretskii <eliz@gnu.org>
parents:
65043
diff
changeset
|
432 ((string-match "selection" (symbol-name symbol)) |
27b65d33884f
(all): Don't complain about fringe-related
Eli Zaretskii <eliz@gnu.org>
parents:
65043
diff
changeset
|
433 (fboundp 'x-selection-exists-p)) |
27b65d33884f
(all): Don't complain about fringe-related
Eli Zaretskii <eliz@gnu.org>
parents:
65043
diff
changeset
|
434 ((string-match "fringe" (symbol-name symbol)) |
27b65d33884f
(all): Don't complain about fringe-related
Eli Zaretskii <eliz@gnu.org>
parents:
65043
diff
changeset
|
435 (fboundp 'define-fringe-bitmap)) |
106187
b5eb529d2739
* cus-start.el (all): Add native condition for font-use-system-font.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106097
diff
changeset
|
436 ((equal "font-use-system-font" (symbol-name symbol)) |
b5eb529d2739
* cus-start.el (all): Add native condition for font-use-system-font.
Jan Djärv <jan.h.d@swipnet.se>
parents:
106097
diff
changeset
|
437 (featurep 'system-font-setting)) |
108300
9fb2b015a2b4
cus-start.el (all): Add native condition for tool-bar-* symbols.
Eli Zaretskii <eliz@gnu.org>
parents:
108024
diff
changeset
|
438 ;; Conditioned on x-create-frame, because that's |
9fb2b015a2b4
cus-start.el (all): Add native condition for tool-bar-* symbols.
Eli Zaretskii <eliz@gnu.org>
parents:
108024
diff
changeset
|
439 ;; the condition for loadup.el to preload tool-bar.el. |
9fb2b015a2b4
cus-start.el (all): Add native condition for tool-bar-* symbols.
Eli Zaretskii <eliz@gnu.org>
parents:
108024
diff
changeset
|
440 ((string-match "tool-bar-" (symbol-name symbol)) |
9fb2b015a2b4
cus-start.el (all): Add native condition for tool-bar-* symbols.
Eli Zaretskii <eliz@gnu.org>
parents:
108024
diff
changeset
|
441 (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
|
442 (t t)))) |
17416 | 443 (if (not (boundp symbol)) |
444 ;; 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
|
445 (and native-p |
e4039c35f2f8
Don't warn about dos-* variables unless on MS-DOS,
Eli Zaretskii <eliz@gnu.org>
parents:
23863
diff
changeset
|
446 (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
|
447 ;; 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
|
448 (or (get symbol 'standard-value) |
60033
ec4864463fc2
(all): Allow a var to specify a standard value.
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
449 (put symbol 'standard-value (list standard))) |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
450 ;; We need these properties independent of whether cus-start is loaded. |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
451 (if (setq prop (memq :safe rest)) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
452 (put symbol 'safe-local-variable (cadr prop))) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
453 (if (setq prop (memq :risky rest)) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
454 (put symbol 'risky-local-variable (cadr prop))) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
455 ;; 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
|
456 ;; 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
|
457 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
458 ;; Add it to the right group. |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
459 (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
|
460 ;; 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
|
461 (put symbol 'custom-type type) |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
462 (put symbol 'custom-version version) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
463 (while rest |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
464 (setq prop (car rest) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
465 propval (cadr rest) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
466 rest (nthcdr 2 rest)) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
467 (cond ((memq prop '(:risky :safe))) ; handled above |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
468 ((eq prop :set) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
469 (put symbol 'custom-set propval)) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
470 ((eq prop :tag) |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
471 (put symbol 'custom-tag propval)))))))) |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
472 |
33922 | 473 (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
|
474 (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
|
475 'custom-variable) |
33922 | 476 |
111130
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
477 ;; Record cus-start as loaded if we have set up all the info that we can. |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
478 ;; Don't record it as loaded if we have only set up the standard values |
7be880404309
Avoid redefining some C defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
110931
diff
changeset
|
479 ;; and safe/risky properties. |
18052
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
480 (unless purify-flag |
64a265eaa6d7
Arrange to load it once during dumping,
Richard M. Stallman <rms@gnu.org>
parents:
17948
diff
changeset
|
481 (provide 'cus-start)) |
17416 | 482 |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35966
diff
changeset
|
483 ;;; cus-start.el ends here |