# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1021666624 0
# Node ID 30c5971edc3c682a755b07ee0815effaee1c7196
# Parent  e63aa0be6e95fd6d28ca2c71aada193c6a1b0ec0
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.

diff -r e63aa0be6e95 -r 30c5971edc3c lisp/international/mule.el
--- 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