Fix with-popup-rules! macro

This commit is contained in:
Henrik Lissner 2018-05-31 01:34:53 +02:00
parent b1ab80ec3f
commit 90ddc67337
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -474,7 +474,7 @@ should match the arguments of `+popup-define' or the :popup setting."
(declare (indent defun))
`(let ((+popup--display-buffer-alist +popup--old-display-buffer-alist)
display-buffer-alist)
,@(cl-loop for rule in rules collect `(+popup-define ,@rule))
,@(cl-loop for rule in rules collect `(set! :popup ,@rule))
(when (bound-and-true-p +popup-mode)
(setq display-buffer-alist +popup--display-buffer-alist))
,@body))