mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(Buffer-menu-delete): Handle prefix arg.

Browse Source 
(Buffer-menu-delete-backwards): Handle prefix; use Buffer-menu-delete.
This commit is contained in:
Richard M. Stallman 1994-09-24 04:32:08 +00:00
parent 423c0dfa27
commit 77a43e011b
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/buff-menu.el
View File

@ -213,24 +213,35 @@ Optional ARG means move up."
(Buffer-menu-unmark)
(forward-line -1))
(defun Buffer-menu-delete ()
"Mark buffer on this line to be deleted by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."
(interactive)
(defun Buffer-menu-delete (&optional arg)
"Mark buffer on this line to be deleted by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command.
Prefix arg is how many buffers to delete.
Negative arg means delete backwards."
(interactive "p")
(beginning-of-line)
(if (looking-at " [-M]") ;header lines
(ding)
(let ((buffer-read-only nil))
(delete-char 1)
(insert ?D)
(forward-line 1))))
(if (or (null arg) (= arg 0))
(setq arg 1))
(while (> arg 0)
(delete-char 1)
(insert ?D)
(forward-line 1)
(setq arg (1- arg)))
(while (< arg 0)
(delete-char 1)
(insert ?D)
(forward-line -1)
(setq arg (1+ arg))))))
(defun Buffer-menu-delete-backwards ()
(defun Buffer-menu-delete-backwards (&optional arg)
"Mark buffer on this line to be deleted by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command
and then move up one line"
(interactive)
(Buffer-menu-delete)
(forward-line -2)
(if (looking-at " [-M]") (forward-line 1)))
and then move up one line. Prefix arg means move that many lines."
(interactive "p")
(Buffer-menu-delete (- (or arg 1)))
(while (looking-at " [-M]")
(forward-line 1)))
(defun Buffer-menu-save ()
"Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."