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

letters with a colon after d or l.

(dired-re-dir, dired-re-sym): Don't match DOS drive
letters with a colon after d or l.
312a9e03 · Eli Zaretskii · e5b69caa · 312a9e03
Commit 312a9e03 authored Sep 06, 1999 by Eli Zaretskii
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/dired.el lisp/dired.el +4 -2

No files found.
--- 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)