pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix Bug#33135

Browse source 
* lisp/net/tramp-ftp.el (tramp-ftp-file-name-handler): Support threads.
(Bug#33135)
This commit is contained in:
Michael Albinus 2018-11-05 14:31:07 +01:00
parent 25f77f9085
commit 80da4fa750
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/net/tramp-ftp.el
View file

@ -131,7 +131,16 @@ pass to the OPERATION."
;; "ftp" method is used in the Tramp file name. So we unset
;; those values.
(ange-ftp-ftp-name-arg "")
(ange-ftp-ftp-name-res nil))
(ange-ftp-ftp-name-res nil)
(v (tramp-dissect-file-name
(apply 'tramp-file-name-for-operation operation args) t)))
(setf (tramp-file-name-method v) tramp-ftp-method)
;; Set "process-name" for thread support.
(tramp-set-connection-property
v "process-name"
(ange-ftp-ftp-process-buffer
(tramp-file-name-host v) (tramp-file-name-user v)))
(cond
;; If argument is a symlink, `file-directory-p' and
;; `file-exists-p' call the traversed file recursively. So we
@ -143,9 +152,7 @@ pass to the OPERATION."
;; "~/.netrc".
((memq operation '(file-directory-p file-exists-p))
(if (apply 'ange-ftp-hook-function operation args)
(let ((v (tramp-dissect-file-name (car args) t)))
(setf (tramp-file-name-method v) tramp-ftp-method)
(tramp-set-connection-property v "started" t))
(tramp-set-connection-property v "started" t)
nil))
;; If the second argument of `copy-file' or `rename-file' is a