From: Eli Zaretskii Date: Mon, 6 Sep 1999 11:22:43 +0000 (+0000) Subject: (dired-re-dir, dired-re-sym): Don't match DOS drive X-Git-Tag: emacs-pretest-21.0.90~6884 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=312a9e03f1b53ee8823dd2633c93a95490dabf5b;p=emacs.git (dired-re-dir, dired-re-sym): Don't match DOS drive letters with a colon after d or l. --- 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)