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-sudoedit.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-sudoedit.el')
| -rw-r--r-- | lisp/net/tramp-sudoedit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-sudoedit.el b/lisp/net/tramp-sudoedit.el index 0ec98bb0691..5d5a3f1f75c 100644 --- a/lisp/net/tramp-sudoedit.el +++ b/lisp/net/tramp-sudoedit.el @@ -243,7 +243,8 @@ absolute 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 (file-remote-p filename) (not t1)) |