From 3d20763d58cf4d574baa8cd085938225c30fd451 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 18 Feb 2018 22:59:38 -0500 Subject: [PATCH] feature/popup: refactor popup cleanup function --- modules/feature/popup/autoload.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/modules/feature/popup/autoload.el b/modules/feature/popup/autoload.el index 2f116c535..844d08fca 100644 --- a/modules/feature/popup/autoload.el +++ b/modules/feature/popup/autoload.el @@ -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)