Mercurial > emacs
changeset 76957:d1d2c4bdd413
(byte-optimize-form-code-walker): Print entire form.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 05 Apr 2007 17:57:05 +0000 |
| parents | db1ee7694773 |
| children | b91b3ffd95b9 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Thu Apr 05 17:56:23 2007 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Thu Apr 05 17:57:05 2007 +0000 @@ -534,6 +534,7 @@ (eq tmp 'error-free) ;; Detect the expansion of (pop foo). ;; There is no need to compile the call to `car' there. + (progn (setq foo (list form fn)) nil) (and (eq fn 'car) (eq (car-safe (cadr form)) 'prog1) (let ((var (cadr (cadr form))) @@ -545,8 +546,8 @@ (eq (car-safe (nth 2 last)) 'cdr) (eq (cadr (nth 2 last)) var)))) (progn - (byte-compile-warn "value returned by `%s' is not used" - (prin1-to-string (car form))) + (byte-compile-warn "value returned from %s is unused" + (prin1-to-string form)) nil))) (byte-compile-log " %s called for effect; deleted" fn) ;; appending a nil here might not be necessary, but it can't hurt.