# HG changeset patch # User Kenichi Handa # Date 960986847 0 # Node ID e57c6c814e3f980960b02bbbc525c6207979c6f9 # Parent 09fc77c8f4c0d203bbf7d26701086f62f1974b71 (tar-extract): For goto-char, use (point-min), not 0. Give correct argument to set-auto-coding-function. (tar-expunge): For goto-char, use (point-min), not 0. (tar-clear-modification-flags): For goto-char, use (point-min), not 1. (tar-subfile-save-buffer): Likewize. diff -r 09fc77c8f4c0 -r e57c6c814e3f lisp/tar-mode.el --- a/lisp/tar-mode.el Wed Jun 14 12:46:37 2000 +0000 +++ b/lisp/tar-mode.el Wed Jun 14 12:47:27 2000 +0000 @@ -705,7 +705,7 @@ (insert-buffer-substring tar-buffer start end) (set-buffer-multibyte t)) (insert-buffer-substring tar-buffer start end)) - (goto-char 0) + (goto-char (point-min)) (setq buffer-file-name ;; `:' is not allowed on Windows (expand-file-name (concat tarname "!" name))) @@ -717,7 +717,7 @@ (and set-auto-coding-function (save-excursion (funcall set-auto-coding-function - name (point-max))))) + name (- (point-max) (point)))))) (multibyte enable-multibyte-characters) (detected (detect-coding-region 1 (min 16384 (point-max)) t))) @@ -920,7 +920,7 @@ (multibyte enable-multibyte-characters)) (set-buffer-multibyte nil) (save-excursion - (goto-char 0) + (goto-char (point-min)) (while (not (eobp)) (if (looking-at "D") (progn (tar-expunge-internal) @@ -939,7 +939,7 @@ "Remove the stars at the beginning of each line." (interactive) (save-excursion - (goto-char 1) + (goto-char (point-min)) (while (< (position-bytes (point)) tar-header-offset) (if (not (eq (following-char) ?\ )) (progn (delete-char 1) (insert " "))) @@ -1167,7 +1167,7 @@ ;; alter the descriptor-line... ;; (let ((position (- (length tar-parse-info) (length head)))) - (goto-char 1) + (goto-char (point-min)) (next-line position) (beginning-of-line) (let ((p (point))