(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 (file)
--- 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 ";;; "