From e1e529fadbe97ecaa1ae3cb4c4079ee2a66d0ce6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 17 May 2002 20:17:04 +0000 Subject: [PATCH] Doc fixes. (charset-list, generic-char-p, set-coding-priority): Make obsolete. (coding-system-get): Try to convert old-style symbol to keyword. (define-charset): Purecopy strings in property list. (define-coding-system): Purecopy docstring. --- lisp/international/mule.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 8a4d66c58ef..517162b6e09 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -189,6 +189,13 @@ attribute." (plist-put props :short-name (symbol-name name))) (or (plist-get props :long-name) (plist-put props :long-name (plist-get props :short-name))) + ;; We can probably get a worthwhile amount in purespace. + (setq props + (mapcar (lambda (elt) + (if (stringp elt) + (purecopy elt) + elt)) + props)) (setcdr (assq :plist attrs) props) (apply 'define-charset-internal name (mapcar 'cdr attrs)))) @@ -595,7 +602,8 @@ This attribute has a meaning only when `:coding-type' is `ccl'." ;; Add :name and :docstring properties to PROPS. (setq props - (cons :name (cons name (cons :docstring (cons docstring props))))) + (cons :name (cons name (cons :docstring (cons (purecopy docstring) + props))))) (setcdr (assq :plist common-attrs) props) (apply 'define-coding-system-internal -- 2.39.2