* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b9b8880db64e25d753deafc6802f3a4c02998f2..46e04699970dd1c4f34ed70121ebc6e1edd8ee85 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * 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.

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index bbb107979341dab725e4fe2fafc98268c2cb456d..34f9473b982bc9384fdbd976a68050e0378e236f 100644 (file)
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -496,7 +496,7 @@ If the user does not answer after SECONDS seconds, return DEFAULT-VALUE."
   (with-timeout (seconds default-value)
     (y-or-n-p prompt)))
 \f
-(defvar timer-duration-words
+(defconst timer-duration-words
   (list (cons "microsec" 0.000001)
        (cons "microsecond" 0.000001)
         (cons "millisec" 0.001)

diff --git a/lisp/faces.el b/lisp/faces.el
index ebdca457177832aabf2002e21491948e70271894..e117eb16751200abc9938c70482e957cf86231fe 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1047,7 +1047,7 @@ an integer value."
       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 @@ Value is a list (FACE NEW-VALUE) where FACE is the face read
 ;;; 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'.")
 

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index e11aff4eb6ead6b15af8d59156335de6a7856532..a9b94e8ded2f82939bcdd29ea788cacb53101715 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2815,7 +2815,7 @@ If there's no description string for VALUE, return nil."
 ;; 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")

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 823b56e7125942e1db7799b509af300dd05b9a92..244acbc4c3652e06927d2b4f65dffa95fdcad8fb 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -358,7 +358,7 @@ the second failed attempt to complete."
   :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.")

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 9387a087e4760f4dfc1a42514994b4329d457c64..7d01777d44152cccf417f8db5b1d59454a2d05df 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -329,7 +329,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
 `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

diff --git a/lisp/subr.el b/lisp/subr.el
index fb832608cd47cb2699f3b099700f85151867aede..2bc4c6b2bd2eb2fa330e7505bc31a93f4a611e2a 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3546,13 +3546,13 @@ convenience wrapper around `make-progress-reporter' and friends.
 \f
 ;;;; 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