| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-page.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:44 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-page.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [require erc custom-declare-variable erc-page-mode nil "Non-nil if Erc-Page mode is enabled.\nSee the command `erc-page-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-page-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group erc-page :type boolean] 12) #@210 Toggle ERC page mode. With a prefix argument ARG, enable page if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Process CTCP PAGE requests from IRC. (defalias 'erc-page-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307 \210\202! \310 \210\311\312\n\203+ \313\202, \314\"\210\315\316!\203Q \317\302!\210\303 \203D \303 \232\203Q \320\321\n\203N \322\202O \323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-page-mode current-message toggle prefix-numeric-value 0 erc-page-enable erc-page-disable run-hooks erc-page-mode-hook erc-page-mode-on-hook erc-page-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Page mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1057) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [erc-page-mode-map add-minor-mode erc-page-mode nil boundp] 6) #@23 Enable ERC page mode. (defalias 'erc-page-enable #[nil "\301\302\303\"\210\304\211\207" [erc-page-mode add-to-list erc-modules page t] 3 (#$ . 2014) nil]) #@24 Disable ERC page mode. (defalias 'erc-page-disable #[nil "\302\303\"\304\211\207" [erc-modules erc-page-mode delq page nil] 3 (#$ . 2176) nil]) (byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\210\310\311\312\313#\210\314\315\316\317\320\321%\210\322\323\316\324\320\315\325\326&\210\322\327\330\331\320\315\325\332&\207" [defalias erc-ctcp-page-mode erc-page-mode put definition-name page erc-page-enable erc-page-disable erc-define-catalog-entry english CTCP-PAGE "Page from %n (%u@%h): %m" custom-declare-group erc-page nil "React to CTCP PAGE messages." :group erc custom-declare-variable erc-page-function "A function to process a \"page\" request.\nIf nil, this prints the page message in the minibuffer and calls\n`beep'. If non-nil, it must be a function that takes two arguments:\nSENDER and MSG, both strings.\n\nExample for your init file:\n\n(setq erc-page-function\n (lambda (sender msg)\n (play-sound-file \"/home/alex/elisp/erc/sounds/ni.wav\")\n (message \"IRC Page from %s: %s\" sender msg)))" :type (choice (const nil) (function)) erc-ctcp-query-PAGE-hook '(erc-ctcp-query-PAGE) "List of functions to be called when a CTCP PAGE is received.\nThis is called from `erc-process-ctcp-query'. The functions are called\nwith six arguments: PROC NICK LOGIN HOST TO MSG. Note that you can\nalso set `erc-page-function' to a function, which only gets two arguments,\nSENDER and MSG, so that might be easier to use." (repeat function)] 8) #@234 Deal with an CTCP PAGE query, if `erc-page-mode' is non-nil. 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. (defalias 'erc-ctcp-query-PAGE #[(proc nick login host to msg) "\203W \306\307 \"\203W \310\311 \"\211\203 \312\n\311\313O!\202 \314\313 \n\203* \n\311\313O\315\316\317 \320\321\322 & \203G \"\210\202O \323\324\f\"\210\325 \210\326\313\327\313\f$\210+\313\207" [erc-page-mode msg m page-msg text nick string-match "PAGE\\(\\s-+.*\\)?$" match-string 1 erc-controls-interpret nil "[no message]" erc-format-message CTCP-PAGE 110 117 104 109 message "%s" beep erc-display-message notice login host erc-page-function] 11 (#$ . 3684)]) #@169 Send a CTCP page to the user given as the first word in LINE. The rest of LINE is the message to send. Note that you will only receive pages if `erc-page-mode' is on. (defalias 'erc-cmd-PAGE #[(line &optional force) "\303\304\"\205 \305\306\"\305\307\"\310\n\311 #*\207" [line msg nick string-match "^\\s-*\\(\\S-+\\) ?\\(.*\\)" match-string 1 2 erc-cmd-CTCP "PAGE"] 4 (#$ . 4471)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put erc-cmd-PAGE do-not-parse-args t provide erc-page] 4)