diff options
| author | Juri Linkov <juri@jurta.org> | 2008-07-23 23:52:33 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-07-23 23:52:33 +0000 |
| commit | 9cda680dfa4c7585f137dcc618dc207a0bd2d18d (patch) | |
| tree | 60eecfaea75c83a143e1447cedd2c4bd73a2474c /lisp | |
| parent | e50fa43e8fb86f9be0cb87644be0bd81728972fc (diff) | |
| download | emacs-9cda680dfa4c7585f137dcc618dc207a0bd2d18d.tar.gz | |
(Buffer-menu-marked-buffers)
(Buffer-menu-isearch-buffers)
(Buffer-menu-isearch-buffers-regexp): New functions.
(Buffer-menu-mode-map): Bind "M-s a C-s" to
`Buffer-menu-isearch-buffers', and "M-s a M-C-s" to
`Buffer-menu-isearch-buffers-regexp'.
(list-buffers-noselect): Add one space after Info file name
according to the Info address convention.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/buff-menu.el | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 7ebf13c0976..791fb27d212 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -151,6 +151,8 @@ Auto Revert Mode.") (define-key map "T" 'Buffer-menu-toggle-files-only) (define-key map [mouse-2] 'Buffer-menu-mouse-select) (define-key map [follow-link] 'mouse-face) + (define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers) + (define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp) map) "Local keymap for `Buffer-menu-mode' buffers.") @@ -455,6 +457,23 @@ in the selected frame." (other-window 1) ;back to the beginning! ))) +(defun Buffer-menu-marked-buffers () + "Return a list of buffers marked with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] command." + (let (buffers) + (Buffer-menu-beginning) + (while (re-search-forward "^>" nil t) + (setq buffers (cons (Buffer-menu-buffer t) buffers))) + (nreverse buffers))) + +(defun Buffer-menu-isearch-buffers () + "Search for a string through all marked buffers using Isearch." + (interactive) + (multi-isearch-buffers (Buffer-menu-marked-buffers))) + +(defun Buffer-menu-isearch-buffers-regexp () + "Search for a regexp through all marked buffers using Isearch." + (interactive) + (multi-isearch-buffers-regexp (Buffer-menu-marked-buffers))) (defun Buffer-menu-visit-tags-table () @@ -778,7 +797,7 @@ For more information, see the function `buffer-menu'." (t (setq file (concat "(" (file-name-nondirectory file) - ")" + ") " Info-current-node))))))) (push (list buffer bits name (buffer-size) mode file) list)))))) |