🚀 go-pugleaf

Emacs 19.25.

A while ago I wrote and requested that a numeric prefix argument to
Buffer-menu-delete should indicate the number of buffers to delete.
Appended is a patch which provides this functionality.  I've also
added a prefix arg to Buffer-menu-delete-backwards.

I didn't modify the "umark" functions, because a prefix arg already
has a meaning there.

Tom
---
tromey@busco.lanl.gov             Member, League for Programming Freedom
I have forgotten to mention that 'Art' is the only word
which carp are able to say.
	-- Rene Daumal


*** /home/syzygy/emacs-19.25/site-lisp/buff-menu.el.~1~	Sun Aug  7 22:50:24 1994
--- /home/syzygy/emacs-19.25/site-lisp/buff-menu.el	Sun Aug  7 23:59:34 1994
***************
*** 205,228 ****
    (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)
    (beginning-of-line)
    (if (looking-at " [-M]")		;header lines
        (ding)
      (let ((buffer-read-only nil))
!       (delete-char 1)
!       (insert ?D)
!       (forward-line 1))))
  
! (defun Buffer-menu-delete-backwards ()
    "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)))
  
  (defun Buffer-menu-save ()
    "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."
--- 205,239 ----
    (Buffer-menu-unmark)
    (forward-line -1))
  
! (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))
!       (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 (&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.  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."