diff options
| author | Kenichi Handa | 2012-11-23 23:36:24 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2012-11-23 23:36:24 +0900 |
| commit | 2aaec2d9be5cec44ea3b59cba476fd3e091f2fc9 (patch) | |
| tree | 3711b97807201b7eeaa066003b1c3a4ce929e5bb /lisp/erc/erc-log.el | |
| parent | e1d276cbf9e18f13101328f56bed1a1c0a66e63a (diff) | |
| parent | e7d0e5ee247a155a268ffbf80bedbe25e15b5032 (diff) | |
| download | emacs-2aaec2d9be5cec44ea3b59cba476fd3e091f2fc9.tar.gz emacs-2aaec2d9be5cec44ea3b59cba476fd3e091f2fc9.zip | |
Diffstat (limited to 'lisp/erc/erc-log.el')
| -rw-r--r-- | lisp/erc/erc-log.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index b3f3f5865a1..1ff2951e09e 100644 --- a/lisp/erc/erc-log.el +++ b/lisp/erc/erc-log.el | |||
| @@ -93,9 +93,7 @@ | |||
| 93 | ;;; Code: | 93 | ;;; Code: |
| 94 | 94 | ||
| 95 | (require 'erc) | 95 | (require 'erc) |
| 96 | (eval-when-compile | 96 | (eval-when-compile (require 'erc-networks)) |
| 97 | (require 'erc-networks) | ||
| 98 | (require 'cl)) | ||
| 99 | 97 | ||
| 100 | (defgroup erc-log nil | 98 | (defgroup erc-log nil |
| 101 | "Logging facilities for ERC." | 99 | "Logging facilities for ERC." |
| @@ -429,7 +427,8 @@ You can save every individual message by putting this function on | |||
| 429 | file t 'nomessage)))) | 427 | file t 'nomessage)))) |
| 430 | (let ((coding-system-for-write coding-system)) | 428 | (let ((coding-system-for-write coding-system)) |
| 431 | (write-region start end file t 'nomessage)))) | 429 | (write-region start end file t 'nomessage)))) |
| 432 | (if (and erc-truncate-buffer-on-save (interactive-p)) | 430 | (if (and erc-truncate-buffer-on-save |
| 431 | (called-interactively-p 'interactive)) | ||
| 433 | (progn | 432 | (progn |
| 434 | (let ((inhibit-read-only t)) (erase-buffer)) | 433 | (let ((inhibit-read-only t)) (erase-buffer)) |
| 435 | (move-marker erc-last-saved-position (point-max)) | 434 | (move-marker erc-last-saved-position (point-max)) |