diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-08 18:04:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-08 18:04:43 +0000 |
| commit | a7e5e8cbc727ce0955db64c75c033188b0a7fe69 (patch) | |
| tree | 7e06dd75d0381fcfb68e6e75212aa05d48753b37 /lisp/tar-mode.el | |
| parent | c412c8081c8365f77ffcc50862bf4a79c28386c8 (diff) | |
| download | emacs-a7e5e8cbc727ce0955db64c75c033188b0a7fe69.tar.gz | |
(tar-clear-modification-flags): Fix several bugs.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 722a86fda7d..aa55d066958 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -4,7 +4,6 @@ ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Created: 04 Apr 1990 -;; Version: 1.21bis (some cleanup by ESR) ;; Keywords: unix ;;; This file is part of GNU Emacs. @@ -889,10 +888,11 @@ for this to be permanent." (defun tar-clear-modification-flags () "Remove the stars at the beginning of each line." + (interactive) (save-excursion - (goto-char 0) + (goto-char 1) (while (< (point) tar-header-offset) - (if (looking-at "*") + (if (not (eq (following-char) ?\ )) (progn (delete-char 1) (insert " "))) (forward-line 1)))) |