Mercurial > emacs

diff lisp/cus-theme.el @ 65341:6990826a916f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Custom Theme bugfixes.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 05 Sep 2005 19:50:02 +0000
parents 41bb365f41c4
children 5bf588b1a01e a3716f7538f2
line wrap: on
line diff
--- a/lisp/cus-theme.el	Mon Sep 05 17:39:25 2005 +0000
+++ b/lisp/cus-theme.el	Mon Sep 05 19:50:02 2005 +0000
@@ -168,8 +168,9 @@
 		(princ " '(")
 		(prin1 symbol)
 		(princ " ")
-		(prin1 (or (get symbol 'customized-face)
-			   (get symbol 'face-defface-spec)))
+		(prin1 (list (append '(t)
+				     (custom-face-attributes-get
+				      'font-lock-comment-face nil))))
 		(princ ")")))
 	      faces)
       (if (bolp)