Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 110501:906ce0f04ef3
Trivial bytecomp.el change.
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar):
(byte-compile-defvar, byte-compile-cl-warn):
Start warnings with lower-case, like the majority.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 23 Sep 2010 00:55:01 -0700 |
parents | 2103fda73355 |
children | 0554c384e09f |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Sep 23 00:40:11 2010 -0700 +++ b/lisp/emacs-lisp/bytecomp.el Thu Sep 23 00:55:01 2010 -0700 @@ -1343,7 +1343,7 @@ (not (and (eq (get func 'byte-compile) 'cl-byte-compile-compiler-macro) (string-match "\\`c[ad]+r\\'" (symbol-name func))))) - (byte-compile-warn "Function `%s' from cl package called at runtime" + (byte-compile-warn "function `%s' from cl package called at runtime" func))) form) @@ -2156,7 +2156,7 @@ (when (and (symbolp (nth 1 form)) (not (string-match "[-*/:$]" (symbol-name (nth 1 form)))) (byte-compile-warning-enabled-p 'lexical)) - (byte-compile-warn "Global/dynamic var `%s' lacks a prefix" + (byte-compile-warn "global/dynamic var `%s' lacks a prefix" (nth 1 form))) (push (nth 1 form) byte-compile-bound-variables) (if (eq (car form) 'defconst) @@ -3812,7 +3812,7 @@ (when (and (symbolp (nth 1 form)) (not (string-match "[-*/:$]" (symbol-name (nth 1 form)))) (byte-compile-warning-enabled-p 'lexical)) - (byte-compile-warn "Global/dynamic var `%s' lacks a prefix" + (byte-compile-warn "global/dynamic var `%s' lacks a prefix" (nth 1 form))) (let ((fun (nth 0 form)) (var (nth 1 form))