;;; cus-theme.el -- custom theme creation user interface
;;
-;; Copyright (C) 2001, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;;
;; Author: Alex Schroeder <alex@gnu.org>
;; Maintainer: FSF
(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)