From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Feb 1995 05:58:37 +0000 (+0000)
Subject: (Buffer-menu-save): Fix the test for header line.
X-Git-Tag: emacs-19.34~5093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8cd1ad32be3e471ba6b27166333b4a51aee1b649;p=emacs.git

(Buffer-menu-save): Fix the test for header line.
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index a33f72a7fcc..32ae224c1c3 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -265,10 +265,10 @@ and then move up one line.  Prefix arg means move that many lines."
   "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."
   (interactive)
   (beginning-of-line)
-  (forward-char 1)
   (if (looking-at " [-M]")		;header lines
       (ding)
     (let ((buffer-read-only nil))
+      (forward-char 1)
       (delete-char 1)
       (insert ?S)
       (forward-line 1))))