From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 5 Apr 2007 17:57:05 +0000 (+0000)
Subject: (byte-optimize-form-code-walker): Print entire form.
X-Git-Tag: emacs-pretest-22.0.98~296
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fbb84daed4d143ecb8c4280d1398e8d358efb9b;p=emacs.git

(byte-optimize-form-code-walker): Print entire form.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index dd7e042499c..61f7268adff 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -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.