andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make `C' in over tramp work in archive mode

Browse source 
* lisp/arc-mode.el (archive-copy-file): Make `C' in over tramp
work (bug#56574).
This commit is contained in:
Lars Ingebrigtsen 2022-07-17 12:12:24 +02:00
parent 0c9ca96c06
commit 2500ab0894
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/arc-mode.el
View file

@ -1087,11 +1087,17 @@ NEW-NAME."
(let* ((descr (archive-get-descr))
(archive (buffer-file-name))
(extractor (archive-name "extract"))
(ename (archive--file-desc-ext-file-name descr)))
(with-temp-buffer
(set-buffer-multibyte nil)
(archive--extract-file extractor archive ename)
(write-region (point-min) (point-max) write-to)))))))
(ename (archive--file-desc-ext-file-name descr))
;; If the archive is remote, we have to copy it to a
;; local file first to make extraction work.
(copy (archive-maybe-copy archive)))
(unwind-protect
(with-temp-buffer
(set-buffer-multibyte nil)
(archive--extract-file extractor copy ename)
(write-region (point-min) (point-max) write-to))
(unless (equal copy archive)
(delete-file copy))))))))
(defun archive-extract (&optional other-window-p event)
"In archive mode, extract this entry of the archive into its own buffer."