1 ;;; cus-start.el --- define customization properties of builtins.
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 ;; Must be run before the user has changed the value of any options!
31 (defun custom-start-quote (sexp)
32 ;; This is copied from `cus-edit.el'.
33 "Quote SEXP iff it is not self quoting."
34 (if (or (memq sexp
'(t nil
))
36 (eq (aref (symbol-name sexp
) 0) ?
:))
38 (memq (car sexp
) '(lambda)))
41 (and (fboundp 'characterp
)
46 ;; Add support for build in variables.
47 (let ((all '(;; abbrev.c
48 (abbrev-all-caps abbrev-mode boolean
)
49 (pre-abbrev-expand-hook abbrev-mode hook
)
51 (gc-cons-threshold alloc integer
)
52 (undo-limit undo integer
)
53 (undo-strong-limit undo integer
)
54 (garbage-collection-messages alloc boolean
)
56 (mode-line-format modeline sexp
) ;Hard to do right.
57 (default-major-mode internal function
)
58 (case-fold-search matching boolean
)
59 (fill-column fill integer
)
60 (left-margin fill integer
)
61 (tab-width editing-basics integer
)
62 (ctl-arrow display boolean
)
63 (truncate-lines display boolean
)
64 (selective-display display
65 (choice (const :tag
"off" nil
)
70 (selective-display-ellipses display boolean
)
71 (transient-mark-mode editing-basics boolean
)
73 (mark-even-if-inactive editing-basics boolean
)
75 (shell-file-name execute file
)
77 (repeat (choice (const :tag
"default" nil
)
78 (file :format
"%v"))))
80 (completion-ignored-extensions dired
81 (repeat (string :format
"%v")))
83 (baud-rate display integer
)
84 (inverse-video display boolean
)
85 (visible-bell display boolean
)
86 (no-redraw-on-reenter display boolean
)
88 (user-full-name mail string
)
90 (max-specpdl-size limits integer
)
91 (max-lisp-eval-depth limits integer
)
92 (stack-trace-on-error debug
93 (choice (const :tag
"off")
94 (repeat :menu-tag
"When"
96 (symbol :format
"%v"))
97 (const :tag
"always" t
)))
99 (choice (const :tag
"off")
100 (repeat :menu-tag
"When"
102 (symbol :format
"%v"))
103 (const :tag
"always" t
)))
104 (debug-ignored-errors debug
(repeat (choice symbol regexp
)))
105 (debug-on-quit debug choice
)
107 (insert-default-directory minibuffer boolean
)
109 (default-frame-alist frames
110 (repeat (cons :format
"%v"
111 (symbol :tag
"Parameter")
112 (sexp :tag
"Value"))))
114 (indent-tabs-mode fill boolean
)
116 (meta-prefix-char keyboard character
)
117 (auto-save-interval auto-save integer
)
118 (auto-save-timeout auto-save
(choice (const :tag
"off" nil
)
119 (integer :format
"%v")))
120 (echo-keystrokes minibuffer boolean
)
121 (polling-period keyboard integer
)
122 (double-click-time mouse integer
)
123 (inhibit-local-menu-bar-menus menu boolean
)
124 (help-char keyboard character
)
125 (help-event-list keyboard
(repeat (sexp :format
"%v")))
126 (menu-prompting menu boolean
)
127 (track-mouse mouse boolean
)
128 (suggest-key-bindings keyboard
(choice (const :tag
"off" nil
)
129 (integer :tag
"time" 2)
133 (load-path environment
134 (repeat (choice :tag
"Current or Specific Dir"
135 (const :tag
"use current" nil
)
136 (directory :tag
"Specific"))))
138 (completion-auto-help minibuffer boolean
)
139 (enable-recursive-minibuffers minibuffer boolean
)
140 (minibuffer-auto-raise minibuffer boolean
)
142 (delete-exited-processes proces-basics boolean
)
144 (parse-sexp-ignore-comments editing-basics boolean
)
145 (words-include-escapes editing-basics boolean
)
147 (temp-buffer-show-function windows function
)
148 (display-buffer-function windows function
)
149 (pop-up-frames frames boolean
)
150 (pop-up-frame-function frames function
)
151 (special-display-buffer-names
153 (repeat (choice :tag
"Buffer"
155 (string :format
"%v")
156 (cons :tag
"With attributes"
159 (string :format
"%v")
160 (repeat :tag
"Attributes"
162 (symbol :tag
"Parameter")
163 (sexp :tag
"Value")))))))
164 (special-display-regexps
166 (repeat (choice :tag
"Buffer"
168 (regexp :format
"%v")
169 (cons :tag
"With attributes"
172 (regexp :format
"%v")
173 (repeat :tag
"Attributes"
175 (symbol :tag
"Parameter")
176 (sexp :tag
"Value")))))))
177 (special-display-function frames function
)
178 (same-window-buffer-names windows
(repeat (string :format
"%v")))
179 (same-window-regexps windows
(repeat (regexp :format
"%v")))
180 (pop-up-windows windows boolean
)
181 (next-screen-context-lines windows boolean
)
182 (split-height-threshold windows integer
)
183 (window-min-height windows integer
)
184 (window-min-width windows integer
)
186 (scroll-step windows integer
)
187 (truncate-partial-width-windows display boolean
)
188 (mode-line-inverse-video modeline boolean
)
189 (line-number-display-limit display integer
)
190 (highlight-nonselected-windows display boolean
)
191 (message-log-max debug
(choice (const :tag
"Disable" nil
)
192 (integer :menu-tag
"lines"
194 (const :tag
"Unlimited" t
)))
196 (x-bitmap-file-path installation
197 (repeat (directory :format
"%v")))))
198 this symbol group type
)
205 (if (not (boundp symbol
))
206 ;; If variables are removed from C code, give an error here!
207 (message "Intrinsic `%S' not bound" symbol
)
208 ;; This is called before any user can have changed the value.
209 (put symbol
'factory-value
210 (list (custom-start-quote (default-value symbol
))))
211 ;; Add it to the right group.
212 (custom-add-to-group group symbol
'custom-variable
)
214 (put symbol
'custom-type type
))))
216 ;;; cus-start.el ends here.