Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : rcirc.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\300\302!\210\300\303!\207" [require cl-lib ring time-date] 2)
(defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version))
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\327%\210\314\330\316\317\331DD\332\322\333%\210\314\334\316\317\335DD\336\304\337\322\333&\210\314\340\316\317\341DD\342\304\337\322\333&\210\314\343\316\317\344DD\345\322\333%\210\314\346\316\317\347DD\350\322\333%\210\314\351\316\317\352DD\353\322\354%\210\314\355\316\317\356DD\357\360\361\322\362&\210\314\363\316\317\364DD\365\322\366%\210\314\367\316\317\370DD\371\304\372\322\373&\207" [custom-declare-group rcirc nil "Simple IRC client." :version "22.1" :prefix "rcirc-" :link (custom-manual "(rcirc)") :group applications custom-declare-variable rcirc-server-alist funcall function #[0 "\300\207" [(("irc.freenode.net" :channels ("#rcirc")))] 1] "An alist of IRC connections to establish when running `rcirc'.\nEach element looks like (SERVER-NAME PARAMETERS).\n\nSERVER-NAME is a string describing the server to connect\nto.\n\nThe optional PARAMETERS come in pairs PARAMETER VALUE.\n\nThe following parameters are recognized:\n\n`:nick'\n\nVALUE must be a string.  If absent, `rcirc-default-nick' is used\nfor this connection.\n\n`:port'\n\nVALUE must be a number or string.  If absent,\n`rcirc-default-port' is used.\n\n`:user-name'\n\nVALUE must be a string.  If absent, `rcirc-default-user-name' is\nused.\n\n`:password'\n\nVALUE must be a string.  If absent, no PASS command will be sent\nto the server.\n\n`:full-name'\n\nVALUE must be a string.  If absent, `rcirc-default-full-name' is\nused.\n\n`:channels'\n\nVALUE must be a list of strings describing which channels to join\nwhen connecting to this server.  If absent, no channels will be\nconnected to automatically.\n\n`:encryption'\n\nVALUE must be `plain' (the default) for unencrypted connections, or `tls'\nfor connections using SSL/TLS.\n\n`:server-alias'\n\nVALUE must be a string that will be used instead of the server name for\ndisplay purposes. If absent, the real server name will be displayed instead." :type (alist :key-type string :value-type (plist :options ((:nick string) (:port integer) (:user-name string) (:password string) (:full-name string) (:channels (repeat string)) (:encryption (choice (const tls) (const plain))) (:server-alias string)))) rcirc-default-port #[0 "\300\207" [6667] 1] "The default port to connect to." integer rcirc-default-nick #[0 "\300 \207" [user-login-name] 1] "Your nick." string rcirc-default-user-name #[0 "\300\207" [#1="user"] 1 #1#] "Your user name sent to the server when connecting." "24.1" rcirc-default-full-name #[0 "\300\207" [#2="unknown"] 1 #2#] "The full name sent to the server when connecting." rcirc-default-part-reason #[0 "\207" [rcirc-id-string] 1] "The default reason to send when parting from a channel.\nUsed when no reason is explicitly given." rcirc-default-quit-reason #[0 "\207" [rcirc-id-string] 1] "The default reason to send when quitting a server.\nUsed when no reason is explicitly given." rcirc-fill-flag #[0 "\300\207" [t] 1] "Non-nil means line-wrap messages printed in channel buffers." boolean rcirc-fill-column #[0 "\300\207" [nil] 1] "Column beyond which automatic line-wrapping should happen.\nIf nil, use value of `fill-column'.\nIf a function (e.g., `frame-text-width' or `window-text-width'),\ncall it to compute the number of columns." :risky t (choice (const :tag "Value of `fill-column'" nil) (integer :tag "Number of columns") (function :tag "Function returning the number of columns")) rcirc-fill-prefix #[0 "\300\207" [nil] 1] "Text to insert before filled lines.\nIf nil, calculate the prefix dynamically to line up text\nunderneath each nick." (choice (const :tag "Dynamic" nil) (string :tag "Prefix text")) rcirc-url-max-length #[0 "\300\207" [nil] 1] "Maximum number of characters in displayed URLs.\nIf nil, no maximum is applied." "27.1" (choice (const :tag "No maximum" nil) (integer :tag "Number of characters"))] 12)
#@45 If non-nil, ignore activity in this buffer.
(defvar rcirc-ignore-buffer-activity-flag nil (#$ . 4506))
(make-variable-buffer-local 'rcirc-ignore-buffer-activity-flag)
#@65 If non-nil, activity in this buffer is considered low priority.
(defvar rcirc-low-priority-flag nil (#$ . 4679))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311%\207" [make-variable-buffer-local rcirc-low-priority-flag custom-declare-variable rcirc-omit-responses funcall function #[0 "\300\207" [("JOIN" "PART" "QUIT" "NICK")] 1] "Responses which will be hidden when `rcirc-omit-mode' is enabled." :type (repeat string)] 6)
(defvar rcirc-prompt-start-marker nil)
#@99 Non-nil if Rcirc-Omit mode is enabled.
Use the command `rcirc-omit-mode' to change this variable.
(defvar rcirc-omit-mode nil (#$ . 5161))
(make-variable-buffer-local 'rcirc-omit-mode)
#@393 Toggle the hiding of "uninteresting" lines.

If called interactively, enable Rcirc-Omit mode if ARG is positive,
and disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

Uninteresting lines are those whose responses are listed in
`rcirc-omit-responses'.

(fn &optional ARG)
(defalias 'rcirc-omit-mode #[256 "\302 \303=\203
�?\202�\304!\305V\211\203\"�\306\307!\210\310\311!\210\202*�\312\313!\210\310\314!\210\315p!\211\203\\�\211@\316!r\317\305\320\321\322!\323\"\324$\216\325@\326\"\210\327`	V\205Q�\330!\210*\210A\266\202\202-�\210\331\332\203g�\333\202h�\334\"\210\335\336!\203\214�\302 \203|�\211\302 \232\203\214�\337\310\340\203\207�\341\202\210�\342#\266\210\343 \210\207" [rcirc-omit-mode rcirc-prompt-start-marker current-message toggle prefix-numeric-value 0 add-to-invisibility-spec (rcirc-omit) message "Rcirc-Omit mode enabled" remove-from-invisibility-spec (rcirc-omit) "Rcirc-Omit mode disabled" get-buffer-window-list internal--before-with-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord recenter -1 run-hooks rcirc-omit-mode-hook rcirc-omit-mode-on-hook rcirc-omit-mode-off-hook called-interactively-p any " in current buffer" "Rcirc-Omit mode %sabled%s" "en" "dis" force-mode-line-update] 12 (#$ . 5353) (byte-code "\206�\301C\207" [current-prefix-arg toggle] 1)])
(defvar rcirc-omit-mode-hook nil)
(byte-code "\301\302N\204\f�\303\301\302\304#\210\305\306\307\310\300!\205�\311\211%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\331%\210\312\332\314\315\333DD\334\320\335%\210\312\336\314\315\337DD\340\320\331%\210\312\341\314\315\342DD\343\320\344%\210\312\345\314\315\346DD\347\320\331%\210\312\350\314\315\351DD\352\353\354\320\331&\210\312\355\314\315\356DD\357\320\321\360\361\362\363&	\210\312\364\314\315\365DD\366\320\367%\210\312\370\314\315\371DD\372\320\373%\207" [rcirc-omit-mode-map rcirc-omit-mode-hook variable-documentation put "Hook run after entering or leaving `rcirc-omit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode rcirc-omit-mode " Omit" boundp nil custom-declare-variable rcirc-time-format funcall function #[0 "\300\207" [#1="%H:%M "] 1 #1#] "Describes how timestamps are printed.\nUsed as the first arg to `format-time-string'." :type string rcirc-input-ring-size #[0 "\300\207" [1024] 1] "Size of input history ring." integer rcirc-read-only-flag #[0 "\300\207" [t] 1] "Non-nil means make text in IRC buffers read-only." boolean rcirc-buffer-maximum-lines #[0 "\300\207" [nil] 1] "The maximum size in lines for rcirc buffers.\nChannel buffers are truncated from the top to be no greater than this\nnumber.  If zero or nil, no truncating is done." (choice (const :tag "No truncation" nil) (integer :tag "Number of lines")) rcirc-scroll-show-maximum-output #[0 "\300\207" [t] 1] "If non-nil, scroll buffer to keep the point at the bottom of\nthe window." rcirc-authinfo #[0 "\300\207" [nil] 1] "List of authentication passwords.\nEach element of the list is a list with a SERVER-REGEXP string\nand a method symbol followed by method specific arguments.\n\nThe valid METHOD symbols are `nickserv', `chanserv' and\n`bitlbee'.\n\nThe ARGUMENTS for each METHOD symbol are:\n  `nickserv': NICK PASSWORD [NICKSERV-NICK]\n  `chanserv': NICK CHANNEL PASSWORD\n  `bitlbee': NICK PASSWORD\n  `quakenet': ACCOUNT PASSWORD\n\nExamples:\n ((\"freenode\" nickserv \"bob\" \"p455w0rd\")\n  (\"freenode\" chanserv \"bob\" \"#bobland\" \"passwd99\")\n  (\"bitlbee\" bitlbee \"robert\" \"sekrit\")\n  (\"dal.net\" nickserv \"bob\" \"sekrit\" \"NickServ@services.dal.net\")\n  (\"quakenet.org\" quakenet \"bobby\" \"sekrit\"))" (alist :key-type (string :tag "Server") :value-type (choice (list :tag "NickServ" (const nickserv) (string :tag "Nick") (string :tag "Password")) (list :tag "ChanServ" (const chanserv) (string :tag "Nick") (string :tag "Channel") (string :tag "Password")) (list :tag "BitlBee" (const bitlbee) (string :tag "Nick") (string :tag "Password")) (list :tag "QuakeNet" (const quakenet) (string :tag "Account") (string :tag "Password")))) rcirc-auto-authenticate-flag #[0 "\300\207" [t] 1] "Non-nil means automatically send authentication string to server.\nSee also `rcirc-authinfo'." rcirc-authenticate-before-join #[0 "\300\207" [t] 1] "Non-nil means authenticate to services before joining channels.\nCurrently only works with NickServ on some networks." :version "24.1" rcirc-prompt #[0 "\300\207" [#2="> "] 1 #2#] "Prompt string to use in IRC buffers.\n\nThe following replacements are made:\n%n is your nick.\n%s is the server.\n%t is the buffer target, a channel or a user.\n\nSetting this alone will not affect the prompt;\nuse either M-x customize or also call `rcirc-update-prompt'." :set rcirc-set-changed :initialize custom-initialize-default rcirc-keywords #[0 "\300\207" [nil] 1] "List of keywords to highlight in message text." (repeat string) rcirc-ignore-list #[0 "\300\207" [nil] 1] "List of ignored nicks.\nUse /ignore to list them, use /ignore NICK to add or remove a nick." (repeat string)] 10)
#@219 List of ignored nicks added to `rcirc-ignore-list' because of renaming.
When an ignored person renames, their nick is added to both lists.
Nicks will be removed from the automatic list on follow-up renamings or
parts.
(defvar rcirc-ignore-list-automatic nil (#$ . 10710))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\314\315\316\317#\210\320\211\203@�\211@\315N\2039�\316N\2049�\321\316\315N#\210A\266\202\202�\210\322\315\316\323#\210\300\316\302\303\324DD\325\306\326%\207" [custom-declare-variable rcirc-bright-nicks funcall function #[0 "\300\207" [nil] 1] "List of nicks to be emphasized.\nSee `rcirc-bright-nick' face." :type (repeat string) rcirc-dim-nicks #[0 "\300\207" [nil] 1] "List of nicks to be deemphasized.\nSee `rcirc-dim-nick' face." (repeat string) defvaralias rcirc-print-hooks rcirc-print-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3" #[0 "\300\207" [nil] 1] "Hook run after text is printed.\nCalled with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT." hook] 7)
#@44 Hook run after successfully authenticated.
(defvar rcirc-authenticated-hook nil (#$ . 11800))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\313%\210\300\317\302\303\320DD\321\306\322%\210\300\323\302\303\324DD\325\306\303%\210\300\326\302\303\327DD\330\331\332\306\333&\210\300\334\302\303\335DD\336\331\337\306\307&\207" [custom-declare-variable rcirc-always-use-server-buffer-flag funcall function #[0 "\300\207" [nil] 1] "Non-nil means messages without a channel target will go to the server buffer." :type boolean rcirc-decode-coding-system #[0 "\300\207" [utf-8] 1] "Coding system used to decode incoming irc messages.\nSet to `undecided' if you want the encoding of the incoming\nmessages autodetected." coding-system rcirc-encode-coding-system #[0 "\300\207" [utf-8] 1] "Coding system used to encode outgoing irc messages." rcirc-coding-system-alist #[0 "\300\207" [nil] 1] "Alist to decide a coding system to use for a channel I/O operation.\nThe format is ((PATTERN . VAL) ...).\nPATTERN is either a string or a cons of strings.\nIf PATTERN is a string, it is used to match a target.\nIf PATTERN is a cons of strings, the car part is used to match a\ntarget, and the cdr part is used to match a server.\nVAL is either a coding system or a cons of coding systems.\nIf VAL is a coding system, it is used for both decoding and encoding\nmessages.\nIf VAL is a cons of coding systems, the car part is used for decoding,\nand the cdr part is used for encoding." (alist :key-type (choice (string :tag "Channel Regexp") (cons (string :tag "Channel Regexp") (string :tag "Server Regexp"))) :value-type (choice coding-system (cons (coding-system :tag "Decode") (coding-system :tag "Encode")))) rcirc-multiline-major-mode #[0 "\300\207" [fundamental-mode] 1] "Major-mode function to use in multiline edit buffers." rcirc-nick-completion-format #[0 "\300\207" [#1="%s: "] 1 #1#] "Format string to use in nick completions.\n\nThe format string is only used when completing at the beginning\nof a line.  The string is passed as the first argument to\n`format' with the nickname as the second argument." :version "24.1" string rcirc-kill-channel-buffers #[0 "\300\207" [nil] 1] "When non-nil, kill channel buffers when the server buffer is killed.\nOnly the channel buffers associated with the server in question\nwill be killed." "24.3"] 8)
(defvar rcirc-nick nil)
(defvar rcirc-prompt-end-marker nil)
(defvar rcirc-nick-table nil)
#@63 Alist of nicks that have recently quit or parted the channel.
(defvar rcirc-recent-quit-alist nil (#$ . 14311))
#@71 Syntax table which includes all nick characters as word constituents.
(defvar rcirc-nick-syntax-table (byte-code "\301!\302\303\304\305\306\307!\310\"\311\312%\313\"\210\314\315\316#\210\211\207" [text-mode-syntax-table make-syntax-table mapc make-byte-code 257 "\301\302\300#\207" vconcat vector [modify-syntax-entry "w"] 5 "\n\n(fn C)" "[]\\`_^{|}-" modify-syntax-entry 39 "_"] 8) (#$ . 14429))
(defvar rcirc-buffer-alist nil)
#@41 List of buffers with unviewed activity.
(defvar rcirc-activity nil (#$ . 14869))
#@62 String displayed in mode line representing `rcirc-activity'.
(defvar rcirc-activity-string "" (#$ . 14956))
(put 'rcirc-activity-string 'risky-local-variable t)
#@56 The server buffer associated with this channel buffer.
(defvar rcirc-server-buffer nil (#$ . 15123))
#@50 The channel or user associated with this buffer.
(defvar rcirc-target nil (#$ . 15230))
#@68 List of URLs seen in the current buffer and their start positions.
(defvar rcirc-urls nil (#$ . 15324))
(put 'rcirc-urls 'permanent-local t)
#@66 Kill connection after this many seconds if there is no activity.
(defvar rcirc-timeout-seconds 600 (#$ . 15471))
(defvar rcirc-startup-channels nil)
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-name-history nil (#$ . 15626))
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-port-history nil (#$ . 15720))
#@37 History variable for \[rcirc] call.
(defvar rcirc-nick-name-history nil (#$ . 15814))
#@37 History variable for \[rcirc] call.
(defvar rcirc-user-name-history nil (#$ . 15906))
#@177 Connect to all servers in `rcirc-server-alist'.

Do not connect to a server if it is already connected.

If ARG is non-nil, instead prompt for connection parameters.

(fn ARG)
(defalias 'rcirc #[257 "\211\203j�\305\306\307\211@@\310&\311\"A\312\313\314\315\316\"\206�	!\317#\312\320\315\321\"\206,�\n\322#\312\323\315\324\"\2068�\325#\326\327\307\315\330\"#\331\312\332\333\334\315\n\335\"\336#\"\337\340#\341!\342\f	&\207\307\211\2033\211@\211@\315A\321\"\206}�\n\315A\316\"\206\206�	\315A\324\"\206\217�\315A\343\"\206\230�\f\315A\335\"\315A\330\"\315A\344\"\315	A\345\"\307	\203*\307\346 \211\203\326�\211@\206\305�\f\347!\230\203\317�\211\262A\266\202\202\271�\210\211\204\3501\370�\342\n\f&	0\202\210\351\352\206\f\"\210\202)r\353!q\210\354\355p!\356\"\262;\203\202#\206#\nB\262)\210\266\nA\266\202\202l�\210\211\205R\351\357A\203O\333\334\360!\361#\362\363!@Q\202Q@\"\207" [rcirc-server-alist rcirc-default-port rcirc-default-nick rcirc-default-user-name rcirc-default-full-name completing-read "IRC Server: " nil rcirc-server-name-history assoc-string read-string "IRC Port: " number-to-string plist-get :port rcirc-server-port-history "IRC Nick: " :nick rcirc-nick-name-history "IRC Username: " :user-name rcirc-user-name-history read-passwd "IRC Password: " :password split-string "IRC Channels: " mapconcat identity :channels " " "[, ]+" t rcirc-prompt-for-encryption rcirc-connect :full-name :encryption :server-alias rcirc-process-list process-name (quit) message "Quit connecting to %s" process-buffer process-contact get-buffer-process :name "Already connected to %s" butlast ", " ", and " last] 25 (#$ . 15999) "P"])
(defalias 'irc 'rcirc)
(defvar rcirc-process-output nil)
(defvar rcirc-topic nil)
(defvar rcirc-keepalive-timer nil)
(defvar rcirc-last-server-message-time nil)
(defvar rcirc-server nil)
(defvar rcirc-server-name nil)
(defvar rcirc-timeout-timer nil)
(defvar rcirc-user-authenticated nil)
(defvar rcirc-user-disconnect nil)
(defvar rcirc-connecting nil)
(defvar rcirc-connection-info nil)
(defvar rcirc-process nil)
#@105

(fn SERVER &optional PORT NICK USER-NAME FULL-NAME STARTUP-CHANNELS PASSWORD ENCRYPTION SERVER-ALIAS)
(defalias 'rcirc-connect #[2305 "\212\306\307\206	�\n\"\210\310\203$�;\203�\311!\202%�\202%�	\206+�\n\2061�\2067�\f\312\206A�\310\313\f\206M�\314&\315\316\211#\210\317\320\310\"!\210\321p\"\210\322\310\"\210\323\324\"\210\325\326\"\210\327\305!\210\257	\327\330!\210\211\327\331!\210\327\332!\210\206\243�\327\333!\210\310\327\334!\210\335\336\337\"\327\340!\210 \327\341!\210\310!\327\342!\210\"\327\343!\210\344 #\327\345!\210\310%\327\346!\210\310&\327\347!\210\310'\327\350!\210\351(\352\353\354\"\210G\355U\204\356\357P\"\210\356\360P\"\210\356\361\362R\"\2107\204&\363\3558\364\245\365#7\306\366\206/\"\210)\266\205)\207" [inhibit-eol-conversion rcirc-default-port rcirc-default-nick rcirc-default-user-name rcirc-default-full-name rcirc-connection-info message "Connecting to %s..." nil string-to-number open-network-stream :type plain set-process-coding-system raw-text switch-to-buffer rcirc-generate-new-buffer-name set-process-buffer rcirc-mode set-process-sentinel rcirc-sentinel set-process-filter rcirc-filter make-local-variable rcirc-process rcirc-server rcirc-server-name rcirc-buffer-alist rcirc-nick-table make-hash-table :test equal rcirc-nick rcirc-process-output rcirc-startup-channels rcirc-last-server-message-time current-time rcirc-timeout-timer rcirc-user-disconnect rcirc-user-authenticated rcirc-connecting t add-hook auto-save-hook rcirc-log-write 0 rcirc-send-string "PASS " "NICK " "USER " " 0 * :" run-at-time 2 rcirc-keepalive "Connecting to %s...done" rcirc-keepalive-timer rcirc-timeout-seconds] 24 (#$ . 18150)])
#@27

(fn PROCESS &rest BODY)
(defalias 'with-rcirc-process-buffer '(macro . #[385 "\300\301DBB\207" [with-current-buffer process-buffer] 5 (#$ . 19916)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-rcirc-process-buffer lisp-indent-function 1 put edebug-form-spec t] 5)
#@19

(fn &rest BODY)
(defalias 'with-rcirc-server-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer rcirc-server-buffer] 4 (#$ . 20218)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\312#\210\313\310\311\314#\207" [function-put with-rcirc-server-buffer lisp-indent-function 0 put edebug-form-spec t defalias rcirc-float-time float-time nil make-obsolete "26.1"] 5)
#@120 Prompt the user for the encryption method to use.
SERVER-PLIST is the property list for the server.

(fn SERVER-PLIST)
(defalias 'rcirc-prompt-for-encryption #[257 "\300\301\302\"\206	�\303\304\305\306\307\"\310\311\310\211&!\207" [("plain" "tls") plist-get :encryption "plain" intern completing-read format "Encryption (default %s): " nil t] 12 (#$ . 20618)])
#@126 Send keep alive pings to active rcirc processes.
Kill processes that have not received a server message since the
last ping.
(defalias 'rcirc-keepalive #[0 "\301 \203�\302\303\301 \"\207\304!\203�\305!\210\306\211\207" [rcirc-keepalive-timer rcirc-process-list mapc #[257 "r\302!q\210?\205�\303	\304\305\306 \"#)\207" [rcirc-connecting rcirc-nick process-buffer rcirc-send-ctcp format "KEEPALIVE %f" float-time] 7 "\n\n(fn PROCESS)"] timerp cancel-timer nil] 3 (#$ . 20992)])
#@38

(fn PROCESS TARGET SENDER MESSAGE)
(defalias 'rcirc-handler-ctcp-KEEPALIVE #[1028 "r\301!q\210\302\303\304\305\306!!!\"\211)\207" [header-line-format process-buffer format "%f" float-time time-since string-to-number] 10 (#$ . 21483)])
(defvar rcirc-debug-buffer "*rcirc debug*")
#@56 If non-nil, write information to `rcirc-debug-buffer'.
(defvar rcirc-debug-flag nil (#$ . 21773))
#@371 Add an entry to the debug log including PROCESS and TEXT.
Debug text is appended to `rcirc-debug-buffer' if `rcirc-debug-flag'
is non-nil.

For convenience, the read-only state of the debug buffer is ignored.
When the point is at the end of the visible portion of the buffer, it
is moved to after the text inserted.  Otherwise the point is not moved.

(fn PROCESS TEXT)
(defalias 'rcirc-debug #[514 "\205-�r\303	!q\210\304 \305\306\"\210db\210\306\307p\306\"\210\310\311\312!\313!\314\261\210)\211b\262)\207" [rcirc-debug-flag rcirc-debug-buffer inhibit-read-only get-buffer-create point-marker set-marker-insertion-type t terpri "[" format-time-string "%FT%T " process-name "] "] 8 (#$ . 21878)])
(byte-code "\300\301\302\303#\210\304\211\203(�\211@\301N\203!�\302N\204!�\305\302\301N#\210A\266\202\202�\210\306\301\302\307#\207" [defvaralias rcirc-sentinel-hooks rcirc-sentinel-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 7)
#@118 Hook functions called when the process sentinel is called.
Functions are called with PROCESS and SENTINEL arguments.
(defvar rcirc-sentinel-functions nil (#$ . 22867))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable rcirc-reconnect-delay funcall function #[0 "\300\207" [0] 1] "The minimum interval in seconds between reconnect attempts.\nWhen 0, do not auto-reconnect." :version "25.1" :type integer] 8)
#@41 The last time the buffer was connected.
(defvar rcirc-last-connect-time nil (#$ . 23317))
#@63 Called when PROCESS receives SENTINEL.

(fn PROCESS SENTINEL)
(defalias 'rcirc-sentinel #[514 "\304\305\306#\307\310\311#\"\210r\312!q\210\313\314\315\"B\211\203K�\211@r\211\206'�pq\210\316\317\320	\310\321\322\f!\n\323!$	?&\210\324 \210)A\266\202\202�\210\211\325\230\203o�\326\nW\203o�\327 \203h�\330\n\331\"\"\203n�\211\332\313!\210\210\333\334#)\207" [rcirc-buffer-alist rcirc-target rcirc-reconnect-delay rcirc-last-connect-time replace-regexp-in-string "\n" "" rcirc-debug format "SENTINEL: %S %S\n" process-buffer nil mapcar cdr rcirc-print "rcirc.el" "ERROR" "%s: %s (%S)" process-name process-status rcirc-disconnect-buffer "deleted" 0 current-time time-less-p time-subtract rcirc-cmd-reconnect run-hook-with-args rcirc-sentinel-functions] 16 (#$ . 23413)])
#@25

(fn &optional BUFFER)
(defalias 'rcirc-disconnect-buffer #[256 "r\211\206�pq\210\302\303\211)\207" [rcirc-target mode-line-process nil ":disconnected"] 3 (#$ . 24207)])
#@35 Return a list of rcirc processes.
(defalias 'rcirc-process-list #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%\312 \"\210\211\242\207" [nil mapc make-byte-code 257 "\302\303!!\205�r\303!q\210	\304=\205�\300\300\242B\240)\207" vconcat vector [major-mode buffer-live-p process-buffer rcirc-mode] 4 "\n\n(fn P)" process-list] 8 (#$ . 24387)])
(byte-code "\300\301\302\303#\210\304\211\203(�\211@\301N\203!�\302N\204!�\305\302\301N#\210A\266\202\202�\210\306\301\302\307#\207" [defvaralias rcirc-receive-message-hooks rcirc-receive-message-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 7)
#@125 Hook functions run when a message is received from server.
Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.
(defvar rcirc-receive-message-functions nil (#$ . 25036))
#@59 Called when PROCESS receives OUTPUT.

(fn PROCESS OUTPUT)
(defalias 'rcirc-filter #[514 "\302\"\210\303!\210r\304!q\210\305 	P\211\211GSH\306U\205>�\307	\310\311#\312\211\211\205:�\211@\313\"\210A\266\202\202(�\262\262)\207" [rcirc-last-server-message-time rcirc-process-output rcirc-debug rcirc-reschedule-timeout process-buffer current-time 10 split-string "[\n
]" t nil rcirc-process-server-response] 9 (#$ . 25224)])
#@16

(fn PROCESS)
(defalias 'rcirc-reschedule-timeout #[257 "r\303!q\210?\205\"�r\303!q\210	\203�\304	!\210\305\n\306\307$\211))\207" [rcirc-connecting rcirc-timeout-timer rcirc-timeout-seconds process-buffer cancel-timer run-at-time nil rcirc-delete-process] 6 (#$ . 25664)])
#@16

(fn PROCESS)
(defalias 'rcirc-delete-process #[257 "\300!\207" [delete-process] 3 (#$ . 25950)])
(defvar rcirc-trap-errors-flag t)
#@21

(fn PROCESS TEXT)
(defalias 'rcirc-process-server-response #[514 "\203�\3011�\302\"0\207\303\304\305\306\307\310#\311&\207\302\"\207" [rcirc-trap-errors-flag (error) rcirc-process-server-response-1 rcirc-print "RCIRC" "ERROR" nil format "\"%s\" %s" t] 12 (#$ . 26090)])
#@21

(fn PROCESS TEXT)
(defalias 'rcirc-process-server-response-1 #[514 "\300\301\"\203\234�\302\303\"\304!\302\305\"\305\225\306\307\310P!\311\211S\211\262\312Y\203C�\313\300\314\f#\"\203C�\302\315\n\"B\262\312\225\262\202�\313\300\316\f#\"\203]�\317	\312\225\"B\262\202i�	GU\204i�\320\321!\210\237\262\266\322!\204\203�\323%\210\202\215�\211\n$\210\324\325	\f&\207\326\327\"\207" [string-match "^\$:\\([^ ]+\$ \\)?\$[^ ]+\$" match-string 2 rcirc-user-nick 3 nil intern-soft "rcirc-handler-" 14 0 eql " +\$[^: ][^ ]*\$" 1 " +:?" substring cl--assertion-failed (= i (length text)) fboundp rcirc-handler-generic run-hook-with-args rcirc-receive-message-functions message "UNHANDLED: %s"] 16 (#$ . 26381)])
#@67 Responses that don't trigger activity in the mode-line indicator.
(defvar rcirc-responses-no-activity '("305" "306") (#$ . 27148))
#@74 Generic server response handler.

(fn PROCESS RESPONSE SENDER ARGS TEXT)
(defalias 'rcirc-handler-generic #[1285 "\301\302\303\304A\305#	\235?&\207" [rcirc-responses-no-activity rcirc-print nil mapconcat identity " "] 14 (#$ . 27285)])
#@16

(fn PROCESS)
(defalias 'rcirc--connection-open-p #[257 "\300!\301>\207" [process-status (run open)] 3 (#$ . 27536)])
#@60 Send PROCESS a STRING plus a newline.

(fn PROCESS STRING)
(defalias 'rcirc-send-string #[514 "\301\"\302P\303!\204�\304\305\306!\"\210\307\"\210\310\"\207" [rcirc-encode-coding-system encode-coding-string "\n" rcirc--connection-open-p error "Network connection to %s is not open" process-name rcirc-debug process-send-string] 7 (#$ . 27662)])
#@30

(fn PROCESS TARGET STRING)
(defalias 'rcirc-send-privmsg #[771 ";\204
�\300\301\302\303E\"\210\304\305\306#\"\207" [signal wrong-type-argument string target rcirc-send-string format "PRIVMSG %s :%s"] 9 (#$ . 28021)])
#@46

(fn PROCESS TARGET REQUEST &optional ARGS)
(defalias 'rcirc-send-ctcp #[1027 "\211\203\n�\300P\202�\301\302\303\304##\207" [" " "" rcirc-send-privmsg format "%s%s"] 12 (#$ . 28251)])
#@136 Return the process associated with channel BUFFER.
With no argument or nil as argument, use the current buffer.

(fn &optional BUFFER)
(defalias 'rcirc-buffer-process #[256 "\211\206�\302!\205�\211\203�r\211q\210	)\202�	\207" [rcirc-server-buffer rcirc-process buffer-live-p] 3 (#$ . 28453)])
#@70 Return PROCESS server name, given by the 001 response.

(fn PROCESS)
(defalias 'rcirc-server-name #[257 "r\301!q\210\206�\302\303\")\207" [rcirc-server-name process-buffer warn "server name for process %S unknown"] 4 (#$ . 28758)])
#@36 Return PROCESS nick.

(fn PROCESS)
(defalias 'rcirc-nick #[257 "r\302!q\210\206�	)\207" [rcirc-nick rcirc-default-nick process-buffer] 3 (#$ . 29000)])
#@125 Return the nick associated with BUFFER.
With no argument or nil as argument, use the current buffer.

(fn &optional BUFFER)
(defalias 'rcirc-buffer-nick #[256 "r\211\206�pq\210rq\210	\206�\n*\207" [rcirc-server-buffer rcirc-nick rcirc-default-nick] 2 (#$ . 29162)])
#@48 Messages longer than this value will be split.
(defvar rcirc-max-message-length 420 (#$ . 29437))
#@76 Split MESSAGE into chunks within `rcirc-max-message-length'.

(fn MESSAGE)
(defalias 'rcirc-split-message #[257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216c\210eb\210\313m\204I�\314	!\206&�db\210o\204>�\315e`\316$G	V\203>�\317u\210\202(�\320e`\"B\262\202�\211\237\262*\262\207" [rcirc-encode-coding-system rcirc-max-message-length generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil byte-to-position encode-coding-region t -1 delete-and-extract-region] 9 (#$ . 29541)])
#@243 Send TARGET associated with PROCESS a privmsg with text MESSAGE.
If NOTICEP is non-nil, send a notice instead of privmsg.
If SILENT is non-nil, do not print the message in any irc buffer.

(fn PROCESS TARGET MESSAGE &optional NOTICEP SILENT)
(defalias 'rcirc-send-message #[1283 "\203�\300\202	�\301\302\"\210\303!\211\205?�\211@\304\305\n\306\260\"\210\2048�\307\310\n!\n%\210A\266\202\202�\262\207" ["NOTICE" "PRIVMSG" rcirc-get-buffer-create rcirc-split-message rcirc-send-string " " " :" rcirc-print rcirc-nick] 15 (#$ . 30113)])
(defvar rcirc-input-ring nil)
(defvar rcirc-input-ring-index 0)
#@12

(fn ARG)
(defalias 'rcirc-prev-input-string #[257 "\302	\\\"\207" [rcirc-input-ring rcirc-input-ring-index ring-ref] 5 (#$ . 30741)])
(defalias 'rcirc-insert-prev-input #[0 "`X\205�d|\210\302\303!c\210	T\211\207" [rcirc-prompt-end-marker rcirc-input-ring-index rcirc-prev-input-string 0] 2 nil nil])
(defalias 'rcirc-insert-next-input #[0 "`X\205�d|\210	S\302\303!c\207" [rcirc-prompt-end-marker rcirc-input-ring-index rcirc-prev-input-string -1] 2 nil nil])
#@82 A list of user commands by IRC server.
The value defaults to RFCs 1459 and 2812.
(defvar rcirc-server-commands '("/admin" "/away" "/connect" "/die" "/error" "/info" "/invite" "/ison" "/join" "/kick" "/kill" "/links" "/list" "/lusers" "/mode" "/motd" "/names" "/nick" "/notice" "/oper" "/part" "/pass" "/ping" "/pong" "/privmsg" "/quit" "/rehash" "/restart" "/service" "/servlist" "/server" "/squery" "/squit" "/stats" "/summon" "/time" "/topic" "/trace" "/user" "/userhost" "/users" "/version" "/wallops" "/who" "/whois" "/whowas") (#$ . 31218))
#@114 A list of user commands defined by IRC client rcirc.
The list is updated automatically by `defun-rcirc-command'.
(defvar rcirc-client-commands '("/me" "/ctcp") (#$ . 31771))
#@68 Function used for `completion-at-point-functions' in `rcirc-mode'.
(defalias 'rcirc-completion-at-point #[0 "\304 \205?�\212\305\306\307#\203�`T\202�)\211U\2034�\211f\310=\2034�\311\312\313	!\314\"\312\313\n!\314\"\244!\2029�\315\316 \"`E\266\202\207" [rcirc-prompt-end-marker rcirc-client-commands rcirc-server-commands rcirc-target rcirc-looking-at-input re-search-backward "[[:space:]@]" t 47 delete-dups sort copy-sequence string-lessp rcirc-channel-nicks rcirc-buffer-process] 6 (#$ . 31951)])
(defvar rcirc-completions nil)
(defvar rcirc-completion-start nil)
#@147 Cycle through completions from list of nicks in channel or IRC commands.
IRC command completion is performed only if `/' is the first input char.
(defalias 'rcirc-complete #[0 "\306 \204	�\307\310!\210	=\203�\311\nA\n@C\"\2024�\312\313 \211@\211\2050�\314\fA@{\3158\")\266\n@\211\205\\�\f`|\210\211\316H\317U\203L�\211\320P\202[�\f
U\203Z�\321\"\202[�\211c\207" [last-command this-command rcirc-completions completion-ignore-case rcirc-completion-start rcirc-prompt-end-marker rcirc-looking-at-input error "Point not located after rcirc prompt" append t rcirc-completion-at-point all-completions 2 0 47 " " format rcirc-nick-completion-format] 7 (#$ . 32532) nil])
#@72 Set the decode coding system used in this channel.

(fn CODING-SYSTEM)
(defalias 'set-rcirc-decode-coding-system #[257 "\301\300!\210\211\211\207" [rcirc-decode-coding-system make-local-variable] 3 (#$ . 33216) "zCoding system for incoming messages: "])
#@72 Set the encode coding system used in this channel.

(fn CODING-SYSTEM)
(defalias 'set-rcirc-encode-coding-system #[257 "\301\300!\210\211\211\207" [rcirc-encode-coding-system make-local-variable] 3 (#$ . 33477) "zCoding system for outgoing messages: "])
#@24 Keymap for rcirc mode.
(defvar rcirc-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\211\207" [make-sparse-keymap define-key "
" rcirc-send-input [134217840] rcirc-insert-prev-input [134217838] rcirc-insert-next-input "	" rcirc-complete "" rcirc-browse-url "" rcirc-edit-multiline "\n" rcirc-cmd-join "" rcirc-cmd-kick "\f" rcirc-toggle-low-priority "" rcirc-cmd-mode "
" rcirc-cmd-msg "" rcirc-cmd-nick "" rcirc-omit-mode "" rcirc-cmd-part "" rcirc-cmd-query "" rcirc-cmd-topic "" rcirc-cmd-names "" rcirc-cmd-whois "" rcirc-cmd-quit "	" rcirc-toggle-ignore-buffer-activity "" rcirc-switch-to-server-buffer "" rcirc-jump-to-first-unread-line] 5) (#$ . 33738))
#@60 Generated abbreviation to use to indicate buffer activity.
(defvar rcirc-short-buffer-name nil (#$ . 34812))
#@40 Hook run when setting up rcirc buffer.
(defvar rcirc-mode-hook nil (#$ . 34927))
(defvar rcirc-last-post-time nil)
#@108 Alist of lines to log to disk when `rcirc-log-flag' is non-nil.
Each element looks like (FILENAME . TEXT).
(defvar rcirc-log-alist nil (#$ . 35049))
#@123 The current number of responses printed in this channel.
This number is independent of the number of lines in the buffer.
(defvar rcirc-current-line 0 (#$ . 35205))
#@77 Major mode for IRC channel buffers.

\{rcirc-mode-map}

(fn PROCESS TARGET)
(defalias 'rcirc-mode #[514 "\306 \210\307!\210\310\311\312\313\304!\210\314\f!\203#�\315\f!
U\203#�\f\202&�\316
!\313\317!\210\320!\313\321!\210\211\313\322!\210\312\313\323!\210\324 \313\325!\210\326\313\327!\210\312\313\330!\210\331\313\332!\210\324 \333\334!\210\313\335!\210\312\313\336!\210\312\211=\337 >\340>\341\342\343\344\"\345\346\"\262#\210?\211\203\366�\211@\211@:\203\240�\211@@\202\242�\211@@:\203\256�@A\202\257�\347\350\206\267�\347\"\203\355�\350\351!\"\203\355�\313\352!\210A:\203\325�A@\202\327�A*\313\353!\210A:\203\351�AA\202\353�A+\266A\266\202\202\216�\210\313\354!\210\355 ,\313\356!\210\355 .\357 \210.b\210\313\360!\210\361 0\362\363\364\312\334$\210\362\365\366\312\334$\210\211\203<pr\320!q\210B@B@)\210\367 \210\362\370\371\312\372$\210\373\374!\207" [rcirc-mode-map mode-name major-mode mode-line-process rcirc-input-ring rcirc-input-ring-size kill-all-local-variables use-local-map "rcirc" rcirc-mode nil make-local-variable ring-p ring-size make-ring rcirc-server-buffer process-buffer rcirc-target rcirc-topic rcirc-last-post-time current-time fill-paragraph-function rcirc-fill-paragraph rcirc-recent-quit-alist rcirc-current-line 0 rcirc-last-connect-time use-hard-newlines t rcirc-short-buffer-name rcirc-urls make-display-table set-display-table-slot 4 make-glyph-code 46 font-lock-keyword-face make-vector 3 "" string-match rcirc-server-name rcirc-decode-coding-system rcirc-encode-coding-system rcirc-prompt-start-marker point-max-marker rcirc-prompt-end-marker rcirc-update-prompt overlay-arrow-position make-marker add-hook change-major-mode-hook rcirc-change-major-mode-hook kill-buffer-hook rcirc-kill-buffer-hook rcirc-update-short-buffer-names completion-at-point-functions rcirc-completion-at-point local run-mode-hooks rcirc-mode-hook buffer-invisibility-spec buffer-display-table rcirc-coding-system-alist rcirc-buffer-alist] 11 (#$ . 35376)])
#@123 Reset the prompt string in the current buffer.

If ALL is non-nil, update prompts in all IRC buffers.

(fn &optional ALL)
(defalias 'rcirc-update-prompt #[256 "\211\203\n�\306\307\310 \"\207\311\206�\312C\306\313\314\315\316\317!\320\"\321\322%\323\324 B\325r\nq\210)B\326\f\2063�\312BE\"\210\212
 |\210
b\210`\327\242!\210
\330\223\210 
Z\331U?\205f�\332
 \333\300\334\311\335\311\336\311\337\311\257\n#\262*\207" [rcirc-prompt inhibit-read-only rcirc-server-buffer rcirc-server-name rcirc-target rcirc-prompt-start-marker mapc #[257 "\301\302r\303!q\210\304\305\")\"\207" [rcirc-buffer-alist mapc #[257 "r\211q\210\300 )\207" [rcirc-update-prompt] 2 "\n\n(fn BUFFER)"] process-buffer mapcar cdr] 6 "\n\n(fn PROCESS)"] rcirc-process-list t "" make-byte-code 257 "\300\301@A\300\242#\240\207" vconcat vector [replace-regexp-in-string] 6 "\n\n(fn REP)" "%n" rcirc-buffer-nick "%s" "%t" insert-before-markers nil 0 add-text-properties face read-only field front-sticky rear-nonsticky rcirc-prompt-end-marker] 17 (#$ . 37413)])
#@85 Set OPTION to VALUE and do updates after a customization change.

(fn OPTION VALUE)
(defalias 'rcirc-set-changed #[514 "\300\"\210\301=\203�\302\303!\207\304\305\"\207" [set-default rcirc-prompt rcirc-update-prompt all error "Bad option %s"] 5 (#$ . 38461)])
#@52 Return t if TARGET is a channel name.

(fn TARGET)
(defalias 'rcirc-channel-p #[257 "\211\205�\211G\300U?\205�\211\300H\301=\206�\211\300H\302=\207" [0 35 38] 3 (#$ . 38731)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable rcirc-log-directory funcall function #[0 "\300\207" [#1="~/.emacs.d/rcirc-log"] 1 #1#] "Directory to keep IRC logfiles." :type directory rcirc-log-flag #[0 "\300\207" [nil] 1] "Non-nil means log IRC activity to disk.\nLogfiles are kept in `rcirc-log-directory'." boolean] 6)
#@187 Part the channel when killing an rcirc buffer.

If `rcirc-kill-channel-buffers' is non-nil and the killed buffer
is a server buffer, kills all of the channel buffers associated
with it.
(defalias 'rcirc-kill-buffer-hook #[0 "\305=\205>�	\203�\n\203�\306 \210\307\310!\210\311p!\211\203 �\312!\210\210\205>�\f\205>�\211\205<�\211@\313A!\210A\266\202\202*�\262\207" [major-mode rcirc-log-flag rcirc-log-directory rcirc-buffer-alist rcirc-kill-channel-buffers rcirc-mode rcirc-log-write rcirc-clean-up-buffer "Killed buffer" get-buffer-process delete-process kill-buffer] 4 (#$ . 39309)])
#@48 Part the channel when changing the major-mode.
(defalias 'rcirc-change-major-mode-hook #[0 "\300\301!\207" [rcirc-clean-up-buffer "Changed major mode"] 2 (#$ . 39910)])
#@15

(fn REASON)
(defalias 'rcirc-clean-up-buffer #[257 "p\303!\210\304 \203>�\305\304 !\203>�rq\210\306	\")\307 \210\310\n!\2032�\311\304 \312\n\313R\"\210\202>�\n\203>�\314\304 \315 \n#\210\316\211\207" [rcirc-server-buffer rcirc-buffer-alist rcirc-target rcirc-clear-activity rcirc-buffer-process rcirc--connection-open-p rassq-delete-all rcirc-update-short-buffer-names rcirc-channel-p rcirc-send-string "PART " " :" rcirc-remove-nick-channel rcirc-buffer-nick nil] 8 (#$ . 40085)])
#@128 Return a buffer name based on PROCESS and TARGET.
This is used for the initial name given to IRC buffers.

(fn PROCESS TARGET)
(defalias 'rcirc-generate-new-buffer-name #[514 "\300\203�\301\302!Q\202�\303\302!\303Q!\207" [substring-no-properties "@" process-name "*"] 7 (#$ . 40583)])
#@228 Return the buffer associated with the PROCESS and TARGET.

If optional argument SERVER is non-nil, return the server buffer
if there is no existing buffer for TARGET, otherwise return nil.

(fn PROCESS TARGET &optional SERVER)
(defalias 'rcirc-get-buffer #[770 "r\301!q\210\204�p\202�\302\303#A\211\206�\205�p\262)\207" [rcirc-buffer-alist process-buffer assoc-string t] 7 (#$ . 40881)])
#@119 Return the buffer associated with the PROCESS and TARGET.
Create the buffer if it doesn't exist.

(fn PROCESS TARGET)
(defalias 'rcirc-get-buffer-create #[514 "\302\"\211\203�\303!\203�r\211q\210\204�)\211\202A�r\304!q\210\305\306\"!r\211q\210\307\"\210\310\311!	$\210)\211\262)\207" [rcirc-target rcirc-current-line rcirc-get-buffer buffer-live-p process-buffer get-buffer-create rcirc-generate-new-buffer-name rcirc-mode rcirc-put-nick-channel rcirc-nick] 9 (#$ . 41286)])
#@58 Send input to target associated with the current buffer.
(defalias 'rcirc-send-input #[0 "`W\2035�\303y\210`e=\203�`\202#�\304`S\305\"\203�`\202#�\306`\305\"\307`T\305\"db\210\310\311\312\313\"#c\207db\210`Z\303\232?\205r�`\314 =\203L�\315\316!\210\313`\"\317\320\"\211\203e�\211@\321!\210A\266\202\202T�\210\212\322	\"\210\303\211)\262\207" [rcirc-prompt-end-marker rcirc-input-ring rcirc-input-ring-index 0 get-text-property hard previous-single-property-change next-single-property-change replace-regexp-in-string "\n\\s-+" " " buffer-substring-no-properties point-at-bol delete-char -1 split-string "\n" rcirc-process-input-line ring-insert] 8 (#$ . 41786) nil])
#@26

(fn &optional JUSTIFY)
(defalias 'rcirc-fill-paragraph #[256 "`V\205�\214d}\210	\303ed#*\207" [rcirc-prompt-end-marker rcirc-max-message-length fill-column fill-region] 5 (#$ . 42472) "P"])
#@13

(fn LINE)
(defalias 'rcirc-process-input-line #[257 "\300\301\"\203�\302\303\304\"\303\305\"#\207\306!\207" [string-match "^/\$[^ ]+\$ ?\$.*\$$" rcirc-process-command match-string 1 2 rcirc-process-message] 6 (#$ . 42675)])
#@13

(fn LINE)
(defalias 'rcirc-process-message #[257 "\204�\303\304!\207	`|\210\305\306 #\210\307 \211\207" [rcirc-target rcirc-prompt-end-marker rcirc-last-post-time message "Not joined (no target)" rcirc-send-message rcirc-buffer-process current-time] 5 (#$ . 42917)])
#@26

(fn COMMAND ARGS LINE)
(defalias 'rcirc-process-command #[771 "\302H\303=\203�\304\305\306\"!\207\307\310P!\311 \312 \210rpq\210`|\210\313\230\2034�\314\315 \316	%\210\202>�\314\315 \317	%\210`\320\223\210\321!\203Q�	#\202Z�\322\323Q\")\207" [rcirc-prompt-end-marker rcirc-target 0 47 rcirc-process-message substring 1 intern-soft "rcirc-cmd-" rcirc-buffer-process newline "me" rcirc-print rcirc-buffer-nick "ACTION" "COMMAND" nil fboundp rcirc-send-string " :"] 11 (#$ . 43197)])
(defvar rcirc-parent-buffer nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local rcirc-parent-buffer put permanent-local t] 4)
(defvar rcirc-window-configuration nil)
#@42 Move current edit to a dedicated buffer.
(defalias 'rcirc-edit-multiline #[0 "`ZTdb\210\304`\"\305 `|\210\306 \307\310\311Q!\210\n \210\312\313!\210\211c\210\314V\2030�b\210\315\316\"\266\202\207" [rcirc-prompt-end-marker rcirc-window-configuration rcirc-multiline-major-mode rcirc-parent-buffer buffer-substring-no-properties buffer-name current-window-configuration pop-to-buffer "*multiline " "*" rcirc-multiline-minor-mode 1 0 message "Type C-c C-c to return text to %s, or C-c C-k to cancel"] 7 (#$ . 43903) nil])
#@37 Keymap for multiline mode in rcirc.
(defvar rcirc-multiline-minor-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\306#\210\211\207" [make-sparse-keymap define-key "" rcirc-multiline-minor-submit "" "" rcirc-multiline-minor-cancel ""] 5) (#$ . 44438))
#@121 Non-nil if Rcirc-Multiline minor mode is enabled.
Use the command `rcirc-multiline-minor-mode' to change this variable.
(defvar rcirc-multiline-minor-mode nil (#$ . 44747))
(make-variable-buffer-local 'rcirc-multiline-minor-mode)
#@323 Minor mode for editing multiple lines in rcirc.

If called interactively, enable Rcirc-Multiline minor mode if ARG is
positive, and disable it if ARG is zero or negative.  If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'rcirc-multiline-minor-mode #[256 "\303 \304=\203
�?\202�\305!\306V	\307\310\203�\311\202 �\312\"\210\313\314!\203D�\303 \2034�\211\303 \232\203D�\315\316\317\203?�\320\202@�\321#\266\210\322 \210\207" [rcirc-multiline-minor-mode rcirc-max-message-length fill-column current-message toggle prefix-numeric-value 0 run-hooks rcirc-multiline-minor-mode-hook rcirc-multiline-minor-mode-on-hook rcirc-multiline-minor-mode-off-hook called-interactively-p any " in current buffer" message "Rcirc-Multiline minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 44984) (byte-code "\206�\301C\207" [current-prefix-arg toggle] 1)])
(defvar rcirc-multiline-minor-mode-hook nil)
(byte-code "\301\302N\204\f�\303\301\302\304#\210\305\306\307\310\211%\207" [rcirc-multiline-minor-mode-map rcirc-multiline-minor-mode-hook variable-documentation put "Hook run after entering or leaving `rcirc-multiline-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode rcirc-multiline-minor-mode " rcirc-mline" nil] 6)
#@48 Send the text in buffer back to parent buffer.
(defalias 'rcirc-multiline-minor-submit #[0 "\303ed\"\210ed{p`q\210db\210c\210\304!\210\305	!\210\nS\\b\207" [rcirc-parent-buffer rcirc-window-configuration rcirc-prompt-end-marker untabify kill-buffer set-window-configuration] 5 (#$ . 46440) nil])
#@28 Cancel the multiline edit.
(defalias 'rcirc-multiline-minor-cancel #[0 "\301p!\210\302!\207" [rcirc-window-configuration kill-buffer set-window-configuration] 2 (#$ . 46746) nil])
#@91 Return a buffer for PROCESS, either the one selected or the process buffer.

(fn PROCESS)
(defalias 'rcirc-any-buffer #[257 "\203�\302!\207\303 \211\203$�r\211q\210	\304=\205�\305 =)\203$�\211\202'�\302!\207" [rcirc-always-use-server-buffer-flag major-mode process-buffer window-buffer rcirc-mode rcirc-buffer-process] 4 (#$ . 46933)])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable rcirc-response-formats funcall function #[0 "\300\207" [(("PRIVMSG" . "<%N> %m") ("NOTICE" . "-%N- %m") ("ACTION" . "[%N %m]") ("COMMAND" . "%m") ("ERROR" . "%fw!!! %m") (t . "%fp*** %fs%n %r %m"))] 1] "An alist of formats used for printing responses.\nThe format is looked up using the response-type as a key;\nif no match is found, the default entry (with a key of t) is used.\n\nThe entry's value part should be a string, which is inserted with\nthe of the following escape sequences replaced by the described values:\n\n  %m        The message text\n  %n        The sender's nick\n  %N        The sender's nick (with face `rcirc-my-nick' or `rcirc-other-nick')\n  %r        The response-type\n  %t        The target\n  %fw       Following text uses the face `font-lock-warning-face'\n  %fp       Following text uses the face `rcirc-server-prefix'\n  %fs       Following text uses the face `rcirc-server'\n  %f[FACE]  Following text uses the face FACE\n  %f-       Following text uses the default face\n  %%        A literal `%' character" :type (alist :key-type (choice (string :tag "Type") (const :tag "Default" t)) :value-type string)] 6)
#@227 Return a nicely-formatted response string, incorporating TEXT
(and perhaps other arguments).  The specific formatting used
is found by looking up RESPONSE in `rcirc-response-formats'.

(fn PROCESS SENDER RESPONSE TARGET TEXT)
(defalias 'rcirc-format-response-string #[1285 "\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\"A\206�\316\236Ac\210eb\210e\2033�\317!\230\2037�\320\2028�\321\322\323\321\316#\203\324\307\224#\210\307\224\262\325\326\327!\307H\211\330\267\202\375�\331\326\332!!\211\333\267\202o�\334\202p�\335\202p�\336\202p�\321\262\262\320\202\202\337!\340 \306\307\341\311\312!\342\"\332$\216\343 p\306\307\344\311\312\"\345\"\314$\216\346	!\210\347\211\230\203\262�\350\202\331�\n\203\305�\351\352\n\353\"\"\203\305�\354\202\331�\203\330�\351\352\353\"\"\203\330�\355\202\331�\356\")\266\202)\262\262\202\357\360	#\202\202\206\320\202\361\326\307!P\262\316\211\321\307%\210\324\307\224\307\225#\210\2029�\324\307\224#\266ed{*\207" [rcirc-response-formats rcirc-nick-syntax-table rcirc-bright-nicks rcirc-dim-nicks generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 assoc t rcirc-server-name "" nil re-search-forward "%\$\\(f\\(.\$\\)\\|\$.\$\\)" rcirc-add-face replace-match match-string 1 #s(hash-table size 6 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (102 88 110 120 78 124 109 229 114 239 116 244)) string-to-char 3 #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (119 99 112 103 115 107)) font-lock-warning-face rcirc-server-prefix rcirc-server rcirc-nick match-data "\301\300\302\"\207" [set-match-data evaporate] syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table rcirc-facify rcirc-my-nick string-match regexp-opt words rcirc-bright-nick rcirc-dim-nick rcirc-other-nick propertize rcirc-text "UNKNOWN CODE:"] 22 (#$ . 48505)])
#@89 Return a buffer to print the server response.

(fn PROCESS SENDER RESPONSE TARGET TEXT)
(defalias 'rcirc-target-buffer #[1285 "\301!\203\n�\302\303!\210r\304!q\210\204�\305!\202O�\306!\204E�\307\230\204,�\310\230\203=�\311\230\2038�\2029�\"\202O�\312\313#\202O�\312\"\206O�\305!)\207" [rcirc-nick bufferp cl--assertion-failed (not (bufferp target)) process-buffer rcirc-any-buffer rcirc-channel-p "PRIVMSG" "ACTION" rcirc-get-buffer-create rcirc-get-buffer t] 9 (#$ . 50496)])
(defvar rcirc-activity-types nil)
(make-variable-buffer-local 'rcirc-activity-types)
(defvar rcirc-last-sender nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311%\210\302\312\304\305\313DD\314\310\315\316\317&\207" [make-variable-buffer-local rcirc-last-sender custom-declare-variable rcirc-omit-threshold funcall function #[0 "\300\207" [100] 1] "Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted." :type integer rcirc-log-process-buffers #[0 "\300\207" [nil] 1] "Non-nil if rcirc process buffers should be logged to disk." boolean :version "24.1"] 8)
#@122 Return the line number where NICK left TARGET.
Returns nil if the information is not recorded.

(fn PROCESS NICK TARGET)
(defalias 'rcirc-last-quit-line #[771 "\301\"\211\205�\302rq\210)\"A\207" [rcirc-recent-quit-alist rcirc-get-buffer assoc-string] 7 (#$ . 51606)])
#@87 Return the line from the last activity from NICK in TARGET.

(fn PROCESS NICK TARGET)
(defalias 'rcirc-last-line #[771 "\302\303rq\210	)\"\304#A\206�\305#\211\205�\211\207" [rcirc-server-buffer rcirc-nick-table assoc-string gethash t rcirc-last-quit-line] 8 (#$ . 51886)])
#@90 Return the number of lines since activity from NICK in TARGET.

(fn PROCESS NICK TARGET)
(defalias 'rcirc-elapsed-lines #[771 "\301#\211\205�\211\302V\205�Z\207" [rcirc-current-line rcirc-last-line 0] 7 (#$ . 52173)])
#@247 List of functions used to manipulate text before it is printed.

Each function takes two arguments, SENDER, and RESPONSE.  The
buffer is narrowed with the text to be printed and the point is
at the beginning of the `rcirc-text' propertized text.
(defvar rcirc-markup-text-functions '(rcirc-markup-attributes rcirc-markup-my-nick rcirc-markup-urls rcirc-markup-keywords rcirc-markup-bright-nicks) (#$ . 52405))
#@190 Print TEXT in the buffer associated with TARGET.
Format based on SENDER and RESPONSE.  If ACTIVITY is non-nil,
record activity.

(fn PROCESS SENDER RESPONSE TARGET TEXT &optional ACTIVITY)
(defalias 'rcirc-print #[1541 "\204�\306\262\235\2046�\307 p\310\311\312\313\314\"\315\"\316$\216\317	!\210\320\321\"\205.�\322\323\")\266\202\235\205=�\324!\230??\205)\325%\326r\211q\210`U\327 \330\f!\331
\"\262\324!\230\204\211�\330@!\204\211�\332p!\204\211�A\235\204\211�@\330\f!\333\223\210\fb\210\334\f\326\"\210\334\326\"\210`\335\333%\336\337\340\326#\261\210\341\342\343\"\206\264�S\"\210\212\214\211\f}\210\342\343\"\206\305�`b\210\344 \203\374�\212\345\n\n\"\210)B\211\203\355�\211@\212\211\f\f\"\210)A\266\202\202\327�\210C\203\374�\212\346\n\n\"\210)D\203\347ed\350#\210)\351\n#\324\f!\230\2049	A\235\2039\211\203-EW\2039\352S\fS\353\354$\210\202>FTF\210)\210\334\f\333\"\210\334\333\"\210\212G\203eG\311V\203eG[y\311U\203ee`|\210)\355\356\333\326#\210\203t\202ub\210H\203\266\332 \211\203\265\357!r\310\311\360\313\314!\361\"\316$\216\362@\363\"\210I\364=\203\263\365\366 \367\370 \371 \"\323#\311X\203\263\372\373!\210*\210\210\374 \210\375 \266\203\361J\204\361K\203\340\203\340\320\376K!\"\203\340\377!\204\361\201O�p\377L!?\205\357\201P�\"\210M\203\204\377N\203\201Q�%\210\201R�\311!\210\201S�\201T�&*\262\207" [rcirc-ignore-list rcirc-nick-syntax-table inhibit-read-only rcirc-prompt-end-marker rcirc-prompt-start-marker rcirc-decode-coding-system "" syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table string-match "^\$[^/]\\w*\$[:,]" match-string 1 rcirc-nick rcirc-target-buffer t point-marker marker-position decode-coding-string get-buffer-window nil set-marker-insertion-type rcirc-format-response-string propertize "\n" hard fill-region next-single-property-change rcirc-text rcirc-buffer-process rcirc-markup-timestamp rcirc-markup-fill add-text-properties (read-only t front-sticky t) rcirc-elapsed-lines put-text-property invisible rcirc-omit walk-windows #[257 "\301 =?\205�p\302!=\205�\303!Y\205�\304d\"\207" [rcirc-prompt-end-marker selected-window window-buffer window-point set-window-point] 4 "\n\n(fn W)"] internal--before-with-selected-window "\301\300!\207" [internal--after-with-selected-window] select-window norecord rcirc-mode - window-height count-screen-lines window-point window-start recenter -1 buffer-disable-undo buffer-enable-undo regexp-opt rcirc-channel-p overlay-arrow-position rcirc-omit-responses rcirc-markup-text-functions rcirc-fill-flag rcirc-read-only-flag rcirc-omit-threshold rcirc-current-line rcirc-buffer-maximum-lines rcirc-scroll-show-maximum-output major-mode rcirc-ignore-buffer-activity-flag rcirc-dim-nicks rcirc-target rcirc-log-flag rcirc-log-process-buffers rcirc-record-activity nick rcirc-log sit-for run-hook-with-args rcirc-print-functions] 18 (#$ . 52822)])
#@23

(fn PROCESS TARGET)
(defalias 'rcirc-generate-log-filename #[514 "\211\203	�\300\"\207\301!\207" [rcirc-generate-new-buffer-name process-name] 5 (#$ . 55875)])
(byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable rcirc-log-filename-function funcall function #[0 "\300\207" [rcirc-generate-log-filename] 1] "A function to generate the filename used by rcirc's logging facility.\n\nIt is called with two arguments, PROCESS and TARGET (see\n`rcirc-generate-new-buffer-name' for their meaning), and should\nreturn the filename, or nil if no logging is desired for this\nsession.\n\nIf the returned filename is absolute (`file-name-absolute-p'\nreturns t), then it is used as-is, otherwise the resulting file\nis put into `rcirc-log-directory'.\n\nThe filename is then cleaned using `convert-standard-filename' to\nguarantee valid filenames for the current OS." :type] 6)
#@100 Record line in `rcirc-log', to be later written to disk.

(fn PROCESS SENDER RESPONSE TARGET TEXT)
(defalias 'rcirc-log #[1285 "\"\211\2055�\303	\"\304\n!\305\306					%!\307Q\203,�\211AP\241\2023�B	B\211\266\202\207" [rcirc-log-filename-function rcirc-log-alist rcirc-time-format assoc-string format-time-string substring-no-properties rcirc-format-response-string "\n"] 15 (#$ . 56779)])
#@164 Flush `rcirc-log-alist' data to disk.

Log data is written to `rcirc-log-directory', except for
log-files with absolute names (see `rcirc-log-filename-function').
(defalias 'rcirc-log-write #[0 "\211\203A�\211@\303\304@	\"!\305\306\307!\310\"\210\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216Ac\210\322ed\310\323%\210*\210)\210A\266\202\202�\210\324\211\207" [rcirc-log-alist rcirc-log-directory coding-system-for-write convert-standard-filename expand-file-name utf-8 make-directory file-name-directory t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region quiet nil] 10 (#$ . 57190)])
#@51 View logfile corresponding to the current buffer.
(defalias 'rcirc-view-log-file #[0 "\303\304\305 	\"\n\"!\207" [rcirc-log-filename-function rcirc-target rcirc-log-directory find-file-other-window expand-file-name rcirc-buffer-process] 5 (#$ . 57884) nil])
#@39 Join CHANNELS.

(fn PROCESS CHANNELS)
(defalias 'rcirc-join-channels #[514 "\300 \301\302\303\304\305!\306\"\307$\216\211\205)�\211@r\310!q\210\311\"\210)A\266\202\202�\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 process-buffer rcirc-cmd-join] 9 (#$ . 58149)])
(defvar rcirc-nick-prefix-chars "~&@%+")
#@66 Return the nick from USER.  Remove any non-nick junk.

(fn USER)
(defalias 'rcirc-user-nick #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313Q\206�\314\"\203#�\315\316\"\202$�)\207" [rcirc-nick-prefix-chars match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "^[" "]?\$[^! ]+\$!?" "" match-string 1] 8 (#$ . 58539)])
#@54 Return list of channels for NICK.

(fn PROCESS NICK)
(defalias 'rcirc-nick-channels #[514 "r\301!q\210\302\303\304\"\")\207" [rcirc-nick-table process-buffer mapcar #[257 "\211@\207" [] 2 "\n\n(fn X)"] gethash] 7 (#$ . 58935)])
#@211 Add CHANNEL to list associated with NICK.
Update the associated linestamp if LINE is non-nil.

If the record doesn't exist, and LINE is nil, set the linestamp
to zero.

(fn PROCESS NICK CHANNEL &optional LINE)
(defalias 'rcirc-put-nick-channel #[1027 "\301!r\302!q\210\303\"\304\305#\211\203 �\205/�\211\241\202/�\306\206*�\307BB#\266\202)\207" [rcirc-nick-table rcirc-user-nick process-buffer gethash assoc-string t puthash 0] 11 (#$ . 59173)])
#@44 Remove NICK from table.

(fn PROCESS NICK)
(defalias 'rcirc-nick-remove #[514 "r\301!q\210\302\")\207" [rcirc-nick-table process-buffer remhash] 5 (#$ . 59640)])
#@79 Remove the CHANNEL from list associated with NICK.

(fn PROCESS NICK CHANNEL)
(defalias 'rcirc-remove-nick-channel #[771 "r\301!q\210\302\"\303\304#\211\205�\211\305\240\210\306\305\"\262\211\203)�\307#\202-�\310\"\266\202)\207" [rcirc-nick-table process-buffer gethash assoc-string t delete assq-delete-all puthash remhash] 9 (#$ . 59811)])
#@95 Return the list of nicks associated with TARGET sorted by last activity.

(fn PROCESS TARGET)
(defalias 'rcirc-channel-nicks #[514 "\211\2053�\301!\2031�r\302!q\210\303C\304\305\306\307\310\311\"\312\"\313\314%\"\210\315\316\317\242\320\"\"\262)\207\211C\207" [rcirc-nick-table rcirc-channel-p process-buffer nil maphash make-byte-code 514 "\302\300\303#\211\205�\301AB\301\242B\240\207" vconcat vector [assoc-string t] 6 "\n\n(fn K V)" mapcar #[257 "\211@\207" [] 2 "\n\n(fn X)"] sort #[514 "A\206�\300A\206\f�\300\211W\207" [0] 6 "\n\n(fn X Y)"]] 11 (#$ . 60172)])
#@99 Remove NICK from `rcirc-ignore-list'
if NICK is also on `rcirc-ignore-list-automatic'.

(fn NICK)
(defalias 'rcirc-ignore-update-automatic #[257 "\211\235\205�\302\"\302	\"\211\207" [rcirc-ignore-list-automatic rcirc-ignore-list delete] 4 (#$ . 60762)])
#@240 Return t if IRC nickname S1 is less than S2, and nil otherwise.
Operator nicknames (@) are considered less than voiced
nicknames (+).  Any other nicknames are greater than voiced
nicknames.  The comparison is case-insensitive.

(fn S1 S2)
(defalias 'rcirc-nickname< #[514 "\227\262\211\227\262\300!\301=\300!\301=\203*�\211\203&�\302\303\"\302\303\"\231\2022�\304\2022�\211?\2052�\231\207" [string-to-char 64 substring 1 t] 8 (#$ . 61030)])
#@158 Return a string of sorted nicknames.
INPUT is a string containing nicknames separated by SEP.
This function does not alter the INPUT string.

(fn INPUT SEP)
(defalias 'rcirc-sort-nicknames-join #[514 "\300\301#\302\303\"\304\305#\207" [split-string t sort rcirc-nickname< mapconcat identity] 8 (#$ . 61488)])
#@36 Keymap for rcirc track minor mode.
(defvar rcirc-track-minor-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key "�" rcirc-next-active-buffer [3 67108896]] 5) (#$ . 61808))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable rcirc-track-minor-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Rcirc-Track minor mode is enabled.\nSee the `rcirc-track-minor-mode' command\nfor 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 `rcirc-track-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group rcirc-track-minor :type boolean] 12)
#@329 Global minor mode for tracking activity in rcirc buffers.

If called interactively, enable Rcirc-Track minor mode if ARG is
positive, and disable it if ARG is zero or negative.  If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.

(fn &optional ARG)
(defalias 'rcirc-track-minor-mode #[256 "\302 \303\301\304=\203�\305\301!?\202�\306!\307V\"\210\204�\310	\2035�\311>\204-�\312\313\"\314\315\316\"\210\202?�\317\311\"\320\315\316\"\210\321\322\305\301!\203K�\323\202L�\324\"\210\325\326!\203v�\327\301!\210\302 \203d�\211\302 \232\203v�\330\331\332\305\301!\203q�\333\202r�\334#\266\210\335 \210\305\301!\207" [global-mode-string rcirc-track-minor-mode current-message set-default toggle default-value prefix-numeric-value 0 (#1="") rcirc-activity-string append (rcirc-activity-string) add-hook window-configuration-change-hook rcirc-window-configuration-change delete remove-hook run-hooks rcirc-track-minor-mode-hook rcirc-track-minor-mode-on-hook rcirc-track-minor-mode-off-hook called-interactively-p any customize-mark-as-set #1# message "Rcirc-Track minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 62609) (byte-code "\206�\301C\207" [current-prefix-arg toggle] 1)])
(defvar rcirc-track-minor-mode-hook nil)
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307\310\311\211%\210\312	\236\204�\313	B\314	\236\204(�\315	B\311\207" [rcirc-track-minor-mode-map minor-mode-alist rcirc-track-minor-mode-hook variable-documentation put "Hook run after entering or leaving `rcirc-track-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode rcirc-track-minor-mode "" nil rcirc-ignore-buffer-activity-flag (rcirc-ignore-buffer-activity-flag " Ignore") rcirc-low-priority-flag (rcirc-low-priority-flag " LowPri")] 6)
#@58 Toggle the value of `rcirc-ignore-buffer-activity-flag'.
(defalias 'rcirc-toggle-ignore-buffer-activity #[0 "?\301\203\f�\302\202
�\303!\210\304 \207" [rcirc-ignore-buffer-activity-flag message "Ignore activity in this buffer" "Notice activity in this buffer" force-mode-line-update] 2 (#$ . 64546) nil])
#@48 Toggle the value of `rcirc-low-priority-flag'.
(defalias 'rcirc-toggle-low-priority #[0 "?\301\203\f�\302\202
�\303!\210\304 \207" [rcirc-low-priority-flag message "Activity in this buffer is low priority" "Activity in this buffer is normal priority" force-mode-line-update] 2 (#$ . 64860) nil])
#@69 Switch to the server buffer associated with current channel buffer.
(defalias 'rcirc-switch-to-server-buffer #[0 "\301!\204\n�\302\303!\210\304!\207" [rcirc-server-buffer buffer-live-p error "No such buffer" switch-to-buffer] 2 (#$ . 65165) nil])
#@57 Move the point to the first unread line in this buffer.
(defalias 'rcirc-jump-to-first-unread-line #[0 "\301!\203	�b\207\302\303!\207" [overlay-arrow-position marker-position message "No unread messages"] 2 (#$ . 65420) nil])
#@25 Bury all RCIRC buffers.
(defalias 'rcirc-bury-buffers #[0 "\301 \211\205\"�\211@r\211q\210)\302=\203�\303!\210\304!\210A\266\202\202�\207" [major-mode buffer-list rcirc-mode bury-buffer quit-windows-on] 4 (#$ . 65654) nil])
#@125 Switch to the next rcirc buffer with activity.
With prefix ARG, go to the next low priority buffer with activity.

(fn ARG)
(defalias 'rcirc-next-active-buffer #[257 "\302!\211@A\204�\211\204�\2030�\2030�\303\203 �\202!�@!\210`	V\205E�\304\305!\202E�\306 \210\307\310\203C�\311\312\313 !\314Q\202D�\315\"\207" [rcirc-activity rcirc-prompt-start-marker rcirc-split-activity switch-to-buffer recenter -1 rcirc-bury-buffers message "No IRC activity.%s" "  Type C-u " key-description this-command-keys " for low priority activity." ""] 9 (#$ . 65891) "P"])
(byte-code "\300\301\302\303#\210\304\211\203(�\211@\301N\203!�\302N\204!�\305\302\301N#\210A\266\202\202�\210\306\301\302\307#\207" [defvaralias rcirc-activity-hooks rcirc-activity-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 7)
#@215 Hook to be run when there is channel activity.

Functions are called with a single argument, the buffer with the
activity.  Only run if the buffer is not visible and
`rcirc-ignore-buffer-activity-flag' is non-nil.
(defvar rcirc-activity-functions nil (#$ . 66739))
#@63 Record BUFFER activity with TYPE.

(fn BUFFER &optional TYPE)
(defalias 'rcirc-record-activity #[513 "rq\210	\302p\303\"\204?�\304p>\203�\202�pB\305\"\306	\"\203+�	\210\202/�\211	B\210\232\203<�\235\204?�\307 \210\266)\310\311\"\207" [rcirc-activity rcirc-activity-types get-buffer-window t sort #[514 "rq\210)rq\210)\301\"\207" [rcirc-last-post-time time-less-p] 7 "\n\n(fn B1 B2)"] memql rcirc-update-activity-string run-hook-with-args rcirc-activity-functions] 8 (#$ . 67010)])
#@41 Clear the BUFFER activity.

(fn BUFFER)
(defalias 'rcirc-clear-activity #[257 "\302\"r\211q\210\303\211)\207" [rcirc-activity rcirc-activity-types remove nil] 4 (#$ . 67520)])
#@61 Erase the last read message arrow from BUFFER.

(fn BUFFER)
(defalias 'rcirc-clear-unread #[257 "\301!\205�r\211q\210\302\211\223)\207" [overlay-arrow-position buffer-live-p nil] 4 (#$ . 67706)])
#@77 Return a cons cell with ACTIVITY split into (lopri . hipri).

(fn ACTIVITY)
(defalias 'rcirc-split-activity #[257 "\302\211\211\203,�\211@r\211q\210\203�\303	>\204�\211B\262\202$�\211B\262)A\266\202\202�\210\237\237B\207" [rcirc-low-priority-flag rcirc-activity-types nil nick] 7 (#$ . 67911)])
#@51 Hook run whenever the activity string is updated.
(defvar rcirc-update-activity-string-hook nil (#$ . 68224))
#@26 Update mode-line string.
(defalias 'rcirc-update-activity-string #[0 "\302!\211@A\211\204�\2035�\211\205�\303\301!\205 �\205 �\304\205+�\305\301!\306Q\2050�\307\260\202?�\310 \203>�\311\202?�\311\312\313!\207" [rcirc-activity rcirc-activity-string rcirc-split-activity "[" "," "(" ")" "]" rcirc-process-list "[]" run-hooks rcirc-update-activity-string-hook] 9 (#$ . 68340)])
#@16

(fn BUFFERS)
(defalias 'rcirc-activity-string #[257 "\300\301\302#\207" [mapconcat #[257 "\301\302!!rq\210\211\203.�\211@\303\304G\305\267\202\"�\306\202#�\307\202#�\310$\210A\266\202\202\n�\210)\211\207" [rcirc-activity-types substring-no-properties rcirc-short-buffer-name rcirc-add-face 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nick 26 keyword 30)) rcirc-track-nick rcirc-track-keyword nil] 9 "\n\n(fn B)"] ","] 5 (#$ . 68735)])
#@80 Return a short name for BUFFER to use in the mode line indicator.

(fn BUFFER)
(defalias 'rcirc-short-buffer-name #[257 "r\211q\210\206\n�\301 )\207" [rcirc-short-buffer-name buffer-name] 2 (#$ . 69231)])
#@62 Return a list of the visible buffers that are in rcirc-mode.
(defalias 'rcirc-visible-buffers #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\207" [nil walk-windows make-byte-code 257 "r\302!q\210	\303=\205�\300p\300\242B\240)\207" vconcat vector [major-mode window-buffer rcirc-mode] 4 "\n\n(fn W)"] 8 (#$ . 69443)])
(defvar rcirc-visible-buffers nil)
(defalias 'rcirc-window-configuration-change #[0 "\300\301 !?\205\n�\302 \207" [minibuffer-window-active-p minibuffer-window rcirc-window-configuration-change-1] 2])
(defalias 'rcirc-window-configuration-change-1 #[0 "	\301 \211\211\203�\211@\302\"\262\303!\210A\266\202\202�\210\211\211\2030�\211@\304!\210A\266\202\202�\210\302\305\306\307\"\"\232?\205B�\310 \207" [rcirc-activity rcirc-visible-buffers delq rcirc-clear-activity rcirc-clear-unread nil mapcar #[257 "\300!\205�\211\207" [buffer-live-p] 3 "\n\n(fn BUF)"] rcirc-update-activity-string] 8])
(defalias 'rcirc-update-short-buffer-names #[0 "\301\302\303\304\305 \"\"\306!\211\205(�\211@\307A!\203!�r\211Aq\210\211@)A\266\202\202�\262\207" [rcirc-short-buffer-name apply append mapcar #[257 "r\301!q\210)\207" [rcirc-buffer-alist process-buffer] 3 "\n\n(fn PROCESS)"] rcirc-process-list rcirc-abbreviate buffer-live-p] 5])
#@14

(fn PAIRS)
(defalias 'rcirc-abbreviate #[257 "\300\301\302\303\304!\"\"\207" [apply append mapcar rcirc-rebuild-tree rcirc-make-trees] 7 (#$ . 70733)])
#@27

(fn TREE &optional ACC)
(defalias 'rcirc-rebuild-tree #[513 "\300@!A\211\2039�\211@\211<\203+�\301\302\303\304\305\306\307\n!\310\"\311\312%\313!\"\"\262\2022�BB\262A\266\202\202�\210\207" [char-to-string append mapcar make-byte-code 257 "\300@PAB\207" vconcat vector [] 3 "\n\n(fn Y)" rcirc-rebuild-tree] 14 (#$ . 70894)])
#@14

(fn PAIRS)
(defalias 'rcirc-make-trees #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\"\210\301\312\242\"\207" [nil mapc make-byte-code 257 "\211:\203K�\211@AG\301U?\205�\301HG\301U?\205 �\302\303\"\205(�\300\242\236\211\2037�\211BAB\241\202J�\300\203E�BD\202F�\300\242B\240\207\300\300\242B\240\207" vconcat vector [0 substring 1] 10 "\n\n(fn PAIR)" #[257 "\211<\205$�\211A@<\205$�\211AG\300V\203�\301A!\202#�\211A@AC\241\241\207" [1 rcirc-make-trees] 4 "\n\n(fn X)"]] 9 (#$ . 71241)])
#@80 Define a command.

(fn COMMAND ARGUMENT DOCSTRING INTERACTIVE-FORM &rest BODY)
(defalias 'defun-rcirc-command '(macro . #[1156 "\300\301\302\303\304	!PE\305\306\307\304\n!P!\310\311\"\312P\313\314\315\nBBB\257E\207" [progn add-to-list 'rcirc-client-commands "/" symbol-name defun intern "rcirc-cmd-" append (&optional process target) "\n\nNote: If PROCESS or TARGET are nil, the values given\nby `rcirc-buffer-process' and `rcirc-target' will be used." let ((process (or process (rcirc-buffer-process))) (target (or target rcirc-target))) (ignore target)] 16 (#$ . 71768)]))
(byte-code "\301\235\203�\210\202�\301B\302\207" [rcirc-client-commands "/msg" nil] 2)
#@185 Send private MESSAGE to TARGET.