[Emacs-diffs] trunk r115732: Fix eww-open-file for MS-Windows and MS-DOS.

[Eli Zaretskii]

------------------------------------------------------------
revno: 115732
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-24 19:23:56 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-24 16:42:03 +0000
+++ b/lisp/ChangeLog    2013-12-24 17:23:56 +0000
@@ -1,3 +1,8 @@
+2013-12-24  Eli Zaretskii  <address@hidden>
+
+       * 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  <address@hidden>
 
        * window.el (balance-windows-area): Call window-size instead of

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-12-24 07:25:27 +0000
+++ b/lisp/net/eww.el   2013-12-24 17:23:56 +0000
@@ -167,7 +167,10 @@
 (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)))