changeset 28457:bbe7b99b5b28

(make-coding-system): Purecopy doc-string.
author Dave Love <fx@gnu.org>
date Sat, 01 Apr 2000 11:58:23 +0000
parents 7d3fed0367e6
children e47fb07b39d4
files lisp/international/mule.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Sat Apr 01 11:54:49 2000 +0000
+++ b/lisp/international/mule.el	Sat Apr 01 11:58:23 2000 +0000
@@ -636,7 +636,7 @@
     (aset coding-spec coding-spec-type-idx type)
     (aset coding-spec coding-spec-mnemonic-idx mnemonic)
     (aset coding-spec coding-spec-doc-string-idx
-	  (if (stringp doc-string) doc-string ""))
+	  (purecopy (if (stringp doc-string) doc-string "")))
     (cond ((= type 0)
 	   (setq coding-category 'coding-category-emacs-mule))
 	  ((= type 1)