From 0d311d36b9d5f430324d919ac097f2364588a432 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 20 Oct 2021 17:31:13 -0500 Subject: blayfduoisaudfoiasdupjfoiu --- lisp/acdw-circe.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'lisp/acdw-circe.el') diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index 4ff3fdf..73b1cdf 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el @@ -98,8 +98,8 @@ message the current topic." (with-circe-server-buffer (dolist (buf (circe-server-chat-buffers)) (let ((circe-channel-killed-confirmation nil)) - (kill-buffer buf))) - (kill-buffer)))) + (run-with-timer 0.1 nil #'kill-buffer buf))) + (run-with-timer 0.1 nil #'kill-buffer)))) (defun circe-gquit@kill-buffer (&rest _) "Advice to kill all Circe related buffers after GQUIT." @@ -111,10 +111,8 @@ message the current topic." (with-current-buffer buf (dolist (buf (circe-server-chat-buffers)) (let ((circe-channel-killed-confirmation nil)) - (kill-buffer buf)) - (cancel-timer 'irc-send--queue)) - (message "%s: %s" buf circe-server-killed-confirmation) - (kill-buffer))))) + (run-with-timer 0.1 nil #'kill-buffer buf))) + (run-with-timer 0.1 nil #'kill-buffer))))) ;;; Patches -- cgit 1.4.1-21-gabe81