Downcase error messages.

1 files changed, 11 insertions, 11 deletions

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index cbfc9a6bb09..47b803af81c 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -260,7 +260,7 @@
                  (and (fboundp name) (symbol-function name)))))
     (if (null fn)
         (progn
-          (byte-compile-warn "Attempt to inline `%s' before it was defined"
+          (byte-compile-warn "attempt to inline `%s' before it was defined"
                              name)
           form)
       ;; else
@@ -327,7 +327,7 @@
                                     bindings)
                      values nil))
               ((and (not optionalp) (null values))
-               (byte-compile-warn "Attempt to open-code `%s' with too few arguments" name)
+               (byte-compile-warn "attempt to open-code `%s' with too few arguments" name)
                (setq arglist nil values 'too-few))
               (t
                (setq bindings (cons (list (car arglist) (car values))
@@ -338,7 +338,7 @@
           (progn
             (or (eq values 'too-few)
                 (byte-compile-warn
-                 "Attempt to open-code `%s' with too many arguments" name))
+                 "attempt to open-code `%s' with too many arguments" name))
             form)
         
         ;; The following leads to infinite recursion when loading a
@@ -374,7 +374,7 @@
              form))
           ((eq fn 'quote)
            (if (cdr (cdr form))
-               (byte-compile-warn "Malformed quote form: `%s'"
+               (byte-compile-warn "malformed quote form: `%s'"
                                   (prin1-to-string form)))
            ;; map (quote nil) to nil to simplify optimizer logic.
            ;; map quoted constants to nil if for-effect (just because).
@@ -394,7 +394,7 @@
                          (if (symbolp binding)
                              binding
                            (if (cdr (cdr binding))
-                               (byte-compile-warn "Malformed let binding: `%s'"
+                               (byte-compile-warn "malformed let binding: `%s'"
                                                   (prin1-to-string binding)))
                            (list (car binding)
                                  (byte-optimize-form (nth 1 binding) nil))))
@@ -407,7 +407,7 @@
                                 (cons
                                  (byte-optimize-form (car clause) nil)
                                  (byte-optimize-body (cdr clause) for-effect))
-                              (byte-compile-warn "Malformed cond form: `%s'"
+                              (byte-compile-warn "malformed cond form: `%s'"
                                                  (prin1-to-string clause))
                               clause))
                          (cdr form))))
@@ -446,7 +446,7 @@
           
           ((eq fn 'if)
            (when (< (length form) 3)
-             (byte-compile-warn "Too few arguments for `if'"))
+             (byte-compile-warn "too few arguments for `if'"))
            (cons fn
              (cons (byte-optimize-form (nth 1 form) nil)
                (cons
@@ -473,7 +473,7 @@
              (cons fn (mapcar 'byte-optimize-form (cdr form)))))
 
           ((eq fn 'interactive)
-           (byte-compile-warn "Misplaced interactive spec: `%s'"
+           (byte-compile-warn "misplaced interactive spec: `%s'"
                               (prin1-to-string form))
            nil)
           
@@ -849,7 +849,7 @@
 (defun byte-optimize-identity (form)
   (if (and (cdr form) (null (cdr (cdr form))))
       (nth 1 form)
-    (byte-compile-warn "Identity called with %d arg%s, but requires 1"
+    (byte-compile-warn "identity called with %d arg%s, but requires 1"
                        (length (cdr form))
                        (if (= 1 (length (cdr form))) "" "s"))
     form))
@@ -1017,7 +1017,7 @@
 
 (defun byte-optimize-while (form)
   (when (< (length form) 2)
-    (byte-compile-warn "Too few arguments for `while'"))
+    (byte-compile-warn "too few arguments for `while'"))
   (if (nth 1 form)
       form))
 
@@ -1053,7 +1053,7 @@
                   (nconc (list 'funcall fn) butlast
                          (mapcar (lambda (x) (list 'quote x)) (nth 1 last))))
               (byte-compile-warn
-               "Last arg to apply can't be a literal atom: `%s'"
+               "last arg to apply can't be a literal atom: `%s'"
                (prin1-to-string last))
               nil))
         form)))