procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2021-12-25 14:13:43 +01:00
parent 9966bf9f0c
commit 44c43ba4bd
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/browse-url.el
View file

@ -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))