mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(tar-extract): For goto-char, use (point-min), not

Browse Source 
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.
This commit is contained in:
Kenichi Handa 2000-06-14 12:47:27 +00:00
parent 02891cc387
commit cb33a0ce4c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/tar-mode.el
View File

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