mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(tar-copy): Inhibit use of jka-compr handler

Browse source 
when both to- and from- files would use it.
This commit is contained in:
Richard M. Stallman 1995-07-25 20:27:07 +00:00
parent 88766961a3
commit d4ec020080
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/tar-mode.el
View file

@ -789,9 +789,20 @@ the current tar-entry."
(name (tar-header-name tokens))
(size (tar-header-size tokens))
(start (+ (tar-desc-data-start descriptor) tar-header-offset -1))
(end (+ start size)))
(end (+ start size))
(inhibit-file-name-handlers inhibit-file-name-handlers)
(inhibit-file-name-operation inhibit-file-name-operation))
(save-restriction
(widen)
;; Inhibit compressing a subfile again if *both* name and
;; to-file are handled by jka-compr
(if (and (eq (find-file-name-handler name 'write-region) 'jka-compr-handler)
(eq (find-file-name-handler to-file 'write-region) 'jka-compr-handler))
(setq inhibit-file-name-handlers
(cons 'jka-compr-handler
(and (eq inhibit-file-name-operation 'write-region)
inhibit-file-name-handlers))
inhibit-file-name-operation 'write-region))
(write-region start end to-file))
(message "Copied tar entry %s to %s" name to-file)))