From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Apr 1995 18:04:43 +0000 (+0000)
Subject: (tar-clear-modification-flags): Fix several bugs.
X-Git-Tag: emacs-19.34~4557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7e5e8cbc727ce0955db64c75c033188b0a7fe69;p=emacs.git

(tar-clear-modification-flags): Fix several bugs.
---

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