diff options
| author | Giorgos Keramidas | 2011-01-22 17:21:38 +0100 |
|---|---|---|
| committer | Deniz Dogan | 2011-01-22 17:21:38 +0100 |
| commit | 80094035aff85d827e1ef65627974b34ad9fa8df (patch) | |
| tree | 34d23199f84788a68cd120cd6758d14c19fc2269 | |
| parent | acf151a81563f6ab5cecac4b4501c18d1961982b (diff) | |
| download | emacs-80094035aff85d827e1ef65627974b34ad9fa8df.tar.gz emacs-80094035aff85d827e1ef65627974b34ad9fa8df.zip | |
* net/rcirc.el (rcirc-kill-buffer-hook): Flush logs.
| -rw-r--r-- | lisp/net/rcirc.el | 3 |
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." | |||
| 1029 | (defun rcirc-kill-buffer-hook () | 1029 | (defun rcirc-kill-buffer-hook () |
| 1030 | "Part the channel when killing an rcirc buffer." | 1030 | "Part the channel when killing an rcirc buffer." |
| 1031 | (when (eq major-mode 'rcirc-mode) | 1031 | (when (eq major-mode 'rcirc-mode) |
| 1032 | (when (and rcirc-log-flag | ||
| 1033 | rcirc-log-directory) | ||
| 1034 | (rcirc-log-write)) | ||
| 1032 | (rcirc-clean-up-buffer "Killed buffer"))) | 1035 | (rcirc-clean-up-buffer "Killed buffer"))) |
| 1033 | 1036 | ||
| 1034 | (defun rcirc-change-major-mode-hook () | 1037 | (defun rcirc-change-major-mode-hook () |