procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Submit changes promised last commit already

Browse source
This commit is contained in:
Michael Albinus 2015-10-14 20:10:14 +02:00
parent 0cced99164
commit 8318dec8e1
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp-sh.el
View file

@ -2457,16 +2457,17 @@ The method used must be an out-of-band method."
(setq source (if t1
(tramp-make-copy-program-file-name v)
(shell-quote-argument filename))
target (funcall
target (if t2
(tramp-make-copy-program-file-name v)
(shell-quote-argument
(funcall
(if (and (file-directory-p filename)
(string-equal
(file-name-nondirectory filename)
(file-name-nondirectory newname)))
'file-name-directory
'identity)
(if t2
(tramp-make-copy-program-file-name v)
(shell-quote-argument newname))))
newname))))
;; Check for host and port number. We cannot use
;; `tramp-file-name-port', because this returns also