Mercurial > emacs
changeset 105957:25e1d7e37015
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Nov 2009 19:24:20 +0000 |
| parents | 31f80330b77b |
| children | 341a779db1d0 |
| files | lisp/ChangeLog lisp/comint.el lisp/dired.el lisp/emacs-lisp/eldoc.el lisp/international/mule-cmds.el lisp/international/mule-conf.el lisp/language/korea-util.el lisp/newcomment.el lisp/progmodes/compile.el lisp/progmodes/inf-lisp.el lisp/textmodes/bibtex-style.el lisp/textmodes/texinfo.el lisp/tooltip.el lisp/widget.el |
| diffstat | 14 files changed, 35 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/ChangeLog Wed Nov 11 19:24:20 2009 +0000 @@ -1,3 +1,21 @@ +2009-11-11 Dan Nicolaescu <dann@ics.uci.edu> + + * 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. + 2009-11-11 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-advice-minibuffer-electric-separator)
--- a/lisp/comint.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/comint.el Wed Nov 11 19:24:20 2009 +0000 @@ -2669,7 +2669,7 @@ :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.")
--- a/lisp/dired.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/dired.el Wed Nov 11 19:24:20 2009 +0000 @@ -105,7 +105,7 @@ :group 'dired-mark) ;;;###autoload -(defcustom dired-trivial-filenames "^\\.\\.?$\\|^#" +(defcustom dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#") "Regexp of files to skip when finding first file of a directory. A value of nil means move to the subdir line. A value of t means move to first file."
--- a/lisp/emacs-lisp/eldoc.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/emacs-lisp/eldoc.el Wed Nov 11 19:24:20 2009 +0000 @@ -64,7 +64,7 @@ :group 'eldoc) ;;;###autoload -(defcustom eldoc-minor-mode-string " ElDoc" +(defcustom eldoc-minor-mode-string (purecopy " ElDoc") "String to display in mode line when ElDoc Mode is enabled; nil for none." :type '(choice string (const :tag "None" nil)) :group 'eldoc)
--- a/lisp/international/mule-cmds.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/international/mule-cmds.el Wed Nov 11 19:24:20 2009 +0000 @@ -1870,7 +1870,7 @@ (force-mode-line-update t)) (define-widget 'charset 'symbol - (purecopy "An Emacs charset.") + "An Emacs charset." :tag "Charset" :complete-function (lambda () (interactive)
--- a/lisp/international/mule-conf.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/international/mule-conf.el Wed Nov 11 19:24:20 2009 +0000 @@ -1504,6 +1504,7 @@ ;; Tar files are not decoded at all, but we treat them as raw bytes. (setq file-coding-system-alist + (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg))) '(("\\.elc\\'" . utf-8-emacs) ("\\.utf\\(-8\\)?\\'" . utf-8) ("\\.xml\\'" . xml-find-file-coding-system) @@ -1516,7 +1517,7 @@ ("\\.tar\\'" . (no-conversion . no-conversion)) ( "\\.po[tx]?\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system) - ("" . (undecided . nil)))) + ("" . (undecided . nil))))) ;;; Setting coding categories and their priorities.
--- a/lisp/language/korea-util.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/language/korea-util.el Wed Nov 11 19:24:20 2009 +0000 @@ -30,9 +30,9 @@ ;;;###autoload (defvar default-korean-keyboard - (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) + (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" - "") + "")) "*The kind of Korean keyboard for Korean input method. \"\" for 2, \"3\" for 3.")
--- a/lisp/newcomment.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/newcomment.el Wed Nov 11 19:24:20 2009 +0000 @@ -122,7 +122,7 @@ ;;;###autoload(put 'comment-end-skip 'safe-local-variable 'string-or-null-p) ;;;###autoload -(defvar comment-end "" +(defvar comment-end (purecopy "") "*String to insert to end a new comment. Should be an empty string if comments are terminated by end-of-line.") ;;;###autoload(put 'comment-end 'safe-local-variable 'string-or-null-p) @@ -218,7 +218,7 @@ :group 'comment) ;;;###autoload -(defcustom comment-padding " " +(defcustom comment-padding (purecopy " ") "Padding string that `comment-region' puts between comment chars and text. Can also be an integer which will be automatically turned into a string of the corresponding number of spaces.
--- a/lisp/progmodes/compile.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/progmodes/compile.el Wed Nov 11 19:24:20 2009 +0000 @@ -588,7 +588,7 @@ :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.
--- a/lisp/progmodes/inf-lisp.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/progmodes/inf-lisp.el Wed Nov 11 19:24:20 2009 +0000 @@ -159,7 +159,7 @@ :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
--- a/lisp/textmodes/bibtex-style.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/textmodes/bibtex-style.el Wed Nov 11 19:24:20 2009 +0000 @@ -63,7 +63,7 @@ ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" (2 font-lock-function-name-face)))) -;;;###autoload (add-to-list 'auto-mode-alist '("\\.bst\\'" . bibtex-style-mode)) +;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.bst\\'") 'bibtex-style-mode)) ;;;###autoload (define-derived-mode bibtex-style-mode nil "BibStyle"
--- a/lisp/textmodes/texinfo.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/textmodes/texinfo.el Wed Nov 11 19:24:20 2009 +0000 @@ -42,13 +42,13 @@ :group 'docs) ;;;###autoload -(defcustom texinfo-open-quote "``" +(defcustom texinfo-open-quote (purecopy "``") "String inserted by typing \\[texinfo-insert-quote] to open a quotation." :type 'string :group 'texinfo) ;;;###autoload -(defcustom texinfo-close-quote "''" +(defcustom texinfo-close-quote (purecopy "''") "String inserted by typing \\[texinfo-insert-quote] to close a quotation." :type 'string :group 'texinfo)
--- a/lisp/tooltip.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/tooltip.el Wed Nov 11 19:24:20 2009 +0000 @@ -115,7 +115,7 @@ :group 'tooltip) (defcustom tooltip-frame-parameters - '((name . "tooltip") + `((name . (purecopy "tooltip")) (internal-border-width . 2) (border-width . 1)) "Frame parameters used for tooltips.
--- a/lisp/widget.el Wed Nov 11 19:13:50 2009 +0000 +++ b/lisp/widget.el Wed Nov 11 19:24:20 2009 +0000 @@ -85,7 +85,7 @@ The third argument DOC is a documentation string for the widget." (put name 'widget-type (cons class args)) - (put name 'widget-documentation doc) + (put name 'widget-documentation (purecopy doc)) name) ;; This is used by external widget code (in W3, at least).