diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-12-21 15:15:16 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-12-21 15:15:16 +0100 |
| commit | 73e862237d1db167d4f5712f95f68b8b17816ea9 (patch) | |
| tree | 29a51155a64d6514951707ed3dd0e216201cc491 /lisp/net/tramp-archive.el | |
| parent | 264589cdf762d015c8ecd102afb7eb61dc0ad65b (diff) | |
| download | emacs-73e862237d1db167d4f5712f95f68b8b17816ea9.tar.gz emacs-73e862237d1db167d4f5712f95f68b8b17816ea9.tar.bz2 emacs-73e862237d1db167d4f5712f95f68b8b17816ea9.zip | |
Add `permission-denied' error to Tramp
* lisp/net/tramp-compat.el (tramp-permission-denied): New defconst.
(tramp-compat-permission-denied): New defsubst.
* lisp/net/tramp.el (tramp-handle-access-file):
* lisp/net/tramp-archive.el (tramp-archive-handle-copy-file): Use it.
Diffstat (limited to 'lisp/net/tramp-archive.el')
| -rw-r--r-- | lisp/net/tramp-archive.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index b44a4e86aad..bba94f2743c 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el @@ -575,9 +575,8 @@ offered." preserve-uid-gid preserve-extended-attributes) "Like `copy-file' for file archives." (when (tramp-archive-file-name-p newname) - (tramp-error - (tramp-archive-dissect-file-name newname) 'file-error - "Permission denied: %s" newname)) + (tramp-compat-permission-denied + (tramp-archive-dissect-file-name newname) newname)) (copy-file (tramp-archive-gvfs-file-name filename) newname ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes)) |