Commit dd470960 authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix for custom-theme-write-faces.

* 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
parent 9a69676a
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>
......
......@@ -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)
(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))))
((widget-get widget :shown-value))
(t (custom-face-get-current-spec symbol)))))
(when (and (facep symbol) value)
(princ (if (bolp) " '(" "\n '("))
(prin1 symbol)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment