master 174dd06464 2/2: Make Dired header clickable on non-Posix systems as well

[Eli Zaretskii]

branch: master
commit 174dd064643e9487c0fa1460727d0935a60b3646
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Make Dired header clickable on non-Posix systems as well
    
    * lisp/dired.el (dired--make-directory-clickable): Support
    MS-Windows and MS-DOS absolute directory names with drive letters
    and UNCs.  (Bug#21973)
---
 lisp/dired.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index 128770105b..7a8f1ae7a1 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1911,11 +1911,15 @@ mouse-2: visit this file in other window"
 (defun dired--make-directory-clickable ()
   (save-excursion
     (goto-char (point-min))
-    (while (re-search-forward "^  /" nil t 1)
+    (while (re-search-forward
+            (if (memq system-type '(windows-nt ms-dos))
+                "^  \\([a-zA-Z]:/\\|//\\)"
+              "^  /")
+            nil t 1)
       (let ((bound (line-end-position))
             (segment-start (point))
             (inhibit-read-only t)
-            (dir "/"))
+            (dir (substring (match-string 1) 2)))
         (while (search-forward "/" bound t 1)
           (setq dir (concat dir (buffer-substring segment-start (point))))
           (add-text-properties