From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 24 Dec 2013 17:23:56 +0000 (+0200)
Subject: Fix eww-open-file for MS-Windows and MS-DOS.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=121ea65f3f9ecd549ddeefda2a0268f2029f5dbd;p=emacs.git

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.
---

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