Small fix for erc-logging-enabled
* lisp/erc/erc-log.el (erc-logging-enabled): Respect buffer-locality of erc-enable-logging variable.
This commit is contained in:
parent
34b41e3bc6
commit
26c58f31a8
1 changed files with 3 additions and 2 deletions
|
@ -321,12 +321,13 @@ If BUFFER is nil, the value of `current-buffer' is used.
|
||||||
Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
|
Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
|
||||||
is writable (it will be created as necessary) and
|
is writable (it will be created as necessary) and
|
||||||
`erc-enable-logging' returns a non-nil value."
|
`erc-enable-logging' returns a non-nil value."
|
||||||
|
(or buffer (setq buffer (current-buffer)))
|
||||||
(and erc-log-channels-directory
|
(and erc-log-channels-directory
|
||||||
(or (functionp erc-log-channels-directory)
|
(or (functionp erc-log-channels-directory)
|
||||||
(erc-directory-writable-p erc-log-channels-directory))
|
(erc-directory-writable-p erc-log-channels-directory))
|
||||||
(if (functionp erc-enable-logging)
|
(if (functionp erc-enable-logging)
|
||||||
(funcall erc-enable-logging (or buffer (current-buffer)))
|
(funcall erc-enable-logging buffer)
|
||||||
erc-enable-logging)))
|
(buffer-local-value 'erc-enable-logging buffer))))
|
||||||
|
|
||||||
(defun erc-log-standardize-name (filename)
|
(defun erc-log-standardize-name (filename)
|
||||||
"Make FILENAME safe to use as the name of an ERC log.
|
"Make FILENAME safe to use as the name of an ERC log.
|
||||||
|
|
Loading…
Add table
Reference in a new issue