(dired-re-dir, dired-re-sym): Don't match DOS drive

letters with a colon after d or l.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/dired.el b/lisp/dired.el
index c514fa2e31f..748965f89f2 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -217,8 +217,10 @@ directory name and the cdr is the actual files to list.")
 ;; "Regexp matching a marked line.
 ;; Important: the match ends just after the marker."
 (defvar dired-re-maybe-mark "^. ")
-(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d"))
-(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l"))
+;; The [^:] part after "d" and "l" is to avoid confusion with the
+;; DOS/Windows-style drive letters in directory names, like in "d:/foo".
+(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
+(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
 (defvar dired-re-exe;; match ls permission string of an executable file
   (mapconcat (function
               (lambda (x)