feature/popup: preserve size later in init process

So it can't be overwritten via ALIST.
This commit is contained in:
Henrik Lissner 2018-01-15 00:39:23 -05:00
parent 227e7b095d
commit c166449f08
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -32,9 +32,6 @@ the buffer is visible, then set another timer and try again later."
default window parameters for popup windows, clears leftover transient timers default window parameters for popup windows, clears leftover transient timers
and enables `+popup-buffer-mode'." and enables `+popup-buffer-mode'."
(with-selected-window window (with-selected-window window
(window-preserve-size
window (memq (window-parameter window 'window-side)
'(left right)) t)
(when (and alist +popup--populate-wparams) (when (and alist +popup--populate-wparams)
;; Emacs 26+ will automatically map the window-parameters alist entry to ;; Emacs 26+ will automatically map the window-parameters alist entry to
;; the popup window, so we need this for Emacs 25.x users ;; the popup window, so we need this for Emacs 25.x users
@ -45,6 +42,10 @@ and enables `+popup-buffer-mode'."
(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)
(window-preserve-size
window (memq (window-parameter window 'window-side)
'(left right))
t)
(+popup-buffer-mode +1) (+popup-buffer-mode +1)
(run-hooks '+popup-create-window-hook))) (run-hooks '+popup-create-window-hook)))