diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-06-14 12:47:27 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-06-14 12:47:27 +0000 |
| commit | cb33a0ce4c0fd33bdbcb37a32e11bb0d19513597 (patch) | |
| tree | 1a071ebaa35e87f6bc45f06414c9efc0354ceff2 /lisp/tar-mode.el | |
| parent | 02891cc387c837044ed2b13d86adce579fb9d624 (diff) | |
| download | emacs-cb33a0ce4c0fd33bdbcb37a32e11bb0d19513597.tar.gz | |
(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.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 8fade4c6768..5c5bdae4170 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -705,7 +705,7 @@ appear on disk when you save the tar-file's buffer." (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 @@ appear on disk when you save the tar-file's buffer." (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 @@ for this to be permanent." (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 @@ for this to be permanent." "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 @@ to make your changes permanent." ;; 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)) |