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

* net/tramp-gvfs.el (tramp-gvfs-handle-copy-file): Do not pass

Browse source 
empty argument to gvfs-copy.
This commit is contained in:
Michael Albinus 2010-07-11 10:28:04 +02:00
parent 6a8033e1c6
commit 3277c1ee3a
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-07-11 Magnus Henoch <magnus.henoch@gmail.com>
* net/tramp-gvfs.el (tramp-gvfs-handle-copy-file): Do not pass
empty argument to gvfs-copy.
2010-07-10 Aleksei Gusev <aleksei.gusev@gmail.com> (tiny change)
* progmodes/compile.el (compilation-error-regexp-alist-alist): Add

13
lisp/net/tramp-gvfs.el
View file

@ -551,11 +551,14 @@ is no information where to trace the message.")
(tramp-message v 4 "`copy-file' failed, trying `gvfs-copy'")
(unless
(zerop
(tramp-gvfs-send-command
v "gvfs-copy"
(if (or keep-date preserve-uid-gid) "--preserve" "")
(tramp-gvfs-url-file-name filename)
(tramp-gvfs-url-file-name newname)))
(let ((args
(append (if (or keep-date preserve-uid-gid)
(list "--preserve")
nil)
(list
(tramp-gvfs-url-file-name filename)
(tramp-gvfs-url-file-name newname)))))
(apply 'tramp-gvfs-send-command v "gvfs-copy" args)))
;; Propagate the error.
(tramp-error v (car err) "%s" (cdr err)))))))