mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Downcase error messages.

Browse source
This commit is contained in:
Gerd Moellmann 2001-10-11 12:57:53 +00:00
parent b8175fe659
commit 244bbdc57a
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/byte-opt.el
View file

@ -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)))