blob: 66f9d80bb99302d0a6a8ba72a2e997a94fd43e26 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 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 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30	301!\210\300\302!\210\303\304\30
0080	35 5c 33 30 36 5c 33 30 37 44 44 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 26	5\306\307DD\310\311\312\313\314&
00a0	07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d 6c 69 62 20 63 6f 6c 6f 72 20 63 75 73	.\207".[require.cl-lib.color.cus
00c0	74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 63 6f 6c 69 72 2d 63 6f 6d 70 6f	tom-declare-variable.colir-compo
00e0	73 65 2d 6d 65 74 68 6f 64 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22	se-method.funcall.function.#[0."
0100	5c 33 30 30 5c 32 30 37 22 20 5b 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 61 6c 70 68 61 5d 20	\300\207".[colir-compose-alpha].
0120	31 20 22 22 5d 20 22 53 65 6c 65 63 74 20 61 20 6d 65 74 68 6f 64 20 74 6f 20 63 6f 6d 70 6f 73	1.""]."Select.a.method.to.compos
0140	65 20 74 77 6f 20 63 6f 6c 6f 72 20 63 68 61 6e 6e 65 6c 73 2e 22 20 3a 67 72 6f 75 70 20 69 76	e.two.color.channels.".:group.iv
0160	79 20 3a 74 79 70 65 20 28 72 61 64 69 6f 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 63 6f	y.:type.(radio.(function-item.co
0180	6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 61 6c 70 68 61 29 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65	lir-compose-alpha).(function-ite
01a0	6d 20 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 6f 76 65 72 6c 61 79 29 20 28 66 75 6e 63 74 69	m.colir-compose-overlay).(functi
01c0	6f 6e 2d 69 74 65 6d 20 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 73 6f 66 74 2d 6c 69 67 68 74	on-item.colir-compose-soft-light
01e0	29 29 5d 20 38 29 0a 23 40 33 37 20 43 6f 6d 70 6f 73 65 20 41 20 61 6e 64 20 42 20 63 68 61 6e	))].8).#@37.Compose.A.and.B.chan
0200	6e 65 6c 73 2e 0a 0a 28 66 6e 20 41 20 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6c 69	nels...(fn.A.B)..(defalias.'coli
0220	72 2d 63 6f 6d 70 6f 73 65 2d 73 6f 66 74 2d 6c 69 67 68 74 20 23 5b 35 31 34 20 22 5c 32 31 31	r-compose-soft-light.#[514."\211
0240	5c 33 30 30 57 5c 32 30 33 16 00 5c 33 30 31 02 5f 01 5f 02 5c 32 31 31 5f 5c 33 30 32 03 5a 03	\300W\203..\301._._.\211_\302.Z.
0260	5a 5f 5c 5c 5c 32 30 37 5c 33 30 31 02 5f 5c 33 30 32 02 5a 5f 5c 33 30 33 03 21 5c 33 30 31 03	Z_\\\207\301._\302.Z_\303.!\301.
0280	5f 53 5f 5c 5c 5c 32 30 37 22 20 5b 30 2e 35 20 32 20 31 20 73 71 72 74 5d 20 36 20 28 23 24 20	_S_\\\207".[0.5.2.1.sqrt].6.(#$.
02a0	2e 20 34 39 32 29 5d 29 0a 23 40 33 37 20 43 6f 6d 70 6f 73 65 20 41 20 61 6e 64 20 42 20 63 68	..492)]).#@37.Compose.A.and.B.ch
02c0	61 6e 6e 65 6c 73 2e 0a 0a 28 66 6e 20 41 20 42 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f	annels...(fn.A.B)..(defalias.'co
02e0	6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 6f 76 65 72 6c 61 79 20 23 5b 35 31 34 20 22 01 5c 33 30 30	lir-compose-overlay.#[514.".\300
0300	57 5c 32 30 33 5c 66 00 5c 33 30 31 02 5f 01 5f 5c 32 30 37 5c 33 30 32 5c 33 30 31 5c 33 30 32	W\203\f.\301._._\207\302\301\302
0320	04 5a 5f 5c 33 30 32 03 5a 5f 5a 5c 32 30 37 22 20 5b 30 2e 35 20 32 20 31 5d 20 36 20 28 23 24	.Z_\302.Z_Z\207".[0.5.2.1].6.(#$
0340	20 2e 20 36 38 36 29 5d 29 0a 23 40 32 37 30 20 43 6f 6d 70 6f 73 65 20 41 20 61 6e 64 20 42 20	...686)]).#@270.Compose.A.and.B.
0360	63 68 61 6e 6e 65 6c 73 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 41 4c 50 48	channels..Optional.argument.ALPH
0380	41 20 69 73 20 61 20 6e 75 6d 62 65 72 20 62 65 74 77 65 65 6e 20 30 2e 30 20 61 6e 64 20 31 2e	A.is.a.number.between.0.0.and.1.
03a0	30 20 77 68 69 63 68 20 63 6f 72 72 65 73 70 6f 6e 64 73 0a 74 6f 20 74 68 65 20 69 6e 66 6c 75	0.which.corresponds.to.the.influ
03c0	65 6e 63 65 20 6f 66 20 41 20 6f 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 20 20 44 65 66 61 75 6c	ence.of.A.on.the.result...Defaul
03e0	74 20 76 61 6c 75 65 20 69 73 20 30 2e 35 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e	t.value.is.0.5..Optional.argumen
0400	74 20 47 41 4d 4d 41 20 69 73 20 75 73 65 64 20 66 6f 72 20 67 61 6d 6d 61 20 63 6f 72 72 65 63	t.GAMMA.is.used.for.gamma.correc
0420	74 69 6f 6e 2e 20 20 44 65 66 61 75 6c 74 20 76 61 6c 75 65 20 69 73 20 32 2e 32 2e 0a 0a 28 66	tion...Default.value.is.2.2...(f
0440	6e 20 41 20 42 20 26 6f 70 74 69 6f 6e 61 6c 20 41 4c 50 48 41 20 47 41 4d 4d 41 29 1f 0a 28 64	n.A.B.&optional.ALPHA.GAMMA)..(d
0460	65 66 61 6c 69 61 73 20 27 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 61 6c 70 68 61 20 23 5b 31	efalias.'colir-compose-alpha.#[1
0480	30 32 36 20 22 01 5c 32 30 36 05 00 5c 33 30 30 5c 32 36 32 02 5c 32 31 31 5c 32 30 36 5c 66 00	026.".\206..\300\262.\211\206\f.
04a0	5c 33 30 31 5c 32 36 32 01 5c 33 30 32 04 02 5c 22 02 5f 5c 33 30 32 04 03 5c 22 5c 33 30 33 04	\301\262.\302..\"._\302..\"\303.
04c0	5a 5f 5c 5c 5c 32 30 37 22 20 5b 30 2e 35 20 32 2e 32 20 65 78 70 74 20 31 5d 20 38 20 28 23 24	Z_\\\207".[0.5.2.2.expt.1].8.(#$
04e0	20 2e 20 38 34 38 29 5d 29 0a 23 40 31 32 36 20 42 6c 65 6e 64 20 74 68 65 20 74 77 6f 20 63 6f	...848)]).#@126.Blend.the.two.co
0500	6c 6f 72 73 20 43 31 20 61 6e 64 20 43 32 20 75 73 69 6e 67 20 60 63 6f 6c 69 72 2d 63 6f 6d 70	lors.C1.and.C2.using.`colir-comp
0520	6f 73 65 2d 6d 65 74 68 6f 64 27 2e 0a 43 31 20 61 6e 64 20 43 32 20 61 72 65 20 74 72 69 70 6c	ose-method'..C1.and.C2.are.tripl
0540	65 73 20 6f 66 20 66 6c 6f 61 74 73 20 69 6e 20 5b 30 2e 30 20 31 2e 30 5d 20 72 61 6e 67 65 2e	es.of.floats.in.[0.0.1.0].range.
0560	0a 0a 28 66 6e 20 43 31 20 43 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 6c 69 72 2d 62	..(fn.C1.C2)..(defalias.'colir-b
0580	6c 65 6e 64 20 23 5b 35 31 34 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	lend.#[514."\301\302\303\304\305
05a0	5c 33 30 36 5c 22 5c 33 30 37 3d 5c 32 30 33 10 00 5c 33 31 30 5c 32 30 32 11 00 08 05 05 23 5c	\306\"\307=\203..\310\202.....#\
05c0	22 5c 32 30 37 22 20 5b 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 6d 65 74 68 6f 64 20 61 70 70	"\207".[colir-compose-method.app
05e0	6c 79 20 63 6f 6c 6f 72 2d 72 67 62 2d 74 6f 2d 68 65 78 20 63 6c 2d 6d 61 70 63 61 72 20 66 72	ly.color-rgb-to-hex.cl-mapcar.fr
0600	61 6d 65 2d 70 61 72 61 6d 65 74 65 72 20 6e 69 6c 20 62 61 63 6b 67 72 6f 75 6e 64 2d 6d 6f 64	ame-parameter.nil.background-mod
0620	65 20 64 61 72 6b 20 63 6f 6c 69 72 2d 63 6f 6d 70 6f 73 65 2d 73 6f 66 74 2d 6c 69 67 68 74 5d	e.dark.colir-compose-soft-light]
0640	20 38 20 28 23 24 20 2e 20 31 32 36 34 29 5d 29 0a 23 40 36 38 20 43 6f 6e 76 65 72 74 20 73 74	.8.(#$...1264)]).#@68.Convert.st
0660	72 69 6e 67 20 43 4f 4c 4f 52 20 74 6f 20 74 72 69 70 6c 65 20 6f 66 20 66 6c 6f 61 74 73 20 69	ring.COLOR.to.triple.of.floats.i
0680	6e 20 5b 30 2e 30 20 31 2e 30 5d 2e 0a 0a 28 66 6e 20 43 4f 4c 4f 52 29 1f 0a 28 64 65 66 61 6c	n.[0.0.1.0]...(fn.COLOR)..(defal
06a0	69 61 73 20 27 63 6f 6c 69 72 2d 63 6f 6c 6f 72 2d 70 61 72 73 65 20 23 5b 32 35 37 20 22 5c 33	ias.'colir-color-parse.#[257."\3
06c0	30 30 5c 33 30 31 02 5c 22 5c 32 30 33 19 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 04	00\301.\"\203..\302\303\304\305.
06e0	5c 22 5c 33 30 34 5c 33 30 36 05 5c 22 5c 33 30 34 5c 33 30 37 06 06 5c 22 45 5c 22 5c 32 30 37	\"\304\306.\"\304\307..\"E\"\207
0700	5c 33 31 30 01 21 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 23 5c 5c 28 5b	\310.!\207".[string-match."#\\([
0720	5b 3a 78 64 69 67 69 74 3a 5d 5d 5c 5c 7b 32 5c 5c 7d 5c 5c 29 5c 5c 28 5b 5b 3a 78 64 69 67 69	[:xdigit:]]\\{2\\}\\)\\([[:xdigi
0740	74 3a 5d 5d 5c 5c 7b 32 5c 5c 7d 5c 5c 29 5c 5c 28 5b 5b 3a 78 64 69 67 69 74 3a 5d 5d 5c 5c 7b	t:]]\\{2\\}\\)\\([[:xdigit:]]\\{
0760	32 5c 5c 7d 5c 5c 29 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31	2\\}\\)".mapcar.#[257."\300.\301
0780	5c 22 5c 33 30 32 5c 32 34 35 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65	\"\302\245\207".[string-to-numbe
07a0	72 20 31 36 20 32 35 35 2e 30 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 56 29 22 5d 20 6d 61 74 63	r.16.255.0].4."\n\n(fn.V)"].matc
07c0	68 2d 73 74 72 69 6e 67 20 31 20 32 20 33 20 63 6f 6c 6f 72 2d 6e 61 6d 65 2d 74 6f 2d 72 67 62	h-string.1.2.3.color-name-to-rgb
07e0	5d 20 38 20 28 23 24 20 2e 20 31 36 32 32 29 5d 29 0a 23 40 33 37 20 0a 0a 28 66 6e 20 53 54 41	].8.(#$...1622)]).#@37...(fn.STA
0800	52 54 20 4e 45 58 54 20 50 52 45 56 4e 20 46 41 43 45 20 4f 42 4a 45 43 54 29 1f 0a 28 64 65 66	RT.NEXT.PREVN.FACE.OBJECT)..(def
0820	61 6c 69 61 73 20 27 63 6f 6c 69 72 2d 2d 62 6c 65 6e 64 2d 62 61 63 6b 67 72 6f 75 6e 64 20 23	alias.'colir--blend-background.#
0840	5b 31 32 38 35 20 22 5c 33 30 30 03 21 5c 33 30 31 06 06 06 06 5c 33 30 32 04 5c 32 30 33 23 00	[1285."\300.!\301....\302.\203#.
0860	5c 33 30 33 5c 33 30 34 5c 33 30 35 06 07 21 5c 33 30 35 5c 33 30 30 06 0b 5c 33 30 36 5c 33 30	\303\304\305..!\305\300..\306\30
0880	37 23 21 5c 22 42 06 08 42 5c 32 30 32 28 00 06 06 06 08 44 06 06 25 5c 32 30 37 22 20 5b 66 61	7#!\"B..B\202(.....D..%\207".[fa
08a0	63 65 2d 62 61 63 6b 67 72 6f 75 6e 64 20 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20	ce-background.put-text-property.
08c0	66 61 63 65 20 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 20 63 6f 6c 69 72 2d 62 6c 65 6e	face.background-color.colir-blen
08e0	64 20 63 6f 6c 69 72 2d 63 6f 6c 6f 72 2d 70 61 72 73 65 20 6e 69 6c 20 74 5d 20 31 38 20 28 23	d.colir-color-parse.nil.t].18.(#
0900	24 20 2e 20 32 30 33 39 29 5d 29 0a 23 40 33 32 35 20 41 70 70 65 6e 64 20 74 6f 20 74 68 65 20	$...2039)]).#@325.Append.to.the.
0920	66 61 63 65 20 70 72 6f 70 65 72 74 79 20 6f 66 20 74 68 65 20 74 65 78 74 20 66 72 6f 6d 20 53	face.property.of.the.text.from.S
0940	54 41 52 54 20 74 6f 20 45 4e 44 20 74 68 65 20 66 61 63 65 20 46 41 43 45 2e 0a 57 68 65 6e 20	TART.to.END.the.face.FACE..When.
0960	74 68 65 20 74 65 78 74 20 61 6c 72 65 61 64 79 20 68 61 73 20 61 20 66 61 63 65 20 77 69 74 68	the.text.already.has.a.face.with
0980	20 61 20 6e 6f 6e 2d 70 6c 61 69 6e 20 62 61 63 6b 67 72 6f 75 6e 64 2c 0a 62 6c 65 6e 64 20 69	.a.non-plain.background,.blend.i
09a0	74 20 77 69 74 68 20 74 68 65 20 62 61 63 6b 67 72 6f 75 6e 64 20 6f 66 20 46 41 43 45 2e 0a 4f	t.with.the.background.of.FACE..O
09c0	70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 4f 42 4a 45 43 54 20 69 73 20 74 68 65 20 73	ptional.argument.OBJECT.is.the.s
09e0	74 72 69 6e 67 20 6f 72 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 74	tring.or.buffer.containing.the.t
0a00	65 78 74 2e 0a 53 65 65 20 61 6c 73 6f 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 70 70 65 6e 64 2d	ext..See.also.`font-lock-append-
0a20	74 65 78 74 2d 70 72 6f 70 65 72 74 79 27 2e 0a 0a 28 66 6e 20 53 54 41 52 54 20 45 4e 44 20 46	text-property'...(fn.START.END.F
0a40	41 43 45 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 42 4a 45 43 54 29 1f 0a 28 64 65 66 61 6c 69 61 73	ACE.&optional.OBJECT)..(defalias
0a60	20 27 63 6f 6c 69 72 2d 62 6c 65 6e 64 2d 66 61 63 65 2d 62 61 63 6b 67 72 6f 75 6e 64 20 23 5b	.'colir-blend-face-background.#[
0a80	31 30 32 37 20 22 5c 33 30 30 5c 32 31 31 5c 32 31 31 06 06 06 06 55 3f 5c 32 30 35 72 00 5c 33	1027."\300\211\211....U?\205r.\3
0aa0	30 31 06 07 5c 33 30 32 06 06 06 09 24 5c 32 36 32 03 5c 33 30 33 06 07 5c 33 30 32 06 06 23 5c	01..\302....$\262.\303..\302..#\
0ac0	32 36 32 02 01 3c 5c 32 30 33 2c 00 5c 33 30 34 5c 33 30 35 03 5c 22 5c 32 30 32 2d 00 01 5c 32	262..<\203,.\304\305.\"\202-..\2
0ae0	36 32 01 5c 33 30 36 02 5c 32 34 32 21 5c 32 30 34 3c 00 01 5c 32 34 32 3a 5c 32 30 33 4d 00 5c	62.\306.\242!\204<..\242:\203M.\
0b00	33 30 37 06 07 04 5c 33 30 32 06 08 06 06 42 06 08 25 5c 32 31 30 5c 32 30 32 6c 00 5c 33 31 30	307...\302....B..%\210\202l.\310
0b20	01 21 5c 32 30 33 61 00 5c 33 31 31 06 07 04 03 06 08 06 08 25 5c 32 31 30 5c 32 30 32 6c 00 5c	.!\203a.\311........%\210\202l.\
0b40	33 30 37 06 07 04 5c 33 30 32 06 08 06 08 25 5c 32 31 30 02 5c 32 36 32 07 5c 32 30 32 03 00 5c	307...\302....%\210.\262.\202..\
0b60	32 30 37 22 20 5b 6e 69 6c 20 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63	207".[nil.next-single-property-c
0b80	68 61 6e 67 65 20 66 61 63 65 20 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 63 6c 2d	hange.face.get-text-property.cl-
0ba0	66 69 6e 64 2d 69 66 20 61 74 6f 6d 20 6b 65 79 77 6f 72 64 70 20 70 75 74 2d 74 65 78 74 2d 70	find-if.atom.keywordp.put-text-p
0bc0	72 6f 70 65 72 74 79 20 66 61 63 65 70 20 63 6f 6c 69 72 2d 2d 62 6c 65 6e 64 2d 62 61 63 6b 67	roperty.facep.colir--blend-backg
0be0	72 6f 75 6e 64 5d 20 31 33 20 28 23 24 20 2e 20 32 33 32 32 29 5d 29 0a 28 70 72 6f 76 69 64 65	round].13.(#$...2322)]).(provide
0c00	20 27 63 6f 6c 69 72 29 0a	.'colir).