Downcase error messages.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index cbfc9a6bb098fa336b5c2aee5ec21c1adb58708c..47b803af81ce1fa21850c14e7ceb88aed56c5927 100644 (file)
--- 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)))