blob: bbef287ff9114a5b431390eccd90c96c95da8eeb (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 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30	"\300\301\302\303\304\305\306\30
01c0	37 26 07 5c 32 31 30 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c	7&.\210\310\311\312\313\314\315\
01e0	33 30 36 5c 33 30 31 26 07 5c 32 31 30 5c 33 31 30 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 31	306\301&.\210\310\316\317\320\31
0200	34 5c 33 32 31 5c 33 30 36 5c 33 30 31 26 07 5c 32 30 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63	4\321\306\301&.\207".[custom-dec
0220	6c 61 72 65 2d 67 72 6f 75 70 20 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 20 6e 69 6c 20 22 54 68	lare-group.lui-autopaste.nil."Th
0240	65 20 4c 75 69 20 61 75 74 6f 70 61 73 74 65 20 65 78 74 65 6e 73 69 6f 6e 2e 22 20 3a 70 72 65	e.Lui.autopaste.extension.".:pre
0260	66 69 78 20 22 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 22 20 3a 67 72 6f 75 70 20 6c 75 69 20	fix."lui-autopaste-".:group.lui.
0280	63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 6c 75 69 2d 61 75 74 6f	custom-declare-variable.lui-auto
02a0	70 61 73 74 65 2d 6c 69 6e 65 73 20 33 20 22 53 74 61 72 74 69 6e 67 20 61 74 20 74 68 69 73 20	paste-lines.3."Starting.at.this.
02c0	6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 2c 20 4c 75 69 20 77 69 6c 6c 20 61 73 6b 20 74 6f	number.of.lines,.Lui.will.ask.to
02e0	20 70 61 73 74 65 20 74 68 65 20 69 6e 70 75 74 2e 22 20 3a 74 79 70 65 20 69 6e 74 65 67 65 72	.paste.the.input.".:type.integer
0300	20 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 20 27 6c 75 69 2d 61 75 74	.lui-autopaste-function.'lui-aut
0320	6f 70 61 73 74 65 2d 73 65 72 76 69 63 65 2d 69 78 69 6f 20 22 57 68 69 63 68 20 70 61 73 74 65	opaste-service-ixio."Which.paste
0340	20 73 65 72 76 69 63 65 20 74 6f 20 75 73 65 2e 5c 6e 5c 6e 54 68 69 73 20 66 75 6e 63 74 69 6f	.service.to.use.\n\nThis.functio
0360	6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 73 6f 6d 65 20 74 65 78 74 20	n.will.be.called.with.some.text.
0380	61 73 20 69 74 73 20 6f 6e 6c 79 20 61 72 67 75 6d 65 6e 74 2c 5c 6e 61 6e 64 20 69 73 20 65 78	as.its.only.argument,\nand.is.ex
03a0	70 65 63 74 65 64 20 74 6f 20 72 65 74 75 72 6e 20 61 6e 20 55 52 4c 20 74 6f 20 76 69 65 77 20	pected.to.return.an.URL.to.view.
03c0	74 68 65 20 63 6f 6e 74 65 6e 74 73 2e 22 20 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74	the.contents.".(choice.(const.:t
03e0	61 67 20 22 69 78 2e 69 6f 22 20 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 73 65 72 76 69 63 65	ag."ix.io".lui-autopaste-service
0400	2d 69 78 69 6f 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 70 74 70 62 2e 70 77 22 20 6c 75 69	-ixio).(const.:tag."ptpb.pw".lui
0420	2d 61 75 74 6f 70 61 73 74 65 2d 73 65 72 76 69 63 65 2d 70 74 70 62 2d 70 77 29 29 5d 20 38 29	-autopaste-service-ptpb-pw))].8)
0440	0a 23 40 32 36 32 20 45 6e 61 62 6c 65 20 74 68 65 20 6c 75 69 20 61 75 74 6f 70 61 73 74 65 20	.#@262.Enable.the.lui.autopaste.
0460	66 65 61 74 75 72 65 2e 0a 0a 49 66 20 79 6f 75 20 65 6e 74 65 72 20 6d 6f 72 65 20 74 68 61 6e	feature...If.you.enter.more.than
0480	20 60 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 6c 69 6e 65 73 27 20 61 74 20 6f 6e 63 65 2c 20	.`lui-autopaste-lines'.at.once,.
04a0	4c 75 69 20 77 69 6c 6c 0a 61 73 6b 20 69 66 20 79 6f 75 20 77 6f 75 6c 64 20 70 72 65 66 65 72	Lui.will.ask.if.you.would.prefer
04c0	20 74 6f 20 75 73 65 20 61 20 70 61 73 74 65 20 73 65 72 76 69 63 65 20 69 6e 73 74 65 61 64 2e	.to.use.a.paste.service.instead.
04e0	20 49 66 20 79 6f 75 0a 61 67 72 65 65 2c 20 4c 75 69 20 77 69 6c 6c 20 70 61 73 74 65 20 79 6f	.If.you.agree,.Lui.will.paste.yo
0500	75 72 20 69 6e 70 75 74 20 74 6f 20 60 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 66 75 6e 63 74	ur.input.to.`lui-autopaste-funct
0520	69 6f 6e 27 20 61 6e 64 0a 72 65 70 6c 61 63 65 20 69 74 20 77 69 74 68 20 74 68 65 20 72 65 73	ion'.and.replace.it.with.the.res
0540	75 6c 74 69 6e 67 20 55 52 4c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 61 62 6c 65 2d 6c	ulting.URL...(defalias.'enable-l
0560	75 69 2d 61 75 74 6f 70 61 73 74 65 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	ui-autopaste.#[nil."\300\301\302
0580	5c 22 5c 32 30 37 22 20 5b 61 64 64 2d 68 6f 6f 6b 20 6c 75 69 2d 70 72 65 2d 69 6e 70 75 74 2d	\"\207".[add-hook.lui-pre-input-
05a0	68 6f 6f 6b 20 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 5d 20 33 20 28 23 24 20 2e 20 31 30 39 35	hook.lui-autopaste].3.(#$...1095
05c0	29 20 6e 69 6c 5d 29 0a 23 40 33 36 20 44 69 73 61 62 6c 65 20 74 68 65 20 6c 75 69 20 61 75 74	).nil]).#@36.Disable.the.lui.aut
05e0	6f 70 61 73 74 65 20 66 65 61 74 75 72 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 69 73 61	opaste.feature...(defalias.'disa
0600	62 6c 65 2d 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30	ble-lui-autopaste.#[nil."\300\30
0620	31 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 6c 75 69 2d 70 72	1\302\"\207".[remove-hook.lui-pr
0640	65 2d 69 6e 70 75 74 2d 68 6f 6f 6b 20 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 5d 20 33 20 28 23	e-input-hook.lui-autopaste].3.(#
0660	24 20 2e 20 31 34 38 35 29 20 6e 69 6c 5d 29 0a 23 40 36 33 20 43 68 65 63 6b 20 69 66 20 74 68	$...1485).nil]).#@63.Check.if.th
0680	65 20 6c 75 69 20 69 6e 70 75 74 20 69 73 20 74 6f 6f 20 6c 61 72 67 65 2e 20 49 66 20 73 6f 2c	e.lui.input.is.too.large..If.so,
06a0	20 70 61 73 74 65 20 69 74 20 69 6e 73 74 65 61 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6c	.paste.it.instead...(defalias.'l
06c0	75 69 2d 61 75 74 6f 70 61 73 74 65 20 23 5b 6e 69 6c 20 22 5c 33 30 33 65 64 5c 22 08 59 5c 32	ui-autopaste.#[nil."\303ed\".Y\2
06e0	30 35 1c 00 5c 33 30 34 5c 33 30 35 21 5c 32 30 35 1c 00 09 65 64 7b 21 1a 65 64 7c 5c 32 31 30	05..\304\305!\205...ed{!.ed|\210
0700	5c 6e 63 29 5c 32 30 37 22 20 5b 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 6c 69 6e 65 73 20 6c	\nc)\207".[lui-autopaste-lines.l
0720	75 69 2d 61 75 74 6f 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 20 75 72 6c 20 63 6f 75 6e 74 2d	ui-autopaste-function.url.count-
0740	6c 69 6e 65 73 20 79 2d 6f 72 2d 6e 2d 70 20 22 54 68 61 74 27 73 20 70 72 65 74 74 79 20 6c 6f	lines.y-or-n-p."That's.pretty.lo
0760	6e 67 2c 20 77 6f 75 6c 64 20 79 6f 75 20 6c 69 6b 65 20 74 6f 20 75 73 65 20 61 20 70 61 73 74	ng,.would.you.like.to.use.a.past
0780	65 20 73 65 72 76 69 63 65 20 69 6e 73 74 65 61 64 3f 20 22 5d 20 33 20 28 23 24 20 2e 20 31 36	e.service.instead?."].3.(#$...16
07a0	35 33 29 5d 29 0a 23 40 34 39 20 50 61 73 74 65 20 54 45 58 54 20 74 6f 20 70 74 70 62 2e 70 77	53)]).#@49.Paste.TEXT.to.ptpb.pw
07c0	20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 70 61 73 74 65 20 75 72 6c 2e 1f 0a 28 64 65 66	.and.return.the.paste.url...(def
07e0	61 6c 69 61 73 20 27 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 73 65 72 76 69 63 65 2d 70 74 70	alias.'lui-autopaste-service-ptp
0800	62 2d 70 77 20 23 5b 28 74 65 78 74 29 20 22 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c	b-pw.#[(text)."\306\307\310\311\
0820	33 31 32 08 21 5c 22 5c 33 31 33 19 1a 1b 1c 5c 33 31 34 5c 33 31 35 21 1d 5c 33 31 36 5c 32 31	312.!\"\313....\314\315!.\316\21
0840	36 72 0d 71 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 37 5c 33 32 30 5c 33 31 33 5c 33 32 31 23 5c	6r.q\210eb\210\317\320\313\321#\
0860	32 30 33 28 00 5c 33 32 32 5c 33 32 33 21 5c 32 30 32 2b 00 5c 33 32 34 5c 33 32 35 21 2e 07 5c	203(.\322\323!\202+.\324\325!..\
0880	32 30 37 22 20 5b 74 65 78 74 20 75 72 6c 2d 68 74 74 70 2d 61 74 74 65 6d 70 74 2d 6b 65 65 70	207".[text.url-http-attempt-keep
08a0	61 6c 69 76 65 73 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 64 61 74 61 20 75 72 6c 2d 72 65 71 75	alives.url-request-data.url-requ
08c0	65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 6d 65	est-extra-headers.url-request-me
08e0	74 68 6f 64 20 62 75 66 20 22 50 4f 53 54 22 20 28 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 22	thod.buf."POST".(("Content-Type"
0900	20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e	..."application/x-www-form-urlen
0920	63 6f 64 65 64 22 29 29 20 66 6f 72 6d 61 74 20 22 63 3d 25 73 22 20 75 72 6c 2d 68 65 78 69 66	coded")).format."c=%s".url-hexif
0940	79 2d 73 74 72 69 6e 67 20 6e 69 6c 20 75 72 6c 2d 72 65 74 72 69 65 76 65 2d 73 79 6e 63 68 72	y-string.nil.url-retrieve-synchr
0960	6f 6e 6f 75 73 6c 79 20 22 68 74 74 70 73 3a 2f 2f 70 74 70 62 2e 70 77 2f 22 20 23 5b 6e 69 6c	onously."https://ptpb.pw/".#[nil
0980	20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 62 75 66 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20	."\301.!\207".[buf.kill-buffer].
09a0	32 5d 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 75 72 6c 3a 20 5c 5c 28 2e	2].re-search-forward."^url:.\\(.
09c0	2a 5c 5c 29 22 20 74 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 65 72 72 6f 72 20 22 45 72	*\\)".t.match-string.1.error."Er
09e0	72 6f 72 20 64 75 72 69 6e 67 20 70 61 73 74 69 6e 67 20 74 6f 20 70 74 70 62 2e 70 77 22 5d 20	ror.during.pasting.to.ptpb.pw"].
0a00	36 20 28 23 24 20 2e 20 31 39 36 33 29 5d 29 0a 23 40 34 37 20 50 61 73 74 65 20 54 45 58 54 20	6.(#$...1963)]).#@47.Paste.TEXT.
0a20	74 6f 20 69 78 2e 69 6f 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 70 61 73 74 65 20 75 72	to.ix.io.and.return.the.paste.ur
0a40	6c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 2d 73 65 72	l...(defalias.'lui-autopaste-ser
0a60	76 69 63 65 2d 69 78 69 6f 20 23 5b 28 74 65 78 74 29 20 22 5c 33 30 36 5c 33 30 37 5c 33 31 30	vice-ixio.#[(text)."\306\307\310
0a80	5c 33 31 31 5c 33 31 32 08 21 5c 22 5c 33 31 33 19 1a 1b 1c 5c 33 31 34 5c 33 31 35 21 1d 5c 33	\311\312.!\"\313....\314\315!.\3
0aa0	31 36 5c 32 31 36 72 0d 71 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 37 5c 33 32 30 5c 33 31 33 5c	16\216r.q\210eb\210\317\320\313\
0ac0	33 32 31 23 5c 32 30 33 29 00 60 5c 33 32 32 20 7b 5c 32 30 32 2c 00 5c 33 32 33 5c 33 32 34 21	321#\203).`\322.{\202,.\323\324!
0ae0	2e 07 5c 32 30 37 22 20 5b 74 65 78 74 20 75 72 6c 2d 68 74 74 70 2d 61 74 74 65 6d 70 74 2d 6b	..\207".[text.url-http-attempt-k
0b00	65 65 70 61 6c 69 76 65 73 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 64 61 74 61 20 75 72 6c 2d 72	eepalives.url-request-data.url-r
0b20	65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 71 75 65 73 74	equest-extra-headers.url-request
0b40	2d 6d 65 74 68 6f 64 20 62 75 66 20 22 50 4f 53 54 22 20 28 28 22 43 6f 6e 74 65 6e 74 2d 54 79	-method.buf."POST".(("Content-Ty
0b60	70 65 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72	pe"..."application/x-www-form-ur
0b80	6c 65 6e 63 6f 64 65 64 22 29 29 20 66 6f 72 6d 61 74 20 22 66 3a 31 3d 25 73 22 20 75 72 6c 2d	lencoded")).format."f:1=%s".url-
0ba0	68 65 78 69 66 79 2d 73 74 72 69 6e 67 20 6e 69 6c 20 75 72 6c 2d 72 65 74 72 69 65 76 65 2d 73	hexify-string.nil.url-retrieve-s
0bc0	79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 22 68 74 74 70 3a 2f 2f 69 78 2e 69 6f 2f 22 20 23 5b 6e	ynchronously."http://ix.io/".#[n
0be0	69 6c 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 62 75 66 20 6b 69 6c 6c 2d 62 75 66 66 65 72	il."\301.!\207".[buf.kill-buffer
0c00	5d 20 32 5d 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 6e 5c 6e 22 20 74 20	].2].re-search-forward."\n\n".t.
0c20	70 6f 69 6e 74 2d 61 74 2d 65 6f 6c 20 65 72 72 6f 72 20 22 45 72 72 6f 72 20 64 75 72 69 6e 67	point-at-eol.error."Error.during
0c40	20 70 61 73 74 69 6e 67 20 74 6f 20 69 78 2e 69 6f 22 5d 20 36 20 28 23 24 20 2e 20 32 35 38 31	.pasting.to.ix.io"].6.(#$...2581
0c60	29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6c 75 69 2d 61 75 74 6f 70 61 73 74 65 29 0a	)]).(provide.'lui-autopaste).