diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 22 |
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))) |