:popup: cl-pushnew => push

2017-02-13 04:45:22 -05:00 · 2017-02-13 04:45:22 -05:00 · f4e0734dcf
commit f4e0734dcf
parent 2d0b2d9a3f
1 changed files with 1 additions and 1 deletions
--- a/core/core-popups.el
+++ b/core/core-popups.el
@ -37,7 +37,7 @@
 (@def-setting :popup (&rest rules)
  "Prepend a new popup rule to `shackle-rules'."
  (if (not (-all-p 'listp rules))
-      `(cl-pushnew ',rules shackle-rules :key 'car :test 'equal)
+      `(push ',rules shackle-rules)
    (let (real-rules)
      (dolist (rule rules)
        (let ((pattern (car rule))