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) |