From e127a7225e0a5819100c1c7c5c9bfc35b0cefbc1 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 1 Apr 2000 11:58:23 +0000 Subject: [PATCH] (make-coding-system): Purecopy doc-string. --- lisp/international/mule.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index f8e5e7426a9..7b32325db46 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -636,7 +636,7 @@ a value of `safe-charsets' in PLIST." (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) -- 2.39.5