/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by walters, Wed Apr 10 19:11:45 2002 UTC revision 1.17 by walters, Thu Apr 11 18:37:25 2002 UTC
# Line 1679  If optional argument INCLUDE-LINES is no Line 1679  If optional argument INCLUDE-LINES is no
1679               (push (cons buf mark) ibuffer-current-state-list-tmp)))))               (push (cons buf mark) ibuffer-current-state-list-tmp)))))
1680      (nreverse ibuffer-current-state-list-tmp)))      (nreverse ibuffer-current-state-list-tmp)))
1681    
1682  (defun ibuffer-current-buffers-with-marks (bufs)  (defun ibuffer-current-buffers-with-marks (curbufs)
1683    "Return a list like (BUF . MARK) of all open buffers."    "Return a list like (BUF . MARK) of all open buffers."
1684    (let ((bufs (ibuffer-current-state-list)))    (let ((bufs (ibuffer-current-state-list)))
1685      (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))      (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
1686                                (if e                                (if e
1687                                    e                                    e
1688                                  (cons buf ? ))))                                  (cons buf ? ))))
1689              bufs)))              curbufs)))
1690    
1691  (defun ibuffer-buf-matches-predicates (buf predicates)  (defun ibuffer-buf-matches-predicates (buf predicates)
1692    (let ((hit nil)    (let ((hit nil)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26