diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2019-08-08 16:47:29 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2019-08-08 16:47:29 +0200 |
commit | f9beb2bfa9cdccde79793ab2ab8b88797b30b9f0 (patch) | |
tree | 9c887e00e2c5e8f481f7c5d77ff6b87d34937f6c /lisp/net/tramp-rclone.el | |
parent | 78ddf6ba96039920d9ac0086b8a87a8a068227ef (diff) | |
download | emacs-f9beb2bfa9cdccde79793ab2ab8b88797b30b9f0.tar.gz |
Work on Tramp backward compatibility
* lisp/net/tramp-adb.el (tramp-adb-handle-copy-file)
(tramp-adb-handle-rename-file):
* lisp/net/tramp-gvfs.el (tramp-gvfs-do-copy-or-rename-file):
* lisp/net/tramp-rclone.el (tramp-rclone-do-copy-or-rename-file):
* lisp/net/tramp-sh.el (tramp-do-copy-or-rename-file):
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-file)
(tramp-smb-handle-rename-file):
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-do-copy-or-rename-file):
Use `tramp-compat-directory-name-p'.
Diffstat (limited to 'lisp/net/tramp-rclone.el')
-rw-r--r-- | lisp/net/tramp-rclone.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el index e0fd8e34415..866e7791bf8 100644 --- a/lisp/net/tramp-rclone.el +++ b/lisp/net/tramp-rclone.el @@ -215,7 +215,8 @@ file names." (with-parsed-tramp-file-name (if t1 filename newname) nil (when (and (not ok-if-already-exists) (file-exists-p newname)) (tramp-error v 'file-already-exists newname)) - (when (and (file-directory-p newname) (not (directory-name-p newname))) + (when (and (file-directory-p newname) + (not (tramp-compat-directory-name-p newname))) (tramp-error v 'file-error "File is a directory %s" newname)) (if (or (and t1 (not (tramp-rclone-file-name-p filename))) |