Commit a7e5e8cb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent c412c808
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment