Skip to content

GitLab

Commit 312a9e03 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

letters with a colon after d or l.
parent e5b69caa
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
lisp/dired.el
View file @ 312a9e03
...@@ -217,8 +217,10 @@ directory name and the cdr is the actual files to list.") ...@@ -217,8 +217,10 @@ directory name and the cdr is the actual files to list.")
;; "Regexp matching a marked line. ;; "Regexp matching a marked line.
;; Important: the match ends just after the marker." ;; Important: the match ends just after the marker."
(defvar dired-re-maybe-mark "^. ") (defvar dired-re-maybe-mark "^. ")
(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d")) ;; The [^:] part after "d" and "l" is to avoid confusion with the
(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l")) ;; 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 (defvar dired-re-exe;; match ls permission string of an executable file
(mapconcat (function (mapconcat (function
(lambda (x) (lambda (x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment