awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(popup): overaggressive ignoring of popup rules

Browse Source 
Would cause errors in some legitimate cases where we want
display-buffer-alist respected.
This commit is contained in:
Henrik Lissner
2021-07-31 00:40:12 -04:00
parent 443370b4d7
commit 348ff3f65d
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/ui/popup/+hacks.el
View File

@ -50,15 +50,14 @@ to this commmand."
(+popup/close nil 'force)))) (+popup/close nil 'force))))
(global-set-key [remap quit-window] #'+popup/quit-window) (global-set-key [remap quit-window] #'+popup/quit-window)
(defadvice! +popup-override-display-buffer-alist-a (orig-fn buffer-or-name &optional action norecord) (defadvice! +popup-override-display-buffer-alist-a (orig-fn &rest args)
"When `pop-to-buffer' is called with non-nil ACTION, that ACTION should "When `pop-to-buffer' is called with non-nil ACTION, that ACTION should
override `display-buffer-alist'." override `display-buffer-alist'."
:around #'pop-to-buffer :around #'switch-to-buffer-other-tab
(let ((display-buffer-overriding-action :around #'switch-to-buffer-other-window
(if (eq action t) :around #'switch-to-buffer-other-frame
display-buffer-overriding-action (let ((display-buffer-alist nil))
action))) (apply orig-fn args)))
(funcall orig-fn buffer-or-name action norecord)))
;; ;;