ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/rcirc.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\304\305\306\307\310\311\312\313\314\315\316\317& \210\320\321\322\323\324DD\325\326\327\316\305&\210\320\330\322\323\331DD\332\326\333\316\305&\210\320\334\322\323\335DD\336\326\337\316\305&\210\320\340\322\323\341DD\342\310\343\326\337\316\305& \210\320\344\322\323\345DD\346\310\343\326\337\316\305& \210\320\347\322\323\350DD\351\326\352\316\305&\210\320\353\322\323\354DD\355\356\357\326\360\316\305& \210\320\361\322\323\362DD\363\326\364\316\305&\207" [require cl-lib ring time-date 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." :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)))))) 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-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"))] 12)
#@45 If non-nil, ignore activity in this buffer.
(defvar rcirc-ignore-buffer-activity-flag nil (#$ . 3641))
(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 (#$ . 3814))
(make-variable-buffer-local 'rcirc-low-priority-flag)
#@99 Non-nil if Rcirc-Omit mode is enabled.
Use the command `rcirc-omit-mode' to change this variable.
(defvar rcirc-omit-mode nil (#$ . 3987))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\317\312\313&\210\302\320\304\305\321DD\322\310\323\312\313&\210\302\324\304\305\325DD\326\310\327\312\313&\210\302\330\304\305\331DD\332\310\323\312\313&\210\302\333\304\305\334DD\335\310\336\312\313&\210\302\337\304\305\340DD\341\310\323\312\313&\210\302\342\304\305\343DD\344\345\346\310\323\312\313& \210\302\347\304\305\350DD\351\310\311\352\353\354\355\312\313& \210\302\356\304\305\357DD\360\310\361\312\313&\210\302\362\304\305\363DD\364\310\365\312\313&\207" [make-variable-buffer-local rcirc-omit-mode 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 :group rcirc 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)] 12)
#@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 (#$ . 7740))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\316\317\320\321#\210\322\211\203F \211@\317N\203? \320N\204? \323\320\317N#\210A\266\202\202% \210\324\317\320\325#\210\300\320\302\303\326DD\327\306\330\310\311&\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) :group rcirc 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] 8)
#@44 Hook run after successfully authenticated.
(defvar rcirc-authenticated-hook nil (#$ . 8869))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\315\310\311&\210\300\321\302\303\322DD\323\306\324\310\311&\210\300\325\302\303\326DD\327\306\303\310\311&\210\300\330\302\303\331DD\332\333\334\306\335\310\311& \210\300\336\302\303\337DD\340\333\341\306\307\310\311& \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 :group rcirc 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"] 10)
(defvar rcirc-nick nil)
(defvar rcirc-prompt-start-marker 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 (#$ . 11493))
#@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) (#$ . 11611))
(defvar rcirc-buffer-alist nil)
#@41 List of buffers with unviewed activity.
(defvar rcirc-activity nil (#$ . 12051))
#@62 String displayed in mode line representing `rcirc-activity'.
(defvar rcirc-activity-string "" (#$ . 12138))
(put 'rcirc-activity-string 'risky-local-variable t)
#@56 The server buffer associated with this channel buffer.
(defvar rcirc-server-buffer nil (#$ . 12305))
#@50 The channel or user associated with this buffer.
(defvar rcirc-target nil (#$ . 12412))
#@68 List of URLs seen in the current buffer and their start positions.
(defvar rcirc-urls nil (#$ . 12506))
(put 'rcirc-urls 'permanent-local t)
#@66 Kill connection after this many seconds if there is no activity.
(defvar rcirc-timeout-seconds 600 (#$ . 12653))
(defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version))
(defvar rcirc-startup-channels nil)
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-name-history nil (#$ . 12880))
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-port-history nil (#$ . 12974))
#@37 History variable for \[rcirc] call.
(defvar rcirc-nick-name-history nil (#$ . 13068))
#@37 History variable for \[rcirc] call.
(defvar rcirc-user-name-history nil (#$ . 13160))
#@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\203 \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\"\307\203\307\345 \211\203\314 \211@ \346!\230\203\305 \211\262A\266\202\202\263 \210\211\204\366 \3471\354 \342\n \n\n\n\n\n&0\202\362 \210\350\351 \"\210\202r\352!q\210\353\354p!\355\"\262;\203
\202
B\262
)\210\266 A\266\202\202l \210\211\205>\350\356A\203;\333\334\357!\360#\361\362!@Q\202=@\"\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 rcirc-process-list process-name (quit) message "Quit connecting to %s" process-buffer process-contact get-buffer-process :host "Already connected to %s" butlast ", " ", and " last] 23 (#$ . 13253) "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)
(defalias 'rcirc-connect #[2049 "\212\306\307 \"\210\310\203 ;\203 \311!\202! \202! \206' \n\206- \2063 \f\312
\310\313 \206D \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
\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\364 \356\357\nP\"\210\356\360P\"\210\356\361\362R\"\2107\204\363\3558\364\245\365#7\306\366\"\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] 22 "\n\n(fn SERVER &optional PORT NICK USER-NAME FULL-NAME STARTUP-CHANNELS PASSWORD ENCRYPTION)"])
(defalias 'with-rcirc-process-buffer '(macro . #[385 "\300\301DBB\207" [with-current-buffer process-buffer] 5 "\n\n(fn PROCESS &rest BODY)"]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put with-rcirc-process-buffer lisp-indent-function 1 put edebug-form-spec t] 4)
(defalias 'with-rcirc-server-buffer '(macro . #[128 "\300\301BB\207" [with-current-buffer rcirc-server-buffer] 4 "\n\n(fn &rest BODY)"]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\"\207" [function-put with-rcirc-server-buffer lisp-indent-function 0 put edebug-form-spec t defalias rcirc-float-time float-time] 4)
#@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\303\"\206\n \304\305\306\307\"\310\311\310\211\312 !&!\207" ["Encryption (default %s): " ("plain" "tls") plist-get :encryption plain intern completing-read format nil t symbol-name] 14 (#$ . 17691)])
#@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" rcirc-float-time] 7 "\n\n(fn PROCESS)"] timerp cancel-timer nil] 3 (#$ . 18082)])
(defalias 'rcirc-handler-ctcp-KEEPALIVE #[1028 "r\301!q\210\302\303\304 \305!Z\"\211)\207" [header-line-format process-buffer format "%f" rcirc-float-time string-to-number] 9 "\n\n(fn PROCESS TARGET SENDER MESSAGE)"])
(defvar rcirc-debug-buffer "*rcirc debug*")
#@56 If non-nil, write information to `rcirc-debug-buffer'.
(defvar rcirc-debug-flag nil (#$ . 18844))
#@158 Add an entry to the debug log including PROCESS and TEXT.
Debug text is written to `rcirc-debug-buffer' if `rcirc-debug-flag'
is non-nil.
(fn PROCESS TEXT)
(defalias 'rcirc-debug #[514 "\205 r\302 !q\210db\210\303\304\305!\306!\307\260c)\207" [rcirc-debug-flag rcirc-debug-buffer get-buffer-create "[" format-time-string "%Y-%m-%dT%T " process-name "] "] 7 (#$ . 18949)])
(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 (#$ . 19611))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \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 :group rcirc] 10)
#@41 The last time the buffer was connected.
(defvar rcirc-last-connect-time nil (#$ . 20083))
#@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\203p \326\nW\203p \327 \203i \n\330\331 \"!W\203o \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 float-time time-subtract rcirc-cmd-reconnect run-hook-with-args rcirc-sentinel-functions] 16 (#$ . 20179)])
(defalias 'rcirc-disconnect-buffer #[256 "r\211\206 pq\210\302\303\211)\207" [rcirc-target mode-line-process nil ":disconnected"] 3 "\n\n(fn &optional BUFFER)"])
#@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 (#$ . 21137)])
(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 (#$ . 21786))
#@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\2058 \307\310\311\312\313\314!\315\"\316\317%\320 \321\322#\"\210\323\211)\207" [rcirc-last-server-message-time rcirc-process-output rcirc-debug rcirc-reschedule-timeout process-buffer current-time 10 mapc make-byte-code 257 "\301\300\"\207" vconcat vector [rcirc-process-server-response] 4 "\n\n(fn LINE)" split-string "[\n
]" t nil] 10 (#$ . 21974)])
(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 "\n\n(fn PROCESS)"])
(defalias 'rcirc-delete-process #[257 "\300!\207" [delete-process] 3 "\n\n(fn PROCESS)"])
(defvar rcirc-trap-errors-flag t)
(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 "\n\n(fn PROCESS TEXT)"])
(defalias 'rcirc-process-server-response-1 #[514 "\300\301\"\203c \302\303\"\304!\302\305\"\302\306\"\307\310P!\300\311\"\210\302\312\"\302\303\"\313\314\315\316\317\320#C\"\"\321!\204I \322\n
%\210\202S \n\f$\210\323\324 \n&\266\203\207\325\326\"\207" [string-match "^\\(:\\([^ ]+\\) \\)?\\([^ ]+\\) \\(.+\\)$" match-string 2 rcirc-user-nick 3 4 intern-soft "rcirc-handler-" "^\\([^:]*\\):?\\(.+\\)?$" 1 delq nil append split-string " " t fboundp rcirc-handler-generic run-hook-with-args rcirc-receive-message-functions message "UNHANDLED: %s"] 17 "\n\n(fn PROCESS TEXT)"])
#@67 Responses that don't trigger activity in the mode-line indicator.
(defvar rcirc-responses-no-activity '("305" "306") (#$ . 23768))
#@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 (#$ . 23905)])
(defalias 'rcirc--connection-open-p #[257 "\300!\301>\207" [process-status (run open)] 3 "\n\n(fn PROCESS)"])
#@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 (#$ . 24267)])
(defalias 'rcirc-send-privmsg #[771 "\300\301\302#\"\207" [rcirc-send-string format "PRIVMSG %s :%s"] 9 "\n\n(fn PROCESS TARGET STRING)"])
(defalias 'rcirc-send-ctcp #[1027 "\211\203\n \300P\202 \301\302\303\304##\207" [" " "" rcirc-send-privmsg format "%s%s"] 12 "\n\n(fn PROCESS TARGET REQUEST &optional ARGS)"])
#@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 (#$ . 24955)])
#@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 (#$ . 25260)])
#@36 Return PROCESS nick.
(fn PROCESS)
(defalias 'rcirc-nick #[257 "r\302!q\210\206 )\207" [rcirc-nick rcirc-default-nick process-buffer] 3 (#$ . 25502)])
#@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 (#$ . 25664)])
#@48 Messages longer than this value will be split.
(defvar rcirc-max-message-length 420 (#$ . 25939))
#@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 (#$ . 26043)])
#@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 (#$ . 26615)])
(defvar rcirc-input-ring nil)
(defvar rcirc-input-ring-index 0)
(defalias 'rcirc-prev-input-string #[257 "\302 \\\"\207" [rcirc-input-ring rcirc-input-ring-index ring-ref] 5 "\n\n(fn ARG)"])
(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") (#$ . 27705))
#@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") (#$ . 28258))
#@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 (#$ . 28438)])
(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 (#$ . 29019) 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 (#$ . 29703) "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 (#$ . 29964) "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) (#$ . 30225))
#@60 Generated abbreviation to use to indicate buffer activity.
(defvar rcirc-short-buffer-name nil (#$ . 31299))
#@40 Hook run when setting up rcirc buffer.
(defvar rcirc-mode-hook nil (#$ . 31414))
(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 (#$ . 31536))
#@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 (#$ . 31692))
#@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 (#$ . 31863)])
#@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 (#$ . 33900)])
#@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 (#$ . 34948)])
#@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 (#$ . 35218)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\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 :group rcirc rcirc-log-flag #[0 "\300\207" [nil] 1] "Non-nil means log IRC activity to disk.\nLogfiles are kept in `rcirc-log-directory'." boolean] 8)
#@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=\2052 \203 \n\203 \306 \210\307\310!\210 \2052 \f\2052 \211\2050 \211@\311A!\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" kill-buffer] 4 (#$ . 35827)])
#@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 (#$ . 36364)])
(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 "\n\n(fn REASON)"])
#@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 (#$ . 37022)])
#@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 (#$ . 37320)])
#@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 (#$ . 37725)])
#@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 (#$ . 38225) nil])
(defalias 'rcirc-fill-paragraph #[256 "`V\205 \214d}\210 \303ed#*\207" [rcirc-prompt-end-marker rcirc-max-message-length fill-column fill-region] 5 "\n\n(fn &optional JUSTIFY)" "P"])
(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 "\n\n(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 "\n\n(fn LINE)"])
(defalias 'rcirc-process-command #[771 "\302H\303=\203 \304\305\306O!\207\307\310P!\311 \312 \210rpq\210`|\210\313\230\2034 \314\315 \316 %\210\202> \314\315 \317 %\210`\306\223\210\320!\203Q #\202Z \321\322Q\")\207" [rcirc-prompt-end-marker rcirc-target 0 47 rcirc-process-message 1 nil intern-soft "rcirc-cmd-" rcirc-buffer-process newline "me" rcirc-print rcirc-buffer-nick "ACTION" "COMMAND" fboundp rcirc-send-string " :"] 11 "\n\n(fn COMMAND ARGS LINE)"])
(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 (#$ . 40271) 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) (#$ . 40806))
#@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 (#$ . 41115))
(make-variable-buffer-local 'rcirc-multiline-minor-mode)
#@223 Minor mode for editing multiple lines in rcirc.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
(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 (#$ . 41352) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@191 Hook run after entering or leaving `rcirc-multiline-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar rcirc-multiline-minor-mode-hook nil (#$ . 42237))
(byte-code "\301\302\303\304\211%\207" [rcirc-multiline-minor-mode-map 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 (#$ . 42628) 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 (#$ . 42934) 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 (#$ . 43121)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\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) :group rcirc rcirc-omit-responses #[0 "\300\207" [("JOIN" "PART" "QUIT" "NICK")] 1] "Responses which will be hidden when `rcirc-omit-mode' is enabled." (repeat string)] 8)
#@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#\203H\324\307\224#\210\307\224\262\325\326\327!\307H\330\331\"\203\210 \332\326\333!!\330\334\"\203i \335\202\200 \330\336\"\203t \337\202\200 \330\340\"\203 \341\202\200 \321\262\262\320\2025\330\342\"\203\223 \2025\330\343\"\203\344 !\345 \306\307\346\311\312!\347\"\333$\216\350 p\306\307\351\311\312\"\352\"\314$\216\353 !\210\354\211\230\203\320 \355\202\367 \n\203\343 \356\357\n\360\" \"\203\343 \361\202\367 \203\366 \356\357 \360\" \"\203\366 \362\202\367 \363\")\266\202)\262\262\2025\330\364\"\203\365\366 #\2025\330\367\"\203 \2025\330\370\"\2030\2065\320\2025\371\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 eql 102 string-to-char 3 119 font-lock-warning-face 112 rcirc-server-prefix 115 rcirc-server 110 78 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 109 propertize rcirc-text 114 116 "UNKNOWN CODE:"] 22 (#$ . 44918)])
#@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 (#$ . 46830)])
(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\312\313&\210\302\314\304\305\315DD\316\312\313\310\317\320\321& \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 :group rcirc rcirc-log-process-buffers #[0 "\300\207" [nil] 1] "Non-nil if rcirc process buffers should be logged to disk." boolean :version "24.1"] 10)
#@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 (#$ . 47971)])
#@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 (#$ . 48251)])
#@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 (#$ . 48538)])
#@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) (#$ . 48770))
#@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 (#$ . 49187)])
(defalias 'rcirc-generate-log-filename #[514 "\211\203 \300\"\207\301!\207" [rcirc-generate-new-buffer-name process-name] 5 "\n\n(fn PROCESS TARGET)"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\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." :group rcirc :type] 8)
#@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 (#$ . 53151)])
#@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 (#$ . 53562)])
#@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 (#$ . 54256) 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 (#$ . 54521)])
(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 (#$ . 54911)])
#@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 (#$ . 55307)])
#@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 (#$ . 55545)])
#@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 (#$ . 56012)])
#@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 (#$ . 56183)])
#@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 (#$ . 56544)])
#@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 (#$ . 57134)])
#@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\303O\302\303O\231\2022 \304\2022 \211?\2052 \231\207" [string-to-char 64 1 nil t] 8 (#$ . 57402)])
#@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 (#$ . 57852)])
#@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) (#$ . 58172))
(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 :type boolean] 12)
#@233 Global minor mode for tracking activity in rcirc buffers.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
(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 (#$ . 58961) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@187 Hook run after entering or leaving `rcirc-track-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar rcirc-track-minor-mode-hook nil (#$ . 60154))
(byte-code "\302\303\304\305\211%\210\306 \236\204 \307 B\310 \236\204 \311 B\312 \236\204& \313 B\305\207" [rcirc-track-minor-mode-map minor-mode-alist 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") rcirc-omit-mode (rcirc-omit-mode " Omit")] 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 (#$ . 60790) 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 (#$ . 61104) nil])
#@162 Toggle the Rcirc-Omit mode.
If enabled, "uninteresting" lines are not shown.
Uninteresting lines are those whose responses are listed in
`rcirc-omit-responses'.
(defalias 'rcirc-omit-mode #[0 "?\211\203 \302\303!\210\304\305!\210\202 \306\307!\210\304\310!\210\311p!\211\205L \211@\312!r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324` V\205A \325!\210*\210A\266\202\202 \207" [rcirc-omit-mode rcirc-prompt-start-marker 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 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord recenter -1] 10 (#$ . 61410) 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 (#$ . 62203) 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 (#$ . 62458) 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 (#$ . 62692) 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 (#$ . 62929) "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 (#$ . 63777))
#@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 (#$ . 64048)])
#@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 (#$ . 64558)])
#@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 (#$ . 64744)])
#@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 \235\204 \211B\262\202$ \211B\262)A\266\202\202 \210\237\237B\207" [rcirc-low-priority-flag rcirc-activity-types nil nick] 7 (#$ . 64949)])
#@51 Hook run whenever the activity string is updated.
(defvar rcirc-update-activity-string-hook nil (#$ . 65265))
#@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 (#$ . 65381)])
(defalias 'rcirc-activity-string #[257 "\300\301\302#\207" [mapconcat #[257 "\301\302!!rq\210\211\2032 \211@\303\304G\305\306\"\203 \307\202' \305\310\"\205' \311$\210A\266\202\202\n \210)\211\207" [rcirc-activity-types substring-no-properties rcirc-short-buffer-name rcirc-add-face 0 eql nick rcirc-track-nick keyword rcirc-track-keyword] 10 "\n\n(fn B)"] ","] 5 "\n\n(fn BUFFERS)"])
#@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 (#$ . 66172)])
#@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 (#$ . 66384)])
(defvar rcirc-visible-buffers nil)
(defalias 'rcirc-window-configuration-change #[0 "\300\301 !?\205\f \302\303\304\"\207" [minibuffer-window-active-p minibuffer-window add-hook post-command-hook rcirc-window-configuration-change-1] 3])
(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\204B \310 \210\266\311\312\313\"\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 remove-hook post-command-hook rcirc-window-configuration-change-1] 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])
(defalias 'rcirc-abbreviate #[257 "\300\301\302\303\304!\"\"\207" [apply append mapcar rcirc-rebuild-tree rcirc-make-trees] 7 "\n\n(fn PAIRS)"])
(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 "\n\n(fn TREE &optional ACC)"])
(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\303O\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 1 nil] 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 "\n\n(fn PAIRS)"])
#@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\"\312\313Q\314\315\316\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 (#$ . 68781)]))
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/msg" nil] 2)
#@185 Send private MESSAGE to TARGET.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn MESSAGE &optional PROCESS TARGET)
(defalias 'rcirc-cmd-msg #[769 "\206 \303 \206 \2049 \304\305r q\210\n)\"\262\211G\306V\205[ \307\310\311\"!\262G\306V\205[ \312#\202[ \313\314\"\204G \315\316!\202[ \317\320\"\262\317\321\"\262\312#\207" [rcirc-target rcirc-server-buffer rcirc-nick-table rcirc-buffer-process completing-read "Message nick: " 0 read-string format "Message %s: " rcirc-send-message string-match "\\([^ ]+\\) \\(.+\\)" message "Not enough args, or something." match-string 1 2] 9 (#$ . 69473) "i"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/query" nil] 2)
#@186 Open a private chat buffer to NICK.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-query #[769 "\206 \301 \206 \302\"\303\206 \304\"!\210\211?\205% \305!\262\207" [rcirc-target rcirc-buffer-process rcirc-get-buffer switch-to-buffer rcirc-get-buffer-create rcirc-cmd-whois] 10 (#$ . 70266) (byte-code "\302\303rq\210 )\"C\207" [rcirc-server-buffer rcirc-nick-table completing-read "Query nick: "] 3)])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/join" nil] 2)
#@234 Join CHANNELS.
CHANNELS is a comma- or space-separated string of channel names.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn CHANNELS &optional PROCESS TARGET)
(defalias 'rcirc-cmd-join #[769 "\206 \301 \206 \302\303\304#\305\306\307\310\311\312!\313\"\314\315%\"\316\317\320#\321\322P\"\210\323 \324 =?\205I \211\205G \211@\325!\210A\266\202\2026 \262\266\203\207" [rcirc-target rcirc-buffer-process split-string "[ ,]" t mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [rcirc-get-buffer-create] 4 "\n\n(fn CH)" mapconcat identity "," rcirc-send-string "JOIN " selected-window minibuffer-window switch-to-buffer] 13 (#$ . 70908) "sJoin channels: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/invite" nil] 2)
#@182 Invite NICK to CHANNEL.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK-CHANNEL &optional PROCESS TARGET)
(defalias 'rcirc-cmd-invite #[769 "\206 \301 \206 \302\303P\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string "INVITE "] 9 (#$ . 71762) (byte-code "\302\303rq\210 )\"\304\305\306!QC\207" [rcirc-server-buffer rcirc-nick-table completing-read "Invite nick: " " " read-string "Channel: "] 4)])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/part" nil] 2)
#@167 Part CHANNEL.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn CHANNEL &optional PROCESS TARGET)
(defalias 'rcirc-cmd-part #[769 "\206 \302 \206 G\303V\203 \202 \211\304\305\306 R\"\262\207" [rcirc-target rcirc-id-string rcirc-buffer-process 0 rcirc-send-string "PART " " :"] 12 (#$ . 72354) "sPart channel: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/quit" nil] 2)
#@195 Send a quit message to server with REASON.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn REASON &optional PROCESS TARGET)
(defalias 'rcirc-cmd-quit #[769 "\206 \302 \206 \303\304G\305U\204 \202 P\"\207" [rcirc-target rcirc-id-string rcirc-buffer-process rcirc-send-string "QUIT :" 0] 10 (#$ . 72848) "sQuit reason: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/reconnect" nil] 2)
#@176 Reconnect to current server.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn _ &optional PROCESS TARGET)
(defalias 'rcirc-cmd-reconnect #[769 "\206 \305 \206 r q\210\n\203 \306\307!\202: \310!\203% \306\311!\202: \312\233\211\313\314\315\316\f\"\"\240\266\317\320\"\262)\207" [rcirc-target rcirc-server-buffer rcirc-connecting rcirc-connection-info rcirc-buffer-alist rcirc-buffer-process message "Already connecting" process-live-p "Server process is alive" 5 cl-remove-if-not rcirc-channel-p mapcar car apply rcirc-connect] 13 (#$ . 73358) "i"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/nick" nil] 2)
#@171 Change nick to NICK.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-nick #[769 "\206 \301 \206 \204 \302\303\304!\"\262\305\306P\"\207" [rcirc-target rcirc-buffer-process read-string "New nick: " rcirc-nick rcirc-send-string "NICK "] 9 (#$ . 74089) "i"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/names" nil] 2)
#@302 Display list of names in CHANNEL or in current channel if CHANNEL is nil.
If called interactively, prompt for a channel when prefix arg is supplied.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn CHANNEL &optional PROCESS TARGET)
(defalias 'rcirc-cmd-names #[769 "\206 \301 \206 \302\303!\203 \203 \304\305\"\262G\306V\203& \202' \211\307\310P\"\262\207" [rcirc-target rcirc-buffer-process called-interactively-p interactive read-string "List names in channel: " 0 rcirc-send-string "NAMES "] 10 (#$ . 74581) "P"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/topic" nil] 2)
#@227 List TOPIC for the TARGET channel.
With a prefix arg, prompt for new topic.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn TOPIC &optional PROCESS TARGET)
(defalias 'rcirc-cmd-topic #[769 "\206 \302 \206 \303\304!\203 \203 \305\306 \"\262\307\310G\311V\205+ \312 PQ\"\207" [rcirc-target rcirc-topic rcirc-buffer-process called-interactively-p interactive read-string "New Topic: " rcirc-send-string "TOPIC " 0 " :"] 11 (#$ . 75284) "P"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/whois" nil] 2)
#@194 Request information from server about NICK.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-whois #[769 "\206 \301 \206 \302\303P\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string "WHOIS "] 9 (#$ . 75909) (byte-code "\302\303rq\210 )\"C\207" [rcirc-server-buffer rcirc-nick-table completing-read "Whois: "] 3)])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/mode" nil] 2)
#@170 Set mode with ARGS.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn ARGS &optional PROCESS TARGET)
(defalias 'rcirc-cmd-mode #[769 "\206 \301 \206 \302\303P\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string "MODE "] 9 (#$ . 76463) (byte-code "\300\301!\302\300\303!QC\207" [read-string "Mode nick or channel: " " " "Mode: "] 4)])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/list" nil] 2)
#@199 Request information on CHANNELS from server.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn CHANNELS &optional PROCESS TARGET)
(defalias 'rcirc-cmd-list #[769 "\206 \301 \206 \302\303P\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string "LIST "] 9 (#$ . 76982) "sList Channels: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/oper" nil] 2)
#@183 Send operator command to server.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn ARGS &optional PROCESS TARGET)
(defalias 'rcirc-cmd-oper #[769 "\206 \301 \206 \302\303P\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string "OPER "] 9 (#$ . 77452) "sOper args: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/quote" nil] 2)
#@187 Send MESSAGE literally to server.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn MESSAGE &optional PROCESS TARGET)
(defalias 'rcirc-cmd-quote #[769 "\206 \301 \206 \302\"\207" [rcirc-target rcirc-buffer-process rcirc-send-string] 8 (#$ . 77903) "sServer message: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/kick" nil] 2)
#@181 Kick NICK from current channel.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn ARG &optional PROCESS TARGET)
(defalias 'rcirc-cmd-kick #[769 "\206 \301 \206 \302!\211@\303\304\305A\306#Q\307\310\306R\"\266\202\207" [rcirc-target rcirc-buffer-process split-string " :" mapconcat identity " " rcirc-send-string "KICK "] 13 (#$ . 78350) (byte-code "\301\302\303\304 \"\"\305\306!PC\207" [rcirc-target completing-read "Kick nick: " rcirc-channel-nicks rcirc-buffer-process read-from-minibuffer "Kick reason: "] 5)])
(defalias 'rcirc-cmd-ctcp #[769 "\300\301\"\203) \302\303\"\302\304\"\226\305\306P!\307!\203# \211#\202( \310#\207\311\312!\313\314\315%\207" [string-match "^\\([^ ]+\\)\\s-+\\(.+\\)$" match-string 1 2 intern-soft "rcirc-ctcp-sender-" fboundp rcirc-send-ctcp rcirc-print rcirc-nick "ERROR" nil "usage: /ctcp NICK REQUEST"] 10 "\n\n(fn ARGS &optional PROCESS TARGET)"])
#@66 Send a CTCP PING message to TARGET.
(fn PROCESS TARGET REQUEST)
(defalias 'rcirc-ctcp-sender-PING #[771 "\300\301\302 \"\303\304$\207" [format "%.0f" rcirc-float-time rcirc-send-ctcp "PING"] 9 (#$ . 79332)])
(defalias 'rcirc-cmd-me #[769 "\300\301$\207" [rcirc-send-ctcp "ACTION"] 8 "\n\n(fn ARGS &optional PROCESS TARGET)"])
(defalias 'rcirc-add-or-remove #[385 "\211\211\203+ \211@\211\203$ \211\300\230\204$ \301\"\203 \302\"\202\" \211B\262A\266\202\202 \210\207" ["" member-ignore-case delete] 7 "\n\n(fn SET &rest ELEMENTS)"])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/ignore" nil] 2)
#@365 Manage the ignore list.
Ignore NICK, unignore NICK if already ignored, or list ignored
nicks when no NICK is given. When listing ignored nicks, the
ones added to the list automatically are marked with an asterisk.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-ignore #[769 "\206 \302 \206 \303\304 \305\306\307##\310\306\311\312\313 \314#%\207" [rcirc-target rcirc-ignore-list rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "IGNORE" mapconcat #[257 "\211\235\203 \301\202\f \302P\207" [rcirc-ignore-list-automatic "*" ""] 4 "\n\n(fn NICK)"] " "] 14 (#$ . 79986) "sToggle ignoring of nick: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/bright" nil] 2)
#@179 Manage the bright nick list.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-bright #[769 "\206 \302 \206 \303\304 \305\306\307##\310\306\311\312\313 \314#%\207" [rcirc-target rcirc-bright-nicks rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "BRIGHT" mapconcat identity " "] 14 (#$ . 80851) "sToggle emphasis of nick: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/dim" nil] 2)
#@176 Manage the dim nick list.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn NICK &optional PROCESS TARGET)
(defalias 'rcirc-cmd-dim #[769 "\206 \302 \206 \303\304 \305\306\307##\310\306\311\312\313 \314#%\207" [rcirc-target rcirc-dim-nicks rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "DIM" mapconcat identity " "] 14 (#$ . 81436) "sToggle deemphasis of nick: "])
(byte-code "\301\235\203 \210\202 \301B\302\207" [rcirc-client-commands "/keyword" nil] 2)
#@276 Manage the keyword list.
Mark KEYWORD, unmark KEYWORD if already marked, or list marked
keywords when no KEYWORD is given.
Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(fn KEYWORD &optional PROCESS TARGET)
(defalias 'rcirc-cmd-keyword #[769 "\206 \302 \206 \303\304 \305\306\307##\310\306\311\312\313 \314#%\207" [rcirc-target rcirc-keywords rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "KEYWORD" mapconcat identity " "] 14 (#$ . 82015) "sToggle highlighting of keyword: "])
#@110 Add face NAME to the face text property of the text from START to END.
(fn START END NAME &optional OBJECT)
(defalias 'rcirc-add-face #[1027 "\205@ \300\211W\205> \301\302#\262\303\302 $\262\301\302#\235\2048 \304\302BD$\210\262\202 \266\203\207" [nil get-text-property font-lock-face next-single-property-change add-text-properties] 13 (#$ . 82609)])
#@69 Return a copy of STRING with FACE property added.
(fn STRING FACE)
(defalias 'rcirc-facify #[514 "\206 \300\301\302G$\210\211\207" ["" rcirc-add-face 0] 8 (#$ . 82996)])
#@69 Regexp matching URLs. Set to nil to disable URL features in rcirc.
(defvar rcirc-url-regexp (byte-code "\300\301\302\303\304\305\"\2033 \306\307\310\311\312\313\311\312\311\f\314\311\315\316\311\312\311\315\317\260\266\202\2024 \320\317\260\207" ["\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)" "\\(//[-a-z0-9_.]+:[0-9]*\\)?" string-match "[[:digit:]]" "1" "-a-z0-9_=#$@~%&*+\\/[:word:]" "!?:;.," "\\(?:" "[" "]+" "(" "]*)" "]" "\\|" "\\)" "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)"] 30) (#$ . 83178))
#@213 Remove all items not satisfying condition CONDP in list LST.
CONDP is a function that takes a list element as argument and returns
non-nil if that element should be included. Returns a new list.
(fn CONDP LST)
(defalias 'rcirc-condition-filter #[514 "\300\301\302\303\304\305\306\307 !\310\"\311\312%\"\"\207" [delq nil mapcar make-byte-code 257 "\300!\205 \211\207" vconcat vector [] 3 "\n\n(fn X)"] 11 (#$ . 83802)])
#@141 Prompt for URL to browse based on URLs in buffer before point.
If ARG is given, opens the URL in a new browser window.
(fn &optional ARG)
(defalias 'rcirc-browse-url #[256 "`\301\302\303\304\305\306!\307\"\310\311%\"\312\313\"\312\314\"\315\316\317\320\211@\320&\"\207" [rcirc-urls rcirc-condition-filter make-byte-code 257 "\300AY\207" vconcat vector #1=[] 3 "\n\n(fn X)" mapcar #[257 "\211@\207" #1# 2 "\n\n(fn X)"] #[257 "\211@\207" #1# 2 "\n\n(fn X)"] browse-url completing-read "Rcirc browse-url: " nil] 14 (#$ . 84234) "P"])
(defalias 'rcirc-markup-timestamp #[514 "eb\210\301\302!\303\"c\207" [rcirc-time-format rcirc-facify format-time-string rcirc-timestamp] 5 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-attributes #[514 "\300\301\302\303#\203R \304\305\224\305\225\306\224f\307\310\"\203 \311\202. \307\312\"\203& \313\202. \307\314\"\205. \315\262#\210\310\225\2068 `Sf\316=\204E \310\224\310\225|\210\306\224\306\225|\210\306\224b\210\202 eb\210\300\317\302\303#\205f \305\224\305\225|\210\202U \207" [re-search-forward "\\([ ]\\).*?\\(\\1\\|\\)" nil t rcirc-add-face 0 1 eql 2 bold 22 italic 31 underline 15 "+"] 9 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-my-nick #[514 "\301 p\302\303\304\305\306\"\307\"\310$\216\311!\210\312\313\314\315\316 !!\313Q\317\320#\205B \321\303\224\303\225\322#\210\323\230\203 \321ed\324#\210\325p\326\"\210\202 )\207" [rcirc-nick-syntax-table syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table re-search-forward "\\b" regexp-quote rcirc-nick rcirc-buffer-process nil t rcirc-add-face rcirc-nick-in-message "PRIVMSG" rcirc-nick-in-message-full-line rcirc-record-activity nick] 11 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-urls #[514 "\2059 \302\303\304#\2059 \305\224\305\225\306\305!\307\"\310\311\312\313\304\312 \314\315&\n\210\211 @@\230\2044 \211B B\266\202 \207" [rcirc-url-regexp rcirc-urls re-search-forward nil t 0 match-string-no-properties buffer-substring-no-properties make-button face rcirc-url follow-link action #[257 "\300\301\302\"!\207" [browse-url button-get rcirc-url] 5 "\n\n(fn BUTTON)"]] 17 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-keywords #[514 "\211\302\230\205I \303\304 !\230?\205I \206 \305\306\307\310\311\312\313\314\315!\316\"\317\320% \"\"\211\205G \321\322\323\"\307\324#\205G \325\326\224\326\225\327#\210\330p\331\"\210\202, \266\202\207" [rcirc-target rcirc-keywords "PRIVMSG" rcirc-nick rcirc-buffer-process "" delq nil mapcar make-byte-code 257 "\301\300\"?\205 \211\207" vconcat vector [string-match] 4 "\n\n(fn KEYWORD)" re-search-forward regexp-opt words t rcirc-add-face 0 rcirc-keyword rcirc-record-activity keyword] 12 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-bright-nicks #[514 "\2059 \211\302\230\2059 \303 p\304\305\306\307\310\"\311\"\312$\216\313 !\210\314\315\316\"\317\320#\2056 \321\305\224\305\225\322#\210\202 )\266\202\207" [rcirc-bright-nicks rcirc-nick-syntax-table "NAMES" syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table re-search-forward regexp-opt words nil t rcirc-add-face rcirc-bright-nick] 11 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-markup-fill #[514 "\211\304\230?\2051 \206 \305`\306 Z\307\" \204 \n\202& \310 !\203% \202& \311Z\312`d\313\314$*\207" [rcirc-fill-prefix rcirc-fill-column fill-column fill-prefix "372" make-string line-beginning-position 32 functionp 3 fill-region nil t] 7 "\n\n(fn SENDER RESPONSE)"])
(defalias 'rcirc-handler-001 #[1028 "\306\307%\210r\310!q\210\311\312!\210@\313 \210 \203] \f\203R \311
\211\203> \211@\314@ \"\2037 \315\262A\266\202\202& \262\262\203R \316\317\320\315\211$\210\321 \202b \321 \210\322\"\202b \322\")\207" [rcirc-connecting rcirc-server-name rcirc-nick rcirc-auto-authenticate-flag rcirc-authenticate-before-join rcirc-authinfo rcirc-handler-generic "001" process-buffer nil rcirc-reschedule-timeout rcirc-update-prompt string-match t add-hook rcirc-authenticated-hook rcirc-join-channels-post-auth rcirc-authenticate rcirc-join-channels rcirc-startup-channels] 10 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
#@67 Join `rcirc-startup-channels' after authenticating.
(fn PROCESS)
(defalias 'rcirc-join-channels-post-auth #[257 "r\301!q\210\302\")\207" [rcirc-startup-channels process-buffer rcirc-join-channels] 4 (#$ . 88484)])
(defalias 'rcirc-handler-PRIVMSG #[1028 "\301$\210\302@!\203 @\202 A@\206 \303\304\305\"\2032 \306\307\310\"$\210\202> \311\312\313&\210r\314\313#q\210\315$)\207" [rcirc-current-line rcirc-check-auth-status rcirc-channel-p "" string-match "^\\(.*\\)$" rcirc-handler-CTCP match-string 1 rcirc-print "PRIVMSG" t rcirc-get-buffer rcirc-put-nick-channel] 13 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-NOTICE #[1028 "\300$\210@A@\301\302\"\203\" \303\304\305\"$\202Y \306\307\310!\2033 \202U \301\311\"\203C \304\305\"\202U \205U \312 !\230?\205U \313&\207" [rcirc-check-auth-status string-match "^\\(.*\\)$" rcirc-handler-CTCP-response match-string 1 rcirc-print "NOTICE" rcirc-channel-p "\\[\\(#[^] ]+\\)\\]" rcirc-server-name t] 13 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
#@155 Check if the user just authenticated.
If authenticated, runs `rcirc-authenticated-hook' with PROCESS as
the only argument.
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-check-auth-status #[1028 "r\304!q\210?\205U \205U \n\205U @A@\305\230\2033 \230\2033 \211\306\307 \"\306\310 \"\311E\235\204F \312\230\205S \230\205S \313\314\"\205S \315\316\317\"\210\320\317\321\315#\266\202)\207" [rcirc-user-authenticated rcirc-authenticate-before-join rcirc-auto-authenticate-flag rcirc-nick process-buffer "NickServ" format "You are now identified for %s." "You are successfully identified as %s." "Password accepted - you are now recognized." "Q" string-match "\\`You are now logged in as .+\\.\\'" t run-hook-with-args rcirc-authenticated-hook remove-hook rcirc-join-channels-post-auth] 11 (#$ . 89570)])
(defalias 'rcirc-handler-WALLOPS #[1028 "\300\301@\302&\207" [rcirc-print "WALLOPS" t] 11 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-JOIN #[1028 "@r\302\"q\210\303\304 #\211\205' \211W\205' \305\n\n#\262$\210\306)\307\310\311%\210\312\313 \"\205F \307\310%\207" [rcirc-omit-threshold mode-line-process rcirc-get-buffer-create rcirc-put-nick-channel rcirc-elapsed-lines rcirc-last-line nil rcirc-print "JOIN" "" rcirc-get-buffer rcirc-buffer-process] 14 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-PART-or-KICK #[1542 "\300!\210\301!\230\204 \302#\210\303#\207\304\305\306\307\310\311 \n\"\312\"\313\314%\315\"\"\210\316\"\211\205A \317!\207" [rcirc-ignore-update-automatic rcirc-nick rcirc-maybe-remember-nick-quit rcirc-remove-nick-channel mapc make-byte-code 257 "\302\300\301#\207" vconcat vector [rcirc-remove-nick-channel] 5 "\n\n(fn N)" rcirc-channel-nicks rcirc-get-buffer rcirc-disconnect-buffer] 14 "\n\n(fn PROCESS RESPONSE CHANNEL SENDER NICK ARGS)"])
(defalias 'rcirc-handler-PART #[1028 "@A@\300Q\301\302%\210\303\304 \"\203( \301\302 %\210\305\302 \211&\207" [" " rcirc-print "PART" rcirc-get-buffer rcirc-buffer-process rcirc-handler-PART-or-KICK] 14 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-KICK #[1028 "@A@\3008\301\301\260\302\303\304&\210\305\306 \"\203/ \302\303%\210\307\303\n&\207" [2 " " rcirc-print "KICK" t rcirc-get-buffer rcirc-buffer-process rcirc-handler-PART-or-KICK] 15 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
#@85 Remember NICK as leaving CHANNEL if they recently spoke.
(fn PROCESS NICK CHANNEL)
(defalias 'rcirc-maybe-remember-nick-quit #[771 "\302#\211\205> \211W\205> \303\"\211\205< r\211q\210\304 \305#\306#\2032 \241\2029 B B\211\266\202)\262\207" [rcirc-omit-threshold rcirc-recent-quit-alist rcirc-elapsed-lines rcirc-get-buffer assoc-string t rcirc-last-line] 10 (#$ . 92014)])
(defalias 'rcirc-handler-QUIT #[1028 "\300!\210\301\302\303\304\305\306 #\307\"\310\311%\312\"\"\210\313\"\207" [rcirc-ignore-update-automatic mapc make-byte-code 257 "\303\300\301\304\305\306\302\"%\210\307\300\301#\207" vconcat vector [rcirc-print "QUIT" apply concat rcirc-maybe-remember-nick-quit] 9 "\n\n(fn CHANNEL)" rcirc-nick-channels rcirc-nick-remove] 13 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-NICK #[1028 "@\306\"\307!\210\235\2030 \235\203 \210\202! B \235\203, \210\2020 B\211\211\203I \211@\310 \311%\210A\266\202\2021 \210\312\"\211\203n r\211q\210\310\311%\210\313\314 \"!\210)\210r\315!q\210\316 \"\317 \"\210\320 #\266\f\230\205\230 \321\322!\210
\205\230 \323 )\207" [rcirc-ignore-list rcirc-ignore-list-automatic rcirc-target rcirc-nick-table rcirc-nick rcirc-auto-authenticate-flag rcirc-nick-channels rcirc-ignore-update-automatic rcirc-print "NICK" rcirc-get-buffer rename-buffer rcirc-generate-new-buffer-name process-buffer gethash remhash puthash rcirc-update-prompt t rcirc-authenticate] 15 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-PING #[1028 "\300\301@P\"\207" [rcirc-send-string "PONG :"] 8 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-PONG #[1028 "\300\207" [nil] 5 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-TOPIC #[1028 "A@\301\302@%\210r\303@\"q\210\211\211)\207" [rcirc-topic rcirc-print "TOPIC" rcirc-get-buffer] 11 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defvar rcirc-nick-away-alist nil)
#@41 RPL_AWAY
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-301 #[1028 "A@\301\"\3028\203 A\230?\2053 \303\304A%\210\203, \241\2023 BB\211\207" [rcirc-nick-away-alist assoc-string 2 rcirc-handler-generic "AWAY"] 13 (#$ . 94001)])
#@46 RPL_WHOISIDLE
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-317 #[1028 "A@\301\3028!\211W\203 \303\304\"\202 \305\306\301\3078!!\310\311\"\312\313$\314\n\n\315\316\317&\207" [most-positive-fixnum string-to-number 2 format-seconds "%yy %dd %hh %mm %z%ss" "a very long time" seconds-to-time 3 format-time-string "%c" format "%s idle for %s, signed on %s" rcirc-print "317" nil t] 17 (#$ . 94264)])
#@42 RPL_TOPIC
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-332 #[1028 "\301A@\"\206 \302A@\"r\211q\210\3038\211)\207" [rcirc-topic rcirc-get-buffer rcirc-get-temp-buffer-create 2] 7 (#$ . 94693)])
#@88 333 says who set the topic and when.
Not in rfc1459.txt
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-333 #[1028 "\301A@\"\206 \302A@\"r\211q\210\3038\304\305\306AAA@!!!\307\310A@\311\312 $%\266\202)\207" [rcirc-topic rcirc-get-buffer rcirc-get-temp-buffer-create 2 current-time-string seconds-to-time string-to-number rcirc-print "TOPIC" format "%s (%s on %s)"] 17 (#$ . 94910)])
#@48 ERR_NOCHANMODES
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-477 #[1028 "\300\301A@\3028%\207" [rcirc-print "477" 2] 11 (#$ . 95325)])
(defalias 'rcirc-handler-MODE #[1028 "@\300\301A\302#\303\304\305 !\230?\205 %\210\306\307\310\311\312\313 #\314\"\315\316%AA\"\207" [mapconcat identity " " rcirc-print "MODE" rcirc-nick mapc make-byte-code 257 "\303\300\"\205 \304\300\301\305\302%\207" vconcat vector [rcirc-get-buffer rcirc-print "MODE"] 7 "\n\n(fn NICK)"] 15 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
#@69 Return a buffer based on PROCESS and CHANNEL.
(fn PROCESS CHANNEL)
(defalias 'rcirc-get-temp-buffer-create #[514 "\300\227\301\302!R\303!\207" [" " "TMP" process-name get-buffer-create] 7 (#$ . 95869)])
#@45 RPL_NAMREPLY
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-353 #[1028 "\3008\3018\206\n \302\303\304\305\306\307\310 \"\311\"\312\313%\314\315\316#\"\210r\317\"q\210db\210\320!@\315\261)\207" [2 3 "" mapc make-byte-code 257 "\302\300\301#\207" vconcat vector [rcirc-put-nick-channel] 5 "\n\n(fn NICK)" split-string " " t rcirc-get-temp-buffer-create last] 14 (#$ . 96082)])
#@47 RPL_ENDOFNAMES
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-366 #[1028 "A@\300\"r\211q\210\301\302ed{\303\304\"\262%\210)\305!\207" [rcirc-get-temp-buffer-create rcirc-print "NAMES" rcirc-sort-nicknames-join " " kill-buffer] 15 (#$ . 96484)])
#@50 ERR_NICKNAMEINUSE
(fn PROCESS SENDER ARGS TEXT)
(defalias 'rcirc-handler-433 #[1028 "\300\301%\210A@\302Pr\303!q\210\304\305#)\207" [rcirc-handler-generic "433" "`" process-buffer rcirc-cmd-nick nil] 10 (#$ . 96755)])
#@118 Send authentication to process associated with current buffer.
Passwords are stored in `rcirc-authinfo' (which see).
(defalias 'rcirc-authenticate #[0 "rq\210 \211\205\215 \211@\304 @\3058A@AAA\306\n\"\203\204 \307>\203q \306 \"\203q \310\311\"\203F \312A@\206= \313\314@P#\210\202\204 \310\315\"\203^ \312\316\317\320@A@##\210\202\204 \310\321\"\203\204 \312\322\314@P#\210\202\204 \323=\203\204 \312\324\317\325@##\210\266A\266\202\202 \262)\207" [rcirc-server-buffer rcirc-authinfo rcirc-server rcirc-nick rcirc-buffer-process 2 string-match (nickserv chanserv bitlbee) eql nickserv rcirc-send-privmsg "NickServ" "IDENTIFY " chanserv "ChanServ" format "IDENTIFY %s %s" bitlbee "&bitlbee" quakenet "Q@CServe.quakenet.org" "AUTH %s %s"] 14 (#$ . 96990) nil])
(defalias 'rcirc-handler-INVITE #[1028 "\300\301\302\303\304\305#\306&\207" [rcirc-print "INVITE" nil mapconcat identity " " t] 13 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-ERROR #[1028 "\300\301\302\303\304\305#%\207" [rcirc-print "ERROR" nil mapconcat identity " "] 13 "\n\n(fn PROCESS SENDER ARGS TEXT)"])
(defalias 'rcirc-handler-CTCP #[1028 "\300\301\"\205Y \302\303\"\226\302\304\"\305\306P!\307!\2040 \310\311 \312\313 #\314&\202W \211$\210\315\230\206C \316\230?\205W \310\317 \312\320\n\"\314&\266\203\207" [string-match "^\\([^ ]+\\) *\\(.*\\)$" match-string 1 2 intern-soft "rcirc-handler-ctcp-" fboundp rcirc-print "ERROR" format "%s sent unsupported ctcp: %s" t "ACTION" "KEEPALIVE" "CTCP" "%s"] 16 "\n\n(fn PROCESS TARGET SENDER TEXT)"])
(defalias 'rcirc-handler-ctcp-VERSION #[1028 "\301\302\303\304\260\"\207" [rcirc-id-string rcirc-send-string "NOTICE " " :VERSION " ""] 11 "\n\n(fn PROCESS TARGET SENDER ARGS)"])
(defalias 'rcirc-handler-ctcp-ACTION #[1028 "\300\301\302&\207" [rcirc-print "ACTION" t] 11 "\n\n(fn PROCESS TARGET SENDER ARGS)"])
(defalias 'rcirc-handler-ctcp-TIME #[1028 "\300\301\302\303 \304\260\"\207" [rcirc-send-string "NOTICE " " :TIME " current-time-string ""] 11 "\n\n(fn PROCESS TARGET SENDER ARGS)"])
(defalias 'rcirc-handler-CTCP-response #[1028 "\300\301\302\303&\207" [rcirc-print "CTCP" nil t] 11 "\n\n(fn PROCESS TARGET SENDER MESSAGE)"])
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301%\210\307\313\314\315\304\301%\210\307\316\317\320\304\301%\210\307\321\322\323\304\301%\210\307\324\325\326\304\301%\210\307\327\330\331\304\301%\210\307\332\333\334\304\301%\210\307\335\336\337\304\301%\210\307\340\341\342\304\301%\210\307\343\344\345\304\301%\210\307\346\347\350\304\301%\210\307\351\352\353\304\301%\210\307\354\355\356\304\301%\210\307\357\360\361\304\301%\210\362\363\364\365#\207" [custom-declare-group rcirc-faces nil "Faces for rcirc." :group rcirc faces custom-declare-face rcirc-my-nick ((((class color) (min-colors 88) (background light)) :foreground "Blue1") (((class color) (min-colors 88) (background dark)) :foreground "LightSkyBlue") (((class color) (min-colors 16) (background light)) :foreground "Blue") (((class color) (min-colors 16) (background dark)) :foreground "LightSkyBlue") (((class color) (min-colors 8)) :foreground "blue" :weight bold) (t :inverse-video t :weight bold)) "Rcirc face for my messages." rcirc-other-nick ((((class grayscale) (background light)) :foreground "Gray90" :weight bold :slant italic) (((class grayscale) (background dark)) :foreground "DimGray" :weight bold :slant italic) (((class color) (min-colors 88) (background light)) :foreground "DarkGoldenrod") (((class color) (min-colors 88) (background dark)) :foreground "LightGoldenrod") (((class color) (min-colors 16) (background light)) :foreground "DarkGoldenrod") (((class color) (min-colors 16) (background dark)) :foreground "LightGoldenrod") (((class color) (min-colors 8)) :foreground "yellow" :weight light) (t :weight bold :slant italic)) "Rcirc face for other users' messages." rcirc-bright-nick ((((class grayscale) (background light)) :foreground "LightGray" :weight bold :underline t) (((class grayscale) (background dark)) :foreground "Gray50" :weight bold :underline t) (((class color) (min-colors 88) (background light)) :foreground "CadetBlue") (((class color) (min-colors 88) (background dark)) :foreground "Aquamarine") (((class color) (min-colors 16) (background light)) :foreground "CadetBlue") (((class color) (min-colors 16) (background dark)) :foreground "Aquamarine") (((class color) (min-colors 8)) :foreground "magenta") (t :weight bold :underline t)) "Rcirc face for nicks matched by `rcirc-bright-nicks'." rcirc-dim-nick ((t :inherit default)) "Rcirc face for nicks in `rcirc-dim-nicks'." rcirc-server ((((class grayscale) (background light)) :foreground "DimGray" :weight bold :slant italic) (((class grayscale) (background dark)) :foreground "LightGray" :weight bold :slant italic) (((class color) (min-colors 88) (background light)) :foreground "Firebrick") (((class color) (min-colors 88) (background dark)) :foreground "chocolate1") (((class color) (min-colors 16) (background light)) :foreground "red") (((class color) (min-colors 16) (background dark)) :foreground "red1") (((class color) (min-colors 8) (background light))) (((class color) (min-colors 8) (background dark))) (t :weight bold :slant italic)) "Rcirc face for server messages." rcirc-server-prefix ((default :inherit rcirc-server) (((class grayscale))) (((class color) (min-colors 16))) (((class color) (min-colors 8) (background light)) :foreground "red") (((class color) (min-colors 8) (background dark)) :foreground "red1")) "Rcirc face for server prefixes." rcirc-timestamp ((t :inherit default)) "Rcirc face for timestamps." rcirc-nick-in-message ((((class grayscale) (background light)) :foreground "LightGray" :weight bold) (((class grayscale) (background dark)) :foreground "DimGray" :weight bold) (((class color) (min-colors 88) (background light)) :foreground "Purple") (((class color) (min-colors 88) (background dark)) :foreground "Cyan1") (((class color) (min-colors 16) (background light)) :foreground "Purple") (((class color) (min-colors 16) (background dark)) :foreground "Cyan") (((class color) (min-colors 8)) :foreground "cyan" :weight bold) (t :weight bold)) "Rcirc face for instances of your nick within messages." rcirc-nick-in-message-full-line ((t :weight bold)) "Rcirc face for emphasizing the entire message when your nick is mentioned." rcirc-prompt ((((min-colors 88) (background dark)) :foreground "cyan1") (((background dark)) :foreground "cyan") (t :foreground "dark blue")) "Rcirc face for prompts." rcirc-track-nick ((((type tty)) :inherit default) (t :inverse-video t)) "Rcirc face used in the mode-line when your nick is mentioned." rcirc-track-keyword ((t :weight bold)) "Rcirc face used in the mode-line when keywords are mentioned." rcirc-url ((t :weight bold)) "Rcirc face used to highlight urls." rcirc-keyword ((t :inherit highlight)) "Rcirc face used to highlight keywords." put rcirc-mode flyspell-mode-predicate rcirc-looking-at-input] 8)
#@49 Returns true if point is past the input marker.
(defalias 'rcirc-looking-at-input #[0 "`Y\207" [rcirc-prompt-end-marker] 2 (#$ . 104034)])
(provide 'rcirc)
Kontol Shell Bypass