Commit aaa448c9 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent 04420943
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)
......
......@@ -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.")
......
......@@ -105,7 +105,7 @@ always set this variable to t."
: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."
......
......@@ -64,7 +64,7 @@ If this variable is set to 0, no idle time is required."
: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)
......
......@@ -1870,7 +1870,7 @@ specifies the character set for the major languages of Western Europe."
(force-mode-line-update t))
(define-widget 'charset 'symbol
(purecopy "An Emacs charset.")
"An Emacs charset."
:tag "Charset"
:complete-function (lambda ()
(interactive)
......
......@@ -1504,6 +1504,7 @@ for decoding and encoding files, process I/O, etc."
;; 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 @@ for decoding and encoding files, process I/O, etc."
("\\.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.
......
......@@ -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.")
......
......@@ -122,7 +122,7 @@ at the place matched by the close of the first pair.")
;;;###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 @@ See `comment-styles' for a list of available styles."
: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.
......
......@@ -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.
......
......@@ -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
......
......@@ -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"
......
......@@ -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)
......
......@@ -115,7 +115,7 @@ the value of `tooltip-y-offset' is ignored."
:group 'tooltip)
(defcustom tooltip-frame-parameters
'((name . "tooltip")
`((name . (purecopy "tooltip"))
(internal-border-width . 2)
(border-width . 1))
"Frame parameters used for tooltips.
......
......@@ -85,7 +85,7 @@ create identical widgets:
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).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment