From 74d364776e3aa8678df1549b217f0f8bd0d230c9 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 16 Jun 2018 11:45:09 +0200 Subject: [PATCH] Move no-other-window to +popup-default-parameters Should be customizable. --- modules/ui/popup/autoload/popup.el | 1 - modules/ui/popup/config.el | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/ui/popup/autoload/popup.el b/modules/ui/popup/autoload/popup.el index 428dd3633..4426f0438 100644 --- a/modules/ui/popup/autoload/popup.el +++ b/modules/ui/popup/autoload/popup.el @@ -47,7 +47,6 @@ and enables `+popup-buffer-mode'." (dolist (param (cdr (assq 'window-parameters alist))) (set-window-parameter window (car param) (cdr param)))) (set-window-parameter window 'popup t) - (set-window-parameter window 'no-other-window t) (set-window-parameter window 'delete-window #'+popup--delete-window) (set-window-parameter window 'delete-other-windows #'+popup/close-all) (set-window-dedicated-p window 'popup) diff --git a/modules/ui/popup/config.el b/modules/ui/popup/config.el index 2d7dbdcfc..e27f455fb 100644 --- a/modules/ui/popup/config.el +++ b/modules/ui/popup/config.el @@ -90,7 +90,8 @@ a brief description of some native window parameters that Emacs uses: (defvar +popup-default-parameters '((transient . t) (quit . t) - (select . ignore)) + (select . ignore) + (no-other-window . t)) "The default window parameters.") (defvar +popup-ttl 5