awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feature/popup: support user-defined delete-window parameter

Browse Source
This commit is contained in:
Henrik Lissner
2018-01-07 05:42:54 -05:00
parent e481a2891a
commit dff4b03fff
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/feature/popup/autoload.el
View File

@ -39,10 +39,15 @@ and enables `+popup-buffer-mode'."
(with-selected-window window
(set-window-parameter window 'popup t)
(set-window-parameter window 'no-other-window t)
(set-window-parameter window 'delete-window #'+popup--destroy)
(set-window-parameter
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 (memq (window-parameter window 'window-side) '(left right)) t)
(+popup--cancel-buffer-timer)
window (memq (window-parameter window 'window-side)
'(left right)) t)
(+popup-buffer-mode +1)))
(defun +popup--destroy (window)