From a7e5e8cbc727ce0955db64c75c033188b0a7fe69 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Apr 1995 18:04:43 +0000 Subject: [PATCH] (tar-clear-modification-flags): Fix several bugs. --- lisp/tar-mode.el | 6 +++--- 1 file 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 ;; 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)))) -- 2.39.5