diff options
Diffstat (limited to 'lisp/acdw-circe.el')
| -rw-r--r-- | lisp/acdw-circe.el | 10 |
1 files changed, 4 insertions, 6 deletions
| 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." | |||
| 98 | (with-circe-server-buffer | 98 | (with-circe-server-buffer |
| 99 | (dolist (buf (circe-server-chat-buffers)) | 99 | (dolist (buf (circe-server-chat-buffers)) |
| 100 | (let ((circe-channel-killed-confirmation nil)) | 100 | (let ((circe-channel-killed-confirmation nil)) |
| 101 | (kill-buffer buf))) | 101 | (run-with-timer 0.1 nil #'kill-buffer buf))) |
| 102 | (kill-buffer)))) | 102 | (run-with-timer 0.1 nil #'kill-buffer)))) |
| 103 | 103 | ||
| 104 | (defun circe-gquit@kill-buffer (&rest _) | 104 | (defun circe-gquit@kill-buffer (&rest _) |
| 105 | "Advice to kill all Circe related buffers after GQUIT." | 105 | "Advice to kill all Circe related buffers after GQUIT." |
| @@ -111,10 +111,8 @@ message the current topic." | |||
| 111 | (with-current-buffer buf | 111 | (with-current-buffer buf |
| 112 | (dolist (buf (circe-server-chat-buffers)) | 112 | (dolist (buf (circe-server-chat-buffers)) |
| 113 | (let ((circe-channel-killed-confirmation nil)) | 113 | (let ((circe-channel-killed-confirmation nil)) |
| 114 | (kill-buffer buf)) | 114 | (run-with-timer 0.1 nil #'kill-buffer buf))) |
| 115 | (cancel-timer 'irc-send--queue)) | 115 | (run-with-timer 0.1 nil #'kill-buffer))))) |
| 116 | (message "%s: %s" buf circe-server-killed-confirmation) | ||
| 117 | (kill-buffer))))) | ||
| 118 | 116 | ||
| 119 | ;;; Patches | 117 | ;;; Patches |
| 120 | 118 | ||