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-notify.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-notify.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-notify.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require erc erc-networks custom-declare-group erc-notify nil "Track online status of certain nicknames." :group] 6)
#@80 *List of nicknames you want to be notified about online/offline
status change.
(custom-declare-variable 'erc-notify-list 'nil '(#$ . -801) :group 'erc-notify :type '(repeat string))
#@79 *Time interval (in seconds) for checking online status of notificated
people.
(custom-declare-variable 'erc-notify-interval '60 '(#$ . -989) :group 'erc-notify :type 'integer)
#@134 *Hook run after someone on `erc-notify-list' has signed on.
Two arguments are passed to the function, SERVER and NICK, both
strings.
(custom-declare-variable 'erc-notify-signon-hook 'nil '(#$ . -1172) :group 'erc-notify :type 'hook :options '(erc-notify-signon))
#@135 *Hook run after someone on `erc-notify-list' has signed off.
Two arguments are passed to the function, SERVER and NICK, both
strings.
(custom-declare-variable 'erc-notify-signoff-hook 'nil '(#$ . -1442) :group 'erc-notify :type 'hook :options '(erc-notify-signoff))
(defalias 'erc-notify-signon #[(server nick) "\302\303	#\207" [nick server message "%s signed on at %s"] 4])
(defalias 'erc-notify-signoff #[(server nick) "\302\303	#\207" [nick server message "%s signed off from %s"] 4])
#@60 Last ISON information received through `erc-notify-timer'.
(defvar erc-last-ison nil (#$ . 1938))
(make-variable-buffer-local 'erc-last-ison)
#@62 Last time ISON was sent to the server in `erc-notify-timer'.
(defvar erc-last-ison-time 0 (#$ . 2086))
(make-variable-buffer-local 'erc-last-ison-time)
(defalias 'erc-notify-install-message-catalogs #[nil "\300\301\302\"\207" [erc-define-catalog english ((notify_current . "Notificated people online: %l") (notify_list . "Current notify list: %l") (notify_on . "Detected %n on IRC network %m") (notify_off . "%n has left IRC network %m"))] 3])
#@266 Non-nil if Erc-Notify mode is enabled.
See the command `erc-notify-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-notify-mode'.
(custom-declare-variable 'erc-notify-mode 'nil '(#$ . 2537) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-notify :type 'boolean)
#@169 Toggle ERC notify mode.
With arg, turn ERC notify mode on if and only if arg is positive.
Periodically check for the online status of certain users and report
changes.
(defalias 'erc-notify-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-notify-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-notify-enable erc-notify-disable run-hooks erc-notify-mode-hook erc-notify-mode-on-hook erc-notify-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Notify mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2971) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-notify-mode nil boundp erc-notify-mode-map] 5)
#@25 Enable ERC notify mode.
(defalias 'erc-notify-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-notify-mode add-to-list erc-modules notify t add-hook erc-timer-hook erc-notify-timer erc-server-JOIN-functions erc-notify-JOIN erc-server-NICK-functions erc-notify-NICK erc-server-QUIT-functions erc-notify-QUIT] 3 (#$ . 4007) nil])
#@26 Disable ERC notify mode.
(defalias 'erc-notify-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-notify-mode delq notify nil remove-hook erc-timer-hook erc-notify-timer erc-server-JOIN-functions erc-notify-JOIN erc-server-NICK-functions erc-notify-NICK erc-server-QUIT-functions erc-notify-QUIT] 3 (#$ . 4408) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-notify-mode definition-name notify erc-notify-enable erc-notify-disable] 4)
(defalias 'erc-notify-timer #[(now) "\205#�	\205#�\305\n\"\fV\205#�\306\307\310\"\210\311\312\313\314	\315#P!\210\211\207" [erc-server-connected erc-notify-list erc-last-ison-time now erc-notify-interval erc-time-diff erc-once-with-server-event 303 (let* ((server (erc-response\.sender parsed)) (ison-list (delete "" (split-string (erc-response\.contents parsed)))) (new-list ison-list) (old-list (erc-with-server-buffer erc-last-ison))) (while new-list (when (not (erc-member-ignore-case (car new-list) old-list)) (run-hook-with-args 'erc-notify-signon-hook server (car new-list)) (erc-display-message parsed 'notice proc 'notify_on 110 (car new-list) 109 (erc-network-name))) (setq new-list (cdr new-list))) (while old-list (when (not (erc-member-ignore-case (car old-list) ison-list)) (run-hook-with-args 'erc-notify-signoff-hook server (car old-list)) (erc-display-message parsed 'notice proc 'notify_off 110 (car old-list) 109 (erc-network-name))) (setq old-list (cdr old-list))) (setq erc-last-ison ison-list) t) erc-server-send "ISON " mapconcat identity " "] 6])
#@211 Check if channel joiner is on `erc-notify-list' and not on `erc-last-ison'.
If this condition is satisfied, produce a notify_on message and add the nick
to `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-JOIN #[(proc parsed) "\306\307H	>\204
�\310\311!\210\312H!\313\n\"\203>�\313\n\f\"\204>�\314\304\n\"\210\315\316
\206-�\n#\210\317\320\321\322\n\323\324 &\210)\325\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name erc-extract-nick 0 error "erc-response.sender accessing a non-erc-response" 2 erc-member-ignore-case add-to-list run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 6041)])
#@205 Check if new nick is on `erc-notify-list' and not on `erc-last-ison'.
If this condition is satisfied, produce a notify_on message and add the nick
to `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-NICK #[(proc parsed) "\306H	>\204\f�\307\310!\210\311H\312\n\"\203<�\312\n\f\"\204<�\313\304\n\"\210\314\315
\206+�\n#\210\316\317\320\321\n\322\323 &\210)\324\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name 0 error "erc-response.contents accessing a non-erc-response" 5 erc-member-ignore-case add-to-list run-hook-with-args erc-notify-signon-hook erc-display-message notice notify_on 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 6818)])
#@206 Check if quitter is on `erc-notify-list' and on `erc-last-ison'.
If this condition is satisfied, produce a notify_off message and remove the
nick from `erc-last-ison' to prevent any further notifications.
(defalias 'erc-notify-QUIT #[(proc parsed) "\306\307H	>\204
�\310\311!\210\312H!\313\n\"\203G�\313\n\f\"\203G�\314\315\316\317\320\n!\321BBE\f\"\322\323
\2066�\n#\210\324\325\326\327\n\330\331 &\210)\332\207" [parsed cl-struct-erc-response-tags nick erc-notify-list erc-last-ison erc-server-announced-name erc-extract-nick 0 error "erc-response.sender accessing a non-erc-response" 2 erc-member-ignore-case erc-delete-if lambda (el) string= erc-downcase ((erc-downcase el)) run-hook-with-args erc-notify-signoff-hook erc-display-message notice notify_off 110 109 erc-network-name nil erc-session-server proc] 9 (#$ . 7570)])
#@179 Change `erc-notify-list' or list current notify-list members online.
Without args, list the current list of notificated people online,
with args, toggle notify status of people.
(defalias 'erc-cmd-NOTIFY #[(&rest args) "\2041�\306 \307	!\205�r	q\210\n))\211\204#�\310\311\312\313\314$\210\202-�\310\311\312\313\315\316&\210)\202\242�@\317\230\203I�\310\311\312\313\320\316\321\322\f\323#&\210\202\242�\203\224�\324@\f\"\203\206�\325@\f\"\326 \311\211\203\202�@r
q\210\327 \203x�\325@\n\")A\211\204e�*\202\215�\330@!\fBA\211\204M�\310\311\312\313\320\316\321\322\f\323#&\210\331\207" [args #1=#:buffer erc-last-ison ison erc-notify-list buf erc-server-buffer buffer-live-p erc-display-message nil notice active "No ison-list yet!" notify_current 108 "-l" notify_list mapconcat identity " " erc-member-ignore-case delete erc-buffer-list erc-server-buffer-p erc-string-no-properties t #2=#:--cl-dolist-temp--] 11 (#$ . 8418)])
(defalias 'pcomplete/erc-mode/NOTIFY #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-erc-all-nicks) nil] 5])
(byte-code "\300 \210\301\302!\207" [erc-notify-install-message-catalogs provide erc-notify] 2)

${this.title}

Code Editor : erc-notify.elc