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
e58d8ef5
Commit
e58d8ef5
authored
May 13, 2006
by
Chong Yidong
Browse files
* custom.el (custom-push-theme): Load the variable before checking
its `standard-value'.
parent
9fbcde29
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
5 deletions
+15
-5
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/custom.el
lisp/custom.el
+9
-5
No files found.
lisp/ChangeLog
View file @
e58d8ef5
2006-05-13 Chong Yidong <cyd@stupidchicken.com>
* custom.el (custom-push-theme): Load the variable before checking
its `standard-value'.
2006-05-13 Lars Hansen <larsh@soem.dk>
* desktop.el (desktop-save): Use with-temp-buffer.
2006-05-12 Glenn Morris <rgm@gnu.org>
...
...
lisp/custom.el
View file @
e58d8ef5
...
...
@@ -825,11 +825,15 @@ See `custom-known-themes' for a list of known themes."
;; theme is later disabled.
(
if
(
null
old
)
(
if
(
and
(
eq
prop
'theme-value
)
(
boundp
symbol
)
(
or
(
null
(
get
symbol
'standard-value
))
(
not
(
equal
(
eval
(
car
(
get
symbol
'standard-value
)))
(
symbol-value
symbol
)))))
(
setq
old
(
list
(
list
'changed
(
symbol-value
symbol
))))
(
boundp
symbol
))
(
let
((
sv
(
get
symbol
'standard-value
)))
(
when
(
and
(
null
sv
)
(
custom-variable-p
symbol
))
(
custom-load-symbol
symbol
)
(
setq
sv
(
get
symbol
'standard-value
)))
(
if
(
or
(
null
sv
)
(
not
(
equal
(
eval
(
car
(
get
symbol
'standard-value
)))
(
symbol-value
symbol
))))
(
setq
old
(
list
(
list
'changed
(
symbol-value
symbol
))))))
(
if
(
and
(
facep
symbol
)
(
not
(
face-spec-match-p
symbol
(
get
symbol
'face-defface-spec
))))
(
setq
old
(
list
(
list
'changed
(
list
...
...
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