* lisp/net/browse-url.el (browse-url-of-file): Improve browsing remote files.

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index b7840f05890fe677f62c48917121c6dab47e2d39..9a41f018f28b255a1d791f8dde53d9df3ed0e404 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -701,8 +701,10 @@ interactively.  Turn the filename into a URL with function
          (cond ((not (buffer-modified-p)))
                (browse-url-save-file (save-buffer))
                (t (message "%s modified since last save" file))))))
-  (when (file-remote-p file)
-    (setq file (file-local-copy file)))
+  (when (and (file-remote-p file)
+             (not browse-url-temp-file-name))
+    (setq browse-url-temp-file-name (file-local-copy file)
+          file browse-url-temp-file-name))
   (browse-url (browse-url-file-url file))
   (run-hooks 'browse-url-of-file-hook))