# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 954590303 0
# Node ID bbe7b99b5b284b050d56678adb56cd04687157bb
# Parent  7d3fed0367e63c25837e6746446534182459ccdc
(make-coding-system): Purecopy doc-string.

diff -r 7d3fed0367e6 -r bbe7b99b5b28 lisp/international/mule.el
--- 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)