Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 396:6719134a07c2 r21-2-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-13
author cvs
date Mon, 13 Aug 2007 11:12:05 +0200
parents 8626e4521993
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Aug 13 11:11:38 2007 +0200
+++ b/lisp/cus-edit.el	Mon Aug 13 11:12:05 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)