emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove nconcq! macro

Browse source 
Unused and unnecessary.
This commit is contained in:
Henrik Lissner 2020-01-24 18:13:37 -05:00
parent a681a32efc
commit 14fc65a9fb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 18 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

36
core/autoload/files.el
View file

@ -108,26 +108,26 @@ be relative to it.
The search recurses up to DEPTH and no further. DEPTH is an integer. The search recurses up to DEPTH and no further. DEPTH is an integer.
MATCH is a string regexp. Only entries that match it will be included." MATCH is a string regexp. Only entries that match it will be included."
(let (file-name-handler-alist (let (result file-name-handler-alist)
result)
(dolist (file (mapcan (doom-rpartial #'doom-glob "*") (doom-enlist paths))) (dolist (file (mapcan (doom-rpartial #'doom-glob "*") (doom-enlist paths)))
(cond ((file-directory-p file) (cond ((file-directory-p file)
(nconcq! result (appendq!
(and (memq type '(t dirs)) result
(string-match-p match file) (and (memq type '(t dirs))
(not (and filter (funcall filter file))) (string-match-p match file)
(not (and (file-symlink-p file) (not (and filter (funcall filter file)))
(not follow-symlinks))) (not (and (file-symlink-p file)
(<= mindepth 0) (not follow-symlinks)))
(list (cond (map (funcall map file)) (<= mindepth 0)
(relative-to (file-relative-name file relative-to)) (list (cond (map (funcall map file))
(file)))) (relative-to (file-relative-name file relative-to))
(and (>= depth 1) (file))))
(apply #'doom-files-in file (and (>= depth 1)
(append (list :mindepth (1- mindepth) (apply #'doom-files-in file
:depth (1- depth) (append (list :mindepth (1- mindepth)
:relative-to relative-to) :depth (1- depth)
rest))))) :relative-to relative-to)
rest)))))
((and (memq type '(t files)) ((and (memq type '(t files))
(string-match-p match file) (string-match-p match file)
(not (and filter (funcall filter file))) (not (and filter (funcall filter file)))

4
core/core-lib.el
View file

@ -159,10 +159,6 @@ This is a variadic `cl-pushnew'."
"Append LISTS to SYM in place." "Append LISTS to SYM in place."
`(setq ,sym (append ,sym ,@lists))) `(setq ,sym (append ,sym ,@lists)))
(defmacro nconcq! (sym &rest lists)
"Append LISTS to SYM by altering them in place."
`(setq ,sym (nconc ,sym ,@lists)))
(defmacro delq! (elt list &optional fetcher) (defmacro delq! (elt list &optional fetcher)
"`delq' ELT from LIST in-place. "`delq' ELT from LIST in-place.