Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 337:fbbf69b4e8a7 r21-0-66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-66
author cvs
date Mon, 13 Aug 2007 10:51:02 +0200
parents 341dac730539
children cc15677e0335
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Aug 13 10:50:41 2007 +0200
+++ b/lisp/cus-edit.el	Mon Aug 13 10:51:02 2007 +0200
@@ -3017,7 +3017,7 @@
 					   (not (get symbol 'force-value)))))))
 		    (when value
 		      (princ "\n '(")
-		      (princ symbol)
+		      (prin1 symbol)
 		      (princ " ")
 		      (prin1 (car value))
 		      (cond (requests
@@ -3058,7 +3058,7 @@
 			       ;; Don't print default face here.
 			       value)
 		      (princ "\n '(")
-		      (princ symbol)
+		      (prin1 symbol)
 		      (princ " ")
 		      (prin1 value)
 		      (if (or (get symbol 'face-defface-spec)