From 8cd1ad32be3e471ba6b27166333b4a51aee1b649 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 16 Feb 1995 05:58:37 +0000
Subject: [PATCH] (Buffer-menu-save): Fix the test for header line.

---
 lisp/buff-menu.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))
-- 
2.39.5