1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

* 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.
This commit is contained in:
Dan Nicolaescu 2009-11-11 19:24:20 +00:00
parent 04420943de
commit aaa448c984
14 changed files with 35 additions and 16 deletions

View file

@ -588,7 +588,7 @@ The value nil as an element means to try the default directory."
:group 'compilation)
;;;###autoload
(defcustom compile-command "make -k "
(defcustom compile-command (purecopy "make -k ")
"Last shell command used to do a compilation; default for next compilation.
Sometimes it is useful for files to supply local values for this variable.

View file

@ -159,7 +159,7 @@ but it works only in Common Lisp."
:group 'inferior-lisp)
;;;###autoload
(defcustom inferior-lisp-prompt "^[^> \n]*>+:? *"
(defcustom inferior-lisp-prompt (purecopy "^[^> \n]*>+:? *")
"Regexp to recognize prompts in the Inferior Lisp mode.
Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl,
and franz. This variable is used to initialize `comint-prompt-regexp' in the