[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v |
Date: |
Thu, 05 Apr 2007 17:57:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 07/04/05 17:57:05
Index: byte-opt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/byte-opt.el,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -b -r1.88 -r1.89
--- byte-opt.el 21 Jan 2007 02:44:24 -0000 1.88
+++ byte-opt.el 5 Apr 2007 17:57:05 -0000 1.89
@@ -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.
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v,
Chong Yidong <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/06
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/09
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Glenn Morris, 2007/04/09
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Glenn Morris, 2007/04/11
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/11