diff options
author | Richard M. Stallman <[email protected]> | 2005-02-14 09:49:38 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-02-14 09:49:38 +0000 |
commit | a200d99881940f24a73ccc60793da193c515e8cc (patch) | |
tree | b7adcfbd5b37505f8a90fb5f27a4a5cb088839f8 /lisp | |
parent | 3bb917bff6b70e242c8aefeb567c4c522cc9d185 (diff) |
(all): Allow a var to specify a standard value.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/cus-start.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index ccee43822e..e59e416668 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -288,7 +288,7 @@ since it could result in memory overflow and make Emacs crash." (mouse-autoselect-window display boolean "21.3") (x-use-underline-position-properties display boolean "21.3") (x-stretch-cursor display boolean "21.1"))) - this symbol group type native-p version + this symbol group type standard version native-p ;; This function turns a value ;; into an expression which produces that value. (quoter (lambda (sexp) @@ -297,8 +297,6 @@ since it could result in memory overflow and make Emacs crash." (and (listp sexp) (memq (car sexp) '(lambda))) (stringp sexp) -;; (and (fboundp 'characterp) -;; (characterp sexp)) (numberp sexp)) sexp (list 'quote sexp))))) @@ -309,6 +307,11 @@ since it could result in memory overflow and make Emacs crash." group (nth 1 this) type (nth 2 this) version (nth 3 this) + ;; If we did not specify any standard value expression above, + ;; use the current value as the standard value. + standard (if (nthcdr 4 this) + (nth 4 this) + (funcall quoter (default-value symbol))) ;; Don't complain about missing variables which are ;; irrelevant to this platform. native-p (save-match-data @@ -326,8 +329,7 @@ since it could result in memory overflow and make Emacs crash." (message "Note, built-in variable `%S' not bound" symbol)) ;; Save the standard value, unless we already did. (or (get symbol 'standard-value) - (put symbol 'standard-value - (list (funcall quoter (default-value symbol))))) + (put symbol 'standard-value (list standard))) ;; If this is NOT while dumping Emacs, ;; set up the rest of the customization info. (unless purify-flag |