Mercurial > emacs
comparison lisp/ibuf-ext.el @ 44186:9ea4e6199d1c
(sorter mode-name): Doc fix.
(ibuffer-mark-help-buffers): Use `ibuffer-help-buffer-modes'.
author | Colin Walters <walters@gnu.org> |
---|---|
date | Wed, 27 Mar 2002 22:19:40 +0000 |
parents | 784c6f7e7ed3 |
children | 598fbedb891e |
comparison
equal
deleted
inserted
replaced
44185:c4de5a5d6ecb | 44186:9ea4e6199d1c |
---|---|
700 major-mode))))) | 700 major-mode))))) |
701 | 701 |
702 (define-ibuffer-sorter mode-name | 702 (define-ibuffer-sorter mode-name |
703 "Sort the buffers by their mode name. | 703 "Sort the buffers by their mode name. |
704 Ordering is lexicographic." | 704 Ordering is lexicographic." |
705 (:description "mode name") | 705 (:description "major mode name") |
706 (string-lessp (downcase | 706 (string-lessp (downcase |
707 (with-current-buffer | 707 (with-current-buffer |
708 (car a) | 708 (car a) |
709 mode-name)) | 709 mode-name)) |
710 (downcase | 710 (downcase |
1012 "Mark buffers like *Help*, *Apropos*, *Info*." | 1012 "Mark buffers like *Help*, *Apropos*, *Info*." |
1013 (interactive) | 1013 (interactive) |
1014 (ibuffer-mark-on-buffer | 1014 (ibuffer-mark-on-buffer |
1015 #'(lambda (buf) | 1015 #'(lambda (buf) |
1016 (with-current-buffer buf | 1016 (with-current-buffer buf |
1017 (or | 1017 (memq major-mode ibuffer-help-buffer-modes))))) |
1018 (eq major-mode 'apropos-mode) | |
1019 (eq major-mode 'help-mode) | |
1020 (eq major-mode 'info-mode)))))) | |
1021 | 1018 |
1022 ;;;###autoload | 1019 ;;;###autoload |
1023 (defun ibuffer-mark-old-buffers () | 1020 (defun ibuffer-mark-old-buffers () |
1024 "Mark buffers which have not been viewed in `ibuffer-old-time' days." | 1021 "Mark buffers which have not been viewed in `ibuffer-old-time' days." |
1025 (interactive) | 1022 (interactive) |