emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]