diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-04-09 16:18:41 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-04-09 16:18:41 +0200 |
| commit | c9e13048bb9b1b5fb156fb128b32030ae2f1003b (patch) | |
| tree | af6bbaf82b1a2aebc7218501df3c02122487ece9 | |
| parent | 39a0b6cb027eb3f0349f4275ceed2ccca2cd14f4 (diff) | |
| download | emacs-c9e13048bb9b1b5fb156fb128b32030ae2f1003b.tar.gz | |
Fix scoping error in Tramp
* lisp/net/tramp-sshfs.el (tramp-sshfs-handle-insert-file-contents):
Move result out of unwindform.
| -rw-r--r-- | lisp/net/tramp-sshfs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp-sshfs.el b/lisp/net/tramp-sshfs.el index 6b788c00ba6..a4f6246ec23 100644 --- a/lisp/net/tramp-sshfs.el +++ b/lisp/net/tramp-sshfs.el @@ -244,8 +244,8 @@ arguments to pass to the OPERATION." (setq result (insert-file-contents (tramp-fuse-local-file-name filename) visit beg end replace)) - (when visit (setq buffer-file-name filename)) - (cons filename (cdr result))))) + (when visit (setq buffer-file-name filename))) + (cons filename (cdr result)))) (defun tramp-sshfs-handle-process-file (program &optional infile destination display &rest args) |