# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175795825 0
# Node ID d1d2c4bdd4133eb42336789ec9f966e9a2267467
# Parent  db1ee7694773742786865bc1219bfa7017c33ec4
(byte-optimize-form-code-walker): Print entire form.

diff -r db1ee7694773 -r d1d2c4bdd413 lisp/emacs-lisp/byte-opt.el
--- 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.