Mercurial > emacs
changeset 8196:89db3662bcec
(Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
argument like `not-modified'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Jul 1994 04:46:24 +0000 |
| parents | a4f0f421752e |
| children | d6a441681fb4 |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Mon Jul 11 04:31:40 1994 +0000 +++ b/lisp/buff-menu.el Mon Jul 11 04:46:24 1994 +0000 @@ -242,19 +242,19 @@ (insert ?S) (forward-line 1)))) -(defun Buffer-menu-not-modified () +(defun Buffer-menu-not-modified (&optional arg) "Mark buffer on this line as unmodified (no changes to save)." - (interactive) + (interactive "P") (save-excursion (set-buffer (Buffer-menu-buffer t)) - (set-buffer-modified-p nil)) + (set-buffer-modified-p arg)) (save-excursion (beginning-of-line) (forward-char 1) - (if (looking-at "\\*") + (if (= (char-after (point)) (if arg ? ?*)) (let ((buffer-read-only nil)) (delete-char 1) - (insert ? ))))) + (insert (if arg ?* ? )))))) (defun Buffer-menu-execute () "Save and/or delete buffers marked with \\<Buffer-menu-mode-map>\\[Buffer-menu-save] or \\<Buffer-menu-mode-map>\\[Buffer-menu-delete] commands."