]> code.delx.au - gnu-emacs/commitdiff
Fix previous change.
authorColin Walters <walters@gnu.org>
Thu, 11 Apr 2002 18:37:25 +0000 (18:37 +0000)
committerColin Walters <walters@gnu.org>
Thu, 11 Apr 2002 18:37:25 +0000 (18:37 +0000)
lisp/ibuffer.el

index 79aa6d4798623453d730dd5ee32f09a21bd839ab..b936bb15afe5c9fc114d54f276de4268ce118d84 100644 (file)
@@ -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)