Mercurial > hg > xemacs-beta

diff lisp/cus-edit.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Aug 13 11:25:03 2007 +0200
+++ b/lisp/cus-edit.el	Mon Aug 13 11:26:11 2007 +0200
@@ -3280,7 +3280,7 @@
  		    (when (or (and spec (eq (car spec) 'user)
  			       (eq (second spec) 'set)) comment)
  		      (princ "\n '(")
- 		      (princ symbol)
+ 		      (prin1 symbol)
  		      (princ " ")
 		      ;; This comment stuf is in the way ####
 		      ;; Is (eq (third spec) (car saved-value)) ????
@@ -3313,7 +3313,7 @@
 	       (eq (car theme-spec) 'user)
 	       (eq (second theme-spec) 'set)) comment)
       (princ "\n '(")
-      (princ symbol)
+      (prin1 symbol)
       (princ " ")
       (prin1 (get symbol 'saved-face))
       (if (or comment now)
@@ -3358,7 +3358,7 @@
 			(princ "(")
 			(princ (quote ,setter))
 			(princ "\n '(")
-			(princ object)
+			(prin1 object)
 			(princ " ")
 			(prin1 (third spec))
 			(princ ")")))))))