comparison lisp/tar-mode.el @ 21851:facde3a9a846

(tar-mode-write-file): Protect from null tar-header-offset.

21850:96fc2ea42485

      (save-excursion
	(widen)
	;; Doing this here confuses things - the region gets left too wide!
	;; I suppose this is run in a context where changing the buffer is bad.
	;; (tar-pad-to-blocksize)
	(write-region tar-header-offset (point-max) buffer-file-name nil t)
	(tar-clear-modification-flags)
	(set-buffer-modified-p nil))
    (narrow-to-region 1 tar-header-offset))
  ;; return T because we've written the file.
  t)

21851:facde3a9a846

      (save-excursion
	(widen)
	;; Doing this here confuses things - the region gets left too wide!
	;; 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.
	(write-region (or 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 tar-header-offset))
  ;; return T because we've written the file.
  t)