diff options
Diffstat (limited to 'lisp/erc/erc-page.el')
| -rw-r--r-- | lisp/erc/erc-page.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/erc/erc-page.el b/lisp/erc/erc-page.el index 308b3784ca5..a94678e5132 100644 --- a/lisp/erc/erc-page.el +++ b/lisp/erc/erc-page.el @@ -30,10 +30,13 @@ (require 'erc) +(declare-function erc-controls-interpret "erc-goodies" (str)) + (defgroup erc-page nil "React to CTCP PAGE messages." :group 'erc) +;;;###autoload(put 'ctcp-page 'erc--module 'page) ;;;###autoload(autoload 'erc-page-mode "erc-page") (define-erc-module page ctcp-page "Process CTCP PAGE requests from IRC." @@ -69,6 +72,7 @@ SENDER and MSG, so that might be easier to use." This will call `erc-page-function', if defined, or it will just print a message and `beep'. In addition to that, the page message is also inserted into the server buffer." + (require 'erc-goodies) ; for `erc-controls-interpret' (when (and erc-page-mode (string-match "PAGE\\(\\s-+.*\\)?$" msg)) (let* ((m (match-string 1 msg)) |