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
e475612a
Commit
e475612a
authored
Jan 20, 2001
by
Miles Bader
Browse files
(custom-face-save): Do post-processing on the face's new value like
`custom-face-set' does.
parent
e1e40b38
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
lisp/cus-edit.el
lisp/cus-edit.el
+6
-2
No files found.
lisp/cus-edit.el
View file @
e475612a
...
...
@@ -2873,14 +2873,18 @@ Optional EVENT is the location for the menu."
"
Prepare
for
saving
WIDGET
's
face
attributes,
but
don
't
write
`.
emacs
'.
"
(let* ((symbol (widget-value widget))
(child (car (widget-get widget :children)))
(value (widget-value child))
(value
(custom-post-filter-face-spec
(widget-value child))
)
(comment-widget (widget-get widget :comment-widget))
(comment (widget-value comment-widget)))
(when (equal comment "")
(setq comment nil)
;; Make the comment invisible by hand if it's empty
(custom-comment-hide comment-widget))
(face-spec-set symbol value)
(if (face-spec-choose value)
(face-spec-set symbol value)
;; face-set-spec ignores empty attribute lists, so just give it
;; something harmless instead.
(face-spec-set symbol '((t :foreground unspecified))))
(put symbol 'saved-face value)
(put symbol 'customized-face nil)
(put symbol 'face-comment comment)
...
...
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