acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Correct circe-command-{G,}QUIT behavior 

See https://github.com/emacs-circe/circe/issues/402
This commit is contained in:
Case Duckworth 2021-09-14 16:55:35 -05:00
parent 71adb88004
commit ca8221b366
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -258,15 +258,28 @@ AKA, DO NOT USE THIS FUNCTION!!!"
circe-command-QUIT :after
(defun circe-quit@kill-buffer (&rest _)
(let ((circe-server-killed-confirmation 'kill-all))
;; `circe-server-killed-confirmation' set to nil, and manually
;; deleting all chat buffers, pending Github issue #402
;; (https://github.com/emacs-circe/circe/issues/402)
(let ((circe-server-killed-confirmation nil))
(with-circe-server-buffer
(dolist (buf (circe-server-chat-buffers))
(let ((circe-channel-killed-confirmation nil))
(kill-buffer buf)))
(kill-buffer))))
circe-command-GQUIT :after
(defun circe-gquit@kill-buffer (&rest _)
(let ((circe-server-killed-confirmation 'kill-all))
;; `circe-server-killed-confirmation' set to nil, and manually
;; deleting all chat buffers, pending Github issue #402
;; (https://github.com/emacs-circe/circe/issues/402)
(let ((circe-server-killed-confirmation nil))
(dolist (buf (circe-server-buffers))
(with-current-buffer buf
(dolist (buf (circe-server-chat-buffers))
(let ((circe-channel-killed-confirmation nil))
(kill-buffer buf)))
(message "%s: %s" buf circe-server-killed-confirmation)
(kill-buffer))))))
(defun circe-command-SHORTEN (url)