diff options
| -rw-r--r-- | lisp/erc/erc-log.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index 1f0cb13c0d0..babcb5f68ff 100644 --- a/lisp/erc/erc-log.el +++ b/lisp/erc/erc-log.el | |||
| @@ -321,12 +321,13 @@ If BUFFER is nil, the value of `current-buffer' is used. | |||
| 321 | Logging is enabled if `erc-log-channels-directory' is non-nil, the directory | 321 | Logging is enabled if `erc-log-channels-directory' is non-nil, the directory |
| 322 | is writable (it will be created as necessary) and | 322 | is writable (it will be created as necessary) and |
| 323 | `erc-enable-logging' returns a non-nil value." | 323 | `erc-enable-logging' returns a non-nil value." |
| 324 | (or buffer (setq buffer (current-buffer))) | ||
| 324 | (and erc-log-channels-directory | 325 | (and erc-log-channels-directory |
| 325 | (or (functionp erc-log-channels-directory) | 326 | (or (functionp erc-log-channels-directory) |
| 326 | (erc-directory-writable-p erc-log-channels-directory)) | 327 | (erc-directory-writable-p erc-log-channels-directory)) |
| 327 | (if (functionp erc-enable-logging) | 328 | (if (functionp erc-enable-logging) |
| 328 | (funcall erc-enable-logging (or buffer (current-buffer))) | 329 | (funcall erc-enable-logging buffer) |
| 329 | erc-enable-logging))) | 330 | (buffer-local-value 'erc-enable-logging buffer)))) |
| 330 | 331 | ||
| 331 | (defun erc-log-standardize-name (filename) | 332 | (defun erc-log-standardize-name (filename) |
| 332 | "Make FILENAME safe to use as the name of an ERC log. | 333 | "Make FILENAME safe to use as the name of an ERC log. |