diff options
| author | Richard M. Stallman | 1995-02-16 05:58:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-02-16 05:58:37 +0000 |
| commit | 8cd1ad32be3e471ba6b27166333b4a51aee1b649 (patch) | |
| tree | 498928735ed0d605b388924505387a19e087e66b | |
| parent | e481f9604f644c9f73d2385732fe5ee5e8b5dfd7 (diff) | |
| download | emacs-8cd1ad32be3e471ba6b27166333b4a51aee1b649.tar.gz emacs-8cd1ad32be3e471ba6b27166333b4a51aee1b649.zip | |
(Buffer-menu-save): Fix the test for header line.
| -rw-r--r-- | lisp/buff-menu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 265 | "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command." | 265 | "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command." |
| 266 | (interactive) | 266 | (interactive) |
| 267 | (beginning-of-line) | 267 | (beginning-of-line) |
| 268 | (forward-char 1) | ||
| 269 | (if (looking-at " [-M]") ;header lines | 268 | (if (looking-at " [-M]") ;header lines |
| 270 | (ding) | 269 | (ding) |
| 271 | (let ((buffer-read-only nil)) | 270 | (let ((buffer-read-only nil)) |
| 271 | (forward-char 1) | ||
| 272 | (delete-char 1) | 272 | (delete-char 1) |
| 273 | (insert ?S) | 273 | (insert ?S) |
| 274 | (forward-line 1)))) | 274 | (forward-line 1)))) |