From 851476d4ab677cf88859ea959a49e626a2e86192 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Thu, 11 Apr 2002 18:37:25 +0000 Subject: [PATCH] Fix previous change. --- lisp/ibuffer.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2