|
38409
|
1 ;;; cus-start.el --- define customization properties of builtins
|
|
17416
|
2 ;;
|
|
111239
|
3 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
|
|
4 ;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
|
17416
|
5 ;;
|
|
|
6 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
|
|
|
7 ;; Keywords: internal
|
|
110015
|
8 ;; Package: emacs
|
|
17416
|
9
|
|
17520
|
10 ;; This file is part of GNU Emacs.
|
|
|
11
|
|
94678
|
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
|
14 ;; the Free Software Foundation, either version 3 of the License, or
|
|
|
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
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
|
17520
|
24
|
|
17416
|
25 ;;; Commentary:
|
|
|
26 ;;
|
|
18052
|
27 ;; This file adds customize support for built-in variables.
|
|
|
28
|
|
|
29 ;; While dumping Emacs, this file is loaded, but it only records
|
|
|
30 ;; the standard values; it does not do the rest of the job.
|
|
|
31 ;; Later on, if the user makes a customization buffer,
|
|
|
32 ;; this file is loaded again with (require 'cus-start);
|
|
|
33 ;; then it does the whole job.
|
|
17416
|
34
|
|
|
35 ;;; Code:
|
|
|
36
|
|
111272
|
37 ;; Elements of this list have the form:
|
|
|
38 ;; SYMBOL GROUP TYPE VERSION REST...
|
|
|
39 ;; SYMBOL is the name of the variable.
|
|
|
40 ;; GROUP is the custom group to which it belongs (may also be a list
|
|
|
41 ;; of groups)
|
|
|
42 ;; TYPE is the defcustom :type.
|
|
|
43 ;; VERSION is the defcustom :version (or nil).
|
|
|
44 ;; REST is a set of :KEYWORD VALUE pairs. Accepted :KEYWORDs are:
|
|
|
45 ;; :standard - standard value for SYMBOL (else use current value)
|
|
|
46 ;; :set - custom-set property
|
|
|
47 ;; :risky - risky-local-variable property
|
|
|
48 ;; :safe - safe-local-variable property
|
|
|
49 ;; :tag - custom-tag property
|
|
85710
|
50 (let ((all '(;; alloc.c
|
|
17416
|
51 (gc-cons-threshold alloc integer)
|
|
60062
|
52 (garbage-collection-messages alloc boolean)
|
|
17416
|
53 ;; buffer.c
|
|
79584
|
54 (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>
diff
changeset
|
55 (major-mode internal function)
|
|
17416
|
56 (case-fold-search matching boolean)
|
|
|
57 (fill-column fill integer)
|
|
|
58 (left-margin fill integer)
|
|
|
59 (tab-width editing-basics integer)
|
|
|
60 (ctl-arrow display boolean)
|
|
|
61 (truncate-lines display boolean)
|
96336
b877913c0692
Add customization types for word-wrap and shift-select-mode.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
62 (word-wrap display boolean)
|
|
17416
|
63 (selective-display-ellipses display boolean)
|
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
64 (indicate-empty-lines fringe boolean)
|
64706
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
65 (indicate-buffer-boundaries
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
66 fringe
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
67 (choice
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
68 (const :tag "No indicators" nil)
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
69 (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>
diff
changeset
|
70 (const :tag "On right, with arrows" right)
|
64711
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
71 (set :tag "Pick your own design"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
72 :value ((t . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
73 :format "%{%t%}:\n%v\n%d"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
74 :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>
diff
changeset
|
75 for individual indicators.
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
76 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>
diff
changeset
|
77 \"Do not show\"."
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
78 (choice :tag "Default"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
79 :value (t . nil)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
80 (const :tag "Do not show" (t . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
81 (const :tag "On the left" (t . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
82 (const :tag "On the right" (t . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
83 (choice :tag "Top"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
84 :value (top . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
85 (const :tag "Do not show" (top . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
86 (const :tag "On the left" (top . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
87 (const :tag "On the right" (top . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
88 (choice :tag "Bottom"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
89 :value (bottom . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
90 (const :tag "Do not show" (bottom . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
91 (const :tag "On the left" (bottom . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
92 (const :tag "On the right" (bottom . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
93 (choice :tag "Up arrow"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
94 :value (up . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
95 (const :tag "Do not show" (up . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
96 (const :tag "On the left" (up . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
97 (const :tag "On the right" (up . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
98 (choice :tag "Down arrow"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
99 :value (down . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
100 (const :tag "Do not show" (down . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
101 (const :tag "On the left" (down . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
102 (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>
diff
changeset
|
103 (other :tag "On left, no arrows" t)))
|
48939
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
104 (scroll-up-aggressively windows
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
105 (choice (const :tag "off" nil) number)
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
106 "21.1")
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
107 (scroll-down-aggressively windows
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
108 (choice (const :tag "off" nil) number)
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
109 "21.1")
|
|
87708
|
110 (line-spacing display (choice (const :tag "none" nil) integer)
|
|
|
111 "22.1")
|
|
111130
|
112 (cursor-in-non-selected-windows
|
|
111266
|
113 cursor boolean nil
|
|
|
114 :tag "Cursor In Non-selected Windows"
|
|
111130
|
115 :set #'(lambda (symbol value)
|
|
|
116 (set-default symbol value)
|
|
|
117 (force-mode-line-update t)))
|
111222
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
118 (transient-mark-mode editing-basics boolean nil
|
|
111266
|
119 :standard (not noninteractive)
|
|
111239
|
120 :initialize custom-initialize-delay
|
|
|
121 :set custom-set-minor-mode)
|
|
17416
|
122 ;; callint.c
|
|
|
123 (mark-even-if-inactive editing-basics boolean)
|
|
|
124 ;; callproc.c
|
|
|
125 (shell-file-name execute file)
|
|
|
126 (exec-path execute
|
|
64139
|
127 (repeat (choice (const :tag "default directory" nil)
|
|
64138
|
128 (directory :format "%v"))))
|
|
88574
|
129 ;; charset.c
|
|
89789
|
130 (charset-map-path installation
|
|
|
131 (repeat (directory :format "%v")))
|
|
24057
|
132 ;; coding.c
|
|
|
133 (inhibit-eol-conversion mule boolean)
|
|
24202
|
134 (eol-mnemonic-undecided mule string)
|
|
|
135 (eol-mnemonic-unix mule string)
|
|
|
136 (eol-mnemonic-dos mule string)
|
|
|
137 (eol-mnemonic-mac mule string)
|
|
30978
|
138 (file-coding-system-alist
|
|
|
139 mule
|
|
|
140 (alist
|
|
|
141 :key-type (regexp :tag "File regexp")
|
|
78091
|
142 :value-type (choice
|
|
|
143 :value (undecided . undecided)
|
|
|
144 (cons :tag "Encoding/decoding pair"
|
|
|
145 :value (undecided . undecided)
|
|
|
146 (coding-system :tag "Decoding")
|
|
|
147 (coding-system :tag "Encoding"))
|
|
|
148 (coding-system
|
|
|
149 :tag "Single coding system"
|
|
|
150 :value undecided
|
|
|
151 :match (lambda (widget value)
|
|
|
152 (and value (not (functionp value)))))
|
|
|
153 (function :value ignore))))
|
|
17416
|
154 ;; dired.c
|
|
49588
|
155 (completion-ignored-extensions dired
|
|
17416
|
156 (repeat (string :format "%v")))
|
|
25296
|
157 ;; dispnew.c
|
|
17416
|
158 (baud-rate display integer)
|
|
|
159 (inverse-video display boolean)
|
|
|
160 (visible-bell display boolean)
|
|
|
161 (no-redraw-on-reenter display boolean)
|
|
|
162 ;; editfns.c
|
|
|
163 (user-full-name mail string)
|
|
|
164 ;; eval.c
|
|
|
165 (max-specpdl-size limits integer)
|
|
|
166 (max-lisp-eval-depth limits integer)
|
|
81677
|
167 (max-mini-window-height limits
|
|
|
168 (choice (const :tag "quarter screen" nil)
|
|
87708
|
169 number) "23.1")
|
|
17416
|
170 (stack-trace-on-error debug
|
|
|
171 (choice (const :tag "off")
|
|
|
172 (repeat :menu-tag "When"
|
|
|
173 :value (nil)
|
|
|
174 (symbol :format "%v"))
|
|
|
175 (const :tag "always" t)))
|
|
49588
|
176 (debug-on-error debug
|
|
17416
|
177 (choice (const :tag "off")
|
|
|
178 (repeat :menu-tag "When"
|
|
|
179 :value (nil)
|
|
|
180 (symbol :format "%v"))
|
|
|
181 (const :tag "always" t)))
|
|
|
182 (debug-ignored-errors debug (repeat (choice symbol regexp)))
|
|
18883
|
183 (debug-on-quit debug
|
|
|
184 (choice (const :tag "off")
|
|
|
185 (repeat :menu-tag "When"
|
|
|
186 :value (nil)
|
|
|
187 (symbol :format "%v"))
|
|
|
188 (const :tag "always" t)))
|
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
diff
changeset
|
189 ;; fileio.c
|
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
diff
changeset
|
190 (delete-by-moving-to-trash auto-save boolean "23.1")
|
|
97300
|
191 (auto-save-visited-file-name auto-save boolean)
|
111223
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
192 ;; filelock.c
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
193 (temporary-file-directory
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
194 ;; Darwin section added 24.1, does not seem worth :version bump.
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
195 files directory nil
|
|
111266
|
196 :standard
|
111223
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
197 (file-name-as-directory
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
198 ;; FIXME ? Should there be Ftemporary_file_directory to do this
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
199 ;; more robustly (cf set_local_socket in emacsclient.c).
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
200 ;; It could be used elsewhere, eg Fcall_process_region,
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
201 ;; server-socket-dir. See bug#7135.
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
202 (cond ((memq system-type '(ms-dos windows-nt))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
203 (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP")
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
204 "c:/temp"))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
205 ((eq system-type 'darwin)
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
206 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
207 ;; See bug#7135.
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
208 (let ((tmp (ignore-errors
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
209 (shell-command-to-string
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
210 "getconf DARWIN_USER_TEMP_DIR"))))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
211 (and (stringp tmp)
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
212 (setq tmp (replace-regexp-in-string
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
213 "\n\\'" "" tmp))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
214 ;; Handles "getconf: Unrecognized variable..."
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
215 (file-directory-p tmp)
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
216 tmp))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
217 "/tmp"))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
218 (t
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
219 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
220 "/tmp"))))
|
0cd3fc7f7dba
Remove duplicate Lisp definition of temporary-file-directory, from filelock.c.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
221 :initialize custom-initialize-delay)
|
|
26619
|
222 ;; fns.c
|
|
30167
|
223 (use-dialog-box menu boolean "21.1")
|
|
59996
|
224 (use-file-dialog menu boolean "22.1")
|
|
78992
|
225 (focus-follows-mouse frames boolean "20.3")
|
|
17416
|
226 ;; frame.c
|
|
|
227 (default-frame-alist frames
|
|
|
228 (repeat (cons :format "%v"
|
|
|
229 (symbol :tag "Parameter")
|
|
|
230 (sexp :tag "Value"))))
|
|
43376
|
231 (mouse-highlight mouse (choice (const :tag "disabled" nil)
|
|
|
232 (const :tag "always shown" t)
|
|
87708
|
233 (other :tag "hidden by keypress" 1))
|
|
|
234 "22.1")
|
|
103704
|
235 (make-pointer-invisible mouse boolean "23.2")
|
|
111266
|
236 (menu-bar-mode frames boolean nil
|
|
111239
|
237 ;; FIXME?
|
|
|
238 ; :initialize custom-initialize-default
|
|
|
239 :set custom-set-minor-mode)
|
|
111266
|
240 (tool-bar-mode (frames mouse) boolean nil
|
|
111239
|
241 ; :initialize custom-initialize-default
|
|
|
242 :set custom-set-minor-mode)
|
|
64790
|
243 ;; fringe.c
|
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
244 (overflow-newline-into-fringe fringe boolean)
|
|
17416
|
245 ;; indent.c
|
|
72371
|
246 (indent-tabs-mode indent boolean)
|
|
17416
|
247 ;; keyboard.c
|
|
|
248 (meta-prefix-char keyboard character)
|
|
|
249 (auto-save-interval auto-save integer)
|
|
|
250 (auto-save-timeout auto-save (choice (const :tag "off" nil)
|
|
|
251 (integer :format "%v")))
|
|
27768
|
252 (echo-keystrokes minibuffer number)
|
|
17416
|
253 (polling-period keyboard integer)
|
|
18478
|
254 (double-click-time mouse (restricted-sexp
|
|
|
255 :match-alternatives (integerp 'nil 't)))
|
|
87708
|
256 (double-click-fuzz mouse integer "22.1")
|
|
17416
|
257 (inhibit-local-menu-bar-menus menu boolean)
|
|
|
258 (help-char keyboard character)
|
|
|
259 (help-event-list keyboard (repeat (sexp :format "%v")))
|
|
|
260 (menu-prompting menu boolean)
|
|
109678
|
261 (select-active-regions killing
|
|
109802
|
262 (choice (const :tag "always" t)
|
|
|
263 (const :tag "only shift-selection or mouse-drag" only)
|
|
109678
|
264 (const :tag "off" nil))
|
|
|
265 "24.1")
|
|
17416
|
266 (suggest-key-bindings keyboard (choice (const :tag "off" nil)
|
|
|
267 (integer :tag "time" 2)
|
|
22571
|
268 (other :tag "on")))
|
|
41604
|
269
|
|
30167
|
270 ;; This is not good news because it will use the wrong
|
|
|
271 ;; version-specific directories when you upgrade. We need
|
|
|
272 ;; customization of the front of the list, maintaining the standard
|
|
|
273 ;; value intact at the back.
|
|
49588
|
274 ;;; (load-path environment
|
|
30167
|
275 ;;; (repeat (choice :tag "[Current dir?]"
|
|
|
276 ;;; :format "%[Current dir?%] %v"
|
|
|
277 ;;; (const :tag " current dir" nil)
|
|
|
278 ;;; (directory :format "%v"))))
|
|
17416
|
279 ;; minibuf.c
|
|
|
280 (enable-recursive-minibuffers minibuffer boolean)
|
|
43035
|
281 (history-length minibuffer
|
|
87708
|
282 (choice (const :tag "Infinite" t) integer)
|
|
|
283 "22.1")
|
|
|
284 (history-delete-duplicates minibuffer boolean "22.1")
|
97123
2f70fde56dfe
Add customization info for read-buffer-completion-ignore-case.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
285 (read-buffer-completion-ignore-case minibuffer boolean "23.1")
|
2f70fde56dfe
Add customization info for read-buffer-completion-ignore-case.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
286
|
|
33684
|
287 (minibuffer-prompt-properties
|
|
|
288 minibuffer
|
|
|
289 (list
|
|
|
290 (checklist :inline t
|
|
|
291 (const :tag "Read-Only"
|
|
|
292 :doc "Prevent prompt from being modified"
|
|
|
293 :format "%t%n%h"
|
|
|
294 :inline t
|
|
|
295 (read-only t))
|
|
65043
|
296 (const :tag "Don't Enter"
|
|
33684
|
297 :doc "Prevent point from ever entering prompt"
|
|
|
298 :format "%t%n%h"
|
|
|
299 :inline t
|
|
|
300 (point-entered minibuffer-avoid-prompt)))
|
|
|
301 (repeat :inline t
|
|
|
302 :tag "Other Properties"
|
|
|
303 (list :inline t
|
|
|
304 :format "%v"
|
|
|
305 (symbol :tag "Property")
|
|
33922
|
306 (sexp :tag "Value"))))
|
|
|
307 "21.1")
|
|
17416
|
308 (minibuffer-auto-raise minibuffer boolean)
|
|
33922
|
309 ;; options property set at end
|
|
34064
|
310 (read-buffer-function minibuffer
|
|
|
311 (choice (const nil)
|
|
|
312 (function-item iswitchb-read-buffer)
|
|
|
313 function))
|
|
23863
|
314 ;; msdos.c
|
|
|
315 (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>
diff
changeset
|
316 ;; nsterm.m
|
|
102667
|
317 (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>
diff
changeset
|
318 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>
diff
changeset
|
319 (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>
diff
changeset
|
320 (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>
diff
changeset
|
321 (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>
diff
changeset
|
322 (const super)) "23.1")
|
111662
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
323 (ns-right-control-modifier
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
324 ns
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
325 (choice (const :tag "No modifier (work as control)" none)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
326 (const :tag "Use the value of ns-control-modifier"
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
327 left)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
328 (const control) (const meta)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
329 (const alt) (const hyper)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
330 (const super)) "24.0")
|
|
102667
|
331 (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>
diff
changeset
|
332 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>
diff
changeset
|
333 (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>
diff
changeset
|
334 (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>
diff
changeset
|
335 (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>
diff
changeset
|
336 (const super)) "23.1")
|
111662
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
337 (ns-right-command-modifier
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
338 ns
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
339 (choice (const :tag "No modifier (work as command)" none)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
340 (const :tag "Use the value of ns-command-modifier"
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
341 left)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
342 (const control) (const meta)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
343 (const alt) (const hyper)
|
1303259207a9
Add separate key mappings for left/right control/command on Nextstep (Bug#7458).
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
344 (const super)) "24.0")
|
|
102667
|
345 (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>
diff
changeset
|
346 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>
diff
changeset
|
347 (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>
diff
changeset
|
348 (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>
diff
changeset
|
349 (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>
diff
changeset
|
350 (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>
diff
changeset
|
351 (ns-right-alternate-modifier
|
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
352 ns
|
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
353 (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>
diff
changeset
|
354 (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>
diff
changeset
|
355 left)
|
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
356 (const control) (const meta)
|
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
357 (const alt) (const hyper)
|
b6cf32bb07a1
Bug#7150: Distinguishing between left and right Alt keys on NextStep/OSX.
Jan D. <jan.h.d@swipnet.se>
diff
changeset
|
358 (const super)) "23.3")
|
|
102667
|
359 (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>
diff
changeset
|
360 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>
diff
changeset
|
361 (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>
diff
changeset
|
362 (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>
diff
changeset
|
363 (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>
diff
changeset
|
364 (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>
diff
changeset
|
365 (ns-antialias-text ns boolean "23.1")
|
|
17416
|
366 ;; process.c
|
|
18052
|
367 (delete-exited-processes processes-basics boolean)
|
|
17416
|
368 ;; syntax.c
|
|
|
369 (parse-sexp-ignore-comments editing-basics boolean)
|
|
|
370 (words-include-escapes editing-basics boolean)
|
|
52129
|
371 (open-paren-in-column-0-is-defun-start editing-basics boolean
|
|
|
372 "21.1")
|
|
67936
|
373 ;; term.c
|
|
|
374 (visible-cursor cursor boolean "22.1")
|
|
64731
|
375 ;; undo.c
|
|
|
376 (undo-limit undo integer)
|
|
|
377 (undo-strong-limit undo integer)
|
|
|
378 (undo-outer-limit undo
|
|
|
379 (choice integer
|
|
|
380 (const :tag "No limit"
|
|
|
381 :format "%t\n%d"
|
|
|
382 :doc
|
|
|
383 "With this choice, \
|
|
|
384 the undo info for the current command never gets discarded.
|
|
|
385 This should only be chosen under exceptional circumstances,
|
|
|
386 since it could result in memory overflow and make Emacs crash."
|
|
|
387 nil))
|
|
|
388 "22.1")
|
|
17416
|
389 ;; window.c
|
|
35966
|
390 (temp-buffer-show-function windows (choice (const nil) function))
|
|
21407
|
391 (next-screen-context-lines windows integer)
|
|
17416
|
392 (window-min-height windows integer)
|
|
|
393 (window-min-width windows integer)
|
|
77068
|
394 (scroll-preserve-screen-position
|
|
|
395 windows (choice
|
|
|
396 (const :tag "Off (nil)" :value nil)
|
|
|
397 (const :tag "Full screen (t)" :value t)
|
|
87708
|
398 (other :tag "Always" 1)) "22.1")
|
|
103557
|
399 (recenter-redisplay windows
|
|
|
400 (choice
|
|
|
401 (const :tag "Never (nil)" :value nil)
|
|
|
402 (const :tag "Only on ttys" :value tty)
|
|
|
403 (other :tag "Always" t))
|
|
|
404 "23.1")
|
|
17416
|
405 ;; xdisp.c
|
|
111266
|
406 (show-trailing-whitespace whitespace-faces boolean nil
|
|
111130
|
407 :safe booleanp)
|
|
17416
|
408 (scroll-step windows integer)
|
|
24758
|
409 (scroll-conservatively windows integer)
|
|
|
410 (scroll-margin windows integer)
|
|
72611
|
411 (hscroll-margin windows integer "22.1")
|
|
|
412 (hscroll-step windows number "22.1")
|
|
97813
|
413 (truncate-partial-width-windows display boolean "23.1")
|
|
79584
|
414 (mode-line-inverse-video mode-line boolean)
|
|
|
415 (mode-line-in-non-selected-windows mode-line boolean "22.1")
|
|
30167
|
416 (line-number-display-limit display
|
|
|
417 (choice integer
|
|
|
418 (const :tag "No limit" nil)))
|
|
87708
|
419 (line-number-display-limit-width display integer "22.1")
|
|
17416
|
420 (highlight-nonselected-windows display boolean)
|
|
|
421 (message-log-max debug (choice (const :tag "Disable" nil)
|
|
|
422 (integer :menu-tag "lines"
|
|
|
423 :format "%v")
|
|
22571
|
424 (other :tag "Unlimited" t)))
|
|
24628
|
425 (unibyte-display-via-language-environment mule boolean)
|
|
59996
|
426 (blink-cursor-alist cursor alist "22.1")
|
|
72506
|
427 (overline-margin display integer "22.1")
|
95792
953225ddde83
* xdisp.c (underline_minimum_offset): Rename from xterm.c's
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
428 (underline-minimum-offset display integer "23.1")
|
|
72737
|
429 (mouse-autoselect-window
|
|
|
430 display (choice
|
|
|
431 (const :tag "Off (nil)" :value nil)
|
|
|
432 (const :tag "Immediate" :value t)
|
|
|
433 (number :tag "Delay by secs" :value 0.5)) "22.1")
|
|
108024
|
434 (tool-bar-style
|
|
|
435 frames (choice
|
|
|
436 (const :tag "Images" :value image)
|
|
|
437 (const :tag "Text" :value text)
|
|
|
438 (const :tag "Both" :value both)
|
|
|
439 (const :tag "Both-horiz" :value both-horiz)
|
|
109566
|
440 (const :tag "Text-image-horiz" :value text-image-horiz)
|
|
108024
|
441 (const :tag "System default" :value nil)) "23.3")
|
|
|
442 (tool-bar-max-label-size frames integer "23.3")
|
|
111130
|
443 (auto-hscroll-mode scrolling boolean "21.1")
|
|
|
444 (display-hourglass cursor boolean)
|
|
|
445 (hourglass-delay cursor number)
|
|
108024
|
446
|
|
48075
|
447 ;; xfaces.c
|
|
87708
|
448 (scalable-fonts-allowed display boolean "22.1")
|
|
17416
|
449 ;; xfns.c
|
|
|
450 (x-bitmap-file-path installation
|
|
25296
|
451 (repeat (directory :format "%v")))
|
|
72970
|
452 (x-gtk-use-old-file-dialog menu boolean "22.1")
|
|
67845
|
453 (x-gtk-show-hidden-files menu boolean "22.1")
|
|
72970
|
454 (x-gtk-file-dialog-help-text menu boolean "22.1")
|
|
68883
|
455 (x-gtk-whole-detached-tool-bar x boolean "22.1")
|
|
109604
|
456 (x-gtk-use-system-tooltips tooltip boolean "23.3")
|
|
25296
|
457 ;; xterm.c
|
|
72611
|
458 (x-use-underline-position-properties display boolean "22.1")
|
|
72506
|
459 (x-underline-at-descent-line display boolean "22.1")
|
|
106097
|
460 (x-stretch-cursor display boolean "21.1")
|
|
|
461 ;; xsettings.c
|
|
|
462 (font-use-system-font font-selection boolean "23.2")))
|
|
111130
|
463 this symbol group type standard version native-p rest prop propval
|
|
18052
|
464 ;; This function turns a value
|
|
|
465 ;; into an expression which produces that value.
|
|
|
466 (quoter (lambda (sexp)
|
|
|
467 (if (or (memq sexp '(t nil))
|
|
28569
|
468 (keywordp sexp)
|
|
18052
|
469 (and (listp sexp)
|
|
|
470 (memq (car sexp) '(lambda)))
|
|
|
471 (stringp sexp)
|
|
30167
|
472 (numberp sexp))
|
|
18052
|
473 sexp
|
|
|
474 (list 'quote sexp)))))
|
|
49588
|
475 (while all
|
|
17416
|
476 (setq this (car all)
|
|
|
477 all (cdr all)
|
|
|
478 symbol (nth 0 this)
|
|
|
479 group (nth 1 this)
|
|
23967
|
480 type (nth 2 this)
|
|
30167
|
481 version (nth 3 this)
|
|
111266
|
482 rest (nthcdr 4 this)
|
|
60033
|
483 ;; If we did not specify any standard value expression above,
|
|
|
484 ;; use the current value as the standard value.
|
|
111266
|
485 standard (if (setq prop (memq :standard rest))
|
|
|
486 (cadr prop)
|
|
|
487 (if (default-boundp symbol)
|
|
|
488 (funcall quoter (default-value symbol))))
|
|
23967
|
489 ;; Don't complain about missing variables which are
|
|
|
490 ;; irrelevant to this platform.
|
|
|
491 native-p (save-match-data
|
|
|
492 (cond
|
|
|
493 ((string-match "\\`dos-" (symbol-name symbol))
|
|
|
494 (eq system-type 'ms-dos))
|
|
|
495 ((string-match "\\`w32-" (symbol-name symbol))
|
|
|
496 (eq system-type 'windows-nt))
|
|
102667
|
497 ((string-match "\\`ns-" (symbol-name symbol))
|
|
|
498 (featurep 'ns))
|
|
63369
|
499 ((string-match "\\`x-.*gtk" (symbol-name symbol))
|
|
83366
|
500 (featurep 'gtk))
|
|
43235
|
501 ((string-match "\\`x-" (symbol-name symbol))
|
|
|
502 (fboundp 'x-create-frame))
|
|
65401
|
503 ((string-match "selection" (symbol-name symbol))
|
|
|
504 (fboundp 'x-selection-exists-p))
|
|
|
505 ((string-match "fringe" (symbol-name symbol))
|
|
|
506 (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>
diff
changeset
|
507 ((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>
diff
changeset
|
508 (featurep 'system-font-setting))
|
|
108300
|
509 ;; Conditioned on x-create-frame, because that's
|
|
|
510 ;; the condition for loadup.el to preload tool-bar.el.
|
|
|
511 ((string-match "tool-bar-" (symbol-name symbol))
|
|
|
512 (fboundp 'x-create-frame))
|
|
23967
|
513 (t t))))
|
|
17416
|
514 (if (not (boundp symbol))
|
|
|
515 ;; If variables are removed from C code, give an error here!
|
|
23967
|
516 (and native-p
|
|
|
517 (message "Note, built-in variable `%S' not bound" symbol))
|
|
18052
|
518 ;; Save the standard value, unless we already did.
|
|
|
519 (or (get symbol 'standard-value)
|
|
60033
|
520 (put symbol 'standard-value (list standard)))
|
|
111130
|
521 ;; We need these properties independent of whether cus-start is loaded.
|
|
|
522 (if (setq prop (memq :safe rest))
|
|
|
523 (put symbol 'safe-local-variable (cadr prop)))
|
|
|
524 (if (setq prop (memq :risky rest))
|
|
|
525 (put symbol 'risky-local-variable (cadr prop)))
|
|
111239
|
526 (if (setq prop (memq :set rest))
|
|
|
527 (put symbol 'custom-set (cadr prop)))
|
111222
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
528 ;; Note this is the _only_ initialize property we handle.
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
529 (if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
530 (push symbol custom-delayed-init-variables))
|
|
111239
|
531 ;; If this is NOT while dumping Emacs, set up the rest of the
|
|
|
532 ;; customization info. This is the stuff that is not needed
|
|
|
533 ;; until someone does M-x customize etc.
|
|
18052
|
534 (unless purify-flag
|
111222
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
535 ;; Add it to the right group(s).
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
536 (if (listp group)
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
537 (dolist (g group)
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
538 (custom-add-to-group g symbol 'custom-variable))
|
cdad894f9ed0
Remove duplicate Lisp definitions of define-minor-mode variables defined in C.
Glenn Morris <rgm@gnu.org>
diff
changeset
|
539 (custom-add-to-group group symbol 'custom-variable))
|
|
18052
|
540 ;; Set the type.
|
|
30167
|
541 (put symbol 'custom-type type)
|
|
111266
|
542 (if version (put symbol 'custom-version version))
|
|
111130
|
543 (while rest
|
|
|
544 (setq prop (car rest)
|
|
|
545 propval (cadr rest)
|
|
|
546 rest (nthcdr 2 rest))
|
|
111266
|
547 (cond ((memq prop '(:standard :risky :safe :set))) ; handled above
|
|
111130
|
548 ((eq prop :tag)
|
|
|
549 (put symbol 'custom-tag propval))))))))
|
|
18052
|
550
|
|
33922
|
551 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
|
|
52129
|
552 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
|
|
|
553 'custom-variable)
|
|
33922
|
554
|
|
111130
|
555 ;; Record cus-start as loaded if we have set up all the info that we can.
|
|
|
556 ;; Don't record it as loaded if we have only set up the standard values
|
|
|
557 ;; and safe/risky properties.
|
|
18052
|
558 (unless purify-flag
|
|
|
559 (provide 'cus-start))
|
|
17416
|
560
|
|
38409
|
561 ;;; cus-start.el ends here
|
