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

core-lib: add prependq! and appendq! macros

Browse Source
This commit is contained in:
Henrik Lissner
2019-07-21 14:39:16 +02:00
parent 0f98b5b3c2
commit b742bf086f
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/core-lib.el
View File

@ -180,6 +180,14 @@ The order VALUES is preserved."
`(dolist (--value-- (nreverse (list ,@values))) `(dolist (--value-- (nreverse (list ,@values)))
(cl-pushnew --value-- ,place))) (cl-pushnew --value-- ,place)))
(defmacro prependq! (sym &rest lists)
"Prepend LISTS to SYM in place."
`(setq ,sym (append (list ,@lists) ,sym)))
(defmacro appendq! (sym &rest lists)
"Append LISTS to SYM in place."
`(setq ,sym (append ,sym ,@lists)))
(defmacro delq! (elt list &optional fetcher) (defmacro delq! (elt list &optional fetcher)
"Delete ELT from LIST in-place." "Delete ELT from LIST in-place."
`(setq ,list `(setq ,list