core-popups: prepend :popup settings

This commit is contained in:
Henrik Lissner 2017-02-25 22:18:16 -05:00
parent 253858303e
commit cfd249b7f4

View file

@ -34,7 +34,7 @@ is enabled/disabled.'")
(def-setting! :popup (&rest rules) (def-setting! :popup (&rest rules)
"Prepend a new popup rule to `shackle-rules'." "Prepend a new popup rule to `shackle-rules'."
(if (cl-every 'listp rules) (if (cl-every 'listp rules)
`(nconc shackle-rules ',rules) `(setq shackle-rules (nconc ',rules shackle-rules))
`(push ',rules shackle-rules))) `(push ',rules shackle-rules)))