mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Fix for custom-theme-write-faces.

Browse Source 
* lisp/cus-theme.el (custom-theme-write-faces): Retrieve current face
spec with custom-face-get-current-spec if its :shown-value is not
determined yet.

Fixes: debbugs:9337
This commit is contained in:
Chong Yidong 2012-03-25 20:52:49 +08:00
parent 9a69676ae6
commit dd47096027
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2012-03-25 Chong Yidong <cyd@gnu.org>
* cus-theme.el (custom-theme-write-faces): Retrieve current face
spec with custom-face-get-current-spec if its :shown-value is not
determined yet (Bug#9337).
* button.el (button-at): Minor addition to docstring.
2012-03-24 Simon Leinen <simon.leinen@gmail.com>

11
lisp/cus-theme.el
View File

@ -437,14 +437,17 @@ It includes all faces in list FACES."
(princ theme)
(princ "\n")
(dolist (spec faces)
;; Insert the face iff the checkbox widget is checked.
(when (widget-get (nth 1 spec) :value)
(let* ((symbol (nth 0 spec))
(widget (nth 2 spec))
(value
(if (car-safe (widget-get widget :children))
(custom-face-widget-to-spec widget)
;; Child is null if the widget is closed (hidden).
(widget-get widget :shown-value))))
(cond
((car-safe (widget-get widget :children))
(custom-face-widget-to-spec widget))
;; Child is null if the widget is closed (hidden).
((widget-get widget :shown-value))
(t (custom-face-get-current-spec symbol)))))
(when (and (facep symbol) value)
(princ (if (bolp) " '(" "\n '("))
(prin1 symbol)