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

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index a33f72a7fcc7e378e2a537df966c7b482e1a6176..32ae224c1c3c5a87fef0fff7a9d02d1f62909b89 100644 (file)
--- 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))))