/[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.15 by walters, Fri Mar 29 22:54:40 2002 UTC revision 1.16 by walters, Wed Apr 10 19:11:45 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  (defsubst ibuffer-canonicalize-state-list (bmarklist)  (defun ibuffer-current-buffers-with-marks (bufs)
   "Order BMARKLIST in the same way as the current buffer list."  
   (delq nil  
         (mapcar #'(lambda (buf) (assq buf bmarklist)) (buffer-list))))  
   
 (defun ibuffer-current-buffers-with-marks ()  
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              (buffer-list))))              bufs)))
1690    
1691  (defun ibuffer-buf-matches-predicates (buf predicates)  (defun ibuffer-buf-matches-predicates (buf predicates)
1692    (let ((hit nil)    (let ((hit nil)
# Line 1905  Do not display messages if SILENT is non Line 1900  Do not display messages if SILENT is non
1900                                     (buffer-name (cadr bufs))))                                     (buffer-name (cadr bufs))))
1901                      (caddr bufs)                      (caddr bufs)
1902                    (cadr bufs))                    (cadr bufs))
1903                  (ibuffer-current-buffers-with-marks)                  (ibuffer-current-buffers-with-marks bufs)
1904                  arg)))                  arg)))
1905      (when (null blist)      (when (null blist)
1906        (if (and (featurep 'ibuf-ext)        (if (and (featurep 'ibuf-ext)
# Line 2048  special value `onewindow' means always u Line 2043  special value `onewindow' means always u
2043                  (message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help")))                  (message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help")))
2044            (select-window owin))))))            (select-window owin))))))
2045    
2046    (put 'ibuffer-mode 'mode-class 'special)
2047  (defun ibuffer-mode ()  (defun ibuffer-mode ()
2048    "A major mode for viewing a list of buffers.    "A major mode for viewing a list of buffers.
2049  In ibuffer, you can conveniently perform many operations on the  In ibuffer, you can conveniently perform many operations on the

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

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