emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/popup: refactor popup cleanup function

Browse source
This commit is contained in:
Henrik Lissner 2018-02-18 22:59:38 -05:00
parent e3d454d855
commit 3d20763d58
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/feature/popup/autoload.el
View file

@ -14,17 +14,17 @@
"Tries to kill BUFFER, as was requested by a transient timer. If it fails, eg.
the buffer is visible, then set another timer and try again later."
(when (buffer-live-p buffer)
(let ((kill-buffer-hook (delq '+popup|kill-buffer-hook kill-buffer-hook)))
(let ((kill-buffer-hook (remq '+popup|kill-buffer-hook kill-buffer-hook)))
(cond ((eq ttl 0)
(kill-buffer buffer))
((get-buffer-window buffer)
(with-current-buffer buffer
(setq +popup--timer
(run-at-time ttl nil #'+popup--kill-buffer buffer ttl))))
(t
(with-demoted-errors "Error killing transient buffer: %s"
(when-let* ((process (get-buffer-process (current-buffer))))
(kill-process process))
((with-demoted-errors "Error killing transient buffer: %s"
(let (confirm-kill-processes)
(when-let* ((process (get-buffer-process (current-buffer))))
(kill-process process)))
(kill-buffer buffer)))))))
(defun +popup--init (window &optional alist)