Remove nconcq! macro

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

View file

@ -108,11 +108,11 @@ be relative to it.
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."
(let (file-name-handler-alist
result)
(let (result file-name-handler-alist)
(dolist (file (mapcan (doom-rpartial #'doom-glob "*") (doom-enlist paths)))
(cond ((file-directory-p file)
(nconcq! result
(appendq!
result
(and (memq type '(t dirs))
(string-match-p match file)
(not (and filter (funcall filter file)))

View file

@ -159,10 +159,6 @@ This is a variadic `cl-pushnew'."
"Append LISTS to SYM in place."
`(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)
"`delq' ELT from LIST in-place.