about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el17
1 files changed, 15 insertions, 2 deletions
diff --git a/init.el b/init.el index 3ff6589..855fb28 100644 --- a/init.el +++ b/init.el
@@ -258,15 +258,28 @@ AKA, DO NOT USE THIS FUNCTION!!!"
258 258
259 circe-command-QUIT :after 259 circe-command-QUIT :after
260 (defun circe-quit@kill-buffer (&rest _) 260 (defun circe-quit@kill-buffer (&rest _)
261 (let ((circe-server-killed-confirmation 'kill-all)) 261 ;; `circe-server-killed-confirmation' set to nil, and manually
262 ;; deleting all chat buffers, pending Github issue #402
263 ;; (https://github.com/emacs-circe/circe/issues/402)
264 (let ((circe-server-killed-confirmation nil))
262 (with-circe-server-buffer 265 (with-circe-server-buffer
266 (dolist (buf (circe-server-chat-buffers))
267 (let ((circe-channel-killed-confirmation nil))
268 (kill-buffer buf)))
263 (kill-buffer)))) 269 (kill-buffer))))
264 270
265 circe-command-GQUIT :after 271 circe-command-GQUIT :after
266 (defun circe-gquit@kill-buffer (&rest _) 272 (defun circe-gquit@kill-buffer (&rest _)
267 (let ((circe-server-killed-confirmation 'kill-all)) 273 ;; `circe-server-killed-confirmation' set to nil, and manually
274 ;; deleting all chat buffers, pending Github issue #402
275 ;; (https://github.com/emacs-circe/circe/issues/402)
276 (let ((circe-server-killed-confirmation nil))
268 (dolist (buf (circe-server-buffers)) 277 (dolist (buf (circe-server-buffers))
269 (with-current-buffer buf 278 (with-current-buffer buf
279 (dolist (buf (circe-server-chat-buffers))
280 (let ((circe-channel-killed-confirmation nil))
281 (kill-buffer buf)))
282 (message "%s: %s" buf circe-server-killed-confirmation)
270 (kill-buffer)))))) 283 (kill-buffer))))))
271 284
272 (defun circe-command-SHORTEN (url) 285 (defun circe-command-SHORTEN (url)