[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 a8664cc: Minor cleanup in tramp-gvfs-handle-file-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-26 a8664cc: Minor cleanup in tramp-gvfs-handle-file-local-copy |
Date: |
Sat, 25 Nov 2017 10:10:06 -0500 (EST) |
branch: emacs-26
commit a8664cc9986be3a7d0ff4c46546ea1d9c906ab00
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Minor cleanup in tramp-gvfs-handle-file-local-copy
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-local-copy):
Move error message up.
---
lisp/net/tramp-gvfs.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 424e77b..404af98 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."
(defun tramp-gvfs-handle-file-local-copy (filename)
"Like `file-local-copy' for Tramp files."
(with-parsed-tramp-file-name filename nil
+ (unless (file-exists-p filename)
+ (tramp-error
+ v tramp-file-missing
+ "Cannot make local copy of non-existing file `%s'" filename))
(let ((tmpfile (tramp-compat-make-temp-file filename)))
- (unless (file-exists-p filename)
- (tramp-error
- v tramp-file-missing
- "Cannot make local copy of non-existing file `%s'" filename))
(copy-file filename tmpfile 'ok-if-already-exists 'keep-time)
tmpfile)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 a8664cc: Minor cleanup in tramp-gvfs-handle-file-local-copy,
Michael Albinus <=