mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
feature/popup: fix incorrect delete-window window parameter #261
A bug that could make popup windows invulnerable to being closed. The horror!
This commit is contained in:
@ -30,12 +30,7 @@ and enables `+popup-buffer-mode'."
|
|||||||
(with-selected-window window
|
(with-selected-window window
|
||||||
(set-window-parameter window 'popup t)
|
(set-window-parameter window 'popup t)
|
||||||
(set-window-parameter window 'no-other-window t)
|
(set-window-parameter window 'no-other-window t)
|
||||||
(set-window-parameter
|
(set-window-parameter window 'delete-window #'+popup--destroy)
|
||||||
window 'delete-window
|
|
||||||
;; if set, we still want to call `+popup--destroy' afterwards.
|
|
||||||
(if-let* ((fn (window-parameter window 'delete-window)))
|
|
||||||
(lambda (window) (funcall fn window) (+popup--destroy window))
|
|
||||||
#'+popup--destroy))
|
|
||||||
(window-preserve-size
|
(window-preserve-size
|
||||||
window (memq (window-parameter window 'window-side)
|
window (memq (window-parameter window 'window-side)
|
||||||
'(left right)) t)
|
'(left right)) t)
|
||||||
|
Reference in New Issue
Block a user