[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][emacs22] /GQ: Kill query buffers after 4 seconds i
From: |
mwolson |
Subject: |
[Erc-commit] [commit][emacs22] /GQ: Kill query buffers after 4 seconds if user wants it |
Date: |
Sun, 14 Oct 2007 00:49:11 -0400 |
commit ffab470eeadb67e3aa7cb470a24ca2c009077dee
Author: Michael W. Olson <address@hidden>
Date: Sun Aug 26 20:11:32 2007 -0400
/GQ: Kill query buffers after 4 seconds if user wants it
* erc.el (erc-cmd-GQUIT): If erc-kill-queries-on-quit is non-nil, kill
all query buffers after 4 seconds.
diff --git a/ChangeLog b/ChangeLog
index 461a34d..f9594d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-27 Michael Olson <address@hidden>
+
+ * erc.el (erc-cmd-GQUIT): If erc-kill-queries-on-quit is non-nil,
+ kill all query buffers after 4 seconds.
+
2007-08-16 Michael Olson <address@hidden>
* NEWS: Add ERC 5.3 changes section, and mention jbms' erc-track
diff --git a/erc.el b/erc.el
index 1628fbd..2c931d8 100644
--- a/erc.el
+++ b/erc.el
@@ -3258,7 +3258,17 @@ the message given by REASON."
(defun erc-cmd-GQUIT (reason)
"Disconnect from all servers at once with the same quit REASON."
(erc-with-all-buffers-of-server nil #'erc-open-server-buffer-p
- (erc-cmd-QUIT reason)))
+ (erc-cmd-QUIT reason))
+ (when erc-kill-queries-on-quit
+ ;; if the query buffers have not been killed within 4 seconds,
+ ;; kill them
+ (run-at-time
+ 4 nil
+ (lambda ()
+ (dolist (buffer (erc-buffer-list (lambda (buf)
+ (not (erc-server-buffer-p buf)))))
+ (kill-buffer buffer)))))
+ t)
(defalias 'erc-cmd-GQ 'erc-cmd-GQUIT)
(put 'erc-cmd-GQUIT 'do-not-parse-args t)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][emacs22] /GQ: Kill query buffers after 4 seconds if user wants it,
mwolson <=