Fix eww-open-file for MS-Windows and MS-DOS.

lisp/net/eww.el (eww-open-file): Ensure 3 slashes after "file:" when
 we run on MS-Windows or MS-DOS.
This commit is contained in:
Eli Zaretskii 2013-12-24 19:23:56 +02:00
parent ec6e26b811
commit 121ea65f3f
2 changed files with 9 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2013-12-24 Eli Zaretskii <eliz@gnu.org>
* net/eww.el (eww-open-file): Ensure 3 slashes after "file:" when
we run on MS-Windows or MS-DOS.
2013-12-24 Martin Rudalics <rudalics@gmx.at>
* window.el (balance-windows-area): Call window-size instead of

View file

@ -167,7 +167,10 @@ word(s) will be searched for via `eww-search-prefix'."
(defun eww-open-file (file)
"Render a file using EWW."
(interactive "fFile: ")
(eww (concat "file://" (expand-file-name file))))
(eww (concat "file://"
(and (memq system-type '(windows-nt ms-dos))
"/")
(expand-file-name file))))
(defun eww-render (status url &optional point)
(let ((redirect (plist-get status :redirect)))