[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog bindings.el cus-edit.el di...
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog bindings.el cus-edit.el di... |
Date: |
Wed, 11 Nov 2009 05:49:15 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/11/11 05:49:14
Modified files:
lisp : ChangeLog bindings.el cus-edit.el diff.el
dired.el facemenu.el find-dired.el format.el
hippie-exp.el image-mode.el info.el locate.el
lpr.el simple.el subr.el vc-rcs.el vc-sccs.el
lisp/language : ethiopic.el
lisp/net : rlogin.el telnet.el
lisp/progmodes : grep.el gud.el hideshow.el inf-lisp.el
vera-mode.el
lisp/term : x-win.el
Log message:
* term/x-win.el (x-gtk-stock-map):
* progmodes/vera-mode.el (auto-mode-alist):
* progmodes/inf-lisp.el (inferior-lisp-filter-regexp)
(inferior-lisp-program, inferior-lisp-load-command):
* progmodes/hideshow.el (hs-special-modes-alist):
* progmodes/gud.el (same-window-regexps):
* progmodes/grep.el (grep-program, find-program, xargs-program):
* net/telnet.el (same-window-regexps):
* net/rlogin.el (same-window-regexps):
* language/ethiopic.el (font-ccl-encoder-alist):
* vc-sccs.el (vc-sccs-master-templates):
* vc-rcs.el (vc-rcs-master-templates):
* subr.el (cl-assertion-failed):
* simple.el (next-error-overlay-arrow-position):
* lpr.el (lpr-command):
* locate.el (locate-ls-subdir-switches):
* info.el (same-window-regexps, info)
(Info-goto-emacs-command-node, Info-goto-emacs-key-command-node):
* image-mode.el (image-mode, auto-mode-alist):
* hippie-exp.el (hippie-expand-ignore-buffers):
* format.el (format-alist):
* find-dired.el (find-ls-subdir-switches, find-grep-options)
(find-name-arg):
* facemenu.el (facemenu-keybindings):
* dired.el (dired-listing-switches, dired-chown-program):
* diff.el (diff-switches, diff-command):
* cus-edit.el (same-window-regexps):
* bindings.el (mode-line-mule-info)
(mode-line-buffer-identification): Purecopy strings.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16592&r2=1.16593
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bindings.el?cvsroot=emacs&r1=1.231&r2=1.232
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cus-edit.el?cvsroot=emacs&r1=1.367&r2=1.368
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/diff.el?cvsroot=emacs&r1=1.72&r2=1.73
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired.el?cvsroot=emacs&r1=1.438&r2=1.439
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/facemenu.el?cvsroot=emacs&r1=1.112&r2=1.113
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/find-dired.el?cvsroot=emacs&r1=1.67&r2=1.68
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/format.el?cvsroot=emacs&r1=1.70&r2=1.71
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/hippie-exp.el?cvsroot=emacs&r1=1.41&r2=1.42
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/image-mode.el?cvsroot=emacs&r1=1.57&r2=1.58
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/info.el?cvsroot=emacs&r1=1.569&r2=1.570
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/locate.el?cvsroot=emacs&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/lpr.el?cvsroot=emacs&r1=1.82&r2=1.83
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1023&r2=1.1024
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.662&r2=1.663
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-rcs.el?cvsroot=emacs&r1=1.94&r2=1.95
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-sccs.el?cvsroot=emacs&r1=1.68&r2=1.69
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/ethiopic.el?cvsroot=emacs&r1=1.31&r2=1.32
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/rlogin.el?cvsroot=emacs&r1=1.20&r2=1.21
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/telnet.el?cvsroot=emacs&r1=1.24&r2=1.25
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.108&r2=1.109
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&r1=1.173&r2=1.174
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/hideshow.el?cvsroot=emacs&r1=1.82&r2=1.83
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/inf-lisp.el?cvsroot=emacs&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/vera-mode.el?cvsroot=emacs&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/x-win.el?cvsroot=emacs&r1=1.244&r2=1.245
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16592
retrieving revision 1.16593
diff -u -b -r1.16592 -r1.16593
--- ChangeLog 11 Nov 2009 00:11:41 -0000 1.16592
+++ ChangeLog 11 Nov 2009 05:49:09 -0000 1.16593
@@ -1,3 +1,35 @@
+2009-11-11 Dan Nicolaescu <address@hidden>
+
+ * term/x-win.el (x-gtk-stock-map):
+ * progmodes/vera-mode.el (auto-mode-alist):
+ * progmodes/inf-lisp.el (inferior-lisp-filter-regexp)
+ (inferior-lisp-program, inferior-lisp-load-command):
+ * progmodes/hideshow.el (hs-special-modes-alist):
+ * progmodes/gud.el (same-window-regexps):
+ * progmodes/grep.el (grep-program, find-program, xargs-program):
+ * net/telnet.el (same-window-regexps):
+ * net/rlogin.el (same-window-regexps):
+ * language/ethiopic.el (font-ccl-encoder-alist):
+ * vc-sccs.el (vc-sccs-master-templates):
+ * vc-rcs.el (vc-rcs-master-templates):
+ * subr.el (cl-assertion-failed):
+ * simple.el (next-error-overlay-arrow-position):
+ * lpr.el (lpr-command):
+ * locate.el (locate-ls-subdir-switches):
+ * info.el (same-window-regexps, info)
+ (Info-goto-emacs-command-node, Info-goto-emacs-key-command-node):
+ * image-mode.el (image-mode, auto-mode-alist):
+ * hippie-exp.el (hippie-expand-ignore-buffers):
+ * format.el (format-alist):
+ * find-dired.el (find-ls-subdir-switches, find-grep-options)
+ (find-name-arg):
+ * facemenu.el (facemenu-keybindings):
+ * dired.el (dired-listing-switches, dired-chown-program):
+ * diff.el (diff-switches, diff-command):
+ * cus-edit.el (same-window-regexps):
+ * bindings.el (mode-line-mule-info)
+ (mode-line-buffer-identification): Purecopy strings.
+
2009-11-11 Juri Linkov <address@hidden>
* simple.el (dired-get-filename)<declare-function>:
Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.231
retrieving revision 1.232
diff -u -b -r1.231 -r1.232
--- bindings.el 30 Oct 2009 02:00:25 -0000 1.231
+++ bindings.el 11 Nov 2009 05:49:12 -0000 1.232
@@ -161,11 +161,11 @@
(current-input-method
(:propertize ("" current-input-method-title)
help-echo (concat
- "Current input method: "
+ ,(purecopy "Current input method: ")
current-input-method
- "\n\
+ ,(purecopy "\n\
mouse-2: Disable input method\n\
-mouse-3: Describe current input method")
+mouse-3: Describe current input method"))
local-map ,mode-line-input-method-map
mouse-face mode-line-highlight))
,(propertize
@@ -459,7 +459,7 @@
'mouse-face 'mode-line-highlight
'local-map mode-line-buffer-identification-keymap)))
-(defvar mode-line-buffer-identification (propertized-buffer-identification
"%12b") "\
+(defvar mode-line-buffer-identification (purecopy
(propertized-buffer-identification "%12b")) "\
Mode-line control for identifying the buffer being displayed.
Its default value is (\"%12b\") with some text properties added.
Major modes that edit things other than ordinary files may change this
Index: cus-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.367
retrieving revision 1.368
diff -u -b -r1.367 -r1.368
--- cus-edit.el 12 Sep 2009 19:05:49 -0000 1.367
+++ cus-edit.el 11 Nov 2009 05:49:12 -0000 1.368
@@ -709,7 +709,7 @@
(const :tag "none" nil))
:group 'custom-menu)
-;;;###autoload (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"\\`\\*Customiz.*\\*\\'"))
(defun custom-sort-items (items sort-alphabetically order-groups)
"Return a sorted copy of ITEMS.
Index: diff.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/diff.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- diff.el 10 Jan 2009 22:53:08 -0000 1.72
+++ diff.el 11 Nov 2009 05:49:12 -0000 1.73
@@ -36,13 +36,13 @@
:group 'tools)
;;;###autoload
-(defcustom diff-switches "-c"
+(defcustom diff-switches (purecopy "-c")
"A string or list of strings specifying switches to be passed to diff."
:type '(choice string (repeat string))
:group 'diff)
;;;###autoload
-(defcustom diff-command "diff"
+(defcustom diff-command (purecopy "diff")
"The command to use to run diff."
:type 'string
:group 'diff)
Index: dired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/dired.el,v
retrieving revision 1.438
retrieving revision 1.439
diff -u -b -r1.438 -r1.439
--- dired.el 10 Nov 2009 08:11:51 -0000 1.438
+++ dired.el 11 Nov 2009 05:49:12 -0000 1.439
@@ -50,7 +50,7 @@
;;;###autoload
-(defcustom dired-listing-switches "-al"
+(defcustom dired-listing-switches (purecopy "-al")
"Switches passed to `ls' for Dired. MUST contain the `l' option.
May contain all other options that don't contradict `-l';
may contain even `F', `b', `i' and `s'. See also the variable
@@ -71,11 +71,12 @@
;;;###autoload
(defvar dired-chown-program
+ (purecopy
(if (memq system-type '(hpux usg-unix-v irix linux gnu/linux cygwin))
"chown"
(if (file-exists-p "/usr/sbin/chown")
"/usr/sbin/chown"
- "/etc/chown"))
+ "/etc/chown")))
"Name of chown command (usually `chown' or `/etc/chown').")
(defvar dired-use-ls-dired (not (not (string-match "gnu"
system-configuration)))
Index: facemenu.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/facemenu.el,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -b -r1.112 -r1.113
--- facemenu.el 6 Nov 2009 05:16:26 -0000 1.112
+++ facemenu.el 11 Nov 2009 05:49:12 -0000 1.113
@@ -99,11 +99,12 @@
:prefix "facemenu-")
(defcustom facemenu-keybindings
+ (mapcar 'purecopy
'((default . "d")
(bold . "b")
(italic . "i")
(bold-italic . "l") ; {bold} intersect {italic} = {l}
- (underline . "u"))
+ (underline . "u")))
"Alist of interesting faces and keybindings.
Each element is itself a list: the car is the name of the face,
the next element is the key to use as a keyboard equivalent of the menu item;
Index: find-dired.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/find-dired.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- find-dired.el 6 Nov 2009 05:16:28 -0000 1.67
+++ find-dired.el 11 Nov 2009 05:49:12 -0000 1.68
@@ -49,7 +49,7 @@
:group 'find-dired)
;;;###autoload
-(defcustom find-ls-subdir-switches "-al"
+(defcustom find-ls-subdir-switches (purecopy "-al")
"`ls' switches for inserting subdirectories in `*Find*' buffers.
This should contain the \"-l\" switch.
Use the \"-F\" or \"-b\" switches if and only if you also use
@@ -60,10 +60,10 @@
;;;###autoload
(defcustom find-grep-options
- (if (or (eq system-type 'berkeley-unix)
+ (purecopy (if (or (eq system-type 'berkeley-unix)
(string-match "solaris2" system-configuration)
(string-match "irix" system-configuration))
- "-s" "-q")
+ "-s" "-q"))
"Option to grep to be as silent as possible.
On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it.
On other systems, the closest you can come is to use `-l'."
@@ -72,9 +72,9 @@
;;;###autoload
(defcustom find-name-arg
- (if read-file-name-completion-ignore-case
+ (purecopy (if read-file-name-completion-ignore-case
"-iname"
- "-name")
+ "-name"))
"Argument used to specify file name pattern.
If `read-file-name-completion-ignore-case' is non-nil, -iname is used so that
find also ignores case. Otherwise, -name is used."
Index: format.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/format.el,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -b -r1.70 -r1.71
--- format.el 15 Oct 2009 06:18:02 -0000 1.70
+++ format.el 11 Nov 2009 05:49:13 -0000 1.71
@@ -64,35 +64,37 @@
(put 'buffer-auto-save-file-format 'permanent-local t)
(defvar format-alist
- '((text/enriched "Extended MIME text/enriched format."
- "Content-[Tt]ype:[ \t]*text/enriched"
+ ;; FIXME: maybe each item can be purecopied instead of just the strings.
+ `((text/enriched ,(purecopy "Extended MIME text/enriched format.")
+ ,(purecopy "Content-[Tt]ype:[ \t]*text/enriched")
enriched-decode enriched-encode t enriched-mode)
- (plain "ISO 8859-1 standard format, no text properties."
+ (plain ,(purecopy "ISO 8859-1 standard format, no text properties.")
;; Plain only exists so that there is an obvious neutral choice in
;; the completion list.
nil nil nil nil nil)
- (TeX "TeX (encoding)"
+ (TeX ,(purecopy "TeX (encoding)")
nil
iso-tex2iso iso-iso2tex t nil)
- (gtex "German TeX (encoding)"
+ (gtex ,(purecopy "German TeX (encoding)")
nil
iso-gtex2iso iso-iso2gtex t nil)
- (html "HTML/SGML \"ISO 8879:1986//ENTITIES Added Latin 1//EN\" (encoding)"
+ (html ,(purecopy "HTML/SGML \"ISO 8879:1986//ENTITIES Added Latin 1//EN\"
(encoding)")
nil
iso-sgml2iso iso-iso2sgml t nil)
- (rot13 "rot13"
+ (rot13 ,(purecopy "rot13")
nil
- "tr a-mn-z n-za-m" "tr a-mn-z n-za-m" t nil)
- (duden "Duden Ersatzdarstellung"
+ ,(purecopy "tr a-mn-z n-za-m") ,(purecopy "tr a-mn-z n-za-m") t nil)
+ (duden ,(purecopy "Duden Ersatzdarstellung")
nil
- "diac" iso-iso2duden t nil)
- (de646 "German ASCII (ISO 646)"
+ ,(purecopy "diac") iso-iso2duden t nil)
+ (de646 ,(purecopy "German ASCII (ISO 646)")
nil
- "recode -f iso646-ge:latin1" "recode -f latin1:iso646-ge" t nil)
- (denet "net German"
+ ,(purecopy "recode -f iso646-ge:latin1")
+ ,(purecopy "recode -f latin1:iso646-ge") t nil)
+ (denet ,(purecopy "net German")
nil
iso-german iso-cvt-read-only t nil)
- (esnet "net Spanish"
+ (esnet ,(purecopy "net Spanish")
nil
iso-spanish iso-cvt-read-only t nil))
"List of information about understood file formats.
Index: hippie-exp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/hippie-exp.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- hippie-exp.el 22 Aug 2009 21:59:44 -0000 1.41
+++ hippie-exp.el 11 Nov 2009 05:49:13 -0000 1.42
@@ -251,7 +251,7 @@
:group 'hippie-expand)
;;;###autoload
-(defcustom hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
+(defcustom hippie-expand-ignore-buffers (list (purecopy "^ \\*.*\\*$")
'dired-mode)
"A list specifying which buffers not to search (if not current).
Can contain both regexps matching buffer names (as strings) and major modes
\(as atoms)"
Index: image-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/image-mode.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- image-mode.el 2 Oct 2009 00:02:05 -0000 1.57
+++ image-mode.el 11 Nov 2009 05:49:13 -0000 1.58
@@ -35,17 +35,17 @@
(require 'image)
(eval-when-compile (require 'cl))
-;;;###autoload (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.png\\'" . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.gif\\'" . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.tiff?\\'" . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.p[bpgn]m\\'" . image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.jpe?g\\'") 'image-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.png\\'") 'image-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.gif\\'") 'image-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.tiff?\\'") 'image-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.p[bpgn]m\\'") 'image-mode)
auto-mode-alist)
-;;;###autoload (push '("\\.x[bp]m\\'" . c-mode) auto-mode-alist)
-;;;###autoload (push '("\\.x[bp]m\\'" . image-mode-maybe) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.x[bp]m\\'") 'c-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.x[bp]m\\'") 'image-mode-maybe)
auto-mode-alist)
-;;;###autoload (push '("\\.svgz?\\'" . xml-mode) auto-mode-alist)
-;;;###autoload (push '("\\.svgz?\\'" . image-mode-maybe) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.svgz?\\'") 'xml-mode)
auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.svgz?\\'") 'image-mode-maybe)
auto-mode-alist)
;;; Image mode window-info management.
Index: info.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/info.el,v
retrieving revision 1.569
retrieving revision 1.570
diff -u -b -r1.569 -r1.570
--- info.el 19 Oct 2009 13:47:12 -0000 1.569
+++ info.el 11 Nov 2009 05:49:13 -0000 1.570
@@ -607,9 +607,9 @@
(let (same-window-buffer-names same-window-regexps)
(info file-or-node)))
-;;;###autoload (add-hook 'same-window-regexps "\\*info\\*\\(\\|<[0-9]+>\\)")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"\\*info\\*\\(\\|<[0-9]+>\\)"))
-;;;###autoload (put 'info 'info-file "emacs")
+;;;###autoload (put 'info 'info-file (purecopy "emacs"))
;;;###autoload
(defun info (&optional file-or-node buffer)
"Enter Info, the documentation browser.
@@ -4038,7 +4038,7 @@
(cdr where))
where)))
-;;;###autoload (put 'Info-goto-emacs-command-node 'info-file "emacs")
+;;;###autoload (put 'Info-goto-emacs-command-node 'info-file (purecopy
"emacs"))
;;;###autoload
(defun Info-goto-emacs-command-node (command)
"Go to the Info node in the Emacs manual for command COMMAND.
@@ -4080,7 +4080,7 @@
(if (> num-matches 2) "them" "it")))))
(error "Couldn't find documentation for %s" command))))
-;;;###autoload (put 'Info-goto-emacs-key-command-node 'info-file "emacs")
+;;;###autoload (put 'Info-goto-emacs-key-command-node 'info-file (purecopy
"emacs"))
;;;###autoload
(defun Info-goto-emacs-key-command-node (key)
"Go to the node in the Emacs manual which describes the command bound to KEY.
Index: locate.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/locate.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- locate.el 11 Sep 2009 03:40:35 -0000 1.53
+++ locate.el 11 Nov 2009 05:49:13 -0000 1.54
@@ -184,7 +184,7 @@
:group 'locate)
;;;###autoload
-(defcustom locate-ls-subdir-switches "-al"
+(defcustom locate-ls-subdir-switches (purecopy "-al")
"`ls' switches for inserting subdirectories in `*Locate*' buffers.
This should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches."
:type 'string
Index: lpr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/lpr.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- lpr.el 22 Aug 2009 21:59:44 -0000 1.82
+++ lpr.el 11 Nov 2009 05:49:13 -0000 1.83
@@ -97,13 +97,14 @@
;;;###autoload
(defcustom lpr-command
+ (purecopy
(cond
(lpr-windows-system
"")
(lpr-lp-system
"lp")
(t
- "lpr"))
+ "lpr")))
"Name of program for printing a file.
On MS-DOS and MS-Windows systems, if the value is an empty string then
Index: simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1023
retrieving revision 1.1024
diff -u -b -r1.1023 -r1.1024
--- simple.el 11 Nov 2009 00:11:44 -0000 1.1023
+++ simple.el 11 Nov 2009 05:49:13 -0000 1.1024
@@ -165,7 +165,7 @@
(defvar next-error-highlight-timer nil)
(defvar next-error-overlay-arrow-position nil)
-(put 'next-error-overlay-arrow-position 'overlay-arrow-string "=>")
+(put 'next-error-overlay-arrow-position 'overlay-arrow-string (purecopy "=>"))
(add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow-position)
(defvar next-error-last-buffer nil
Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.662
retrieving revision 1.663
diff -u -b -r1.662 -r1.663
--- subr.el 26 Oct 2009 03:39:19 -0000 1.662
+++ subr.el 11 Nov 2009 05:49:13 -0000 1.663
@@ -2296,7 +2296,7 @@
;; The `assert' macro from the cl package signals
;; `cl-assertion-failed' at runtime so always define it.
(put 'cl-assertion-failed 'error-conditions '(error))
-(put 'cl-assertion-failed 'error-message "Assertion failed")
+(put 'cl-assertion-failed 'error-message (purecopy "Assertion failed"))
(defconst user-emacs-directory
(if (eq system-type 'ms-dos)
Index: vc-rcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- vc-rcs.el 14 Oct 2009 06:00:55 -0000 1.94
+++ vc-rcs.el 11 Nov 2009 05:49:13 -0000 1.95
@@ -91,7 +91,7 @@
;;;###autoload
(defcustom vc-rcs-master-templates
- '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")
+ (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s"))
"Where to look for RCS master files.
For a description of possible values, see `vc-check-master-templates'."
:type '(choice (const :tag "Use standard RCS file names"
Index: vc-sccs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- vc-sccs.el 14 Oct 2009 06:00:55 -0000 1.68
+++ vc-sccs.el 11 Nov 2009 05:49:13 -0000 1.69
@@ -77,7 +77,7 @@
;;;###autoload
(defcustom vc-sccs-master-templates
- '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)
+ (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir))
"Where to look for SCCS master files.
For a description of possible values, see `vc-check-master-templates'."
:type '(choice (const :tag "Use standard SCCS file names"
Index: language/ethiopic.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/ethiopic.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- language/ethiopic.el 5 Jan 2009 03:22:26 -0000 1.31
+++ language/ethiopic.el 11 Nov 2009 05:49:14 -0000 1.32
@@ -50,7 +50,7 @@
"CCL program to encode an Ethiopic code to code point of Ethiopic font.")
(setq font-ccl-encoder-alist
- (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
+ (cons (cons (purecopy "ethiopic") ccl-encode-ethio-font)
font-ccl-encoder-alist))
(set-language-info-alist
"Ethiopic" '((setup-function . setup-ethiopic-environment-internal)
Index: net/rlogin.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/rlogin.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- net/rlogin.el 5 Jan 2009 03:22:47 -0000 1.20
+++ net/rlogin.el 11 Nov 2009 05:49:14 -0000 1.21
@@ -130,7 +130,7 @@
(define-key rlogin-mode-map "\C-i" 'rlogin-tab-or-complete)))
-;;;###autoload (add-hook 'same-window-regexps
"^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)"))
(defvar rlogin-history nil)
Index: net/telnet.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/telnet.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- net/telnet.el 5 Jan 2009 03:22:48 -0000 1.24
+++ net/telnet.el 11 Nov 2009 05:49:14 -0000 1.25
@@ -192,7 +192,7 @@
(delete-region comint-last-input-start
comint-last-input-end)))
-;;;###autoload (add-hook 'same-window-regexps
"\\*telnet-.*\\*\\(\\|<[0-9]+>\\)")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"\\*telnet-.*\\*\\(\\|<[0-9]+>\\)"))
;;;###autoload
(defun telnet (host &optional port)
@@ -248,7 +248,7 @@
(set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern)
(set (make-local-variable 'comint-use-prompt-regexp) t))
-;;;###autoload (add-hook 'same-window-regexps
"\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)"))
;;;###autoload
(defun rsh (host)
Index: progmodes/grep.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -b -r1.108 -r1.109
--- progmodes/grep.el 24 Sep 2009 01:37:20 -0000 1.108
+++ progmodes/grep.el 11 Nov 2009 05:49:14 -0000 1.109
@@ -404,17 +404,17 @@
This gets tacked on the end of the generated expressions.")
;;;###autoload
-(defvar grep-program "grep"
+(defvar grep-program (purecopy "grep")
"The default grep program for `grep-command' and `grep-find-command'.
This variable's value takes effect when `grep-compute-defaults' is called.")
;;;###autoload
-(defvar find-program "find"
+(defvar find-program (purecopy "find")
"The default find program for `grep-find-command'.
This variable's value takes effect when `grep-compute-defaults' is called.")
;;;###autoload
-(defvar xargs-program "xargs"
+(defvar xargs-program (purecopy "xargs")
"The default xargs program for `grep-find-command'.
See `grep-find-use-xargs'.
This variable's value takes effect when `grep-compute-defaults' is called.")
Index: progmodes/gud.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.173
retrieving revision 1.174
diff -u -b -r1.173 -r1.174
--- progmodes/gud.el 31 Oct 2009 02:38:40 -0000 1.173
+++ progmodes/gud.el 11 Nov 2009 05:49:14 -0000 1.174
@@ -2446,7 +2446,7 @@
;; Cause our buffers to be displayed, by default,
;; in the selected window.
-;;;###autoload (add-hook 'same-window-regexps "\\*gud-.*\\*\\(\\|<[0-9]+>\\)")
+;;;###autoload (add-hook 'same-window-regexps (purecopy
"\\*gud-.*\\*\\(\\|<[0-9]+>\\)"))
(defcustom gud-chdir-before-run t
"Non-nil if GUD should `cd' to the debugged executable."
@@ -3220,7 +3220,7 @@
;; .PROCESSORNAME-gdbinit so that the host and target gdbinit files
;; don't interfere with each other.
;;;###autoload
-(add-to-list 'auto-mode-alist '("/\\.[a-z0-9-]*gdbinit" . gdb-script-mode))
+(add-to-list 'auto-mode-alist (cons (purecopy "/\\.[a-z0-9-]*gdbinit")
'gdb-script-mode))
;;;###autoload
(define-derived-mode gdb-script-mode nil "GDB-Script"
Index: progmodes/hideshow.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/hideshow.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- progmodes/hideshow.el 29 Sep 2009 02:26:24 -0000 1.82
+++ progmodes/hideshow.el 11 Nov 2009 05:49:14 -0000 1.83
@@ -267,11 +267,12 @@
;;;###autoload
(defvar hs-special-modes-alist
+ (mapcar 'purecopy
'((c-mode "{" "}" "/[*/]" nil nil)
(c++-mode "{" "}" "/[*/]" nil nil)
(bibtex-mode ("@\\S(*\\(\\s(\\)" 1))
(java-mode "{" "}" "/[*/]" nil nil)
- (js-mode "{" "}" "/[*/]" nil))
+ (js-mode "{" "}" "/[*/]" nil)))
"*Alist for initializing the hideshow variables for different modes.
Each element has the form
(MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC).
Index: progmodes/inf-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/inf-lisp.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- progmodes/inf-lisp.el 30 Oct 2009 02:00:34 -0000 1.53
+++ progmodes/inf-lisp.el 11 Nov 2009 05:49:14 -0000 1.54
@@ -72,7 +72,7 @@
;;;###autoload
(defcustom inferior-lisp-filter-regexp
- "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'"
+ (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'")
"*What not to save on inferior Lisp's input history.
Input matching this regexp is not saved on the input history in Inferior Lisp
mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
@@ -141,13 +141,13 @@
'lisp-show-variable-documentation))
;;;###autoload
-(defcustom inferior-lisp-program "lisp"
+(defcustom inferior-lisp-program (purecopy "lisp")
"*Program name for invoking an inferior Lisp in Inferior Lisp mode."
:type 'string
:group 'inferior-lisp)
;;;###autoload
-(defcustom inferior-lisp-load-command "(load \"%s\")\n"
+(defcustom inferior-lisp-load-command (purecopy "(load \"%s\")\n")
"*Format-string for building a Lisp expression to load a file.
This format string should use `%s' to substitute a file name
and should result in a Lisp expression that will command the inferior Lisp
Index: progmodes/vera-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/vera-mode.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- progmodes/vera-mode.el 22 Jul 2009 03:07:23 -0000 1.15
+++ progmodes/vera-mode.el 11 Nov 2009 05:49:14 -0000 1.16
@@ -250,7 +250,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mode definition
-;;;###autoload (add-to-list 'auto-mode-alist '("\\.vr[hi]?\\'" . vera-mode))
+;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'")
'vera-mode))
;;;###autoload
(defun vera-mode ()
Index: term/x-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.244
retrieving revision 1.245
diff -u -b -r1.244 -r1.245
--- term/x-win.el 14 Sep 2009 01:22:46 -0000 1.244
+++ term/x-win.el 11 Nov 2009 05:49:14 -0000 1.245
@@ -1578,6 +1578,8 @@
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
(defcustom x-gtk-stock-map
+ (mapcar (lambda (arg)
+ (cons (purecopy (car arg)) (purecopy (cdr arg))))
'(
("etc/images/new" . "gtk-new")
("etc/images/open" . "gtk-open")
@@ -1637,7 +1639,7 @@
;; No themed versions available:
;; mail/preview (combining stock_mail and stock_zoom)
;; mail/save (combining stock_mail, stock_save and stock_convert)
- )
+ ))
"How icons for tool bars are mapped to Gtk+ stock items.
Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
A value that begins with n: denotes a named icon instead of a stock icon."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog bindings.el cus-edit.el di...,
Dan Nicolaescu <=