Move no-other-window to +popup-default-parameters

Should be customizable.
This commit is contained in:
Henrik Lissner 2018-06-16 11:45:09 +02:00
parent 9a2f96c0f1
commit 74d364776e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 2 additions and 2 deletions

View file

@ -47,7 +47,6 @@ and enables `+popup-buffer-mode'."
(dolist (param (cdr (assq 'window-parameters alist))) (dolist (param (cdr (assq 'window-parameters alist)))
(set-window-parameter window (car param) (cdr param)))) (set-window-parameter window (car param) (cdr param))))
(set-window-parameter window 'popup t) (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-window #'+popup--delete-window)
(set-window-parameter window 'delete-other-windows #'+popup/close-all) (set-window-parameter window 'delete-other-windows #'+popup/close-all)
(set-window-dedicated-p window 'popup) (set-window-dedicated-p window 'popup)

View file

@ -90,7 +90,8 @@ a brief description of some native window parameters that Emacs uses:
(defvar +popup-default-parameters (defvar +popup-default-parameters
'((transient . t) '((transient . t)
(quit . t) (quit . t)
(select . ignore)) (select . ignore)
(no-other-window . t))
"The default window parameters.") "The default window parameters.")
(defvar +popup-ttl 5 (defvar +popup-ttl 5