From 4b5e7c11285bc0759f2767f4005c47c952e68ec9 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 23 Apr 2018 01:21:29 -0400 Subject: [PATCH] feature/popup: add +popup--inhibit-select letvar --- modules/feature/popup/autoload.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/modules/feature/popup/autoload.el b/modules/feature/popup/autoload.el index 58d37c67b..9c72ff2f0 100644 --- a/modules/feature/popup/autoload.el +++ b/modules/feature/popup/autoload.el @@ -2,6 +2,7 @@ (defvar +popup--populate-wparams (not EMACS26+)) (defvar +popup--inhibit-transient nil) +(defvar +popup--inhibit-select nil) (defvar +popup--display-buffer-alist nil) (defvar +popup--old-display-buffer-alist nil) (defvar +popup--remember-last t) @@ -146,10 +147,11 @@ and enables `+popup-buffer-mode'." (when-let* ((new-window (run-hook-with-args-until-success '+popup-display-buffer-actions buffer alist))) (+popup--init new-window alist) - (let ((select (+popup-parameter 'select new-window))) - (if (functionp select) - (funcall select new-window old-window) - (select-window (if select new-window old-window)))) + (unless +popup--inhibit-select + (let ((select (+popup-parameter 'select new-window))) + (if (functionp select) + (funcall select new-window old-window) + (select-window (if select new-window old-window))))) new-window))) ;;;###autoload