# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 936616963 0
# Node ID 76420959ca816dfbb57e0dd3e3ca9b8902578fc5
# Parent  5eb4b90c57b0f5d3bd9d7c736fb1723956fe5629
(dired-re-dir, dired-re-sym): Don't match DOS drive
letters with a colon after d or l.

diff -r 5eb4b90c57b0 -r 76420959ca81 lisp/dired.el
--- a/lisp/dired.el	Mon Sep 06 11:10:35 1999 +0000
+++ b/lisp/dired.el	Mon Sep 06 11:22:43 1999 +0000
@@ -217,8 +217,10 @@
 ;; "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)