* widget.el (define-widget): Purecopy the docstring.

* international/mule-cmds.el (charset): Do not purecopy the
docstring here, define-widget does it.

* textmodes/texinfo.el (texinfo-open-quote, texinfo-close-quote):
* textmodes/bibtex-style.el (auto-mode-alist):
* progmodes/inf-lisp.el (inferior-lisp-prompt):
* progmodes/compile.el (compile-command):
* language/korea-util.el (default-korean-keyboard):
* international/mule-conf.el (file-coding-system-alist):
* emacs-lisp/eldoc.el (eldoc-minor-mode-string):
* tooltip.el (tooltip-frame-parameters):
* newcomment.el (comment-end, comment-padding):
* dired.el (dired-trivial-filenames):
* comint.el (comint-file-name-prefix): Purecopy initial values.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 5fd6d8f23a9..37fddc5404e 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2669,7 +2669,7 @@ Note that this applies to `comint-dynamic-complete-filename' only."
   :group 'comint-completion)
 
 ;;;###autoload
-(defvar comint-file-name-prefix ""
+(defvar comint-file-name-prefix (purecopy "")
   "Prefix prepended to absolute file names taken from process input.
 This is used by Comint's and shell's completion functions, and by shell's
 directory tracking functions.")