blob: 89b01d256a0939fff91d25dcbb53b02ef8a7109b (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 31 33 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:13.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 72 67 2d 69	luke/.emacs.d/org-7.4/lisp/org-i
0080	72 63 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20 32 33 2e 31 2e	rc.el.;;;.in.Emacs.version.23.1.
00a0	31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b	1.;;;.with.all.optimizations...;
00c0	3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72	;;.This.file.uses.dynamic.docstr
00e0	69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39	ings,.first.added.in.Emacs.19.29
0100	2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f	..(if.(and.(boundp.'emacs-versio
0120	6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20	n)...(<.(aref.emacs-version.(1-.
0140	28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 09 20 28	(length.emacs-version))).?A)...(
0160	6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29	or.(and.(boundp.'epoch::version)
0180	20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	.epoch::version).......(string-l
01a0	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32 39 22 29 29 29 0a 20 20	essp.emacs-version."19.29")))...
01c0	20 20 28 65 72 72 6f 72 20 22 60 6f 72 67 2d 69 72 63 2e 65 6c 27 20 77 61 73 20 63 6f 6d 70 69	..(error."`org-irc.el'.was.compi
01e0	6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29 29 0a	led.for.Emacs.19.29.or.later")).
0200	0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0220	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 6f 72 67 29 0a 23 40 32 37 20 54 68 65 20 49	;;;;...(require.'org).#@27.The.I
0260	52 43 20 63 6c 69 65 6e 74 20 74 6f 20 61 63 74 20 6f 6e 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72	RC.client.to.act.on...(defvar.or
0280	67 2d 69 72 63 2d 63 6c 69 65 6e 74 20 27 65 72 63 20 28 23 24 20 2e 20 36 30 33 29 29 0a 23 40	g-irc-client.'erc.(#$...603)).#@
02a0	37 35 20 4e 6f 6e 2d 6e 69 6c 20 77 69 6c 6c 20 73 74 6f 72 65 20 61 20 6c 69 6e 6b 20 74 6f 20	75.Non-nil.will.store.a.link.to.
02c0	74 68 65 20 6c 6f 67 73 2c 20 6e 69 6c 20 77 69 6c 6c 20 73 74 6f 72 65 20 61 6e 20 69 72 63 3a	the.logs,.nil.will.store.an.irc:
02e0	20 73 74 79 6c 65 20 6c 69 6e 6b 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 69 72 63 2d 6c 69	.style.link...(defvar.org-irc-li
0300	6e 6b 2d 74 6f 2d 6c 6f 67 73 20 6e 69 6c 20 28 23 24 20 2e 20 36 37 35 29 29 0a 28 62 79 74 65	nk-to-logs.nil.(#$...675)).(byte
0320	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 33 5c 33 30	-code."\300\301\302\"\210\303\30
0340	34 5c 33 30 35 5c 33 30 36 23 5c 32 30 37 22 20 5b 61 64 64 2d 74 6f 2d 6c 69 73 74 20 6f 72 67	4\305\306#\207".[add-to-list.org
0360	2d 73 74 6f 72 65 2d 6c 69 6e 6b 2d 66 75 6e 63 74 69 6f 6e 73 20 6f 72 67 2d 69 72 63 2d 73 74	-store-link-functions.org-irc-st
0380	6f 72 65 2d 6c 69 6e 6b 20 6f 72 67 2d 61 64 64 2d 6c 69 6e 6b 2d 74 79 70 65 20 22 69 72 63 22	ore-link.org-add-link-type."irc"
03a0	20 6f 72 67 2d 69 72 63 2d 76 69 73 69 74 20 6e 69 6c 5d 20 34 29 0a 23 40 37 36 20 50 61 72 73	.org-irc-visit.nil].4).#@76.Pars
03c0	65 20 4c 49 4e 4b 20 61 6e 64 20 64 69 73 70 61 74 63 68 20 74 6f 20 74 68 65 20 63 6f 72 72 65	e.LINK.and.dispatch.to.the.corre
03e0	63 74 20 66 75 6e 63 74 69 6f 6e 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6c 69 65 6e 74 20	ct.function.based.on.the.client.
0400	66 6f 75 6e 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 76 69 73 69 74	found...(defalias.'org-irc-visit
0420	20 23 5b 28 6c 69 6e 6b 29 20 22 5c 33 30 32 08 21 18 09 5c 33 30 33 3d 5c 32 30 33 10 00 5c 33	.#[(link)."\302.!..\303=\203..\3
0440	30 34 08 21 5c 32 30 32 13 00 5c 33 30 35 5c 33 30 36 21 29 5c 32 30 37 22 20 5b 6c 69 6e 6b 20	04.!\202..\305\306!)\207".[link.
0460	6f 72 67 2d 69 72 63 2d 63 6c 69 65 6e 74 20 6f 72 67 2d 69 72 63 2d 70 61 72 73 65 2d 6c 69 6e	org-irc-client.org-irc-parse-lin
0480	6b 20 65 72 63 20 6f 72 67 2d 69 72 63 2d 76 69 73 69 74 2d 65 72 63 20 65 72 72 6f 72 20 22 65	k.erc.org-irc-visit-erc.error."e
04a0	72 63 20 6f 6e 6c 79 20 6b 6e 6f 77 6e 20 63 6c 69 65 6e 74 22 5d 20 32 20 28 23 24 20 2e 20 39	rc.only.known.client"].2.(#$...9
04c0	35 36 29 5d 29 0a 23 40 32 31 31 20 50 61 72 73 65 20 61 6e 20 49 52 43 20 4c 49 4e 4b 20 61 6e	56)]).#@211.Parse.an.IRC.LINK.an
04e0	64 20 72 65 74 75 72 6e 20 74 68 65 20 61 74 74 72 69 62 75 74 65 73 20 66 6f 75 6e 64 2e 0a 50	d.return.the.attributes.found..P
0500	61 72 73 65 20 61 20 4c 49 4e 4b 20 74 68 61 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 73 65 72 76	arse.a.LINK.that.looks.like.serv
0520	65 72 3a 70 6f 72 74 2f 63 68 61 6e 2f 75 73 65 72 20 28 70 6f 72 74 2c 20 63 68 61 6e 0a 61 6e	er:port/chan/user.(port,.chan.an
0540	64 20 75 73 65 72 20 62 65 69 6e 67 20 6f 70 74 69 6f 6e 61 6c 29 20 61 6e 64 20 72 65 74 75 72	d.user.being.optional).and.retur
0560	6e 20 61 6e 79 20 6f 66 20 74 68 65 20 70 6f 72 74 2c 20 63 68 61 6e 6e 65 6c 20 6f 72 20 75 73	n.any.of.the.port,.channel.or.us
0580	65 72 0a 61 74 74 72 69 62 75 74 65 73 20 74 68 61 74 20 61 72 65 20 66 6f 75 6e 64 2e 1f 0a 28	er.attributes.that.are.found...(
05a0	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 70 61 72 73 65 2d 6c 69 6e 6b 20 23 5b 28	defalias.'org-irc-parse-link.#[(
05c0	6c 69 6e 6b 29 20 22 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 23 5c 32 31 31 19 47 5c 32 31 31 1a	link)."\303.\304\305#\211.G\211.
05e0	5c 33 30 36 57 5c 32 30 34 15 00 5c 6e 5c 33 30 37 56 5c 32 30 33 1a 00 5c 33 31 30 5c 33 31 31	\306W\204..\n\307V\203..\310\311
0600	5c 6e 5c 22 5c 32 31 30 09 5c 33 30 33 09 40 5c 33 31 32 5c 33 30 35 23 5c 32 34 30 5c 32 31 30	\n\"\210.\303.@\312\305#\240\210
0620	09 2a 5c 32 30 37 22 20 5b 6c 69 6e 6b 20 70 61 72 74 73 20 6c 65 6e 20 73 70 6c 69 74 2d 73 74	.*\207".[link.parts.len.split-st
0640	72 69 6e 67 20 22 2f 22 20 74 20 31 20 33 20 65 72 72 6f 72 20 22 46 61 69 6c 65 64 20 74 6f 20	ring."/".t.1.3.error."Failed.to.
0660	70 61 72 73 65 20 6c 69 6e 6b 20 6e 65 65 64 65 64 20 31 2d 33 20 70 61 72 74 73 2c 20 67 6f 74	parse.link.needed.1-3.parts,.got
0680	20 25 64 22 20 22 3a 22 5d 20 36 20 28 23 24 20 2e 20 31 32 32 38 29 5d 29 0a 23 40 37 33 20 44	.%d".":"].6.(#$...1228)]).#@73.D
06a0	69 73 70 61 74 63 68 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 66 75 6e 63 74	ispatch.to.the.appropriate.funct
06c0	69 6f 6e 20 74 6f 20 73 74 6f 72 65 20 61 20 6c 69 6e 6b 20 74 6f 20 61 6e 20 49 52 43 20 73 65	ion.to.store.a.link.to.an.IRC.se
06e0	73 73 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 73 74 6f 72 65	ssion...(defalias.'org-irc-store
0700	2d 6c 69 6e 6b 20 23 5b 6e 69 6c 20 22 08 5c 33 30 31 3d 5c 32 30 35 08 00 5c 33 30 32 20 5c 32	-link.#[nil.".\301=\205..\302.\2
0720	30 37 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 65 72 63 2d 6d 6f 64 65 20 6f 72 67 2d 69 72 63	07".[major-mode.erc-mode.org-irc
0740	2d 65 72 63 2d 73 74 6f 72 65 2d 6c 69 6e 6b 5d 20 32 20 28 23 24 20 2e 20 31 36 39 35 29 5d 29	-erc-store-link].2.(#$...1695)])
0760	0a 23 40 31 37 39 20 52 65 6d 6f 76 65 20 75 6e 6e 65 63 65 73 73 61 72 79 20 77 68 69 74 65 20	.#@179.Remove.unnecessary.white.
0780	73 70 61 63 65 20 66 72 6f 6d 20 53 54 52 49 4e 47 20 61 6e 64 20 61 64 64 20 65 6c 6c 69 70 73	space.from.STRING.and.add.ellips
07a0	65 73 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 53 74 72 69 70 20 73 74 61 72 74 69 6e 67 20	es.if.necessary..Strip.starting.
07c0	61 6e 64 20 65 6e 64 69 6e 67 20 77 68 69 74 65 20 73 70 61 63 65 20 66 72 6f 6d 20 53 54 52 49	and.ending.white.space.from.STRI
07e0	4e 47 20 61 6e 64 20 72 65 70 6c 61 63 65 20 61 6e 79 0a 63 68 61 72 73 20 74 68 61 74 20 74 68	NG.and.replace.any.chars.that.th
0800	65 20 76 61 6c 75 65 20 41 46 54 45 52 20 77 69 74 68 20 27 2e 2e 2e 27 1f 0a 28 64 65 66 61 6c	e.value.AFTER.with.'...'..(defal
0820	69 61 73 20 27 6f 72 67 2d 69 72 63 2d 65 6c 69 70 73 69 66 79 2d 64 65 73 63 72 69 70 74 69 6f	ias.'org-irc-elipsify-descriptio
0840	6e 20 23 5b 28 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 61 66 74 65 72 29 20 22 5c 33	n.#[(string.&optional.after)."\3
0860	30 33 08 5c 32 30 36 06 00 5c 33 30 34 21 18 5c 33 30 35 5c 33 30 36 42 5c 33 30 37 5c 33 30 36	03.\206..\304!.\305\306B\307\306
0880	42 5c 33 31 30 08 5c 33 31 31 51 5c 33 31 32 42 45 19 5c 33 31 33 5c 33 31 34 09 5c 22 5c 32 31	B\310.\311Q\312BE.\313\314.\"\21
08a0	30 5c 6e 2a 5c 32 30 37 22 20 5b 61 66 74 65 72 20 72 65 70 6c 61 63 65 2d 6d 61 70 20 73 74 72	0\n*\207".[after.replace-map.str
08c0	69 6e 67 20 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 33 30 20 22 5e 5b 20 09 5d 2a 22	ing.number-to-string.30."^[..]*"
08e0	20 22 22 20 22 5b 20 09 5d 2a 24 22 20 22 5e 5c 5c 28 2e 5c 5c 7b 22 20 22 5c 5c 7d 5c 5c 29 2e	.""."[..]*$"."^\\(.\\{"."\\}\\).
0900	2a 22 20 22 5c 5c 31 2e 2e 2e 22 20 6d 61 70 63 20 23 5b 28 78 29 20 22 5c 33 30 32 08 40 09 5c	*"."\\1...".mapc.#[(x)."\302.@.\
0920	22 5c 32 30 35 11 00 5c 33 30 33 08 41 5c 33 30 34 5c 32 31 31 09 24 5c 32 31 31 11 5c 32 30 37	"\205..\303.A\304\211.$\211.\207
0940	22 20 5b 78 20 73 74 72 69 6e 67 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 70 6c 61 63 65	".[x.string.string-match.replace
0960	2d 6d 61 74 63 68 20 6e 69 6c 5d 20 35 5d 5d 20 35 20 28 23 24 20 2e 20 31 38 39 35 29 5d 29 0a	-match.nil].5]].5.(#$...1895)]).
0980	23 40 32 35 32 20 46 69 6e 64 20 74 68 65 20 62 65 73 74 20 6c 69 6e 65 20 74 6f 20 6c 69 6e 6b	#@252.Find.the.best.line.to.link
09a0	20 74 6f 20 66 72 6f 6d 20 74 68 65 20 45 52 43 20 6c 6f 67 73 20 67 69 76 65 6e 20 45 52 43 2d	.to.from.the.ERC.logs.given.ERC-
09c0	4c 49 4e 45 20 61 73 20 61 20 73 74 61 72 74 2e 0a 49 66 20 74 68 65 20 75 73 65 72 20 69 73 20	LINE.as.a.start..If.the.user.is.
09e0	6f 6e 20 74 68 65 20 45 52 43 2d 70 72 6f 6d 70 74 20 74 68 65 6e 20 73 65 61 72 63 68 20 62 61	on.the.ERC-prompt.then.search.ba
0a00	63 6b 77 61 72 64 20 66 6f 72 20 74 68 65 0a 66 69 72 73 74 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 6c	ckward.for.the.first.non-blank.l
0a20	69 6e 65 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e	ine,.otherwise.return.the.curren
0a40	74 20 6c 69 6e 65 2e 20 20 54 68 65 0a 72 65 73 75 6c 74 20 69 73 20 61 20 63 6f 6e 73 20 6f 66	t.line...The.result.is.a.cons.of
0a60	20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 61 6e 64 20 73 65 61 72 63 68 20 73 74 72 69 6e 67 2e	.the.filename.and.search.string.
0a80	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 65 72 63 2d 67 65 74 2d 6c 69 6e	..(defalias.'org-irc-erc-get-lin
0aa0	65 2d 66 72 6f 6d 2d 6c 6f 67 20 23 5b 28 65 72 63 2d 6c 69 6e 65 29 20 22 5c 33 30 32 20 5c 32	e-from-log.#[(erc-line)."\302.\2
0ac0	31 30 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 72 5c 33 30 35 5c 33 30 36 20 21 71 5c 32 31 30 64	10\303\304!\210r\305\306.!q\210d
0ae0	62 5c 32 31 30 5c 33 30 37 08 21 09 5c 33 31 30 20 5c 32 33 30 5c 32 30 33 30 00 5c 33 31 31 20	b\210\307.!.\310.\230\2030.\311.
0b00	62 5c 32 31 30 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 23 5c 32 30 35 3e 00 5c 33 31 36	b\210\312\313\314\315#\205>.\316
0b20	5c 33 31 31 20 5c 33 31 37 20 5c 22 5c 32 30 32 3e 00 5c 33 32 30 09 5c 33 31 34 5c 33 31 35 23	\311.\317.\"\202>.\320.\314\315#
0b40	5c 32 30 35 3e 00 5c 33 31 36 5c 33 31 31 20 5c 33 31 37 20 5c 22 29 44 5c 32 30 37 22 20 5b 62	\205>.\316\311.\317.\")D\207".[b
0b60	75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 65 72 63 2d 6c 69 6e 65 20 65 72 63 2d 73 61 76	uffer-file-name.erc-line.erc-sav
0b80	65 2d 62 75 66 66 65 72 2d 69 6e 2d 6c 6f 67 73 20 72 65 71 75 69 72 65 20 65 72 63 2d 6c 6f 67	e-buffer-in-logs.require.erc-log
0ba0	20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 65 72 63 2d 63 75 72 72 65 6e 74 2d	.find-file-noselect.erc-current-
0bc0	6c 6f 67 66 69 6c 65 20 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 65 72 63	logfile.abbreviate-file-name.erc
0be0	2d 70 72 6f 6d 70 74 20 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 20 73 65 61 72 63 68 2d 62 61 63 6b	-prompt.point-at-bol.search-back
0c00	77 61 72 64 2d 72 65 67 65 78 70 20 22 5e 5b 5e 09 5d 22 20 6e 69 6c 20 74 20 62 75 66 66 65 72	ward-regexp."^[^.]".nil.t.buffer
0c20	2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 70 6f 69 6e 74 2d 61	-substring-no-properties.point-a
0c40	74 2d 65 6f 6c 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 5d 20 35 20 28 23 24 20 2e 20 32	t-eol.search-backward].5.(#$...2
0c60	34 33 38 29 5d 29 0a 23 40 32 30 35 20 53 74 6f 72 65 20 61 20 6c 69 6e 6b 20 74 6f 20 74 68 65	438)]).#@205.Store.a.link.to.the
0c80	20 49 52 43 20 6c 6f 67 20 66 69 6c 65 20 6f 72 20 74 68 65 20 73 65 73 73 69 6f 6e 20 69 74 73	.IRC.log.file.or.the.session.its
0ca0	65 6c 66 2e 0a 44 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 60	elf..Depending.on.the.variable.`
0cc0	6f 72 67 2d 69 72 63 2d 6c 69 6e 6b 2d 74 6f 2d 6c 6f 67 73 27 20 73 74 6f 72 65 20 65 69 74 68	org-irc-link-to-logs'.store.eith
0ce0	65 72 20 61 0a 6c 69 6e 6b 20 74 6f 20 74 68 65 20 6c 6f 67 20 66 69 6c 65 20 66 6f 72 20 74 68	er.a.link.to.the.log.file.for.th
0d00	65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 20 6f 72 20 61 6e 20 69 72 63 3a 20 6c 69 6e	e.current.session.or.an.irc:.lin
0d20	6b 20 74 6f 0a 74 68 65 20 73 65 73 73 69 6f 6e 20 69 74 73 65 6c 66 2e 1f 0a 28 64 65 66 61 6c	k.to.the.session.itself...(defal
0d40	69 61 73 20 27 6f 72 67 2d 69 72 63 2d 65 72 63 2d 73 74 6f 72 65 2d 6c 69 6e 6b 20 23 5b 6e 69	ias.'org-irc-erc-store-link.#[ni
0d60	6c 20 22 5c 33 30 36 5c 33 30 37 21 5c 32 31 30 08 5c 32 30 33 41 00 5c 33 31 30 5c 33 31 31 20	l."\306\307!\210.\203A.\310\311.
0d80	5c 33 31 32 20 5c 22 19 5c 33 31 33 09 21 1a 5c 33 31 34 5c 33 31 35 21 5c 32 30 33 3c 00 5c 33	\312.\".\313.!.\314\315!\203<.\3
0da0	31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 6e 5c 32 31 31 1b 41 40 29	16\317\320\321\322\323\n\211.A@)
0dc0	5c 33 32 34 5c 22 5c 33 32 35 51 5c 33 32 36 5c 33 32 37 5c 6e 40 5c 33 33 30 5c 6e 5c 32 31 31	\324\"\325Q\326\327\n@\330\n\211
0de0	1b 41 40 29 52 26 06 5c 32 31 30 5c 33 33 31 5c 32 30 32 3f 00 5c 33 33 32 5c 33 33 33 21 2a 5c	.A@)R&.\210\331\202?.\332\333!*\
0e00	32 30 37 5c 33 33 34 20 1c 5c 33 33 35 5c 66 21 1d 5c 66 5c 32 30 33 7c 00 5c 33 31 36 5c 33 31	207\334..\335\f!.\f\203|.\316\31
0e20	37 5c 33 33 36 5c 33 32 36 5c 33 33 37 5c 33 34 30 5c 66 5c 22 5c 33 32 31 5c 33 34 31 5c 66 5c	7\336\326\337\340\f\"\321\341\f\
0e40	33 32 32 51 5c 33 34 32 0d 40 40 5c 33 34 33 5c 33 34 34 0d 5c 32 31 31 41 15 40 5c 32 31 31 1b	322Q\342.@@\343\344.\211A.@\211.
0e60	41 40 29 21 5c 32 30 36 6f 00 0e 27 5c 33 34 35 0d 5c 32 31 31 41 15 40 26 5c 66 5c 32 31 30 5c	A@)!\206o..'\345.\211A.@&\f\210\
0e80	33 33 31 5c 32 30 32 7f 00 5c 33 33 32 5c 33 34 36 21 2a 5c 32 30 37 22 20 5b 6f 72 67 2d 69 72	331\202..\332\346!*\207".[org-ir
0ea0	63 2d 6c 69 6e 6b 2d 74 6f 2d 6c 6f 67 73 20 65 72 63 2d 6c 69 6e 65 20 70 61 72 73 65 64 2d 6c	c-link-to-logs.erc-line.parsed-l
0ec0	69 6e 65 20 78 20 6c 69 6e 6b 2d 74 65 78 74 20 6c 69 6e 6b 20 72 65 71 75 69 72 65 20 65 72 63	ine.x.link-text.link.require.erc
0ee0	2d 6c 6f 67 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74	-log.buffer-substring-no-propert
0f00	69 65 73 20 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 20 70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 20 6f 72	ies.point-at-bol.point-at-eol.or
0f20	67 2d 69 72 63 2d 65 72 63 2d 67 65 74 2d 6c 69 6e 65 2d 66 72 6f 6d 2d 6c 6f 67 20 65 72 63 2d	g-irc-erc-get-line-from-log.erc-
0f40	6c 6f 67 67 69 6e 67 2d 65 6e 61 62 6c 65 64 20 6e 69 6c 20 6f 72 67 2d 73 74 6f 72 65 2d 6c 69	logging-enabled.nil.org-store-li
0f60	6e 6b 2d 70 72 6f 70 73 20 3a 74 79 70 65 20 22 66 69 6c 65 22 20 3a 64 65 73 63 72 69 70 74 69	nk-props.:type."file".:descripti
0f80	6f 6e 20 22 27 22 20 6f 72 67 2d 69 72 63 2d 65 6c 69 70 73 69 66 79 2d 64 65 73 63 72 69 70 74	on."'".org-irc-elipsify-descript
0fa0	69 6f 6e 20 32 30 20 22 27 20 66 72 6f 6d 20 61 6e 20 49 52 43 20 63 6f 6e 76 65 72 73 61 74 69	ion.20."'.from.an.IRC.conversati
0fc0	6f 6e 22 20 3a 6c 69 6e 6b 20 22 66 69 6c 65 3a 22 20 22 3a 3a 22 20 74 20 65 72 72 6f 72 20 22	on".:link."file:"."::".t.error."
0fe0	54 68 69 73 20 45 52 43 20 73 65 73 73 69 6f 6e 20 69 73 20 6e 6f 74 20 62 65 69 6e 67 20 6c 6f	This.ERC.session.is.not.being.lo
1000	67 67 65 64 22 20 6f 72 67 2d 69 72 63 2d 67 65 74 2d 65 72 63 2d 6c 69 6e 6b 20 6f 72 67 2d 69	gged".org-irc-get-erc-link.org-i
1020	72 63 2d 70 61 72 73 65 2d 6c 69 6e 6b 20 22 69 72 63 22 20 6f 72 67 2d 6d 61 6b 65 2d 6c 69 6e	rc-parse-link."irc".org-make-lin
1040	6b 20 22 69 72 63 3a 2f 22 20 22 69 72 63 20 73 65 73 73 69 6f 6e 20 27 22 20 3a 73 65 72 76 65	k."irc:/"."irc.session.'".:serve
1060	72 20 3a 70 6f 72 74 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 3a 6e 69 63 6b 20 22	r.:port.string-to-number.:nick."
1080	46 61 69 6c 65 64 20 74 6f 20 63 72 65 61 74 65 20 28 27 69 72 63 3a 2f 27 20 73 74 79 6c 65 29	Failed.to.create.('irc:/'.style)
10a0	20 45 52 43 20 6c 69 6e 6b 22 20 65 72 63 2d 64 65 66 61 75 6c 74 2d 70 6f 72 74 5d 20 31 35 20	.ERC.link".erc-default-port].15.
10c0	28 23 24 20 2e 20 33 31 38 31 29 5d 29 0a 23 40 35 37 20 52 65 74 75 72 6e 20 61 6e 20 6f 72 67	(#$...3181)]).#@57.Return.an.org
10e0	20 63 6f 6d 70 61 74 69 62 6c 65 20 69 72 63 3a 2f 20 6c 69 6e 6b 20 66 72 6f 6d 20 61 6e 20 45	.compatible.irc:/.link.from.an.E
1100	52 43 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 67	RC.buffer...(defalias.'org-irc-g
1120	65 74 2d 65 72 63 2d 6c 69 6e 6b 20 23 5b 6e 69 6c 20 22 08 5c 32 34 37 5c 32 30 33 0b 00 5c 33	et-erc-link.#[nil.".\247\203..\3
1140	30 35 08 21 5c 32 30 32 5c 66 00 08 19 5c 6e 5c 33 30 36 09 51 5c 32 31 31 1b 5c 33 30 37 5c 33	05.!\202\f...\n\306.Q\211.\307\3
1160	31 30 20 5c 32 30 33 37 00 5c 33 31 31 5c 33 31 30 20 21 5c 32 30 33 37 00 5c 33 31 32 60 5c 33	10.\2037.\311\310.!\2037.\312`\3
1180	31 33 5c 22 40 5c 32 30 33 37 00 5c 33 31 32 60 5c 33 31 33 5c 22 40 1c 5c 33 31 30 20 5c 33 30	13\"@\2037.\312`\313\"@.\310.\30
11a0	37 5c 66 51 29 5c 32 30 32 39 00 5c 33 31 30 20 51 2a 5c 32 30 37 22 20 5b 65 72 63 2d 73 65 73	7\fQ)\2029.\310.Q*\207".[erc-ses
11c0	73 69 6f 6e 2d 70 6f 72 74 20 73 65 73 73 69 6f 6e 2d 70 6f 72 74 20 65 72 63 2d 73 65 73 73 69	sion-port.session-port.erc-sessi
11e0	6f 6e 2d 73 65 72 76 65 72 20 6c 69 6e 6b 20 6e 69 63 6b 20 6e 75 6d 62 65 72 2d 74 6f 2d 73 74	on-server.link.nick.number-to-st
1200	72 69 6e 67 20 22 3a 22 20 22 2f 22 20 65 72 63 2d 64 65 66 61 75 6c 74 2d 74 61 72 67 65 74 20	ring.":"."/".erc-default-target.
1220	65 72 63 2d 63 68 61 6e 6e 65 6c 2d 70 20 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20	erc-channel-p.get-text-property.
1240	65 72 63 2d 64 61 74 61 5d 20 36 20 28 23 24 20 2e 20 34 33 30 37 29 5d 29 0a 23 40 31 31 33 20	erc-data].6.(#$...4307)]).#@113.
1260	52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 6f 72 74 20 61 73 20 61 20 6e 75 6d	Return.the.current.port.as.a.num
1280	62 65 72 2e 0a 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 70 6f 72 74 20 6e 75 6d	ber..Return.the.current.port.num
12a0	62 65 72 20 6f 72 2c 20 69 66 20 6e 6f 6e 65 20 69 73 20 73 65 74 2c 20 72 65 74 75 72 6e 20 74	ber.or,.if.none.is.set,.return.t
12c0	68 65 20 45 52 43 0a 64 65 66 61 75 6c 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d	he.ERC.default...(defalias.'org-
12e0	69 72 63 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 65 72 63 2d 70 6f 72 74 20 23 5b 6e 69 6c 20 22	irc-get-current-erc-port.#[nil."
1300	08 3b 5c 32 30 33 09 00 5c 33 30 32 08 21 5c 32 30 37 08 5c 32 34 37 5c 32 30 33 10 00 08 5c 32	.;\203..\302.!\207.\247\203...\2
1320	30 37 09 5c 32 30 37 22 20 5b 65 72 63 2d 73 65 73 73 69 6f 6e 2d 70 6f 72 74 20 65 72 63 2d 64	07.\207".[erc-session-port.erc-d
1340	65 66 61 75 6c 74 2d 70 6f 72 74 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 5d 20 32 20	efault-port.string-to-number].2.
1360	28 23 24 20 2e 20 34 37 30 34 29 5d 29 0a 23 40 35 34 20 56 69 73 69 74 20 61 6e 20 45 52 43 20	(#$...4704)]).#@54.Visit.an.ERC.
1380	62 75 66 66 65 72 20 62 61 73 65 64 20 6f 6e 20 63 72 69 74 65 72 69 61 20 66 6f 75 6e 64 20 69	buffer.based.on.criteria.found.i
13a0	6e 20 4c 49 4e 4b 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 69 72 63 2d 76 69 73 69	n.LINK...(defalias.'org-irc-visi
13c0	74 2d 65 72 63 20 23 5b 28 6c 69 6e 6b 29 20 22 5c 33 30 36 5c 33 30 37 21 5c 32 31 30 5c 33 30	t-erc.#[(link)."\306\307!\210\30
13e0	36 5c 33 31 30 21 5c 32 31 30 08 40 40 19 5c 33 31 31 08 5c 32 31 31 41 10 40 5c 32 31 31 1a 41	6\310!\210.@@.\311.\211A.@\211.A
1400	40 29 21 5c 32 30 36 1c 00 0b 1c 5c 33 31 32 1d 5c 33 31 33 5c 33 31 34 21 5c 32 31 31 1e 18 5c	@)!\206....\312.\313\314!\211..\
1420	32 30 33 7d 00 08 5c 32 31 31 41 10 40 5c 32 31 31 1e 19 5c 32 30 33 76 00 5c 33 31 35 5c 33 31	203}..\211A.@\211..\203v.\315\31
1440	36 5c 32 31 35 5c 32 31 31 1e 1a 5c 32 30 33 6a 00 5c 33 31 37 0e 1a 21 5c 32 31 30 08 5c 32 31	6\215\211..\203j.\317..!\210.\21
1460	31 41 10 40 5c 32 31 31 1e 1b 5c 32 30 35 66 00 0e 1b 5c 33 32 30 20 5c 32 33 35 5c 32 30 33 5f	1A.@\211..\205f...\320.\235\203_
1480	00 64 62 5c 32 31 30 0e 1b 5c 33 32 31 50 63 5c 32 30 32 66 00 5c 33 32 32 5c 33 32 33 0e 1b 0e	.db\210..\321Pc\202f.\322\323...
14a0	19 23 29 5c 32 30 32 72 00 5c 33 31 37 0d 21 5c 32 31 30 5c 33 32 34 0e 19 21 29 5c 32 30 32 79	.#)\202r.\317.!\210\324..!)\202y
14c0	00 5c 33 31 37 0d 21 29 5c 32 30 32 5c 32 30 33 00 5c 33 32 35 5c 33 32 36 09 5c 33 32 37 5c 66	.\317.!)\202\203.\325\326.\327\f
14e0	24 2c 5c 32 30 37 22 20 5b 6c 69 6e 6b 20 73 65 72 76 65 72 20 78 20 65 72 63 2d 64 65 66 61 75	$,\207".[link.server.x.erc-defau
1500	6c 74 2d 70 6f 72 74 20 70 6f 72 74 20 73 65 72 76 65 72 2d 62 75 66 66 65 72 20 72 65 71 75 69	lt-port.port.server-buffer.requi
1520	72 65 20 65 72 63 20 65 72 63 2d 6c 6f 67 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20	re.erc.erc-log.string-to-number.
1540	6e 69 6c 20 65 72 63 2d 62 75 66 66 65 72 2d 66 69 6c 74 65 72 20 23 5b 6e 69 6c 20 22 5c 33 30	nil.erc-buffer-filter.#[nil."\30
1560	35 20 5c 32 31 31 18 5c 32 30 35 1c 00 72 08 71 5c 32 31 30 5c 33 30 36 20 09 3d 5c 32 30 35 1b	5.\211.\205..r.q\210\306..=\205.
1580	00 5c 6e 0b 5c 32 33 30 5c 32 30 35 1b 00 08 5c 32 31 31 14 29 29 5c 32 30 37 22 20 5b 74 6d 70	.\n.\230\205...\211.))\207".[tmp
15a0	2d 73 65 72 76 65 72 2d 62 75 66 20 70 6f 72 74 20 65 72 63 2d 73 65 73 73 69 6f 6e 2d 73 65 72	-server-buf.port.erc-session-ser
15c0	76 65 72 20 73 65 72 76 65 72 20 73 65 72 76 65 72 2d 62 75 66 66 65 72 20 65 72 63 2d 73 65 72	ver.server.server-buffer.erc-ser
15e0	76 65 72 2d 62 75 66 66 65 72 20 6f 72 67 2d 69 72 63 2d 67 65 74 2d 63 75 72 72 65 6e 74 2d 65	ver-buffer.org-irc-get-current-e
1600	72 63 2d 70 6f 72 74 5d 20 33 5d 20 66 6f 75 6e 64 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c	rc-port].3].found.(byte-code.".\
1620	33 30 34 19 5c 32 31 31 1a 5c 32 30 33 1f 00 5c 6e 40 11 5c 33 30 35 09 21 0b 5c 32 33 30 5c 32	304.\211.\203..\n@.\305.!.\230\2
1640	30 33 18 00 5c 33 30 36 5c 33 30 37 09 5c 22 5c 32 31 30 5c 6e 41 5c 32 31 31 12 5c 32 30 34 08	03..\306\307.\"\210\nA\211.\204.
1660	00 2a 5c 33 30 34 5c 32 30 37 22 20 5b 62 75 66 66 65 72 2d 6c 69 73 74 20 78 20 23 31 3d 23 3a	.*\304\207".[buffer-list.x.#1=#:
1680	2d 2d 63 6c 2d 64 6f 6c 69 73 74 2d 74 65 6d 70 2d 2d 20 63 68 61 6e 2d 6e 61 6d 65 20 6e 69 6c	--cl-dolist-temp--.chan-name.nil
16a0	20 62 75 66 66 65 72 2d 6e 61 6d 65 20 74 68 72 6f 77 20 66 6f 75 6e 64 5d 20 34 29 20 73 77 69	.buffer-name.throw.found].4).swi
16c0	74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 65 72 63 2d 67 65 74 2d 73 65 72 76 65 72 2d 6e 69 63	tch-to-buffer.erc-get-server-nic
16e0	6b 6e 61 6d 65 2d 6c 69 73 74 20 22 3a 20 22 20 65 72 72 6f 72 20 22 25 73 20 6e 6f 74 20 66 6f	kname-list.":.".error."%s.not.fo
1700	75 6e 64 20 69 6e 20 25 73 22 20 65 72 63 2d 63 6d 64 2d 4a 4f 49 4e 20 65 72 63 2d 73 65 6c 65	und.in.%s".erc-cmd-JOIN.erc-sele
1720	63 74 20 3a 73 65 72 76 65 72 20 3a 70 6f 72 74 20 62 75 66 66 65 72 2d 6c 69 73 74 20 63 68 61	ct.:server.:port.buffer-list.cha
1740	6e 2d 6e 61 6d 65 20 63 68 61 6e 2d 62 75 66 20 6e 69 63 6b 5d 20 36 20 28 23 24 20 2e 20 34 39	n-name.chan-buf.nick].6.(#$...49
1760	37 39 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 69 72 63 29 0a	79)]).(provide.'org-irc).