From 79e155a2a8b8d620fb8fec155901580bd3be0fa6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 26 Jun 2018 18:08:16 +0200 Subject: [PATCH] doom-files-in: match full path with :match Instead of just the filename. --- core/core-lib.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 792aa8932..8e1a35fcd 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -167,7 +167,7 @@ MATCH is a string regexp. Only entries that match it will be included." (let ((fullpath (expand-file-name file path))) (cond ((file-directory-p fullpath) (when (and (memq type '(t dirs)) - (string-match-p match file) + (string-match-p match fullpath) (not (and filter (funcall filter fullpath))) (not (and (file-symlink-p fullpath) (not follow-symlinks))) @@ -185,7 +185,7 @@ MATCH is a string regexp. Only entries that match it will be included." :relative-to ,relative-to) rest)))))) ((and (memq type '(t files)) - (string-match-p match file) + (string-match-p match fullpath) (not (and filter (funcall filter fullpath))) (<= mindepth 0)) (push (if relative-to