Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
erc /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : erc-goodies.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:01 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-goodies.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-goodies.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'erc) #@39 Setup Imenu support in an ERC buffer. (defalias 'erc-imenu-setup #[nil "\301\300!\210\302\211\207" [imenu-create-index-function make-local-variable erc-create-imenu-index] 2 (#$ . 632)]) (add-hook 'erc-mode-hook 'erc-imenu-setup) #@31 Imenu index creation function (autoload 'erc-create-imenu-index "erc-imenu" '(#$ . 869)) #@307 Specify where to position the input line when using `erc-scroll-to-bottom'. This should be an integer specifying the line of the buffer on which the input line should stay. A value of "-1" would keep the input line positioned on the last line in the buffer. This is passed as an argument to `recenter'. (custom-declare-variable 'erc-input-line-position 'nil '(#$ . 965) :group 'erc-display :type '(choice integer (const nil))) #@290 Non-nil if Erc-Scrolltobottom mode is enabled. See the command `erc-scrolltobottom-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-scrolltobottom-mode'. (custom-declare-variable 'erc-scrolltobottom-mode 'nil '(#$ . 1402) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-scrolltobottom :type 'boolean) #@169 Toggle ERC scrolltobottom mode. With arg, turn ERC scrolltobottom mode on if and only if arg is positive. This mode causes the prompt to stay at the end of the window. (defalias 'erc-scrolltobottom-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-scrolltobottom-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-scrolltobottom-enable erc-scrolltobottom-disable run-hooks erc-scrolltobottom-mode-hook erc-scrolltobottom-mode-on-hook erc-scrolltobottom-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Scrolltobottom mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1876) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-scrolltobottom-mode nil boundp erc-scrolltobottom-mode-map] 5) #@33 Enable ERC scrolltobottom mode. (defalias 'erc-scrolltobottom-enable #[nil "\303\304\305\"\210\306\307\310\311\"\210\312 \313\211\203' \n@r q\210\311 \210)\nA\211\204 *\313\207" [erc-scrolltobottom-mode buffer #1=#:--cl-dolist-temp-- add-to-list erc-modules scrolltobottom t add-hook erc-mode-hook erc-add-scroll-to-bottom erc-buffer-list nil] 3 (#$ . 2992) nil]) #@34 Disable ERC scrolltobottom mode. (defalias 'erc-scrolltobottom-disable #[nil "\304\305\"\306\307\310\311\"\210\312 \306\211\203* @r\nq\210\307\313\314\315#\210) A\211\204 *\306\207" [erc-modules erc-scrolltobottom-mode buffer #1=#:--cl-dolist-temp-- delq scrolltobottom nil remove-hook erc-mode-hook erc-add-scroll-to-bottom erc-buffer-list window-scroll-functions erc-scroll-to-bottom t] 5 (#$ . 3368) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-scrolltobottom-mode definition-name scrolltobottom erc-scrolltobottom-enable erc-scrolltobottom-disable] 4) #@306 A hook function for `erc-mode-hook' to recenter output at bottom of window. If you find that ERC hangs when using this function, try customizing the value of `erc-input-line-position'. This works whenever scrolling happens, so it's added to `window-scroll-functions' rather than `erc-insert-post-hook'. (defalias 'erc-add-scroll-to-bottom #[nil "\300\301\302\303\304$\207" [add-hook window-scroll-functions erc-scroll-to-bottom nil t] 5 (#$ . 3987)]) #@256 Recenter WINDOW so that `point' is on the last line. This is added to `window-scroll-functions' by `erc-add-scroll-to-bottom'. You can control which line is recentered to by customizing the variable `erc-input-line-position'. DISPLAY-START is ignored. (defalias 'erc-scroll-to-bottom #[(window display-start) "\306!\2058 \307\310 \311\312\313 \"r\314\216\315\316\"\210\214~\210\f\2056 `\fV\2056 \212db\210\317 \2060 \320!\210\321\322!).\207" [window resize-mini-windows save-selected-window-alist save-selected-window-window erc-insert-marker erc-input-line-position window-live-p nil selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord recenter -1 sit-for 0] 4 (#$ . 4447)]) #@272 Non-nil if Erc-Readonly mode is enabled. See the command `erc-readonly-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-readonly-mode'. (custom-declare-variable 'erc-readonly-mode 'nil '(#$ . 5518) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-readonly :type 'boolean) #@147 Toggle ERC readonly mode. With arg, turn ERC readonly mode on if and only if arg is positive. This mode causes all inserted text to be read-only. (defalias 'erc-readonly-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-readonly-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-readonly-enable erc-readonly-disable run-hooks erc-readonly-mode-hook erc-readonly-mode-on-hook erc-readonly-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Readonly mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 5962) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-readonly-mode nil boundp erc-readonly-mode-map] 5) #@27 Enable ERC readonly mode. (defalias 'erc-readonly-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-readonly-mode add-to-list erc-modules readonly t add-hook erc-insert-post-hook erc-make-read-only erc-send-post-hook] 3 (#$ . 6996) nil]) #@28 Disable ERC readonly mode. (defalias 'erc-readonly-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-readonly-mode delq readonly nil remove-hook erc-insert-post-hook erc-make-read-only erc-send-post-hook] 3 (#$ . 7270) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-readonly-mode definition-name readonly erc-readonly-enable erc-readonly-disable] 4) #@125 Make all the text in the current buffer read-only. Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'. (defalias 'erc-make-read-only #[nil "\300ed\301\302$\210\300ed\303\302$\210\300ed\304\302$\207" [put-text-property read-only t front-sticky rear-nonsticky] 5 (#$ . 7709)]) #@290 Non-nil if Erc-Move-To-Prompt mode is enabled. See the command `erc-move-to-prompt-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-move-to-prompt-mode'. (custom-declare-variable 'erc-move-to-prompt-mode 'nil '(#$ . 8012) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-move-to-prompt :type 'boolean) #@178 Toggle ERC move-to-prompt mode. With arg, turn ERC move-to-prompt mode on if and only if arg is positive. This mode causes the point to be moved to the prompt when typing text. (defalias 'erc-move-to-prompt-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-move-to-prompt-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-move-to-prompt-enable erc-move-to-prompt-disable run-hooks erc-move-to-prompt-mode-hook erc-move-to-prompt-mode-on-hook erc-move-to-prompt-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Move-To-Prompt mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 8486) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-move-to-prompt-mode nil boundp erc-move-to-prompt-mode-map] 5) #@33 Enable ERC move-to-prompt mode. (defalias 'erc-move-to-prompt-enable #[nil "\303\304\305\"\210\306\307\310\311\"\210\312 \313\211\203' \n@r q\210\311 \210)\nA\211\204 *\313\207" [erc-move-to-prompt-mode buffer #1=#:--cl-dolist-temp-- add-to-list erc-modules move-to-prompt t add-hook erc-mode-hook erc-move-to-prompt-setup erc-buffer-list nil] 3 (#$ . 9611) nil]) #@34 Disable ERC move-to-prompt mode. (defalias 'erc-move-to-prompt-disable #[nil "\304\305\"\306\307\310\311\"\210\312 \306\211\203* @r\nq\210\307\313\314\315#\210) A\211\204 *\306\207" [erc-modules erc-move-to-prompt-mode buffer #1=#:--cl-dolist-temp-- delq move-to-prompt nil remove-hook erc-mode-hook erc-move-to-prompt-setup erc-buffer-list pre-command-hook erc-move-to-prompt t] 5 (#$ . 9987) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-move-to-prompt-mode definition-name move-to-prompt erc-move-to-prompt-enable erc-move-to-prompt-disable] 4) #@71 Move the point to the ERC prompt if this is a self-inserting command. (defalias 'erc-move-to-prompt #[nil "\205A `W\205A \304=\205A \n\203< \n\305=\204& \n\242\306=\203, \nA\204, \307\211\202; \n\242\306=\2036 \nA\307\310\311!\210\312 \210db\207" [erc-input-marker this-command transient-mark-mode mark-active self-insert-command lambda only nil run-hooks deactivate-mark-hook push-mark] 2 (#$ . 10596)]) #@50 Initialize the move-to-prompt module for XEmacs. (defalias 'erc-move-to-prompt-setup #[nil "\300\301\302\303\304$\207" [add-hook pre-command-hook erc-move-to-prompt nil t] 5 (#$ . 11013)]) #@278 Non-nil if Erc-Keep-Place mode is enabled. See the command `erc-keep-place-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-keep-place-mode'. (custom-declare-variable 'erc-keep-place-mode 'nil '(#$ . 11209) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-keep-place :type 'boolean) #@151 Toggle ERC keep-place mode. With arg, turn ERC keep-place mode on if and only if arg is positive. Leave point above un-viewed text in other channels. (defalias 'erc-keep-place-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-keep-place-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-keep-place-enable erc-keep-place-disable run-hooks erc-keep-place-mode-hook erc-keep-place-mode-on-hook erc-keep-place-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Keep-Place mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 11664) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-keep-place-mode nil boundp erc-keep-place-mode-map] 5) #@29 Enable ERC keep-place mode. (defalias 'erc-keep-place-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-keep-place-mode add-to-list erc-modules keep-place t add-hook erc-insert-pre-hook erc-keep-place] 3 (#$ . 12723) nil]) #@30 Disable ERC keep-place mode. (defalias 'erc-keep-place-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-keep-place-mode delq keep-place nil remove-hook erc-insert-pre-hook erc-keep-place] 3 (#$ . 12964) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-keep-place-mode definition-name keep-place erc-keep-place-enable erc-keep-place-disable] 4) #@66 Move point away from the last line in a non-selected ERC buffer. (defalias 'erc-keep-place #[(ignored) "\303\304 !p=?\205B `Y\205B \203< \305=\204& \242\306=\203, A\204, \307\211\202; \242\306=\2036 A\307\310\311!\210\312 b\210\313y\207" [erc-insert-marker transient-mark-mode mark-active window-buffer selected-window lambda only nil run-hooks deactivate-mark-hook erc-beg-of-input-line -1] 2 (#$ . 13377)]) #@203 List of commands that are aliases for CTCP ACTION or for ERC messages. If a command's function symbol is in this list, the typed command does not appear in the ERC buffer after the user presses ENTER. (defvar erc-noncommands-list '(erc-cmd-ME erc-cmd-COUNTRY erc-cmd-SV erc-cmd-SM erc-cmd-SMV erc-cmd-LASTLOG) (#$ . 13803)) #@281 Non-nil if Erc-Noncommands mode is enabled. See the command `erc-noncommands-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-noncommands-mode'. (custom-declare-variable 'erc-noncommands-mode 'nil '(#$ . 14135) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-noncommands :type 'boolean) #@208 Toggle ERC noncommands mode. With arg, turn ERC noncommands mode on if and only if arg is positive. This mode distinguishes non-commands. Commands listed in `erc-insert-this' know how to display themselves. (defalias 'erc-noncommands-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-noncommands-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-noncommands-enable erc-noncommands-disable run-hooks erc-noncommands-mode-hook erc-noncommands-mode-on-hook erc-noncommands-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Noncommands mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 14595) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-noncommands-mode nil boundp erc-noncommands-mode-map] 5) #@30 Enable ERC noncommands mode. (defalias 'erc-noncommands-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-noncommands-mode add-to-list erc-modules noncommands t add-hook erc-send-pre-hook erc-send-distinguish-noncommands] 3 (#$ . 15721) nil]) #@31 Disable ERC noncommands mode. (defalias 'erc-noncommands-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-noncommands-mode delq noncommands nil remove-hook erc-send-pre-hook erc-send-distinguish-noncommands] 3 (#$ . 15982) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-noncommands-mode definition-name noncommands erc-noncommands-enable erc-noncommands-disable] 4) #@61 If STR is an ERC non-command, set `erc-insert-this' to nil. (defalias 'erc-send-distinguish-noncommands #[(str) "\305!\211\205\n @\211\205 \306\307\"?\205 \n >\205 \310\211*\207" [str command cmd-fun erc-noncommands-list erc-insert-this erc-extract-command-from-line string-match "\n.+$" nil] 4 (#$ . 16419)]) (custom-declare-group 'erc-control-characters nil "Dealing with control characters." :group 'erc) #@404 *If non-nil, display IRC colors and other highlighting effects. If this is set to the symbol `remove', ERC removes all IRC colors and highlighting effects. When this variable is non-nil, it can cause Emacs to run slowly on systems lacking sufficient CPU speed. In chatty channels, or in an emergency (message flood) it can be turned off to save processing time. See `erc-toggle-interpret-controls'. (custom-declare-variable 'erc-interpret-controls-p 't '(#$ . -16843) :group 'erc-control-characters :type '(choice (const :tag "Highlight control characters" t) (const :tag "Remove control characters" remove) (const :tag "Display raw control characters" nil))) #@51 *If non-nil, ERC will interpret mIRC color codes. (custom-declare-variable 'erc-interpret-mirc-color 'nil '(#$ . -17513) :group 'erc-control-characters :type 'boolean) #@109 Beep if C-g is in the server message. The value `erc-interpret-controls-p' must also be t for this to work. (custom-declare-variable 'erc-beep-p 'nil '(#$ . 17688) :group 'erc-control-characters :type 'boolean) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\316\304\305%\210\300\321\322\316\304\305%\210\300\323\324\316\304\305%\210\300\325\326\316\304\305%\210\300\327\330\316\304\305%\210\300\331\332\316\304\305%\210\300\333\334\316\304\305%\210\300\335\336\316\304\305%\210\300\337\340\316\304\305%\210\300\341\342\316\304\305%\210\300\343\344\316\304\305%\210\300\345\346\316\304\305%\210\300\347\350\316\304\305%\210\300\351\352\316\304\305%\210\300\353\354\316\304\305%\210\300\355\356\316\304\305%\210\300\357\360\316\304\305%\210\300\361\362\316\304\305%\210\300\363\364\316\304\305%\210\300\365\366\316\304\305%\210\300\367\370\316\304\305%\210\300\371\372\316\304\305%\210\300\373\374\316\304\305%\210\300\375\376\316\304\305%\210\300\377\201@ \316\304\305%\210\300\201A \201B \316\304\305%\210\300\201C \201D \316\304\305%\210\300\201E \201F \316\304\305%\210\300\201G \201H \316\304\305%\210\300\201I \201J \316\304\305%\210\300\201K \201L \316\304\305%\207" [custom-declare-face erc-bold-face ((t (:bold t))) "ERC bold face." :group erc-faces erc-inverse-face ((t (:foreground "White" :background "Black"))) "ERC inverse face." erc-underline-face ((t (:underline t))) "ERC underline face." fg:erc-color-face0 ((t (:foreground "White"))) "ERC face." fg:erc-color-face1 ((t (:foreground "black"))) fg:erc-color-face2 ((t (:foreground "blue4"))) fg:erc-color-face3 ((t (:foreground "green4"))) fg:erc-color-face4 ((t (:foreground "red"))) fg:erc-color-face5 ((t (:foreground "brown"))) fg:erc-color-face6 ((t (:foreground "purple"))) fg:erc-color-face7 ((t (:foreground "orange"))) fg:erc-color-face8 ((t (:foreground "yellow"))) fg:erc-color-face9 ((t (:foreground "green"))) fg:erc-color-face10 ((t (:foreground "lightblue1"))) fg:erc-color-face11 ((t (:foreground "cyan"))) fg:erc-color-face12 ((t (:foreground "blue"))) fg:erc-color-face13 ((t (:foreground "deeppink"))) fg:erc-color-face14 ((t (:foreground "gray50"))) fg:erc-color-face15 ((t (:foreground "gray90"))) bg:erc-color-face0 ((t (:background "White"))) bg:erc-color-face1 ((t (:background "black"))) bg:erc-color-face2 ((t (:background "blue4"))) bg:erc-color-face3 ((t (:background "green4"))) bg:erc-color-face4 ((t (:background "red"))) bg:erc-color-face5 ((t (:background "brown"))) bg:erc-color-face6 ((t (:background "purple"))) bg:erc-color-face7 ((t (:background "orange"))) bg:erc-color-face8 ((t (:background "yellow"))) bg:erc-color-face9 ((t (:background "green"))) bg:erc-color-face10 ((t (:background "lightblue1"))) bg:erc-color-face11 ((t (:background "cyan"))) bg:erc-color-face12 ((t (:background "blue"))) bg:erc-color-face13 ((t (:background "deeppink"))) bg:erc-color-face14 ((t (:background "gray50"))) bg:erc-color-face15 ((t (:background "gray90")))] 6) #@55 Fetches the right face for background color N (0-15). (defalias 'erc-get-bg-color-face #[(n) ";\203 \302!\247\204 \303\304\305\"\210\207\306V\203+ \203& \307\310\311\"!\210\312\306\"\313Y\203? \306W\203? \314\315\316!P!\207 \203J \307\310\311\"!\210\303\207" [n erc-log-p string-to-number default erc-error "erc-get-bg-color-face: n is NaN: %S" 16 erc-log-aux format " Wrong color: %s" mod 0 intern "bg:erc-color-face" number-to-string] 4 (#$ . 20744)]) #@55 Fetches the right face for foreground color N (0-15). (defalias 'erc-get-fg-color-face #[(n) ";\203 \302!\247\204 \303\304\305\"\210\207\306V\203+ \203& \307\310\311\"!\210\312\306\"\313Y\203? \306W\203? \314\315\316!P!\207 \203J \307\310\311\"!\210\303\207" [n erc-log-p string-to-number default erc-error "erc-get-fg-color-face: n is NaN: %S" 16 erc-log-aux format " Wrong color: %s" mod 0 intern "fg:erc-color-face" number-to-string] 4 (#$ . 21222)]) #@281 Non-nil if Erc-Irccontrols mode is enabled. See the command `erc-irccontrols-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-irccontrols-mode'. (custom-declare-variable 'erc-irccontrols-mode 'nil '(#$ . 21701) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-irccontrols :type 'boolean) #@160 Toggle ERC irccontrols mode. With arg, turn ERC irccontrols mode on if and only if arg is positive. This mode enables the interpretation of IRC control chars. (defalias 'erc-irccontrols-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-irccontrols-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-irccontrols-enable erc-irccontrols-disable run-hooks erc-irccontrols-mode-hook erc-irccontrols-mode-on-hook erc-irccontrols-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Irccontrols mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 22161) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-irccontrols-mode nil boundp erc-irccontrols-mode-map] 5) #@30 Enable ERC irccontrols mode. (defalias 'erc-irccontrols-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-irccontrols-mode add-to-list erc-modules irccontrols t add-hook erc-insert-modify-hook erc-controls-highlight erc-send-modify-hook] 3 (#$ . 23239) nil]) #@31 Disable ERC irccontrols mode. (defalias 'erc-irccontrols-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-irccontrols-mode delq irccontrols nil remove-hook erc-insert-modify-hook erc-controls-highlight erc-send-modify-hook] 3 (#$ . 23534) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-irccontrols-mode definition-name irccontrols erc-irccontrols-enable erc-irccontrols-disable] 4) #@140 Return a copy of STR after dealing with IRC control characters. See `erc-interpret-controls-p' and `erc-interpret-mirc-color' for options. (defalias 'erc-controls-interpret #[(str) "\205\345 \n\306=\203 \307 !\202\344 \n\203\343 \310\211\211\211\211 \311 \"\203\336 \312\313 \"\312\314 \"\312\315 \"\316\224\316\224\312\317 \"G\\ !\320\321 !\313 %\"\203l \204c \203l \202\312 !\322\230\203{ ?\202\312 !\323\230\203\212 ?\202\312 !\324\230\203\227 ?\202\312 !\325\230\203\245 \310\211\202\312 !\326\230\203\267 #\203\312 \327 \210\202\312 !\330\230\203\312 \310\211\310\211\310\331 \f &\210-\202\" -\202\344 )\207" [str s erc-interpret-controls-p bg fg underlinep remove erc-controls-strip nil string-match match-string 1 2 4 0 5 erc-replace-match-subexpression-in-string "" "" "" " " "" "" ding "" erc-controls-propertize inversep boldp erc-controls-highlight-regexp end start bg-color fg-color control erc-interpret-mirc-color erc-beep-p] 10 (#$ . 24006)]) #@63 Return a copy of STR with all IRC control characters removed. (defalias 'erc-controls-strip #[(str) "\205 \303\n \"\203 \304\305\306\211 $\202 )\207" [str s erc-controls-remove-regexp string-match replace-match "" nil] 5 (#$ . 25047)]) #@64 Regular expression which matches control characters to remove. (defvar erc-controls-remove-regexp "\\| \\|\\|\\|\\|[0-9]?[0-9]?\\(,[0-9][0-9]?\\)?" (#$ . 25297)) #@75 Regular expression which matches control chars and the text to highlight. (defvar erc-controls-highlight-regexp "\\(\\|\\| \\|\\|\\|\\([0-9][0-9]?\\)?\\(,\\([0-9][0-9]?\\)\\)?\\)\\([^ \n]*\\)" (#$ . 25470)) #@184 Highlight IRC control chars in the buffer. This is useful for `erc-insert-modify-hook' and `erc-send-modify-hook'. Also see `erc-interpret-controls-p' and `erc-interpret-mirc-color'. (defalias 'erc-controls-highlight #[nil "eb\210\306=\203 \307 \310\311#\205\334 \312\313!\210\202 \203\333 \310\211\211\211\211 \307\310\311#\205\331 \314\315!\314\316!\314\317!\320\224\320\224\314\321!G\\ \312\313\310\211\211\315%\210!\203l \204c \203l \202\307 \322\230\203{ ?\202\307 \323\230\203\210 ?\202\307 \324\230\203\225 \f?\202\307 \325\230\203\243 \310\211\202\307 \326\230\203\265 \"\203\307 \327 \210\202\307 \330\230\203\307 \310\211\310\211\310\331 \f \n&\210-\202' -\207\310\207" [erc-interpret-controls-p erc-controls-remove-regexp bg fg underlinep inversep remove re-search-forward nil t replace-match "" match-string 1 2 4 0 5 "" "" " " "" "" ding "" erc-controls-propertize boldp erc-controls-highlight-regexp end start bg-color fg-color control erc-interpret-mirc-color erc-beep-p] 9 (#$ . 25694)]) #@185 Prepend properties from IRC control characters between FROM and TO. If optional argument STR is provided, apply to STR, otherwise prepend properties to a region in the current buffer. (defalias 'erc-controls-propertize #[(from to boldp inversep underlinep fg bg &optional str) "\306 \307\310\n\205\n \311 \205 \312\f\205 \313 \205 \314 !C\205& \315!C%%\210\207" [from to boldp inversep underlinep fg font-lock-prepend-text-property face append (erc-bold-face) (erc-inverse-face) (erc-underline-face) erc-get-fg-color-face erc-get-bg-color-face bg str] 11 (#$ . 26776)]) #@142 Toggle interpretation of control sequences in messages. If ARG is positive, interpretation is turned on. Else interpretation is turned off. (defalias 'erc-toggle-interpret-controls #[(&optional arg) "\247\203 \302V\203 \303\202 \203 \304\202 ?\305\306 \203& \307\202' \310\"\207" [arg erc-interpret-controls-p 0 t nil message "ERC color interpretation %s" "ON" "OFF"] 3 (#$ . 27365) "P"]) #@266 Non-nil if Erc-Smiley mode is enabled. See the command `erc-smiley-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-smiley-mode'. (custom-declare-variable 'erc-smiley-mode 'nil '(#$ . 27774) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-smiley :type 'boolean) #@250 Toggle ERC smiley mode. With arg, turn ERC smiley mode on if and only if arg is positive. This mode translates text-smileys such as :-) into pictures. This requires the function `smiley-region', which is defined in smiley.el, which is part of Gnus. (defalias 'erc-smiley-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-smiley-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-smiley-enable erc-smiley-disable run-hooks erc-smiley-mode-hook erc-smiley-mode-on-hook erc-smiley-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Smiley mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 28209) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-smiley-mode nil boundp erc-smiley-mode-map] 5) #@25 Enable ERC smiley mode. (defalias 'erc-smiley-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\307\"\207" [erc-smiley-mode add-to-list erc-modules smiley t add-hook erc-insert-modify-hook erc-smiley erc-send-modify-hook] 3 (#$ . 29327) nil]) #@26 Disable ERC smiley mode. (defalias 'erc-smiley-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\207" [erc-modules erc-smiley-mode delq smiley nil remove-hook erc-insert-modify-hook erc-smiley erc-send-modify-hook] 3 (#$ . 29590) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-smiley-mode definition-name smiley erc-smiley-enable erc-smiley-disable] 4) #@79 Smilify a region. This function should be used with `erc-insert-modify-hook'. (defalias 'erc-smiley #[nil "\300\301!\205\n \301ed\"\207" [fboundp smiley-region] 3 (#$ . 30009)]) #@269 Non-nil if Erc-Unmorse mode is enabled. See the command `erc-unmorse-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-unmorse-mode'. (custom-declare-variable 'erc-unmorse-mode 'nil '(#$ . 30194) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-unmorse :type 'boolean) #@160 Toggle ERC unmorse mode. With arg, turn ERC unmorse mode on if and only if arg is positive. This mode causes morse code in the current channel to be unmorsed. (defalias 'erc-unmorse-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-unmorse-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-unmorse-enable erc-unmorse-disable run-hooks erc-unmorse-mode-hook erc-unmorse-mode-on-hook erc-unmorse-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Unmorse mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 30634) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode erc-unmorse-mode nil boundp erc-unmorse-mode-map] 5) #@26 Enable ERC unmorse mode. (defalias 'erc-unmorse-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-unmorse-mode add-to-list erc-modules unmorse t add-hook erc-insert-modify-hook erc-unmorse] 3 (#$ . 31672) nil]) #@27 Disable ERC unmorse mode. (defalias 'erc-unmorse-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-unmorse-mode delq unmorse nil remove-hook erc-insert-modify-hook erc-unmorse] 3 (#$ . 31901) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-unmorse-mode definition-name unmorse erc-unmorse-enable erc-unmorse-disable] 4) #@172 Unmorse some text. Add this to `erc-insert-modify-hook' if you happen to be on a channel that has weird people talking in morse to each other. See also `unmorse-region'. (defalias 'erc-unmorse #[nil "eb\210\300\301\302\303#\205; \214\304\224\304\225}\210eb\210\300\305\302\303#\203$ \306\307!\210\202 eb\210\300\310\302\303#\2036 \306\311!\210\202' \312ed\")\207" [re-search-forward "[.-]+\\([.-]*/? *\\)+[.-]+/?" nil t 0 " / " replace-match " " "/ " "/" unmorse-region] 4 (#$ . 32291)]) #@210 Search for STRING in all buffers related to current server. If called interactively and prefix argument is given, search on all connected servers. If called from a program, PROC specifies the server process. (defalias 'erc-occur #[(string &optional proc) "\302\303!\203 \303\304\305\" \"\207\306\307!\207" [proc string fboundp multi-occur erc-buffer-list nil error "`multi-occur' is not defined as a function"] 4 (#$ . 32789) (list (read-string "Search for: ") (if current-prefix-arg nil erc-server-process))]) (provide 'erc-goodies)
Close
