aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/erc/erc.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/erc/erc.el')
-rw-r--r--lisp/erc/erc.el17
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 (_)