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

Add delete! convenience macro

Browse source 
And polish delq!'s docstring.
This commit is contained in:
Henrik Lissner 2019-08-10 11:07:25 -04:00
parent 0169f8e3f6
commit 856a2afe43
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-lib.el
View file

@ -230,13 +230,19 @@ This is a variadic `push'."
`(setq ,sym (nconc ,sym ,@lists))) `(setq ,sym (nconc ,sym ,@lists)))
(defmacro delq! (elt list &optional fetcher) (defmacro delq! (elt list &optional fetcher)
"Delete ELT from LIST in-place." "`delq' ELT from LIST in-place.
If FETCHER is a function, ELT is used as the key in LIST (an alist)."
`(setq ,list `(setq ,list
(delq ,(if fetcher (delq ,(if fetcher
`(funcall ,fetcher ,elt ,list) `(funcall ,fetcher ,elt ,list)
elt) elt)
,list))) ,list)))
(defmacro delete! (elt list)
"Delete ELT from LIST in-place."
`(setq ,list (delete ,elt ,list)))
(defmacro add-transient-hook! (hook-or-function &rest forms) (defmacro add-transient-hook! (hook-or-function &rest forms)
"Attaches a self-removing function to HOOK-OR-FUNCTION. "Attaches a self-removing function to HOOK-OR-FUNCTION.