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

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

(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\207" [require erc wid-edit erc-fill custom-declare-group erc-button nil "Define how text can be turned into clickable buttons." :group] 6)
#@266 Non-nil if Erc-Button mode is enabled.
See the command `erc-button-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-button-mode'.
(custom-declare-variable 'erc-button-mode 'nil '(#$ . 832) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-button :type 'boolean)
#@158 Toggle ERC button mode.
With arg, turn ERC button mode on if and only if arg is positive.
This mode buttonizes all messages according to `erc-button-alist'.
(defalias 'erc-button-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-button-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil erc-button-enable erc-button-disable run-hooks erc-button-mode-hook erc-button-mode-on-hook erc-button-mode-off-hook called-interactively-p customize-mark-as-set "Erc-Button mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1265) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-button-mode nil boundp erc-button-mode-map] 5)
#@25 Enable ERC button mode.
(defalias 'erc-button-enable #[nil "\301\302\303\"\210\304\305\306\307\310#\210\305\311\307\310#\210\305\312\313\"\210\305\314\315\"\207" [erc-button-mode add-to-list erc-modules button t add-hook erc-insert-modify-hook erc-button-add-buttons append erc-send-modify-hook erc-complete-functions erc-button-next erc-mode-hook erc-button-setup] 4 (#$ . 2290) nil])
#@26 Disable ERC button mode.
(defalias 'erc-button-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\307\"\210\305\311\312\"\210\305\313\314\"\210\304\207" [erc-modules erc-button-mode delq button nil remove-hook erc-insert-modify-hook erc-button-add-buttons erc-send-modify-hook erc-complete-functions erc-button-next erc-mode-hook erc-button-setup] 3 (#$ . 2683) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313%\207" [put erc-button-mode definition-name button erc-button-enable erc-button-disable custom-declare-face erc-button ((t (:bold t))) "ERC button face." :group erc-faces] 6)
#@174 Face used for highlighting buttons in ERC buffers.

A button is a piece of text that you can activate by pressing
`RET' or `mouse-2' above it. See also `erc-button-keymap'.
(custom-declare-variable 'erc-button-face ''erc-button '(#$ . 3340) :type 'face :group 'erc-faces)
#@37 Face used for ERC nickname buttons.
(custom-declare-variable 'erc-button-nickname-face ''erc-nick-default-face '(#$ . 3618) :type 'face :group 'erc-faces)
#@127 Face used for mouse highlighting in ERC buffers.

Buttons will be displayed in this face when the mouse cursor is
above them.
(custom-declare-variable 'erc-button-mouse-face ''highlight '(#$ . 3780) :type 'face :group 'erc-faces)
#@39 Regular expression that matches URLs.
(custom-declare-variable 'erc-button-url-regexp '(concat "\$www\\.\\|\\(s?https?\\|" "ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\$:\\)" "\$//[-a-zA-Z0-9_.]+:[0-9]*\$?" "[-a-zA-Z0-9_=!?#$@~`%&*+\\/:;.,()]+[-a-zA-Z0-9_=#$@~`%&*+\\/()]") '(#$ . 4016) :group 'erc-button :type 'regexp)
#@237 If non-nil, "long" URLs matching `erc-button-url-regexp' will be wrapped.

If this variable is a number, consider URLs longer than its value to
be "long".  If t, URLs will be considered "long" if they are
longer than `erc-fill-column'.
(custom-declare-variable 'erc-button-wrap-long-urls 'nil '(#$ . 4356) :group 'erc-button :type '(choice integer boolean))
#@60 Flag indicating whether nicks should be buttonized or not.
(custom-declare-variable 'erc-button-buttonize-nicks 't '(#$ . 4720) :group 'erc-button :type 'boolean)
#@67 *URL used to browse rfc references.
%s is replaced by the number.
(custom-declare-variable 'erc-button-rfc-url '"http://www.faqs.org/rfcs/rfc%s.html" '(#$ . -4889) :group 'erc-button :type 'string)
#@84 *URL used to browse Google search references.
%s is replaced by the search string.
(custom-declare-variable 'erc-button-google-url '"http://www.google.com/search?q=%s" '(#$ . -5093) :group 'erc-button :type 'string)
#@1163 *Alist of regexps matching buttons in ERC buffers.
Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where

REGEXP is the string matching text around the button or a symbol
  indicating a variable holding that string, or a list of
  strings, or an alist with the strings in the car.  Note that
  entries in lists or alists are considered to be nicks or other
  complete words.  Therefore they are enclosed in \< and \>
  while searching.  REGEXP can also be the quoted symbol
  'nicknames, which matches the nickname of any user on the
  current server.

BUTTON is the number of the regexp grouping actually matching the
  button,  This is ignored if REGEXP is 'nicknames.

FORM is a lisp expression which must eval to true for the button to
  be added,

CALLBACK is the function to call when the user push this button.
  CALLBACK can also be a symbol.  Its variable value will be used
  as the callback function.

PAR is a number of a regexp grouping whose text will be passed to
  CALLBACK.  There can be several PAR arguments.  If REGEXP is
  'nicknames, these are ignored, and CALLBACK will be called with
  the nickname matched as the argument.
(custom-declare-variable 'erc-button-alist ''(('nicknames 0 erc-button-buttonize-nicks erc-nick-popup 0) (erc-button-url-regexp 0 t browse-url 0) ("<URL: *\$[^<> ]+\$ *>" 0 t browse-url 1) ("(\$\\([^~\n 	@][^\n 	@]*\$@\$[a-zA-Z0-9.:-]+\$\\)" 1 t finger 2 3) ("[`]\$[a-zA-Z][-a-zA-Z_0-9]+\$[']" 1 t erc-button-describe-symbol 1) ("\\bInfo:[\"]\$[^\"]+\$[\"]" 0 t Info-goto-node 1) ("\\b\$Ward\\|Wiki\\|WardsWiki\\|TheWiki\$:\$[A-Z][a-z]+\\([A-Z][a-z]+\$+\\)" 0 t (lambda (page) (browse-url (concat "http://c2.com/cgi-bin/wiki?" page))) 2) ("EmacsWiki:\$[A-Z][a-z]+\\([A-Z][a-z]+\$+\\)" 0 t erc-browse-emacswiki 1) ("Lisp:\$[a-zA-Z.+-]+\$" 0 t erc-browse-emacswiki-lisp 1) ("\\bGoogle:\$[^ 	\n
\f]+\$" 0 t (lambda (keywords) (browse-url (format erc-button-google-url keywords))) 1) ("\\brfc[#: ]?\$[0-9]+\$" 0 t (lambda (num) (browse-url (format erc-button-rfc-url num))) 1) ("\\s-\$@\\([0-9][0-9][0-9]\$\\)" 1 t erc-button-beats-to-time 2)) '(#$ . -5317) :group 'erc-button :type '(repeat (list :tag "Button" (choice :tag "Matches" regexp (variable :tag "Variable containing regexp") (const :tag "Nicknames" 'nicknames)) (integer :tag "Number of the regexp section that matches") (choice :tag "When to buttonize" (const :tag "Always" t) (sexp :tag "Only when this evaluates to non-nil")) (function :tag "Function to call when button is pressed") (repeat :tag "Sections of regexp to send to the function" :inline t (integer :tag "Regexp section number")))))
#@33 *URL of the EmacsWiki Homepage.
(custom-declare-variable 'erc-emacswiki-url '"http://www.emacswiki.org/cgi-bin/wiki.pl?" '(#$ . -7965) :group 'erc-button :type 'string)
#@35 *URL of the EmacsWiki ELisp area.
(custom-declare-variable 'erc-emacswiki-lisp-url '"http://www.emacswiki.org/elisp/" '(#$ . -8140) :group 'erc-button :type 'string)
#@31 Local keymap for ERC buttons.
(defvar erc-button-keymap (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\314	\"\210)\207" [map erc-mode-map make-sparse-keymap define-key "
" erc-button-press-button [mouse-2] erc-button-click-button "	" erc-button-next [backtab] erc-button-previous set-keymap-parent] 4) (#$ . 8312))
#@125 Syntax table used when buttonizing messages.
This syntax table should make all the valid nick characters word
constituents.
(defvar erc-button-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\304#\210\302\313\304#\210\302\314\304#\210\302\315\304#\210\302\316\304#\210\302\317\304#\210\302\320\304#\210)\207" [table make-syntax-table modify-syntax-entry 40 "w" 41 91 93 123 125 96 39 94 45 95 124 92] 4) (#$ . 8680))
#@99 Internal variable used to keep track of whether we've added the
global-level ERC button keys yet.
(defvar erc-button-keys-added nil (#$ . 9210))
#@67 Add ERC mode-level button movement keys.  This is only done once.
(defalias 'erc-button-setup #[nil "?\205�\302	\303\304#\210\305\211\207" [erc-button-keys-added erc-mode-map define-key [backtab] erc-button-previous t] 4 (#$ . 9361)])
#@154 Find external references in the current buffer and make buttons of them.
"External references" are things like URLs, as
specified by `erc-button-alist'.
(defalias 'erc-button-add-buttons #[nil "\212\306 p\307\216\310\n!\210\311\312\211\311\211\211\313 \210\311\211\203\341�@\211@\314\232\203A�\315!\210\202\330�@;\203N�@\206Z�\316@!\205Z�@J\211;\203i�\317
\"\210\202\330�
<\203\234�
@;\203\234�
\311\211\203\230�@\317\320\321!\322Q\"\210A\211\204~�*\202\330�
<\203\330�
@<\203\330�
\211@@);\203\330�
\311\211\203\327�@\317\320\321@!\322Q\"\210A\211\204\274�*A\211\204-�.
\311\207" [#1=#:buffer #2=#:table erc-button-syntax-table erc-button-alist data regexp syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table nil t erc-button-remove-old-buttons 'nicknames erc-button-add-nickname-buttons boundp erc-button-add-buttons-1 "\\<" regexp-quote "\\>" entry alist inhibit-field-text-motion inhibit-point-motion-hooks buffer-read-only #3=#:--cl-dolist-temp-- r #4=#:--cl-dolist-temp-- x elem #5=#:--cl-dolist-temp--] 7 (#$ . 9606) nil])
#@59 Search through the buffer for nicknames, and add buttons.
(defalias 'erc-button-add-nickname-buttons #[(entry) "\3068\3078\310\211\211\311=\204�\312\f!\205n�eb\210\313v\205n�\314\301!\315\n@\nA\"\316 \203N�	\317 \320!\205J�rq\210\321\322
!\")*\204`�\203�	\321\322
!\")\203�\323\n@\nA\311	C%\210\202�,\207" [entry word bounds fun form nick 2 3 nil t eval 1 bounds-of-thing-at-point buffer-substring-no-properties erc-server-buffer-p erc-server-buffer buffer-live-p gethash erc-downcase erc-button-add-button #1=#:buffer erc-server-users erc-channel-users] 7 (#$ . 10768)])
#@65 Search through the buffer for matches to ENTRY and add buttons.
(defalias 'erc-button-add-buttons-1 #[(regexp entry) "eb\210\306\307\310#\205@�	A@\224	A@\225\311	8\312	8\313\314\315	\233\"\f\310=\2041�\316\f!\203<�\317
\307\n&\210-\202�\207" [regexp entry data fun form end re-search-forward nil t 2 3 mapcar match-string 4 eval erc-button-add-button start] 8 (#$ . 11373)])
#@223 Remove all existing buttons.
This is called with narrowing in effect, just before the text is
buttonized again.  Removing a button means to remove all the properties
that `erc-button-add-button' adds, except for the face.
(defalias 'erc-button-remove-old-buttons #[nil "\300ed\301#\207" [remove-text-properties (erc-callback nil erc-data nil mouse-face nil keymap nil)] 4 (#$ . 11768)])
#@181 Create a button between FROM and TO with callback FUN and data DATA.
NICK-P specifies if this is a nickname button.
REGEXP is the regular expression which matched for this button.
(defalias 'erc-button-add-button #[(from to fun nick-p &optional data regexp) "\306	\203W�\n\230\203W�\f
Z	\247\203�	\202�GZ\211V\203W�\307 \310c\210
b\210\307 \311c\210\312
!\fZV\203V�\\b\210\313\261\210`\306\223\210\2028�))\203l� \203x�\314
\f #\210\202x�!\203x�\314
\f!#\210\315
\f\"\205\204�\316\"D\317#D\244\320$D\244\321\322D\244%\205\233�\323%D\244#\210\324\325
\f\326\327\330\322\331\203\261� \202\263�!\332\333&\207" [fill-column erc-button-wrap-long-urls regexp erc-button-url-regexp to from nil point-marker ">" "<URL: " copy-marker "\n" erc-button-add-face add-text-properties mouse-face erc-callback keymap rear-nonsticky t erc-data widget-convert-button link :action erc-button-press-button :suppress-face :button-face :mouse-down-action erc-button-click-button erc-fill-column erc-fill-prefix pos nick-p erc-button-nickname-face erc-button-face erc-button-mouse-face fun erc-button-keymap data] 12 (#$ . 12162)])
#@45 Add FACE to the region between FROM and TO.
(defalias 'erc-button-add-face #[(from to face) "\306\307\310\"!\311\310\312	$\312\f	W\205@�
\203#�
B\202%�\313\f\310\n$\210\306\307\f\310\"!\311\f\310\312	$\202�,\207" [from to new end pos old erc-list get-text-property face next-single-property-change nil put-text-property] 7 (#$ . 13317)])
#@33 Call `erc-button-press-button'.
(defalias 'erc-button-click-button #[(ignore event) "\212\301!\210\302 )\207" [event mouse-set-point erc-button-press-button] 2 (#$ . 13679) "P\ne"])
#@154 Check text at point for a callback function.
If the text at point has a `erc-callback' property,
call it with the value of the `erc-data' text property.
(defalias 'erc-button-press-button #[(&rest ignore) "\302`\303\"\302`\304\"\211\204�\305\306!\210	\203&�	9\203&�\307	!\204&�\310\311	\"\210\312	\"*\207" [data fun get-text-property erc-data erc-callback message "No button at point" fboundp error "Function %S is not bound" apply] 4 (#$ . 13869) nil])
#@39 Go to the next button in this buffer.
(defalias 'erc-button-next #[nil "`\211\301 W\205@�\302\303\"\203�dU\204�T\202	�\302\303\"\204/�dU\204/�T\202�dW\203;�b\210\202?�\304\305!\210\306)\207" [here erc-beg-of-input-line get-text-property erc-callback error "No next button" t] 4 (#$ . 14333) nil])
#@43 Go to the previous button in this buffer.
(defalias 'erc-button-previous #[nil "`\211\301 W\205@�\302\303\"\203�eU\204�S\202	�\302\303\"\204/�eU\204/�S\202�eV\203;�b\210\202?�\304\305!\210\306)\207" [here erc-beg-of-input-line get-text-property erc-callback error "No previous button" t] 4 (#$ . 14650) nil])
#@36 Browse to thing in the emacs-wiki.
(defalias 'erc-browse-emacswiki #[(thing) "\302	P!\207" [erc-emacswiki-url thing browse-url] 3 (#$ . 14979)])
#@47 Browse to THING in the emacs-wiki elisp area.
(defalias 'erc-browse-emacswiki-lisp #[(thing) "\302	P!\207" [erc-emacswiki-lisp-url thing browse-url] 3 (#$ . 15131)])
#@311 *An alist of possible actions to take on a nickname.
An entry looks like ("Action" . SEXP) where SEXP is evaluated with
the variable `nick' bound to the nick in question.

Examples:
 ("DebianDB" .
  (shell-command
   (format
    "ldapsearch -x -P 2 -h db.debian.org -b dc=debian,dc=org ircnick=%s"
    nick)))
(custom-declare-variable 'erc-nick-popup-alist ''(("DeOp" erc-cmd-DEOP nick) ("Kick" erc-cmd-KICK (concat nick " " (read-from-minibuffer (concat "Kick " nick ", reason: ")))) ("Msg" erc-cmd-MSG (concat nick " " (read-from-minibuffer (concat "Message to " nick ": ")))) ("Op" erc-cmd-OP nick) ("Query" erc-cmd-QUERY nick) ("Whois" erc-cmd-WHOIS nick) ("Lastlog" erc-cmd-LASTLOG nick)) '(#$ . -15305) :group 'erc-button :type '(repeat (cons (string :tag "Op") sexp)))
(defalias 'erc-nick-popup #[(nick) "\305\306\307	\310Q\n\"\311\n\"A\211\205�\312p!\210\313\f!+\207" [completion-ignore-case nick erc-nick-popup-alist action code t completing-read "What action to take on '" "'? " assoc erc-set-active-buffer eval] 5])
#@130 Describe SYMBOL-NAME.
Use `describe-function' for functions, `describe-variable' for variables,
and `apropos' for other symbols.
(defalias 'erc-button-describe-symbol #[(symbol-name) "\302!\211\203�\303	!\203�\304	!\202'�	\203$�\305	!\203$�\306	!\202'�\307!)\207" [symbol-name symbol intern-soft fboundp describe-function boundp describe-variable apropos] 3 (#$ . 16344)])
#@42 Display BEATS in a readable time format.
(defalias 'erc-button-beats-to-time #[(beats) "\304\305!\306_\307\310 @[#\311\312	\307\"\313\"\311\314	\315\"\315\"\316\317\320\n$!+\207" [beats seconds hours minutes - string-to-number 86.4 3600 current-time-zone mod floor 24 round 60 message format "@%s is %d:%02d local time"] 6 (#$ . 16728)])
(provide 'erc-button)

${this.title}

Code Editor : erc-button.elc