X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fcus-edit.el;h=339f262a783cfa586841a4511e7405297c9d7065;hp=f7ebcea2fc4a12f680ca0bd4475be599609023b1;hb=33c8db8e2477d62fd8734f65475f2ed516167532;hpb=7049bf113e6f1c9f87b67a82b41a2778a25961e2

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index f7ebcea..339f262 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3017,7 +3017,7 @@ Leave point at the location of the call, or after the last expression."
 					   (not (get symbol 'force-value)))))))
 		    (when value
 		      (princ "\n '(")
-		      (princ symbol)
+		      (prin1 symbol)
 		      (princ " ")
 		      (prin1 (car value))
 		      (cond (requests
@@ -3058,7 +3058,7 @@ Leave point at the location of the call, or after the last expression."
 			       ;; Don't print default face here.
 			       value)
 		      (princ "\n '(")
-		      (princ symbol)
+		      (prin1 symbol)
 		      (princ " ")
 		      (prin1 value)
 		      (if (or (get symbol 'face-defface-spec)