Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a200d998
Commit
a200d998
authored
Feb 14, 2005
by
Richard M. Stallman
Browse files
(all): Allow a var to specify a standard value.
parent
3bb917bf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
5 deletions
+7
-5
lisp/cus-start.el
lisp/cus-start.el
+7
-5
No files found.
lisp/cus-start.el
View file @
a200d998
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment