From ca574c60b0ea7104d36f923d8d5e72eb06ea1ec4 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 24 Aug 2019 01:23:22 -0400 Subject: [PATCH] Fix pushnew! inserting duplicates of complex types Because it was using #'eql for comparison, which is insufficient for compound datatypes, like strings. --- core/core-lib.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/core-lib.el b/core/core-lib.el index 3d2d27c29..e2290bc3d 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -169,7 +169,7 @@ at the values with which this function was called." This is a variadic `cl-pushnew'." (let ((var (make-symbol "result"))) `(dolist (,var (list ,@values)) - (cl-pushnew ,var ,place)))) + (cl-pushnew ,var ,place :test #'equal)))) (defmacro prependq! (sym &rest lists) "Prepend LISTS to SYM in place."