diff options
| author | Case Duckworth | 2021-09-14 16:55:35 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-14 16:55:35 -0500 |
| commit | ca8221b36682b6c19df4ad33db4b7ec68bbb57fe (patch) | |
| tree | 49692a1cac03f6a7268d93c18a1a4154d91b381c | |
| parent | Un-verbose-ify auto-revert-mode (diff) | |
| download | emacs-ca8221b36682b6c19df4ad33db4b7ec68bbb57fe.tar.gz emacs-ca8221b36682b6c19df4ad33db4b7ec68bbb57fe.zip | |
Correct circe-command-{G,}QUIT behavior
See https://github.com/emacs-circe/circe/issues/402
| -rw-r--r-- | init.el | 17 |
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) |