Mercurial > emacs

changeset 39770:d1898800dd59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Downcase error messages.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 11 Oct 2001 12:57:53 +0000
parents 3bea53c3ecea
children a43d7c40a1b2
files lisp/emacs-lisp/byte-opt.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Thu Oct 11 12:57:18 2001 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Oct 11 12:57:53 2001 +0000
@@ -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)))