diff options
Diffstat (limited to 'lisp/erc/erc.el')
| -rw-r--r-- | lisp/erc/erc.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 572b73188e3..6facb7966b0 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -1693,11 +1693,18 @@ time `erc-mode-hook' runs for any connection." | |||
| 1693 | (declare (indent 1)) | 1693 | (declare (indent 1)) |
| 1694 | (cl-assert (stringp (car args))) | 1694 | (cl-assert (stringp (car args))) |
| 1695 | (if (derived-mode-p 'erc-mode) | 1695 | (if (derived-mode-p 'erc-mode) |
| 1696 | (unless (or (erc-with-server-buffer ; needs `erc-server-process' | 1696 | (unless |
| 1697 | (apply #'erc-button--display-error-notice-with-keys | 1697 | (or (erc-with-server-buffer ; needs `erc-server-process' |
| 1698 | (current-buffer) args) | 1698 | (let ((fn |
| 1699 | t) | 1699 | (lambda (buffer) |
| 1700 | erc--target) ; unlikely | 1700 | (erc-with-buffer (buffer) |
| 1701 | (apply #'erc-button--display-error-notice-with-keys | ||
| 1702 | buffer args))))) | ||
| 1703 | (if erc--msg-props | ||
| 1704 | (run-at-time nil nil fn (current-buffer)) | ||
| 1705 | (funcall fn (current-buffer)))) | ||
| 1706 | t) | ||
| 1707 | erc--target) ; unlikely | ||
| 1701 | (let (hook) | 1708 | (let (hook) |
| 1702 | (setq hook | 1709 | (setq hook |
| 1703 | (lambda (_) | 1710 | (lambda (_) |