From 602e2f31c7cf9a5a6f31bd66f29ecc6b27dc4184 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 21 Jul 2019 14:43:11 +0200 Subject: [PATCH] core-lib: refactor pushnew! macro Do a little more work at expand-time. --- core/core-lib.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/core-lib.el b/core/core-lib.el index 506d0c804..2cee100bd 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -177,8 +177,8 @@ Accepts the same arguments as `message'." (defmacro pushnew! (place &rest values) "Like `cl-pushnew', but will prepend VALUES to PLACE. The order VALUES is preserved." - `(dolist (--value-- (nreverse (list ,@values))) - (cl-pushnew --value-- ,place))) + `(dolist (--x-- (list ,@(nreverse values))) + (cl-pushnew --x-- ,place))) (defmacro prependq! (sym &rest lists) "Prepend LISTS to SYM in place."