diff options
-rw-r--r-- | init.el | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/init.el b/init.el index d9a01d1..80fb0cc 100644 --- a/init.el +++ b/init.el | |||
@@ -229,9 +229,22 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
229 | (:bind "C-c C-p" #'circe-command-PART) | 229 | (:bind "C-c C-p" #'circe-command-PART) |
230 | 230 | ||
231 | (:advise circe-command-PART :after | 231 | (:advise circe-command-PART :after |
232 | (defun circe-command-PART@kill-buffer (&rest _) | 232 | (defun circe-part@kill-buffer (&rest _) |
233 | (let ((circe-channel-killed-confirmation nil)) | 233 | (let ((circe-channel-killed-confirmation nil)) |
234 | (kill-buffer)))) | 234 | (kill-buffer))) |
235 | |||
236 | circe-command-QUIT :after | ||
237 | (defun circe-quit@kill-buffer (&rest _) | ||
238 | (let ((circe-server-killed-confirmation nil)) | ||
239 | (with-circe-server-buffer | ||
240 | (kill-buffer)))) | ||
241 | |||
242 | circe-command-GQUIT :after | ||
243 | (defun circe-gquit@kill-buffer (&rest _) | ||
244 | (let ((circe-server-killed-confirmation nil)) | ||
245 | (dolist (buf (circe-server-buffers)) | ||
246 | (with-current-buffer buf | ||
247 | (kill-buffer)))))) | ||
235 | 248 | ||
236 | (:with-mode circe-chat-mode | 249 | (:with-mode circe-chat-mode |
237 | (:hook #'acdw/stop-paren-annoyances | 250 | (:hook #'acdw/stop-paren-annoyances |