Mercurial > emacs
changeset 88562:30c5971edc3c
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.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 17 May 2002 20:17:04 +0000 |
| parents | e63aa0be6e95 |
| children | 1b9937bcfbf4 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Fri May 17 20:16:14 2002 +0000 +++ b/lisp/international/mule.el Fri May 17 20:17:04 2002 +0000 @@ -189,6 +189,13 @@ (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 @@ ;; 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