From: Colin Walters <walters@gnu.org>
Date: Thu, 11 Apr 2002 18:37:25 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: ttn-vms-21-2-B4~15690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=851476d4ab677cf88859ea959a49e626a2e86192;p=emacs.git

Fix previous change.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 79aa6d47986..b936bb15afe 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1679,14 +1679,14 @@ If optional argument INCLUDE-LINES is non-nil, return a list like
 	     (push (cons buf mark) ibuffer-current-state-list-tmp)))))
     (nreverse ibuffer-current-state-list-tmp)))
 
-(defun ibuffer-current-buffers-with-marks (bufs)
+(defun ibuffer-current-buffers-with-marks (curbufs)
   "Return a list like (BUF . MARK) of all open buffers."
   (let ((bufs (ibuffer-current-state-list)))
     (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
 			      (if e
 				  e
 				(cons buf ? ))))
-	    bufs)))
+	    curbufs)))
 
 (defun ibuffer-buf-matches-predicates (buf predicates)
   (let ((hit nil)