1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00

(Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an

argument like `not-modified'.
This commit is contained in:
Richard M. Stallman 1994-07-11 04:46:24 +00:00
parent cf2d98df97
commit a8ce00dce2

View File

@ -242,19 +242,19 @@ and then move up one line"
(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."