diff options
| author | Michael Albinus | 2017-11-25 16:09:55 +0100 |
|---|---|---|
| committer | Michael Albinus | 2017-11-25 16:09:55 +0100 |
| commit | a8664cc9986be3a7d0ff4c46546ea1d9c906ab00 (patch) | |
| tree | 20dcd59dd709aaea36e20825c4f4f873a692525b | |
| parent | 55c5b12fa040b0c4e1549207840fd6c84e5d2b19 (diff) | |
| download | emacs-a8664cc9986be3a7d0ff4c46546ea1d9c906ab00.tar.gz emacs-a8664cc9986be3a7d0ff4c46546ea1d9c906ab00.zip | |
Minor cleanup in tramp-gvfs-handle-file-local-copy
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-local-copy):
Move error message up.
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index 424e77b0eba..404af983b50 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -1056,11 +1056,11 @@ If FILE-SYSTEM is non-nil, return file system attributes." | |||
| 1056 | (defun tramp-gvfs-handle-file-local-copy (filename) | 1056 | (defun tramp-gvfs-handle-file-local-copy (filename) |
| 1057 | "Like `file-local-copy' for Tramp files." | 1057 | "Like `file-local-copy' for Tramp files." |
| 1058 | (with-parsed-tramp-file-name filename nil | 1058 | (with-parsed-tramp-file-name filename nil |
| 1059 | (unless (file-exists-p filename) | ||
| 1060 | (tramp-error | ||
| 1061 | v tramp-file-missing | ||
| 1062 | "Cannot make local copy of non-existing file `%s'" filename)) | ||
| 1059 | (let ((tmpfile (tramp-compat-make-temp-file filename))) | 1063 | (let ((tmpfile (tramp-compat-make-temp-file filename))) |
| 1060 | (unless (file-exists-p filename) | ||
| 1061 | (tramp-error | ||
| 1062 | v tramp-file-missing | ||
| 1063 | "Cannot make local copy of non-existing file `%s'" filename)) | ||
| 1064 | (copy-file filename tmpfile 'ok-if-already-exists 'keep-time) | 1064 | (copy-file filename tmpfile 'ok-if-already-exists 'keep-time) |
| 1065 | tmpfile))) | 1065 | tmpfile))) |
| 1066 | 1066 | ||