# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773901984 0
# Node ID 89db3662bcec52e09ba19d89ec37dc8227a7943b
# Parent  a4f0f421752ec7006b0622807a9299ed2ba681f3
(Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
argument like `not-modified'.

diff -r a4f0f421752e -r 89db3662bcec lisp/buff-menu.el
--- 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."