Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc-page.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:03 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-page.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc-page.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'erc)
#@260 Non-nil if Erc-Page mode is enabled.
See the command `erc-page-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-page-mode'.
(custom-declare-variable 'erc-page-mode 'nil '(#$ . 627) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-page :type 'boolean)
#@124 Toggle ERC page mode.
With arg, turn ERC page mode on if and only if arg is positive.
Process CTCP PAGE requests from IRC.
(defalias 'erc-page-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2033�\313 \210\2026�\314 \210\315\316\n\203@�\317\202A�\320\"\210\321 \203e�\322\302!\210\303 \203X�\303 \232\203e�\310\323\n\203b�\324\202c�\325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-page-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Erc-Page mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1050) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-page-mode nil boundp erc-page-mode-map] 5)
#@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 (#$ . 2021) 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 (#$ . 2183) 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%\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] 6)
#@393 A function to process a "page" request.
If nil, this prints the page message in the minibuffer and calls
`beep'.  If non-nil, it must be a function that takes two arguments:
SENDER and MSG, both strings.

Example for your ~/.emacs file:

(setq erc-page-function
      (lambda (sender msg)
	(play-sound-file "/home/alex/elisp/erc/sounds/ni.wav")
	(message "IRC Page from %s: %s" sender msg)))
(custom-declare-variable 'erc-page-function 'nil '(#$ . 2733) :group 'erc-page :type '(choice (const nil) (function)))
#@325 List of functions to be called when a CTCP PAGE is received.
This is called from `erc-process-ctcp-query'.  The functions are called
with six arguments: PROC NICK LOGIN HOST TO MSG.  Note that you can
also set `erc-page-function' to a function, which only gets two arguments,
SENDER and MSG, so that might be easier to use.
(custom-declare-variable 'erc-ctcp-query-PAGE-hook ''(erc-ctcp-query-PAGE) '(#$ . 3251) :group 'erc-page :type '(repeat function))
#@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 (#$ . 3713)])
#@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 (#$ . 4500)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put erc-cmd-PAGE do-not-parse-args t provide erc-page] 4)

${this.title}

Code Editor : erc-page.elc