Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents fbbf69b4e8a7
children 6240c7796c7a
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/cus-edit.el	Mon Aug 13 11:03:08 2007 +0200
@@ -2288,8 +2288,7 @@
 	     (unless (widget-get widget :custom-form)
 		 (widget-put widget :custom-form custom-face-default-form))
 	     (let* ((symbol (widget-value widget))
-		    (spec (or (get symbol 'customized-face)
-			      (get symbol 'saved-face)
+		    (spec (or (get symbol 'saved-face)
 			      (get symbol 'face-defface-spec)
 			      ;; Attempt to construct it.
 			      (list (list t (face-custom-attributes-get
@@ -3017,7 +3016,7 @@
 					   (not (get symbol 'force-value)))))))
 		    (when value
 		      (princ "\n '(")
-		      (prin1 symbol)
+		      (princ symbol)
 		      (princ " ")
 		      (prin1 (car value))
 		      (cond (requests
@@ -3058,7 +3057,7 @@
 			       ;; Don't print default face here.
 			       value)
 		      (princ "\n '(")
-		      (prin1 symbol)
+		      (princ symbol)
 		      (princ " ")
 		      (prin1 value)
 		      (if (or (get symbol 'face-defface-spec)