From 121ea65f3f9ecd549ddeefda2a0268f2029f5dbd Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 24 Dec 2013 19:23:56 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/net/eww.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5402775dfbb..f7caaf69358 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-12-24 Eli Zaretskii + + * 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 * window.el (balance-windows-area): Call window-size instead of diff --git a/lisp/net/eww.el b/lisp/net/eww.el index b7f50c19321..c5ac2f5c86c 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -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))) -- 2.39.2