comparison lisp/tar-mode.el @ 39471:3ca0c12d72fe

(tar-mode-write-file): Don't signal an error by calling byte-to-position with a nil tar-header-offset.

39470:3411e4da792d

	;; I suppose this is run in a context where changing the buffer is bad.
	;; (tar-pad-to-blocksize)
	;; tar-header-offset turns out to be null for files fetched with W3,
	;; at least.
	(let ((coding-system-for-write 'no-conversion))
	  (write-region (or (byte-to-position tar-header-offset)
			    (point-min))
			(point-max)
			buffer-file-name nil t))
	(tar-clear-modification-flags)
	(set-buffer-modified-p nil))
    (narrow-to-region 1 (byte-to-position tar-header-offset)))

39471:3ca0c12d72fe

	;; I suppose this is run in a context where changing the buffer is bad.
	;; (tar-pad-to-blocksize)
	;; tar-header-offset turns out to be null for files fetched with W3,
	;; at least.
	(let ((coding-system-for-write 'no-conversion))
	  (write-region (if tar-header-offset
			    (byte-to-position tar-header-offset)
			  (point-min))
			(point-max)
			buffer-file-name nil t))
	(tar-clear-modification-flags)
	(set-buffer-modified-p nil))
    (narrow-to-region 1 (byte-to-position tar-header-offset)))