From: Colin Walters <walters@gnu.org>
Date: Sat, 23 Feb 2002 21:33:33 +0000 (+0000)
Subject: (ibuffer-compile-format): Don't uselessly bind `pt' in generated
X-Git-Tag: ttn-vms-21-2-B4~16512
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d99b259bdbf9c1f63ae932b2e213eaa0f160f773;p=emacs.git

(ibuffer-compile-format): Don't uselessly bind `pt' in generated
function.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 32334f5a942..2287f6894bb 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1368,8 +1368,7 @@ become unmarked."
 		       #'byte-compile
 		     #'identity)
 		   (nconc (list 'lambda '(buffer mark))
-			  `((let ,(append '(pt)
-					  (when str-used
+			  `((let ,(append (when str-used
 					    '(str))
 					  (when global-strlen-used
 					    '(strlen))