From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 11 Jul 1994 04:46:24 +0000 (+0000)
Subject: (Buffer-menu-not-modified): Make `Buffer-menu-not-modified' handle an
X-Git-Tag: emacs-19.34~7657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8ce00dce2af613d77aca6233cd11778fc2b1c73;p=emacs.git

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

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index db8060e9e26..db6da4427d8 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -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."