Mercurial > emacs
changeset 105950:e411fa8e0abf
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Nov 2009 06:36:41 +0000 |
| parents | 981ea078cf76 |
| children | 85397efaf3b5 |
| files | lisp/ChangeLog lisp/emacs-lisp/timer.el lisp/faces.el lisp/international/mule-cmds.el lisp/minibuffer.el lisp/progmodes/grep.el lisp/subr.el |
| diffstat | 7 files changed, 16 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/ChangeLog Wed Nov 11 06:36:41 2009 +0000 @@ -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.
--- a/lisp/emacs-lisp/timer.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/emacs-lisp/timer.el Wed Nov 11 06:36:41 2009 +0000 @@ -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)
--- a/lisp/faces.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/faces.el Wed Nov 11 06:36:41 2009 +0000 @@ -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'.")
--- a/lisp/international/mule-cmds.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/international/mule-cmds.el Wed Nov 11 06:36:41 2009 +0000 @@ -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")
--- a/lisp/minibuffer.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/minibuffer.el Wed Nov 11 06:36:41 2009 +0000 @@ -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.")
--- a/lisp/progmodes/grep.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/progmodes/grep.el Wed Nov 11 06:36:41 2009 +0000 @@ -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
--- a/lisp/subr.el Wed Nov 11 06:30:38 2009 +0000 +++ b/lisp/subr.el Wed Nov 11 06:36:41 2009 +0000 @@ -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