From: Didier Verna [verna@inf.enst.fr] Sent: Friday, July 30, 1999 6:49 AM To: xemacs-patches@xemacs.org Cc: XEmacs beta list Subject: [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 * 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