/[emacs]/emacs/lisp/ebuff-menu.el
ViewVC logotype

Diff of /emacs/lisp/ebuff-menu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by miles, Mon Sep 1 15:45:11 2003 UTC revision 1.33 by ttn, Wed Nov 10 10:45:59 2004 UTC
# Line 38  Line 38 
38    
39  (defvar electric-buffer-menu-mode-map nil)  (defvar electric-buffer-menu-mode-map nil)
40    
41    (defvar electric-buffer-menu-mode-hook nil
42      "Normal hook run by `electric-buffer-list'.")
43    
44  ;;;###autoload  ;;;###autoload
45  (defun electric-buffer-list (arg)  (defun electric-buffer-list (arg)
46    "Pops up a buffer describing the set of Emacs buffers.    "Pop up a buffer describing the set of Emacs buffers.
47  Vaguely like ITS lunar select buffer; combining typeoutoid buffer  Vaguely like ITS lunar select buffer; combining typeoutoid buffer
48  listing with menuoid buffer selection.  listing with menuoid buffer selection.
49    
# Line 50  window, marking buffers to be selected, Line 53  window, marking buffers to be selected,
53    
54  To exit and select a new buffer, type a space when the cursor is on  To exit and select a new buffer, type a space when the cursor is on
55  the appropriate line of the buffer-list window.  Other commands are  the appropriate line of the buffer-list window.  Other commands are
56  much like those of buffer-menu-mode.  much like those of `Buffer-menu-mode'.
57    
58  Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.  Run hooks in `electric-buffer-menu-mode-hook' on entry.
59    
60  \\{electric-buffer-menu-mode-map}"  \\{electric-buffer-menu-mode-map}"
61    (interactive "P")    (interactive "P")
# Line 144  Letters do not insert themselves; instea Line 147  Letters do not insert themselves; instea
147    
148  \\{electric-buffer-menu-mode-map}  \\{electric-buffer-menu-mode-map}
149    
150  Entry to this mode via command electric-buffer-list calls the value of  Entry to this mode via command `electric-buffer-list' calls the value of
151  electric-buffer-menu-mode-hook if it is non-nil."  `electric-buffer-menu-mode-hook'."
152    (kill-all-local-variables)    (kill-all-local-variables)
153    (use-local-map electric-buffer-menu-mode-map)    (use-local-map electric-buffer-menu-mode-map)
154    (setq mode-name "Electric Buffer Menu")    (setq mode-name "Electric Buffer Menu")
# Line 223  electric-buffer-menu-mode-hook if it is Line 226  electric-buffer-menu-mode-hook if it is
226    
227  (defun Electric-buffer-menu-select ()  (defun Electric-buffer-menu-select ()
228    "Leave Electric Buffer Menu, selecting buffers and executing changes.    "Leave Electric Buffer Menu, selecting buffers and executing changes.
229  Saves buffers marked \"S\".  Deletes buffers marked \"K\".  Save buffers marked \"S\".  Delete buffers marked \"K\".
230  Selects buffer at point and displays buffers marked \">\" in other windows."  Select buffer at point and display buffers marked \">\" in other windows."
231    (interactive)    (interactive)
232    (throw 'electric-buffer-menu-select (point)))    (throw 'electric-buffer-menu-select (point)))
233    
# Line 237  Selects buffer at point and displays buf Line 240  Selects buffer at point and displays buf
240    
241  (defun Electric-buffer-menu-quit ()  (defun Electric-buffer-menu-quit ()
242    "Leave Electric Buffer Menu, restoring previous window configuration.    "Leave Electric Buffer Menu, restoring previous window configuration.
243  Does not execute select, save, or delete commands."  Skip execution of select, save, and delete commands."
244    (interactive)    (interactive)
245    (throw 'electric-buffer-menu-select nil))    (throw 'electric-buffer-menu-select nil))
246    
# Line 258  Type \\[Electric-buffer-menu-quit] to ex Line 261  Type \\[Electric-buffer-menu-quit] to ex
261    
262  (defun Electric-buffer-menu-mode-view-buffer ()  (defun Electric-buffer-menu-mode-view-buffer ()
263    "View buffer on current line in Electric Buffer Menu.    "View buffer on current line in Electric Buffer Menu.
264  Returns to Electric Buffer Menu when done."  Return to Electric Buffer Menu when done."
265    (interactive)    (interactive)
266    (let ((bufnam (Buffer-menu-buffer nil)))    (let ((bufnam (Buffer-menu-buffer nil)))
267      (if bufnam      (if bufnam

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26