[PATCH] protect symbols when writing
OK, same places as before, plus another one. Must use prin1 instead of
princ when outputting symbols, in order to protect special characters.
I'm not going to apply it myself, since I'm off for one week in a few
minutes. Please, another reviewer, do it if it's ok.
1999-07-30 Didier Verna <verna(a)inf.enst.fr>
* cus-edit.el (custom-save-variables): I said, use prin1 instead
of princ to output symbols.
(custom-save-face-internal): ditto.
(custom-save-resets): ditto.
Index: lisp/cus-edit.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/cus-edit.el,v
retrieving revision 1.8.2.6
diff -u -u -r1.8.2.6 cus-edit.el
--- cus-edit.el 1999/07/23 20:30:42 1.8.2.6
+++ cus-edit.el 1999/07/30 13:43:33
＠＠ -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 ")")))))))
--
/ / _ _ Didier Verna http://www.inf.enst.fr/~verna/
- / / - / / /_/ / ENST, INFRES C201.1 mailto:verna＠inf.enst.fr
/_/ / /_/ / /__ / 46 rue Barrault Tel. +33 (1) 45 81 73 46
75013 Paris, France Fax. +33 (1) 45 81 31 19