Lines Matching defs:page
1 ;; erc-page.el - CTCP PAGE support for ERC
27 ;; `erc-page-mode'.
33 ;;;###autoload (autoload 'erc-page-mode "erc-page")
34 (define-erc-module page ctcp-page
40 (defgroup erc-page nil
44 (defcustom erc-page-function nil
45 "A function to process a \"page\" request.
46 If nil, this prints the page message in the minibuffer and calls
52 \(setq erc-page-function
56 :group 'erc-page
64 also set `erc-page-function' to a function, which only gets two arguments,
66 :group 'erc-page
70 "Deal with an CTCP PAGE query, if `erc-page-mode' is non-nil.
71 This will call `erc-page-function', if defined, or it will just print
72 a message and `beep'. In addition to that, the page message is also
74 (when (and erc-page-mode
77 (page-msg (if m (erc-controls-interpret (substring m 1))
83 ?h host ?m page-msg))
84 (if erc-page-function
85 (funcall erc-page-function nick page-msg)
95 "Send a CTCP page to the user given as the first word in LINE.
97 receive pages if `erc-page-mode' is on."
105 (provide 'erc-page)
108 ;;; erc-page.el ends here