Commit f50577ea authored by Michael Albinus's avatar Michael Albinus
Browse files

Fix some annoyances wrt file-name-non-special

* lisp/files.el (file-name-non-special): Do not expand `file-truename'.

* lisp/net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band):
Use local `default-directory' for `start-process'.
parent 3ad239e1
Pipeline #10676 failed with stages
in 9 minutes and 49 seconds
......@@ -7559,7 +7559,10 @@ only these files will be asked to be saved."
(setq file-arg-indices (cdr file-arg-indices))))
(pcase method
('identity (car arguments))
('add (file-name-quote (apply operation arguments) t))
('add
;; This is `file-truename'. We don't want file name handlers
;; to expand this.
(file-name-quote (let (tramp-mode) (apply operation arguments)) t))
('buffer-file-name
(let ((buffer-file-name (file-name-unquote buffer-file-name t)))
(apply operation arguments)))
......
......@@ -2371,11 +2371,12 @@ The method used must be an out-of-band method."
;; can be handled. We don't set a timeout, because
;; the copying of large files can last longer than 60
;; secs.
p (apply
#'start-process
(tramp-get-connection-name v)
(tramp-get-connection-buffer v)
copy-program copy-args))
p (let ((default-directory (tramp-compat-temporary-file-directory)))
(apply
#'start-process
(tramp-get-connection-name v)
(tramp-get-connection-buffer v)
copy-program copy-args)))
(tramp-message orig-vec 6 "%s" (string-join (process-command p) " "))
(process-put p 'vector orig-vec)
(process-put p 'adjust-window-size-function #'ignore)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment