From: Glenn Morris <rgm@gnu.org>
Date: Thu, 23 Sep 2010 07:55:01 +0000 (-0700)
Subject: Trivial bytecomp.el change.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~47^2~42^2~79
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a16788be4efbd68b44db1507d963377c96b07ee;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f34e5035a42..36775118554 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-09-23  Glenn Morris  <rgm@gnu.org>
 
+	* emacs-lisp/bytecomp.el (byte-compile-file-form-defvar):
+	(byte-compile-defvar, byte-compile-cl-warn):
+ 	Start warnings with lower-case, like the majority.
+
 	* files.el (auto-mode-alist): Add .xa, .xw, .xsw for ld-script-mode.
 
 	* files.el (auto-mode-alist): Prefer C-mode for .xs.  (Bug#7071)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index aca3a54d14f..e6ca7f66546 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1343,7 +1343,7 @@ extra args."
 	     (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 @@ list that represents a doc string reference.
     (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 @@ that suppresses all warnings during execution of BODY."
   (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))