From 492f2dea1e4a9aa240018c4785274b5806478349 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 21 Jul 2019 19:12:11 +0200 Subject: [PATCH] core-lib: add nconcq! macro --- core/core-lib.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/core/core-lib.el b/core/core-lib.el index fc2130496..5adc87878 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -305,6 +305,10 @@ This is a variadic `push'." "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) "Delete ELT from LIST in-place." `(setq ,list