Remove pushmany! macro

It is redundant with prependq!, appendq! and pushnew!.
This commit is contained in:
Henrik Lissner 2019-08-24 01:22:07 -04:00
parent 3d1569515b
commit a567e2f85e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -171,13 +171,6 @@ This is a variadic `cl-pushnew'."
`(dolist (,var (list ,@values)) `(dolist (,var (list ,@values))
(cl-pushnew ,var ,place)))) (cl-pushnew ,var ,place))))
(defmacro pushmany! (place &rest values)
"Push VALUES sequentually into PLACE.
This is a variadic `push'."
(let ((var (make-symbol "result")))
`(dolist (,var ,values)
(push ,var ,place))))
(defmacro prependq! (sym &rest lists) (defmacro prependq! (sym &rest lists)
"Prepend LISTS to SYM in place." "Prepend LISTS to SYM in place."
`(setq ,sym (append ,@lists ,sym))) `(setq ,sym (append ,@lists ,sym)))