summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorGiorgos Keramidas <keramida@ceid.upatras.gr>2011-01-22 17:21:38 +0100
committerDeniz Dogan <deniz.a.m.dogan@gmail.com>2011-01-22 17:21:38 +0100
commit80094035aff85d827e1ef65627974b34ad9fa8df (patch)
tree34d23199f84788a68cd120cd6758d14c19fc2269 /lisp
parentacf151a81563f6ab5cecac4b4501c18d1961982b (diff)
downloademacs-80094035aff85d827e1ef65627974b34ad9fa8df.tar.gz
* net/rcirc.el (rcirc-kill-buffer-hook): Flush logs.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/net/rcirc.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 6481f627d92..cf570beb0ff 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1029,6 +1029,9 @@ If ALL is non-nil, update prompts in all IRC buffers."
(defun rcirc-kill-buffer-hook ()
"Part the channel when killing an rcirc buffer."
(when (eq major-mode 'rcirc-mode)
+ (when (and rcirc-log-flag
+ rcirc-log-directory)
+ (rcirc-log-write))
(rcirc-clean-up-buffer "Killed buffer")))
(defun rcirc-change-major-mode-hook ()