Mercurial > hg > xemacs-beta

comparison lisp/electric/ebuff-menu.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents b82b59fe008d
children 4b173ad71786
comparison
equal deleted inserted replaced
5:49b78a777eb4 6:27bc7f280385
40 ;; on stuff in lisp/buff-menu.el 40 ;; on stuff in lisp/buff-menu.el
41 41
42 (defvar electric-buffer-menu-mode-map nil) 42 (defvar electric-buffer-menu-mode-map nil)
43 43
44 ;;;###autoload 44 ;;;###autoload
45 (defun electric-buffer-list (arg) 45 (defun electric-buffer-list (&optional files-only)
46 "Pops up a buffer describing the set of Emacs buffers. 46 "Pops up a buffer describing the set of Emacs buffers.
47 Vaguely like ITS lunar select buffer; combining typeoutoid buffer 47 Vaguely like ITS lunar select buffer; combining typeoutoid buffer
48 listing with menuoid buffer selection. 48 listing with menuoid buffer selection.
49 49
50 If the very next character typed is a space then the buffer list 50 If the very next character typed is a space then the buffer list
55 the appropriate line of the buffer-list window. Other commands are 55 the appropriate line of the buffer-list window. Other commands are
56 much like those of buffer-menu-mode. 56 much like those of buffer-menu-mode.
57 57
58 Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. 58 Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
59 59
60 Non-null optional arg FILES-ONLY means mention only file buffers.
61 When called from Lisp code, FILES-ONLY may be a regular expression,
62 in which case only buffers whose names match that expression are listed,
63 or an arbitrary predicate function.
64
60 \\{electric-buffer-menu-mode-map}" 65 \\{electric-buffer-menu-mode-map}"
61 (interactive "P") 66 (interactive (list (if current-prefix-arg t nil)))
62 (let (select buffer) 67 (let (select buffer)
63 (save-window-excursion 68 (save-window-excursion
64 (save-window-excursion (list-buffers arg)) 69 (save-window-excursion (list-buffers files-only))
65 (setq buffer (window-buffer (Electric-pop-up-window "*Buffer List*"))) 70 (setq buffer (window-buffer (Electric-pop-up-window "*Buffer List*")))
66 (unwind-protect 71 (unwind-protect
67 (progn 72 (progn
68 (set-buffer buffer) 73 (set-buffer buffer)
69 (Electric-buffer-menu-mode) 74 (Electric-buffer-menu-mode)