38409
|
1 ;;; cus-start.el --- define customization properties of builtins
|
17416
|
2 ;;
|
64762
|
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
|
|
8
|
17520
|
9 ;; This file is part of GNU Emacs.
|
|
10
|
94678
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
17520
|
12 ;; it under the terms of the GNU General Public License as published by
|
94678
|
13 ;; the Free Software Foundation, either version 3 of the License, or
|
|
14 ;; (at your option) any later version.
|
17520
|
15
|
|
16 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
19 ;; GNU General Public License for more details.
|
|
20
|
|
21 ;; You should have received a copy of the GNU General Public License
|
94678
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
17520
|
23
|
17416
|
24 ;;; Commentary:
|
|
25 ;;
|
18052
|
26 ;; This file adds customize support for built-in variables.
|
|
27
|
|
28 ;; While dumping Emacs, this file is loaded, but it only records
|
|
29 ;; the standard values; it does not do the rest of the job.
|
|
30 ;; Later on, if the user makes a customization buffer,
|
|
31 ;; this file is loaded again with (require 'cus-start);
|
|
32 ;; then it does the whole job.
|
17416
|
33
|
|
34 ;;; Code:
|
|
35
|
85710
|
36 (let ((all '(;; alloc.c
|
17416
|
37 (gc-cons-threshold alloc integer)
|
60062
|
38 (garbage-collection-messages alloc boolean)
|
17416
|
39 ;; buffer.c
|
79584
|
40 (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
|
41 (major-mode internal function)
|
17416
|
42 (case-fold-search matching boolean)
|
|
43 (fill-column fill integer)
|
|
44 (left-margin fill integer)
|
|
45 (tab-width editing-basics integer)
|
|
46 (ctl-arrow display boolean)
|
|
47 (truncate-lines display boolean)
|
96336
b877913c0692
Add customization types for word-wrap and shift-select-mode.
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
48 (word-wrap display boolean)
|
17416
|
49 (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
|
50 (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
|
51 (indicate-buffer-boundaries
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
52 fringe
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
53 (choice
|
37b0b02afa4e
(all): Put `indicate-empty-lines' in fringe group instead of display group.
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
54 (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
|
55 (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
|
56 (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
|
57 (set :tag "Pick your own design"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
58 :value ((t . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
59 :format "%{%t%}:\n%v\n%d"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
60 :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
|
61 for individual indicators.
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
62 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
|
63 \"Do not show\"."
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
64 (choice :tag "Default"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
65 :value (t . nil)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
66 (const :tag "Do not show" (t . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
67 (const :tag "On the left" (t . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
68 (const :tag "On the right" (t . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
69 (choice :tag "Top"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
70 :value (top . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
71 (const :tag "Do not show" (top . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
72 (const :tag "On the left" (top . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
73 (const :tag "On the right" (top . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
74 (choice :tag "Bottom"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
75 :value (bottom . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
76 (const :tag "Do not show" (bottom . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
77 (const :tag "On the left" (bottom . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
78 (const :tag "On the right" (bottom . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
79 (choice :tag "Up arrow"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
80 :value (up . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
81 (const :tag "Do not show" (up . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
82 (const :tag "On the left" (up . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
83 (const :tag "On the right" (up . right)))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
84 (choice :tag "Down arrow"
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
85 :value (down . left)
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
86 (const :tag "Do not show" (down . nil))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
87 (const :tag "On the left" (down . left))
|
5d202bf110c9
(all): Make `indicate-buffer-boundaries' display values set outside
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
88 (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
|
89 (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
|
90 (scroll-up-aggressively windows
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
91 (choice (const :tag "off" nil) number)
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
92 "21.1")
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
93 (scroll-down-aggressively windows
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
94 (choice (const :tag "off" nil) number)
|
f3fc48331bdc
(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
95 "21.1")
|
87708
|
96 (line-spacing display (choice (const :tag "none" nil) integer)
|
|
97 "22.1")
|
17416
|
98 ;; callint.c
|
|
99 (mark-even-if-inactive editing-basics boolean)
|
|
100 ;; callproc.c
|
|
101 (shell-file-name execute file)
|
|
102 (exec-path execute
|
64139
|
103 (repeat (choice (const :tag "default directory" nil)
|
64138
|
104 (directory :format "%v"))))
|
88574
|
105 ;; charset.c
|
89789
|
106 (charset-map-path installation
|
|
107 (repeat (directory :format "%v")))
|
24057
|
108 ;; coding.c
|
|
109 (inhibit-eol-conversion mule boolean)
|
24202
|
110 (eol-mnemonic-undecided mule string)
|
|
111 (eol-mnemonic-unix mule string)
|
|
112 (eol-mnemonic-dos mule string)
|
|
113 (eol-mnemonic-mac mule string)
|
30978
|
114 (file-coding-system-alist
|
|
115 mule
|
|
116 (alist
|
|
117 :key-type (regexp :tag "File regexp")
|
78091
|
118 :value-type (choice
|
|
119 :value (undecided . undecided)
|
|
120 (cons :tag "Encoding/decoding pair"
|
|
121 :value (undecided . undecided)
|
|
122 (coding-system :tag "Decoding")
|
|
123 (coding-system :tag "Encoding"))
|
|
124 (coding-system
|
|
125 :tag "Single coding system"
|
|
126 :value undecided
|
|
127 :match (lambda (widget value)
|
|
128 (and value (not (functionp value)))))
|
|
129 (function :value ignore))))
|
17416
|
130 ;; dired.c
|
49588
|
131 (completion-ignored-extensions dired
|
17416
|
132 (repeat (string :format "%v")))
|
25296
|
133 ;; dispnew.c
|
17416
|
134 (baud-rate display integer)
|
|
135 (inverse-video display boolean)
|
|
136 (visible-bell display boolean)
|
|
137 (no-redraw-on-reenter display boolean)
|
|
138 ;; editfns.c
|
|
139 (user-full-name mail string)
|
|
140 ;; eval.c
|
|
141 (max-specpdl-size limits integer)
|
|
142 (max-lisp-eval-depth limits integer)
|
81677
|
143 (max-mini-window-height limits
|
|
144 (choice (const :tag "quarter screen" nil)
|
87708
|
145 number) "23.1")
|
17416
|
146 (stack-trace-on-error debug
|
|
147 (choice (const :tag "off")
|
|
148 (repeat :menu-tag "When"
|
|
149 :value (nil)
|
|
150 (symbol :format "%v"))
|
|
151 (const :tag "always" t)))
|
49588
|
152 (debug-on-error debug
|
17416
|
153 (choice (const :tag "off")
|
|
154 (repeat :menu-tag "When"
|
|
155 :value (nil)
|
|
156 (symbol :format "%v"))
|
|
157 (const :tag "always" t)))
|
|
158 (debug-ignored-errors debug (repeat (choice symbol regexp)))
|
18883
|
159 (debug-on-quit debug
|
|
160 (choice (const :tag "off")
|
|
161 (repeat :menu-tag "When"
|
|
162 :value (nil)
|
|
163 (symbol :format "%v"))
|
|
164 (const :tag "always" t)))
|
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
diff
changeset
|
165 ;; fileio.c
|
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
diff
changeset
|
166 (delete-by-moving-to-trash auto-save boolean "23.1")
|
97300
|
167 (auto-save-visited-file-name auto-save boolean)
|
26619
|
168 ;; fns.c
|
30167
|
169 (use-dialog-box menu boolean "21.1")
|
59996
|
170 (use-file-dialog menu boolean "22.1")
|
78992
|
171 (focus-follows-mouse frames boolean "20.3")
|
17416
|
172 ;; frame.c
|
|
173 (default-frame-alist frames
|
|
174 (repeat (cons :format "%v"
|
|
175 (symbol :tag "Parameter")
|
|
176 (sexp :tag "Value"))))
|
43376
|
177 (mouse-highlight mouse (choice (const :tag "disabled" nil)
|
|
178 (const :tag "always shown" t)
|
87708
|
179 (other :tag "hidden by keypress" 1))
|
|
180 "22.1")
|
103704
|
181 (make-pointer-invisible mouse boolean "23.2")
|
64790
|
182 ;; fringe.c
|
69440
4c675b9920d8
(all): Delete :version keyword for members of the fringe group, since
Luc Teirlinck <teirllm@auburn.edu>
diff
changeset
|
183 (overflow-newline-into-fringe fringe boolean)
|
17416
|
184 ;; indent.c
|
72371
|
185 (indent-tabs-mode indent boolean)
|
17416
|
186 ;; keyboard.c
|
|
187 (meta-prefix-char keyboard character)
|
|
188 (auto-save-interval auto-save integer)
|
|
189 (auto-save-timeout auto-save (choice (const :tag "off" nil)
|
|
190 (integer :format "%v")))
|
27768
|
191 (echo-keystrokes minibuffer number)
|
17416
|
192 (polling-period keyboard integer)
|
18478
|
193 (double-click-time mouse (restricted-sexp
|
|
194 :match-alternatives (integerp 'nil 't)))
|
87708
|
195 (double-click-fuzz mouse integer "22.1")
|
17416
|
196 (inhibit-local-menu-bar-menus menu boolean)
|
|
197 (help-char keyboard character)
|
|
198 (help-event-list keyboard (repeat (sexp :format "%v")))
|
|
199 (menu-prompting menu boolean)
|
|
200 (suggest-key-bindings keyboard (choice (const :tag "off" nil)
|
|
201 (integer :tag "time" 2)
|
22571
|
202 (other :tag "on")))
|
41604
|
203
|
30167
|
204 ;; This is not good news because it will use the wrong
|
|
205 ;; version-specific directories when you upgrade. We need
|
|
206 ;; customization of the front of the list, maintaining the standard
|
|
207 ;; value intact at the back.
|
49588
|
208 ;;; (load-path environment
|
30167
|
209 ;;; (repeat (choice :tag "[Current dir?]"
|
|
210 ;;; :format "%[Current dir?%] %v"
|
|
211 ;;; (const :tag " current dir" nil)
|
|
212 ;;; (directory :format "%v"))))
|
17416
|
213 ;; minibuf.c
|
|
214 (enable-recursive-minibuffers minibuffer boolean)
|
43035
|
215 (history-length minibuffer
|
87708
|
216 (choice (const :tag "Infinite" t) integer)
|
|
217 "22.1")
|
|
218 (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
|
219 (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
|
220
|
33684
|
221 (minibuffer-prompt-properties
|
|
222 minibuffer
|
|
223 (list
|
|
224 (checklist :inline t
|
|
225 (const :tag "Read-Only"
|
|
226 :doc "Prevent prompt from being modified"
|
|
227 :format "%t%n%h"
|
|
228 :inline t
|
|
229 (read-only t))
|
65043
|
230 (const :tag "Don't Enter"
|
33684
|
231 :doc "Prevent point from ever entering prompt"
|
|
232 :format "%t%n%h"
|
|
233 :inline t
|
|
234 (point-entered minibuffer-avoid-prompt)))
|
|
235 (repeat :inline t
|
|
236 :tag "Other Properties"
|
|
237 (list :inline t
|
|
238 :format "%v"
|
|
239 (symbol :tag "Property")
|
33922
|
240 (sexp :tag "Value"))))
|
|
241 "21.1")
|
17416
|
242 (minibuffer-auto-raise minibuffer boolean)
|
33922
|
243 ;; options property set at end
|
34064
|
244 (read-buffer-function minibuffer
|
|
245 (choice (const nil)
|
|
246 (function-item iswitchb-read-buffer)
|
|
247 function))
|
23863
|
248 ;; msdos.c
|
|
249 (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
|
250 ;; nsterm.m
|
102667
|
251 (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
|
252 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
|
253 (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
|
254 (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
|
255 (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
|
256 (const super)) "23.1")
|
102667
|
257 (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
|
258 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
|
259 (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
|
260 (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
|
261 (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
|
262 (const super)) "23.1")
|
102667
|
263 (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
|
264 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
|
265 (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
|
266 (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
|
267 (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
|
268 (const super)) "23.1")
|
102667
|
269 (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
|
270 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
|
271 (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
|
272 (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
|
273 (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
|
274 (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
|
275 (ns-antialias-text ns boolean "23.1")
|
17416
|
276 ;; process.c
|
18052
|
277 (delete-exited-processes processes-basics boolean)
|
17416
|
278 ;; syntax.c
|
|
279 (parse-sexp-ignore-comments editing-basics boolean)
|
|
280 (words-include-escapes editing-basics boolean)
|
52129
|
281 (open-paren-in-column-0-is-defun-start editing-basics boolean
|
|
282 "21.1")
|
67936
|
283 ;; term.c
|
|
284 (visible-cursor cursor boolean "22.1")
|
64731
|
285 ;; undo.c
|
|
286 (undo-limit undo integer)
|
|
287 (undo-strong-limit undo integer)
|
|
288 (undo-outer-limit undo
|
|
289 (choice integer
|
|
290 (const :tag "No limit"
|
|
291 :format "%t\n%d"
|
|
292 :doc
|
|
293 "With this choice, \
|
|
294 the undo info for the current command never gets discarded.
|
|
295 This should only be chosen under exceptional circumstances,
|
|
296 since it could result in memory overflow and make Emacs crash."
|
|
297 nil))
|
|
298 "22.1")
|
17416
|
299 ;; window.c
|
35966
|
300 (temp-buffer-show-function windows (choice (const nil) function))
|
21407
|
301 (next-screen-context-lines windows integer)
|
17416
|
302 (window-min-height windows integer)
|
|
303 (window-min-width windows integer)
|
77068
|
304 (scroll-preserve-screen-position
|
|
305 windows (choice
|
|
306 (const :tag "Off (nil)" :value nil)
|
|
307 (const :tag "Full screen (t)" :value t)
|
87708
|
308 (other :tag "Always" 1)) "22.1")
|
103557
|
309 (recenter-redisplay windows
|
|
310 (choice
|
|
311 (const :tag "Never (nil)" :value nil)
|
|
312 (const :tag "Only on ttys" :value tty)
|
|
313 (other :tag "Always" t))
|
|
314 "23.1")
|
17416
|
315 ;; xdisp.c
|
|
316 (scroll-step windows integer)
|
24758
|
317 (scroll-conservatively windows integer)
|
|
318 (scroll-margin windows integer)
|
72611
|
319 (hscroll-margin windows integer "22.1")
|
|
320 (hscroll-step windows number "22.1")
|
97813
|
321 (truncate-partial-width-windows display boolean "23.1")
|
79584
|
322 (mode-line-inverse-video mode-line boolean)
|
|
323 (mode-line-in-non-selected-windows mode-line boolean "22.1")
|
30167
|
324 (line-number-display-limit display
|
|
325 (choice integer
|
|
326 (const :tag "No limit" nil)))
|
87708
|
327 (line-number-display-limit-width display integer "22.1")
|
17416
|
328 (highlight-nonselected-windows display boolean)
|
|
329 (message-log-max debug (choice (const :tag "Disable" nil)
|
|
330 (integer :menu-tag "lines"
|
|
331 :format "%v")
|
22571
|
332 (other :tag "Unlimited" t)))
|
24628
|
333 (unibyte-display-via-language-environment mule boolean)
|
59996
|
334 (blink-cursor-alist cursor alist "22.1")
|
72506
|
335 (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
|
336 (underline-minimum-offset display integer "23.1")
|
72737
|
337 (mouse-autoselect-window
|
|
338 display (choice
|
|
339 (const :tag "Off (nil)" :value nil)
|
|
340 (const :tag "Immediate" :value t)
|
|
341 (number :tag "Delay by secs" :value 0.5)) "22.1")
|
48075
|
342 ;; xfaces.c
|
87708
|
343 (scalable-fonts-allowed display boolean "22.1")
|
17416
|
344 ;; xfns.c
|
|
345 (x-bitmap-file-path installation
|
25296
|
346 (repeat (directory :format "%v")))
|
72970
|
347 (x-gtk-use-old-file-dialog menu boolean "22.1")
|
67845
|
348 (x-gtk-show-hidden-files menu boolean "22.1")
|
72970
|
349 (x-gtk-file-dialog-help-text menu boolean "22.1")
|
68883
|
350 (x-gtk-whole-detached-tool-bar x boolean "22.1")
|
25296
|
351 ;; xterm.c
|
72611
|
352 (x-use-underline-position-properties display boolean "22.1")
|
72506
|
353 (x-underline-at-descent-line display boolean "22.1")
|
106097
|
354 (x-stretch-cursor display boolean "21.1")
|
|
355 ;; xsettings.c
|
|
356 (font-use-system-font font-selection boolean "23.2")))
|
60033
|
357 this symbol group type standard version native-p
|
18052
|
358 ;; This function turns a value
|
|
359 ;; into an expression which produces that value.
|
|
360 (quoter (lambda (sexp)
|
|
361 (if (or (memq sexp '(t nil))
|
28569
|
362 (keywordp sexp)
|
18052
|
363 (and (listp sexp)
|
|
364 (memq (car sexp) '(lambda)))
|
|
365 (stringp sexp)
|
30167
|
366 (numberp sexp))
|
18052
|
367 sexp
|
|
368 (list 'quote sexp)))))
|
49588
|
369 (while all
|
17416
|
370 (setq this (car all)
|
|
371 all (cdr all)
|
|
372 symbol (nth 0 this)
|
|
373 group (nth 1 this)
|
23967
|
374 type (nth 2 this)
|
30167
|
375 version (nth 3 this)
|
60033
|
376 ;; If we did not specify any standard value expression above,
|
|
377 ;; use the current value as the standard value.
|
|
378 standard (if (nthcdr 4 this)
|
|
379 (nth 4 this)
|
60096
|
380 (when (default-boundp symbol)
|
60057
|
381 (funcall quoter (default-value symbol))))
|
23967
|
382 ;; Don't complain about missing variables which are
|
|
383 ;; irrelevant to this platform.
|
|
384 native-p (save-match-data
|
|
385 (cond
|
|
386 ((string-match "\\`dos-" (symbol-name symbol))
|
|
387 (eq system-type 'ms-dos))
|
|
388 ((string-match "\\`w32-" (symbol-name symbol))
|
|
389 (eq system-type 'windows-nt))
|
102667
|
390 ((string-match "\\`ns-" (symbol-name symbol))
|
|
391 (featurep 'ns))
|
63369
|
392 ((string-match "\\`x-.*gtk" (symbol-name symbol))
|
83366
|
393 (featurep 'gtk))
|
43235
|
394 ((string-match "\\`x-" (symbol-name symbol))
|
|
395 (fboundp 'x-create-frame))
|
65401
|
396 ((string-match "selection" (symbol-name symbol))
|
|
397 (fboundp 'x-selection-exists-p))
|
|
398 ((string-match "fringe" (symbol-name symbol))
|
|
399 (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
|
400 ((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
|
401 (featurep 'system-font-setting))
|
23967
|
402 (t t))))
|
17416
|
403 (if (not (boundp symbol))
|
|
404 ;; If variables are removed from C code, give an error here!
|
23967
|
405 (and native-p
|
|
406 (message "Note, built-in variable `%S' not bound" symbol))
|
18052
|
407 ;; Save the standard value, unless we already did.
|
|
408 (or (get symbol 'standard-value)
|
60033
|
409 (put symbol 'standard-value (list standard)))
|
18052
|
410 ;; If this is NOT while dumping Emacs,
|
|
411 ;; set up the rest of the customization info.
|
|
412 (unless purify-flag
|
|
413 ;; Add it to the right group.
|
|
414 (custom-add-to-group group symbol 'custom-variable)
|
|
415 ;; Set the type.
|
30167
|
416 (put symbol 'custom-type type)
|
|
417 (put symbol 'custom-version version)))))
|
18052
|
418
|
33922
|
419 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
|
52129
|
420 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
|
|
421 'custom-variable)
|
33922
|
422
|
18052
|
423 ;; Record cus-start as loaded
|
|
424 ;; if we have set up all the info that we can set up.
|
|
425 ;; Don't record cus-start as loaded
|
|
426 ;; if we have set up only the standard values.
|
|
427 (unless purify-flag
|
|
428 (provide 'cus-start))
|
17416
|
429
|
84358
|
430 ;; arch-tag: 4502730d-bcb3-4f5e-99a3-a86f2d54af60
|
38409
|
431 ;;; cus-start.el ends here
|