emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
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")