Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* progmodes/grep.el (grep-regexp-alist):

Browse source 
* 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.
This commit is contained in:
Dan Nicolaescu 2009-11-11 06:36:41 +00:00
parent a042de45b1
commit 2f7f4beee9
7 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

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

2
lisp/emacs-lisp/timer.el
View file

@ -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)))
(defvar timer-duration-words
(defconst timer-duration-words
(list (cons "microsec" 0.000001)
(cons "microsecond" 0.000001)
(cons "millisec" 0.001)

4
lisp/faces.el
View file

@ -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'.")

2
lisp/international/mule-cmds.el
View file

@ -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")

2
lisp/minibuffer.el
View file

@ -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.")

2
lisp/progmodes/grep.el
View file

@ -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

4
lisp/subr.el
View file

@ -3546,13 +3546,13 @@ convenience wrapper around `make-progress-reporter' and friends.
;;;; 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