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

feature/popup: add +popup--inhibit-select letvar

Browse Source
This commit is contained in:
Henrik Lissner
2018-04-23 01:21:29 -04:00
parent fbfba93775
commit 4b5e7c1128
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
modules/feature/popup/autoload.el
View File

@ -2,6 +2,7 @@
(defvar +popup--populate-wparams (not EMACS26+)) (defvar +popup--populate-wparams (not EMACS26+))
(defvar +popup--inhibit-transient nil) (defvar +popup--inhibit-transient nil)
(defvar +popup--inhibit-select nil)
(defvar +popup--display-buffer-alist nil) (defvar +popup--display-buffer-alist nil)
(defvar +popup--old-display-buffer-alist nil) (defvar +popup--old-display-buffer-alist nil)
(defvar +popup--remember-last t) (defvar +popup--remember-last t)
@ -146,10 +147,11 @@ and enables `+popup-buffer-mode'."
(when-let* ((new-window (run-hook-with-args-until-success (when-let* ((new-window (run-hook-with-args-until-success
'+popup-display-buffer-actions buffer alist))) '+popup-display-buffer-actions buffer alist)))
(+popup--init new-window alist) (+popup--init new-window alist)
(let ((select (+popup-parameter 'select new-window))) (unless +popup--inhibit-select
(if (functionp select) (let ((select (+popup-parameter 'select new-window)))
(funcall select new-window old-window) (if (functionp select)
(select-window (if select new-window old-window)))) (funcall select new-window old-window)
(select-window (if select new-window old-window)))))
new-window))) new-window)))
;;;###autoload ;;;###autoload