[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog comint.el dired.el newcomm...
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog comint.el dired.el newcomm... |
Date: |
Wed, 11 Nov 2009 19:24:26 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/11/11 19:24:25
Modified files:
lisp : ChangeLog comint.el dired.el newcomment.el
tooltip.el widget.el
lisp/emacs-lisp: eldoc.el
lisp/international: mule-cmds.el mule-conf.el
lisp/language : korea-util.el
lisp/progmodes : compile.el inf-lisp.el
lisp/textmodes : bibtex-style.el texinfo.el
Log message:
* 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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16604&r2=1.16605
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/comint.el?cvsroot=emacs&r1=1.398&r2=1.399
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired.el?cvsroot=emacs&r1=1.439&r2=1.440
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/newcomment.el?cvsroot=emacs&r1=1.118&r2=1.119
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tooltip.el?cvsroot=emacs&r1=1.95&r2=1.96
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/widget.el?cvsroot=emacs&r1=1.29&r2=1.30
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/eldoc.el?cvsroot=emacs&r1=1.58&r2=1.59
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.382&r2=1.383
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-conf.el?cvsroot=emacs&r1=1.104&r2=1.105
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/korea-util.el?cvsroot=emacs&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.502&r2=1.503
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/inf-lisp.el?cvsroot=emacs&r1=1.54&r2=1.55
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/bibtex-style.el?cvsroot=emacs&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/texinfo.el?cvsroot=emacs&r1=1.127&r2=1.128
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16604
retrieving revision 1.16605
diff -u -b -r1.16604 -r1.16605
--- ChangeLog 11 Nov 2009 14:55:35 -0000 1.16604
+++ ChangeLog 11 Nov 2009 19:24:20 -0000 1.16605
@@ -1,3 +1,21 @@
+2009-11-11 Dan Nicolaescu <address@hidden>
+
+ * 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 <address@hidden>
* net/tramp.el (tramp-advice-minibuffer-electric-separator)
Index: comint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v
retrieving revision 1.398
retrieving revision 1.399
diff -u -b -r1.398 -r1.399
--- comint.el 3 Nov 2009 00:39:14 -0000 1.398
+++ comint.el 11 Nov 2009 19:24:23 -0000 1.399
@@ -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.")
Index: dired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dired.el,v
retrieving revision 1.439
retrieving revision 1.440
diff -u -b -r1.439 -r1.440
--- dired.el 11 Nov 2009 05:49:12 -0000 1.439
+++ dired.el 11 Nov 2009 19:24:23 -0000 1.440
@@ -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."
Index: newcomment.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/newcomment.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- newcomment.el 2 Oct 2009 03:48:42 -0000 1.118
+++ newcomment.el 11 Nov 2009 19:24:23 -0000 1.119
@@ -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.
Index: tooltip.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/tooltip.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- tooltip.el 13 Sep 2009 00:53:01 -0000 1.95
+++ tooltip.el 11 Nov 2009 19:24:23 -0000 1.96
@@ -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.
Index: widget.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/widget.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- widget.el 5 Jan 2009 03:19:56 -0000 1.29
+++ widget.el 11 Nov 2009 19:24:23 -0000 1.30
@@ -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).
Index: emacs-lisp/eldoc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/eldoc.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- emacs-lisp/eldoc.el 2 Oct 2009 14:36:57 -0000 1.58
+++ emacs-lisp/eldoc.el 11 Nov 2009 19:24:24 -0000 1.59
@@ -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)
Index: international/mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.382
retrieving revision 1.383
diff -u -b -r1.382 -r1.383
--- international/mule-cmds.el 11 Nov 2009 06:36:44 -0000 1.382
+++ international/mule-cmds.el 11 Nov 2009 19:24:24 -0000 1.383
@@ -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)
Index: international/mule-conf.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-conf.el,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -b -r1.104 -r1.105
--- international/mule-conf.el 11 Nov 2009 06:30:42 -0000 1.104
+++ international/mule-conf.el 11 Nov 2009 19:24:24 -0000 1.105
@@ -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.
Index: language/korea-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/korea-util.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- language/korea-util.el 30 Jun 2009 02:08:36 -0000 1.23
+++ language/korea-util.el 11 Nov 2009 19:24:24 -0000 1.24
@@ -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.")
Index: progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.502
retrieving revision 1.503
diff -u -b -r1.502 -r1.503
--- progmodes/compile.el 8 Nov 2009 16:30:24 -0000 1.502
+++ progmodes/compile.el 11 Nov 2009 19:24:24 -0000 1.503
@@ -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.
Index: progmodes/inf-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/inf-lisp.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- progmodes/inf-lisp.el 11 Nov 2009 05:49:14 -0000 1.54
+++ progmodes/inf-lisp.el 11 Nov 2009 19:24:24 -0000 1.55
@@ -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
Index: textmodes/bibtex-style.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/bibtex-style.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- textmodes/bibtex-style.el 5 Jan 2009 03:23:59 -0000 1.8
+++ textmodes/bibtex-style.el 11 Nov 2009 19:24:25 -0000 1.9
@@ -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"
Index: textmodes/texinfo.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/texinfo.el,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -b -r1.127 -r1.128
--- textmodes/texinfo.el 1 Sep 2009 07:46:09 -0000 1.127
+++ textmodes/texinfo.el 11 Nov 2009 19:24:25 -0000 1.128
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog comint.el dired.el newcomm...,
Dan Nicolaescu <=