mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(Buffer-menu-marked-buffers)

Browse Source 
(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.
This commit is contained in:
Juri Linkov 2008-07-23 23:52:33 +00:00
parent e50fa43e8f
commit 9cda680dfa
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/buff-menu.el
View File

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