XEmacs 21.2.13

[chise/xemacs-chise.git.1] / lisp / cus-edit.el

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index f7ebcea..339f262 100644 (file)
--- 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)