awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(lib): remove redundant full? arg in doom-glob

Browse Source 
file-expand-wildcards already does this check, internally.
This commit is contained in:
Henrik Lissner
2022-09-10 21:26:24 +02:00
parent afa154db27
commit 0ce2989d86
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/lib/files.el
View File

@ -67,11 +67,10 @@ If the glob ends in a slash, only returns matching directories."
(declare (side-effect-free t)) (declare (side-effect-free t))
(let* (case-fold-search (let* (case-fold-search
file-name-handler-alist file-name-handler-alist
(path (apply #'file-name-concat segments)) (path (apply #'file-name-concat segments)))
(full? (file-name-absolute-p path)))
(if (string-suffix-p "/" path) (if (string-suffix-p "/" path)
(cl-delete-if-not #'file-directory-p (file-expand-wildcards (substring path 0 -1) full?)) (cl-delete-if-not #'file-directory-p (file-expand-wildcards (substring path 0 -1)))
(file-expand-wildcards path full?)))) (file-expand-wildcards path))))
;;;###autoload ;;;###autoload
(define-obsolete-function-alias 'doom-dir 'doom-path "3.0.0") (define-obsolete-function-alias 'doom-dir 'doom-path "3.0.0")