core-popups: prepend :popup settings
This commit is contained in:
parent
253858303e
commit
cfd249b7f4
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue