Mercurial > emacs
comparison lisp/cus-start.el @ 90105:7e3f621f1dd4
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-15
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-95
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-96
Move Gnus images into etc/images
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-97
- miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-105
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-14
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-15
Update from CVS: lisp/imap.el (imap-log): Doc fix.
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-16
Merge from emacs--cvs-trunk--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 18 Feb 2005 00:41:50 +0000 |
parents | 3ebd9bdb4fe5 a9e9af4690d5 |
children | a1b34dec1104 |
comparison
equal
deleted
inserted
replaced
90104:a01e7a9f1659 | 90105:7e3f621f1dd4 |
---|---|
1 ;;; cus-start.el --- define customization properties of builtins | 1 ;;; cus-start.el --- define customization properties of builtins |
2 ;; | 2 ;; |
3 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2005 Free Software Foundation, Inc. |
4 ;; | 4 ;; |
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
6 ;; Keywords: internal | 6 ;; Keywords: internal |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
37 (let ((all '(;; abbrev.c | 37 (let ((all '(;; abbrev.c |
38 (abbrev-all-caps abbrev-mode boolean) | 38 (abbrev-all-caps abbrev-mode boolean) |
39 (pre-abbrev-expand-hook abbrev-mode hook) | 39 (pre-abbrev-expand-hook abbrev-mode hook) |
40 ;; alloc.c | 40 ;; alloc.c |
41 (gc-cons-threshold alloc integer) | 41 (gc-cons-threshold alloc integer) |
42 (garbage-collection-messages alloc boolean) | |
43 ;; undo.c | |
42 (undo-limit undo integer) | 44 (undo-limit undo integer) |
43 (undo-strong-limit undo integer) | 45 (undo-strong-limit undo integer) |
44 (undo-outer-limit undo | 46 (undo-outer-limit undo |
45 (choice integer | 47 (choice integer |
46 (const :tag "No limit" | 48 (const :tag "No limit" |
50 the undo info for the current command never gets discarded. | 52 the undo info for the current command never gets discarded. |
51 This should only be chosen under exceptional circumstances, | 53 This should only be chosen under exceptional circumstances, |
52 since it could result in memory overflow and make Emacs crash." | 54 since it could result in memory overflow and make Emacs crash." |
53 nil)) | 55 nil)) |
54 "22.1") | 56 "22.1") |
55 (garbage-collection-messages alloc boolean) | |
56 ;; buffer.c | 57 ;; buffer.c |
57 (mode-line-format modeline sexp) ;Hard to do right. | 58 (mode-line-format modeline sexp) ;Hard to do right. |
58 (default-major-mode internal function) | 59 (default-major-mode internal function) |
59 (enable-multibyte-characters mule boolean) | 60 (enable-multibyte-characters mule boolean) |
60 (case-fold-search matching boolean) | 61 (case-fold-search matching boolean) |
289 (x-use-old-gtk-file-dialog menu boolean "22.1") | 290 (x-use-old-gtk-file-dialog menu boolean "22.1") |
290 ;; xterm.c | 291 ;; xterm.c |
291 (mouse-autoselect-window display boolean "21.3") | 292 (mouse-autoselect-window display boolean "21.3") |
292 (x-use-underline-position-properties display boolean "21.3") | 293 (x-use-underline-position-properties display boolean "21.3") |
293 (x-stretch-cursor display boolean "21.1"))) | 294 (x-stretch-cursor display boolean "21.1"))) |
294 this symbol group type native-p version | 295 this symbol group type standard version native-p |
295 ;; This function turns a value | 296 ;; This function turns a value |
296 ;; into an expression which produces that value. | 297 ;; into an expression which produces that value. |
297 (quoter (lambda (sexp) | 298 (quoter (lambda (sexp) |
298 (if (or (memq sexp '(t nil)) | 299 (if (or (memq sexp '(t nil)) |
299 (keywordp sexp) | 300 (keywordp sexp) |
300 (and (listp sexp) | 301 (and (listp sexp) |
301 (memq (car sexp) '(lambda))) | 302 (memq (car sexp) '(lambda))) |
302 (stringp sexp) | 303 (stringp sexp) |
303 ;; (and (fboundp 'characterp) | |
304 ;; (characterp sexp)) | |
305 (numberp sexp)) | 304 (numberp sexp)) |
306 sexp | 305 sexp |
307 (list 'quote sexp))))) | 306 (list 'quote sexp))))) |
308 (while all | 307 (while all |
309 (setq this (car all) | 308 (setq this (car all) |
310 all (cdr all) | 309 all (cdr all) |
311 symbol (nth 0 this) | 310 symbol (nth 0 this) |
312 group (nth 1 this) | 311 group (nth 1 this) |
313 type (nth 2 this) | 312 type (nth 2 this) |
314 version (nth 3 this) | 313 version (nth 3 this) |
314 ;; If we did not specify any standard value expression above, | |
315 ;; use the current value as the standard value. | |
316 standard (if (nthcdr 4 this) | |
317 (nth 4 this) | |
318 (when (default-boundp symbol) | |
319 (funcall quoter (default-value symbol)))) | |
315 ;; Don't complain about missing variables which are | 320 ;; Don't complain about missing variables which are |
316 ;; irrelevant to this platform. | 321 ;; irrelevant to this platform. |
317 native-p (save-match-data | 322 native-p (save-match-data |
318 (cond | 323 (cond |
319 ((string-match "\\`dos-" (symbol-name symbol)) | 324 ((string-match "\\`dos-" (symbol-name symbol)) |
327 ;; If variables are removed from C code, give an error here! | 332 ;; If variables are removed from C code, give an error here! |
328 (and native-p | 333 (and native-p |
329 (message "Note, built-in variable `%S' not bound" symbol)) | 334 (message "Note, built-in variable `%S' not bound" symbol)) |
330 ;; Save the standard value, unless we already did. | 335 ;; Save the standard value, unless we already did. |
331 (or (get symbol 'standard-value) | 336 (or (get symbol 'standard-value) |
332 (put symbol 'standard-value | 337 (put symbol 'standard-value (list standard))) |
333 (list (funcall quoter (default-value symbol))))) | |
334 ;; If this is NOT while dumping Emacs, | 338 ;; If this is NOT while dumping Emacs, |
335 ;; set up the rest of the customization info. | 339 ;; set up the rest of the customization info. |
336 (unless purify-flag | 340 (unless purify-flag |
337 ;; Add it to the right group. | 341 ;; Add it to the right group. |
338 (custom-add-to-group group symbol 'custom-variable) | 342 (custom-add-to-group group symbol 'custom-variable) |