From: yamaoka <yamaoka>
Date: Thu, 5 Aug 1999 05:38:49 +0000 (+0000)
Subject: (mu-cite-save-registration-file): Remove text properties from the strings
X-Git-Tag: mu-cite-8_0~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c301ddb2c1f6804b69ef2b694dd578898be531f;p=elisp%2Fmu-cite.git

(mu-cite-save-registration-file): Remove text properties from the strings
to be registered and quote them using `prin1-to-string'.
---

diff --git a/mu-register.el b/mu-register.el
index 60e0b62..fff1023 100644
--- a/mu-register.el
+++ b/mu-register.el
@@ -112,7 +112,11 @@
     (insert (mapconcat
 	     (function
 	      (lambda (elem)
-		(format "(\"%s\" . \"%s\")" (car elem) (cdr elem))))
+		(format "(%s . %s)"
+			(prin1-to-string
+			 (mu-cite-remove-text-properties (car elem)))
+			(prin1-to-string
+			 (mu-cite-remove-text-properties (cdr elem))))))
 	     (symbol-value mu-registration-symbol) "\n        "))
     (insert "\n        ))\n\n")
     (insert ";;; "