From 312a9e03f1b53ee8823dd2633c93a95490dabf5b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 6 Sep 1999 11:22:43 +0000 Subject: [PATCH] (dired-re-dir, dired-re-sym): Don't match DOS drive letters with a colon after d or l. --- lisp/dired.el | 6 ++++-- 1 file 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) -- 2.39.5