[Emacs-diffs] emacs/lisp ChangeLog faces.el minibuffer.el sub...

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 06:36:45

Modified files:
        lisp           : ChangeLog faces.el minibuffer.el subr.el 
        lisp/emacs-lisp: timer.el 
        lisp/international: mule-cmds.el 
        lisp/progmodes : grep.el 

Log message:
        * progmodes/grep.el (grep-regexp-alist):
        * international/mule-cmds.el (iso-2022-control-alist):
        * emacs-lisp/timer.el (timer-duration-words):
        * subr.el (version-separator, version-regexp-alist):
        * minibuffer.el (completion-styles-alist):
        * faces.el (face-attribute-name-alist, list-faces-sample-text):
        Change defvars to defconsts.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16602&r2=1.16603
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/faces.el?cvsroot=emacs&r1=1.450&r2=1.451
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/minibuffer.el?cvsroot=emacs&r1=1.94&r2=1.95
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.665&r2=1.666
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/timer.el?cvsroot=emacs&r1=1.28&r2=1.29
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.381&r2=1.382
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.109&r2=1.110

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16602
retrieving revision 1.16603
diff -u -b -r1.16602 -r1.16603
--- ChangeLog   11 Nov 2009 06:30:38 -0000      1.16602
+++ ChangeLog   11 Nov 2009 06:36:41 -0000      1.16603
@@ -1,5 +1,13 @@
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
+       * progmodes/grep.el (grep-regexp-alist):
+       * international/mule-cmds.el (iso-2022-control-alist):
+       * emacs-lisp/timer.el (timer-duration-words):
+       * subr.el (version-separator, version-regexp-alist):
+       * minibuffer.el (completion-styles-alist):
+       * faces.el (face-attribute-name-alist, list-faces-sample-text):
+       Change defvars to defconsts.
+
        * Makefile.in (ELCFILES): Add international/mule-conf.elc.
        * loadup.el ("international/mule-conf"): Load the byte compiled version.
        * international/mule-conf.el: Allow to be byte compiled.

Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.450
retrieving revision 1.451
diff -u -b -r1.450 -r1.451
--- faces.el    6 Nov 2009 05:16:27 -0000       1.450
+++ faces.el    11 Nov 2009 06:36:44 -0000      1.451
@@ -1047,7 +1047,7 @@
       valid)))
 
 
-(defvar face-attribute-name-alist
+(defconst face-attribute-name-alist
   '((:family . "font family")
     (:foundry . "font foundry")
     (:width . "character set width")
@@ -1235,7 +1235,7 @@
 ;;; Listing faces.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar list-faces-sample-text
+(defconst list-faces-sample-text
   "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   "*Text string to display as the sample text for `list-faces-display'.")
 

Index: minibuffer.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/minibuffer.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- minibuffer.el       10 Nov 2009 00:54:48 -0000      1.94
+++ minibuffer.el       11 Nov 2009 06:36:44 -0000      1.95
@@ -358,7 +358,7 @@
   :type '(choice (const nil) (const t) (const lazy))
   :group 'minibuffer)
 
-(defvar completion-styles-alist
+(defconst completion-styles-alist
   '((emacs21
      completion-emacs21-try-completion completion-emacs21-all-completions
      "Simple prefix-based completion.")

Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.665
retrieving revision 1.666
diff -u -b -r1.665 -r1.666
--- subr.el     11 Nov 2009 06:16:19 -0000      1.665
+++ subr.el     11 Nov 2009 06:36:44 -0000      1.666
@@ -3546,13 +3546,13 @@
 
 ;;;; Comparing version strings.
 
-(defvar version-separator "."
+(defconst version-separator "."
   "*Specify the string used to separate the version elements.
 
 Usually the separator is \".\", but it can be any other string.")
 
 
-(defvar version-regexp-alist
+(defconst version-regexp-alist
   '(("^[-_+ ]?a\\(lpha\\)?$"   . -3)
     ("^[-_+]$"                 . -3) ; treat "1.2.3-20050920" and "1.2-3" as 
alpha releases
     ("^[-_+ ]cvs$"             . -3)   ; treat "1.2.3-CVS" as alpha release

Index: emacs-lisp/timer.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/timer.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- emacs-lisp/timer.el 2 Sep 2009 03:17:18 -0000       1.28
+++ emacs-lisp/timer.el 11 Nov 2009 06:36:44 -0000      1.29
@@ -496,7 +496,7 @@
   (with-timeout (seconds default-value)
     (y-or-n-p prompt)))
 
-(defvar timer-duration-words
+(defconst timer-duration-words
   (list (cons "microsec" 0.000001)
        (cons "microsecond" 0.000001)
         (cons "millisec" 0.001)

Index: international/mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.381
retrieving revision 1.382
diff -u -b -r1.381 -r1.382
--- international/mule-cmds.el  11 Nov 2009 06:22:33 -0000      1.381
+++ international/mule-cmds.el  11 Nov 2009 06:36:44 -0000      1.382
@@ -2815,7 +2815,7 @@
 ;; Pretty description of encoded string
 
 ;; Alist of ISO 2022 control code vs the corresponding mnemonic string.
-(defvar iso-2022-control-alist
+(defconst iso-2022-control-alist
   '((?\x1b . "ESC")
     (?\x0e . "SO")
     (?\x0f . "SI")

Index: progmodes/grep.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- progmodes/grep.el   11 Nov 2009 05:49:14 -0000      1.109
+++ progmodes/grep.el   11 Nov 2009 06:36:45 -0000      1.110
@@ -329,7 +329,7 @@
 `complation-last-buffer' rather than `grep-last-buffer'.")
 
 ;;;###autoload
-(defvar grep-regexp-alist
+(defconst grep-regexp-alist
   '(("^\\(.+?\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2"
      1 3)
     ;; Rule to match column numbers is commented out since no known grep