From 9c301ddb2c1f6804b69ef2b694dd578898be531f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 5 Aug 1999 05:38:49 +0000 Subject: [PATCH] (mu-cite-save-registration-file): Remove text properties from the strings to be registered and quote them using `prin1-to-string'. --- mu-register.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 ";;; " -- 1.7.10.4