blob: 12bce2477efd2ba2ded1c54014c519e6f47cbbd9 (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 64 65 66 61 6c 69 61 73 20 27	;;;;;;;;;;;;;;;;;;...(defalias.'
01a0	73 68 6f 72 74 65 6e 2d 6d 61 6b 65 2d 74 72 65 65 2d 72 6f 6f 74 20 23 5b 6e 69 6c 20 22 5c 33	shorten-make-tree-root.#[nil."\3
01c0	30 30 5c 32 31 31 42 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 32 5d 29 0a 28 70 75 74 20 27 73 68 6f	00\211B\207".[nil].2]).(put.'sho
01e0	72 74 65 6e 2d 6d 61 6b 65 2d 74 72 65 65 2d 72 6f 6f 74 20 27 62 79 74 65 2d 6f 70 74 69 6d 69	rten-make-tree-root.'byte-optimi
0200	7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29	zer.'byte-compile-inline-expand)
0220	0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 6d 61 6b 65 2d 65 6e	.(defalias.'shorten-tree-make-en
0240	74 72 79 20 23 5b 28 74 6f 6b 65 6e 20 73 68 6f 72 74 20 66 75 6c 6c 29 20 22 08 09 5c 6e 5c 33	try.#[(token.short.full)."..\n\3
0260	30 33 46 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 20 73 68 6f 72 74 20 66 75 6c 6c 20 6e 69 6c 5d 20	03F\207".[token.short.full.nil].
0280	34 5d 29 0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 6d 61 6b 65 2d 65 6e 74 72	4]).(put.'shorten-tree-make-entr
02a0	79 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d	y.'byte-optimizer.'byte-compile-
02c0	69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65	inline-expand).(defalias.'shorte
02e0	6e 2d 74 72 65 65 2d 74 6f 6b 65 6e 20 23 5b 28 65 6e 74 72 79 29 20 22 08 40 5c 32 30 37 22 20	n-tree-token.#[(entry).".@\207".
0300	5b 65 6e 74 72 79 5d 20 31 5d 29 0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 74	[entry].1]).(put.'shorten-tree-t
0320	6f 6b 65 6e 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69	oken.'byte-optimizer.'byte-compi
0340	6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f	le-inline-expand).(defalias.'sho
0360	72 74 65 6e 2d 74 72 65 65 2d 66 75 6c 6c 6e 61 6d 65 20 23 5b 28 65 6e 74 72 79 29 20 22 5c 33	rten-tree-fullname.#[(entry)."\3
0380	30 31 08 38 5c 32 30 37 22 20 5b 65 6e 74 72 79 20 32 5d 20 32 5d 29 0a 28 70 75 74 20 27 73 68	01.8\207".[entry.2].2]).(put.'sh
03a0	6f 72 74 65 6e 2d 74 72 65 65 2d 66 75 6c 6c 6e 61 6d 65 20 27 62 79 74 65 2d 6f 70 74 69 6d 69	orten-tree-fullname.'byte-optimi
03c0	7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29	zer.'byte-compile-inline-expand)
03e0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 64 65 73 63 65 6e 64	.(defalias.'shorten-tree-descend
0400	61 6e 74 73 20 23 5b 28 65 6e 74 72 79 29 20 22 5c 33 30 31 08 5c 32 33 33 5c 32 30 37 22 20 5b	ants.#[(entry)."\301.\233\207".[
0420	65 6e 74 72 79 20 33 5d 20 32 5d 29 0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d	entry.3].2]).(put.'shorten-tree-
0440	64 65 73 63 65 6e 64 61 6e 74 73 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20 27 62 79 74	descendants.'byte-optimizer.'byt
0460	65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a 28 64 65 66 61 6c 69	e-compile-inline-expand).(defali
0480	61 73 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 73 65 74 2d 73 68 6f 72 74 65 6e 65 64 20 23	as.'shorten-tree-set-shortened.#
04a0	5b 28 65 6e 74 72 79 20 73 68 6f 72 74 29 20 22 08 41 09 5c 32 34 30 5c 32 30 37 22 20 5b 65 6e	[(entry.short).".A.\240\207".[en
04c0	74 72 79 20 73 68 6f 72 74 5d 20 32 5d 29 0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74 72 65	try.short].2]).(put.'shorten-tre
04e0	65 2d 73 65 74 2d 73 68 6f 72 74 65 6e 65 64 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72 20	e-set-shortened.'byte-optimizer.
0500	27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a 28 64 65	'byte-compile-inline-expand).(de
0520	66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 73 65 74 2d 66 75 6c 6c 6e 61 6d	falias.'shorten-tree-set-fullnam
0540	65 20 23 5b 28 65 6e 74 72 79 20 66 75 6c 6c 29 20 22 08 41 41 09 5c 32 34 30 5c 32 30 37 22 20	e.#[(entry.full).".AA.\240\207".
0560	5b 65 6e 74 72 79 20 66 75 6c 6c 5d 20 32 5d 29 0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74	[entry.full].2]).(put.'shorten-t
0580	72 65 65 2d 73 65 74 2d 66 75 6c 6c 6e 61 6d 65 20 27 62 79 74 65 2d 6f 70 74 69 6d 69 7a 65 72	ree-set-fullname.'byte-optimizer
05a0	20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d 65 78 70 61 6e 64 29 0a 28 64	.'byte-compile-inline-expand).(d
05c0	65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 23 5b 28	efalias.'shorten-tree-insert.#[(
05e0	6e 6f 64 65 20 69 74 65 6d 29 20 22 08 40 5c 32 30 33 0d 00 08 5c 32 31 31 40 08 41 42 5c 32 34	node.item).".@\203...\211@.AB\24
0600	31 5c 32 31 30 08 09 5c 32 34 30 5c 32 30 37 22 20 5b 6e 6f 64 65 20 69 74 65 6d 5d 20 33 5d 29	1\210..\240\207".[node.item].3])
0620	0a 28 70 75 74 20 27 73 68 6f 72 74 65 6e 2d 74 72 65 65 2d 69 6e 73 65 72 74 20 27 62 79 74 65	.(put.'shorten-tree-insert.'byte
0640	2d 6f 70 74 69 6d 69 7a 65 72 20 27 62 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 69 6e 6c 69 6e 65 2d	-optimizer.'byte-compile-inline-
0660	65 78 70 61 6e 64 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 73 70 6c 69 74	expand).(defalias.'shorten-split
0680	20 23 5b 28 73 29 20 22 5c 33 30 31 08 5c 33 30 32 5c 33 30 33 23 5c 32 30 37 22 20 5b 73 20 73	.#[(s)."\301.\302\303#\207".[s.s
06a0	70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 5c 62 22 20 74 5d 20 34 5d 29 0a 28 64 65 66 61 6c 69	plit-string."\\b".t].4]).(defali
06c0	61 73 20 27 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 20 23 5b 28 6c 73 74 20 26 6f 70 74 69 6f 6e 61	as.'shorten-join.#[(lst.&optiona
06e0	6c 20 74 61 69 6c 2d 63 6f 75 6e 74 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 23 5c 32 30	l.tail-count)."\301\302.\303#\20
0700	37 22 20 5b 6c 73 74 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22 22 5d 20 34	7".[lst.mapconcat.identity.""].4
0720	5d 29 0a 23 40 35 36 20 41 20 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 20 74 68 61 74 20 64 72 6f 70	]).#@56.A.shorten-join.that.drop
0740	73 20 75 6e 6e 65 63 65 73 73 61 72 79 20 74 61 69 6c 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 1f 0a	s.unnecessary.tail.components...
0760	28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 2d 73 61 6e 73 2d 74 61 69	(defalias.'shorten-join-sans-tai
0780	6c 20 23 5b 28 6c 73 74 20 74 61 69 6c 2d 63 6f 75 6e 74 29 20 22 5c 33 30 32 5c 33 30 33 08 09	l.#[(lst.tail-count)."\302\303..
07a0	5c 22 21 5c 32 30 37 22 20 5b 6c 73 74 20 74 61 69 6c 2d 63 6f 75 6e 74 20 73 68 6f 72 74 65 6e	\"!\207".[lst.tail-count.shorten
07c0	2d 6a 6f 69 6e 20 62 75 74 6c 61 73 74 5d 20 34 20 28 23 24 20 2e 20 31 38 33 32 29 5d 29 0a 28	-join.butlast].4.(#$...1832)]).(
07e0	64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 76 61 6c 69 64 61 74 65 2d 63 6f 6d 70 6f	defalias.'shorten-validate-compo
0800	6e 65 6e 74 20 23 5b 28 73 74 72 29 20 22 5c 33 30 32 08 5c 33 30 33 5c 33 30 34 19 5c 33 30 35	nent.#[(str)."\302.\303\304.\305
0820	03 03 03 23 29 5c 32 30 37 22 20 5b 73 74 72 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67	...#)\207".[str.inhibit-changing
0840	2d 6d 61 74 63 68 2d 64 61 74 61 20 22 5c 5c 77 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d	-match-data."\\w".nil.t.string-m
0860	61 74 63 68 5d 20 37 5d 29 0a 23 40 33 31 30 20 56 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20	atch].7]).#@310.Value.should.be.
0880	61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 73 74 72 69 6e 67 2d 3e 6c 69 73 74 20 74 68 61 74 20	a.function.of.string->list.that.
08a0	62 72 65 61 6b 73 20 61 0a 73 74 72 69 6e 67 20 69 6e 74 6f 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e	breaks.a.string.into.components.
08c0	20 20 54 68 65 20 64 65 66 61 75 6c 74 20 62 72 65 61 6b 73 20 6f 6e 20 77 6f 72 64 2d 62 6f 75	..The.default.breaks.on.word-bou
08e0	6e 64 61 72 69 65 73 2e 0a 54 6f 20 67 65 74 20 73 69 6d 70 6c 65 20 70 72 65 66 69 78 20 73 68	ndaries..To.get.simple.prefix.sh
0900	6f 72 74 65 6e 69 6e 67 2c 20 62 69 6e 64 20 74 68 69 73 20 74 6f 20 60 6c 69 73 74 27 2e 0a 0a	ortening,.bind.this.to.`list'...
0920	55 73 65 72 73 20 73 68 6f 75 6c 64 20 6e 6f 74 20 67 65 6e 65 72 61 6c 6c 79 20 63 68 61 6e 67	Users.should.not.generally.chang
0940	65 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73 0a 76 61 72 69 61	e.the.global.value.of.this.varia
0960	62 6c 65 3b 20 69 6e 73 74 65 61 64 2c 20 62 69 6e 64 20 69 74 20 64 79 6e 61 6d 69 63 61 6c 6c	ble;.instead,.bind.it.dynamicall
0980	79 20 61 72 6f 75 6e 64 20 63 61 6c 6c 73 20 74 6f 0a 60 73 68 6f 72 74 65 6e 2d 73 74 72 69 6e	y.around.calls.to.`shorten-strin
09a0	67 73 27 2e 1f 0a 28 64 65 66 76 61 72 20 73 68 6f 72 74 65 6e 2d 73 70 6c 69 74 2d 66 75 6e 63	gs'...(defvar.shorten-split-func
09c0	74 69 6f 6e 20 27 73 68 6f 72 74 65 6e 2d 73 70 6c 69 74 20 28 23 24 20 2e 20 32 31 36 30 29 29	tion.'shorten-split.(#$...2160))
09e0	0a 23 40 34 37 38 20 41 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 74 61 6b 65 73 20 61 20 6c	.#@478.A.function.that.takes.a.l
0a00	69 73 74 20 6f 66 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 61 6e 64 20 61 20 74 61 69 6c 2d 63 6f 75	ist.of.components.and.a.tail-cou
0a20	6e 74 2c 0a 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 6a 6f 69 6e 65 64 20 73 74 72 69 6e 67 2e	nt,.and.returns.a.joined.string.
0a40	20 20 54 61 69 6c 2d 63 6f 75 6e 74 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 63 6f	..Tail-count.is.the.number.of.co
0a60	6d 70 6f 6e 65 6e 74 73 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 6c 69 73 74 20	mponents.on.the.end.of.the.list.
0a80	74 68 61 74 20 61 72 65 20 6e 6f 74 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 69 71 75 69 66 79 0a	that.are.not.needed.to.uniquify.
0aa0	74 68 65 20 72 65 73 75 6c 74 2c 20 61 6e 64 20 73 6f 20 6d 61 79 20 62 65 20 73 61 66 65 6c 79	the.result,.and.so.may.be.safely
0ac0	20 64 72 6f 70 70 65 64 20 69 66 20 61 67 67 72 65 73 73 69 76 65 20 73 68 6f 72 74 65 6e 69 6e	.dropped.if.aggressive.shortenin
0ae0	67 0a 69 73 20 64 65 73 69 72 65 64 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 70 72 65 73 65	g.is.desired...The.default.prese
0b00	72 76 65 73 20 74 61 69 6c 20 63 6f 6d 70 6f 6e 65 6e 74 73 2c 20 61 6e 64 20 6a 6f 69 6e 73 20	rves.tail.components,.and.joins.
0b20	74 68 65 0a 6c 69 73 74 20 6f 6e 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2e 0a 0a 55	the.list.on.the.empty.string...U
0b40	73 65 72 73 20 73 68 6f 75 6c 64 20 6e 6f 74 20 67 65 6e 65 72 61 6c 6c 79 20 63 68 61 6e 67 65	sers.should.not.generally.change
0b60	20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73 0a 76 61 72 69 61 62	.the.global.value.of.this.variab
0b80	6c 65 3b 20 69 6e 73 74 65 61 64 2c 20 62 69 6e 64 20 69 74 20 64 79 6e 61 6d 69 63 61 6c 6c 79	le;.instead,.bind.it.dynamically
0ba0	20 61 72 6f 75 6e 64 20 63 61 6c 6c 73 20 74 6f 0a 60 73 68 6f 72 74 65 6e 2d 73 74 72 69 6e 67	.around.calls.to.`shorten-string
0bc0	73 27 2e 1f 0a 28 64 65 66 76 61 72 20 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 2d 66 75 6e 63 74 69	s'...(defvar.shorten-join-functi
0be0	6f 6e 20 27 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 20 28 23 24 20 2e 20 32 35 33 35 29 29 0a 23 40	on.'shorten-join.(#$...2535)).#@
0c00	34 39 33 20 50 72 65 64 69 63 61 74 65 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 74 20 69 66 20	493.Predicate.that.returns.t.if.
0c20	61 20 70 72 6f 70 6f 73 65 64 20 73 68 6f 72 74 65 6e 65 64 20 66 6f 72 6d 20 6f 66 20 61 0a 73	a.proposed.shortened.form.of.a.s
0c40	69 6e 67 6c 65 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 73 20 61 63 63 65 70 74 61 62 6c 65 2c 20 6e	ingle.component.is.acceptable,.n
0c60	69 6c 20 69 66 20 61 20 6c 6f 6e 67 65 72 20 6f 6e 65 20 73 68 6f 75 6c 64 20 62 65 0a 74 72 69	il.if.a.longer.one.should.be.tri
0c80	65 64 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 69 64 61 74 65 73 20 6f 6e 6c 79 20	ed...The.default.validates.only.
0ca0	77 68 65 6e 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 63 6f 6e 74 61 69 6e 73 20 61 74 0a 6c	when.the.candidate.contains.at.l
0cc0	65 61 73 74 20 6f 6e 65 20 77 6f 72 64 2d 63 6f 6e 73 74 69 74 75 65 6e 74 20 63 68 61 72 61 63	east.one.word-constituent.charac
0ce0	74 65 72 2c 20 74 68 75 73 20 73 74 72 69 6e 67 73 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 0a	ter,.thus.strings.consisting.of.
0d00	70 75 6e 63 74 75 61 74 69 6f 6e 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 73 68 6f 72 74 65 6e 65	punctuation.will.not.be.shortene
0d20	64 2e 20 20 46 6f 72 20 61 67 67 72 65 73 73 69 76 65 20 73 68 6f 72 74 65 6e 69 6e 67 2c 0a 62	d...For.aggressive.shortening,.b
0d40	69 6e 64 20 74 6f 20 61 20 70 72 6f 63 65 64 75 72 65 20 74 68 61 74 20 61 6c 77 61 79 73 20 72	ind.to.a.procedure.that.always.r
0d60	65 74 75 72 6e 73 20 74 2e 0a 0a 55 73 65 72 73 20 73 68 6f 75 6c 64 20 6e 6f 74 20 67 65 6e 65	eturns.t...Users.should.not.gene
0d80	72 61 6c 6c 79 20 63 68 61 6e 67 65 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 6f 66	rally.change.the.global.value.of
0da0	20 74 68 69 73 0a 76 61 72 69 61 62 6c 65 3b 20 69 6e 73 74 65 61 64 2c 20 62 69 6e 64 20 69 74	.this.variable;.instead,.bind.it
0dc0	20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 61 72 6f 75 6e 64 20 63 61 6c 6c 73 20 74 6f 0a 60 73 68	.dynamically.around.calls.to.`sh
0de0	6f 72 74 65 6e 2d 73 74 72 69 6e 67 73 27 2e 1f 0a 28 64 65 66 76 61 72 20 73 68 6f 72 74 65 6e	orten-strings'...(defvar.shorten
0e00	2d 76 61 6c 69 64 61 74 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 27 73 68	-validate-component-function.'sh
0e20	6f 72 74 65 6e 2d 76 61 6c 69 64 61 74 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 28 23 24 20 2e 20 33	orten-validate-component.(#$...3
0e40	30 37 36 29 29 0a 23 40 32 34 37 20 52 65 74 75 72 6e 20 73 68 6f 72 74 65 73 74 20 75 6e 69 71	076)).#@247.Return.shortest.uniq
0e60	75 65 20 70 72 65 66 69 78 20 6f 66 20 53 54 52 20 61 6d 6f 6e 67 20 4f 54 48 45 52 53 2c 20 6f	ue.prefix.of.STR.among.OTHERS,.o
0e80	72 20 53 54 52 20 69 66 0a 69 74 20 63 61 6e 6e 6f 74 20 62 65 20 73 68 6f 72 74 65 6e 65 64 2e	r.STR.if.it.cannot.be.shortened.
0ea0	20 20 49 66 20 53 54 52 20 69 73 20 61 20 6d 65 6d 62 65 72 20 6f 66 20 4f 54 48 45 52 53 20 28	..If.STR.is.a.member.of.OTHERS.(
0ec0	74 65 73 74 65 64 0a 77 69 74 68 20 60 65 71 27 29 20 74 68 61 74 20 65 6e 74 72 79 20 69 73 20	tested.with.`eq').that.entry.is.
0ee0	69 67 6e 6f 72 65 64 2e 20 20 54 68 65 20 76 61 6c 75 65 20 6f 66 0a 60 73 68 6f 72 74 65 6e 2d	ignored...The.value.of.`shorten-
0f00	76 61 6c 69 64 61 74 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 20 77 69 6c	validate-component-function'.wil
0f20	6c 20 62 65 20 75 73 65 64 20 74 6f 20 76 61 6c 69 64 61 74 65 0a 61 6e 79 20 70 72 65 66 69 78	l.be.used.to.validate.any.prefix
0f40	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 6f 6e 65 20 23 5b 28 73 74 72	...(defalias.'shorten-one.#[(str
0f60	20 6f 74 68 65 72 73 29 20 22 08 47 5c 33 30 36 19 1a 5c 33 30 37 32 69 00 09 5c 6e 57 5c 32 30	.others).".G\306..\3072i..\nW\20
0f80	35 68 00 08 5c 33 31 30 09 4f 1b 5c 66 0b 21 5c 32 30 33 61 00 5c 33 30 37 32 59 00 0d 5c 33 31	5h..\310.O.\f.!\203a.\3072Y..\31
0fa0	31 1e 5c 66 5c 32 31 31 1e 0d 5c 32 30 33 53 00 0e 0d 40 5c 32 31 31 16 5c 66 47 09 59 5c 32 30	1.\f\211..\203S...@\211.\fG.Y\20
0fc0	33 4a 00 0e 5c 66 5c 33 31 30 09 4f 0b 5c 32 33 30 5c 32 30 33 4a 00 0e 5c 66 08 3d 5c 32 30 34	3J..\f\310.O.\230\203J..\f.=\204
0fe0	4a 00 5c 33 31 32 5c 33 30 37 5c 33 31 31 5c 22 5c 32 31 30 0e 0d 41 5c 32 31 31 16 0d 5c 32 30	J.\312\307\311\"\210..A\211..\20
1000	34 28 00 5c 33 31 31 16 5c 66 2a 5c 33 31 33 30 5c 32 30 33 61 00 5c 33 31 32 5c 33 30 37 0b 5c	4(.\311.\f*\3130\203a.\312\307.\
1020	22 5c 32 31 30 09 54 11 29 5c 32 30 32 09 00 30 5c 32 30 36 6d 00 08 2a 5c 32 30 37 22 20 5b 73	"\210.T.)\202..0\206m..*\207".[s
1040	74 72 20 6c 65 6e 20 6d 61 78 20 70 72 65 66 69 78 20 73 68 6f 72 74 65 6e 2d 76 61 6c 69 64 61	tr.len.max.prefix.shorten-valida
1060	74 65 2d 63 6f 6d 70 6f 6e 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 6f 74 68 65 72 73 20 31 20 72	te-component-function.others.1.r
1080	65 74 75 72 6e 20 30 20 6e 69 6c 20 74 68 72 6f 77 20 74 20 6f 74 68 65 72 20 2d 2d 64 6f 6c 69	eturn.0.nil.throw.t.other.--doli
10a0	73 74 2d 74 61 69 6c 2d 2d 5d 20 34 20 28 23 24 20 2e 20 33 36 36 30 29 5d 29 0a 28 64 65 66 61	st-tail--].4.(#$...3660)]).(defa
10c0	6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 77 61 6c 6b 2d 69 6e 74 65 72 6e 61 6c 20 23 5b 28 6e	lias.'shorten-walk-internal.#[(n
10e0	6f 64 65 20 70 61 74 68 20 74 61 69 6c 2d 63 6f 75 6e 74 20 72 65 73 75 6c 74 2d 6f 75 74 29 20	ode.path.tail-count.result-out).
1100	22 5c 33 30 36 5c 33 30 37 08 5c 22 19 08 41 5c 32 30 33 0e 00 5c 33 31 30 5c 32 30 32 10 00 5c	"\306\307.\"..A\203..\310\202..\
1120	6e 54 12 08 5c 33 31 31 1b 5c 32 31 31 1c 5c 32 30 35 5c 32 35 31 00 5c 66 40 5c 32 31 31 13 5c	nT..\311.\211.\205\251.\f@\211.\
1140	32 31 31 1b 40 29 1d 5c 33 31 32 0d 09 5c 22 5c 32 31 31 1e 11 0e 12 42 1e 12 0b 1b 5c 33 31 33	211.@).\312..\"\211....B....\313
1160	0b 38 29 1e 13 0b 1b 5c 33 31 34 0b 5c 32 33 33 29 5c 32 31 31 1e 14 5c 33 31 35 5c 32 33 32 3f	.8)....\314.\233)\211..\315\232?
1180	1e 15 0b 0e 11 1e 16 5c 32 31 31 1b 41 0e 16 5c 32 34 30 2a 5c 32 31 30 0e 13 5c 32 30 33 5c 32	.......\211.A..\240*\210..\203\2
11a0	30 37 00 0e 17 5c 33 31 36 0e 12 21 0e 15 5c 32 30 33 65 00 5c 33 31 30 5c 32 30 32 66 00 5c 6e	07...\316..!..\203e.\310\202f.\n
11c0	5c 22 1e 18 0e 19 0e 13 0e 18 42 1e 1a 5c 32 31 31 18 40 5c 32 30 33 5c 32 30 30 00 08 5c 32 31	\"........B..\211.@\203\200..\21
11e0	31 40 08 41 42 5c 32 34 31 5c 32 31 30 08 0e 1a 5c 32 34 30 2a 5c 32 31 30 29 0e 15 5c 32 30 33	1@.AB\241\210...\240*\210)..\203
1200	5c 32 33 37 00 5c 33 31 37 0e 14 0e 12 0e 13 5c 32 30 33 5c 32 33 32 00 5c 33 32 30 5c 32 30 32	\237.\317......\203\232.\320\202
1220	5c 32 33 33 00 5c 6e 0e 19 24 5c 32 31 30 2e 06 5c 66 41 5c 32 31 31 14 5c 32 30 34 19 00 5c 33	\233.\n..$\210..\fA\211.\204..\3
1240	31 31 2b 5c 32 30 37 22 20 5b 6e 6f 64 65 20 6f 74 68 65 72 73 20 74 61 69 6c 2d 63 6f 75 6e 74	11+\207".[node.others.tail-count
1260	20 65 6e 74 72 79 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20 74 6f 6b 65 6e 20 6d 61 70	.entry.--dolist-tail--.token.map
1280	63 61 72 20 63 61 72 20 30 20 6e 69 6c 20 73 68 6f 72 74 65 6e 2d 6f 6e 65 20 32 20 33 20 28 6e	car.car.0.nil.shorten-one.2.3.(n
12a0	69 6c 29 20 72 65 76 65 72 73 65 20 73 68 6f 72 74 65 6e 2d 77 61 6c 6b 2d 69 6e 74 65 72 6e 61	il).reverse.shorten-walk-interna
12c0	6c 20 2d 31 20 73 68 6f 72 74 65 6e 65 64 20 70 61 74 68 20 66 75 6c 6c 6e 61 6d 65 20 64 65 73	l.-1.shortened.path.fullname.des
12e0	63 65 6e 64 61 6e 74 73 20 68 61 76 65 2d 64 65 73 63 65 6e 64 61 6e 74 73 20 73 68 6f 72 74 20	cendants.have-descendants.short.
1300	73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 2d 66 75 6e 63 74 69 6f 6e 20 6a 6f 69 6e 65 64 20 72 65 73	shorten-join-function.joined.res
1320	75 6c 74 2d 6f 75 74 20 69 74 65 6d 5d 20 36 5d 29 0a 23 40 32 35 35 20 54 61 6b 65 73 20 61 20	ult-out.item].6]).#@255.Takes.a.
1340	74 72 65 65 20 6f 66 20 74 68 65 20 74 79 70 65 20 6d 61 64 65 20 62 79 20 60 73 68 6f 72 74 65	tree.of.the.type.made.by.`shorte
1360	6e 2d 6d 61 6b 65 2d 74 72 65 65 27 20 61 6e 64 0a 72 65 74 75 72 6e 73 20 61 6e 20 61 6c 69 73	n-make-tree'.and.returns.an.alis
1380	74 20 28 28 53 54 52 49 4e 47 20 2e 20 53 48 4f 52 54 45 4e 45 44 2d 53 54 52 49 4e 47 29 20 2e	t.((STRING...SHORTENED-STRING)..
13a0	2e 2e 29 2e 20 20 55 73 65 73 0a 60 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 2d 66 75 6e 63 74 69 6f	..)...Uses.`shorten-join-functio
13c0	6e 27 20 74 6f 20 6a 6f 69 6e 20 73 68 6f 72 74 65 6e 65 64 20 63 6f 6d 70 6f 6e 65 6e 74 73 20	n'.to.join.shortened.components.
13e0	62 61 63 6b 0a 74 6f 67 65 74 68 65 72 20 69 6e 74 6f 20 53 48 4f 52 54 45 4e 45 44 2d 53 54 52	back.together.into.SHORTENED-STR
1400	49 4e 47 2e 20 20 53 65 65 20 61 6c 73 6f 0a 60 73 68 6f 72 74 65 6e 2d 76 61 6c 69 64 61 74 65	ING...See.also.`shorten-validate
1420	2d 63 6f 6d 70 6f 6e 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73	-component-function'...(defalias
1440	20 27 73 68 6f 72 74 65 6e 2d 77 61 6c 6b 20 23 5b 28 74 72 65 65 29 20 22 5c 33 30 32 5c 32 31	.'shorten-walk.#[(tree)."\302\21
1460	31 42 18 5c 33 30 33 09 5c 33 30 32 5c 33 30 34 08 24 5c 32 31 30 08 5c 33 30 35 5c 32 33 32 3f	1B.\303.\302\304.$\210.\305\232?
1480	5c 32 30 35 13 00 08 29 5c 32 30 37 22 20 5b 72 65 73 75 6c 74 2d 6f 75 74 20 74 72 65 65 20 6e	\205...)\207".[result-out.tree.n
14a0	69 6c 20 73 68 6f 72 74 65 6e 2d 77 61 6c 6b 2d 69 6e 74 65 72 6e 61 6c 20 2d 31 20 28 6e 69 6c	il.shorten-walk-internal.-1.(nil
14c0	29 5d 20 35 20 28 23 24 20 2e 20 34 39 32 30 29 5d 29 0a 23 40 31 36 33 20 54 61 6b 65 73 20 61	)].5.(#$...4920)]).#@163.Takes.a
14e0	20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 20 74	.list.of.strings.and.returns.a.t
1500	72 65 65 20 6f 66 20 74 68 65 20 74 79 70 65 20 75 73 65 64 20 62 79 0a 60 73 68 6f 72 74 65 6e	ree.of.the.type.used.by.`shorten
1520	2d 77 61 6c 6b 27 20 74 6f 20 67 65 6e 65 72 61 74 65 20 73 68 6f 72 74 65 6e 65 64 20 73 74 72	-walk'.to.generate.shortened.str
1540	69 6e 67 73 2e 20 20 55 73 65 73 0a 60 73 68 6f 72 74 65 6e 2d 73 70 6c 69 74 2d 66 75 6e 63 74	ings...Uses.`shorten-split-funct
1560	69 6f 6e 27 20 74 6f 20 73 70 6c 69 74 20 74 68 65 20 73 74 72 69 6e 67 73 2e 1f 0a 28 64 65 66	ion'.to.split.the.strings...(def
1580	61 6c 69 61 73 20 27 73 68 6f 72 74 65 6e 2d 6d 61 6b 65 2d 74 72 65 65 20 23 5b 28 73 74 72 69	alias.'shorten-make-tree.#[(stri
15a0	6e 67 73 29 20 22 5c 33 30 36 5c 32 31 31 42 18 09 5c 33 30 36 1a 5c 32 31 31 1b 5c 32 30 33 5c	ngs)."\306\211B..\306.\211.\203\
15c0	32 30 37 00 0b 40 12 08 5c 66 5c 6e 21 5c 33 30 36 1d 1e 5c 6e 1e 0b 0e 5c 6e 5c 33 30 36 1e 5c	207..@..\f\n!\306..\n...\n\306.\
15e0	66 5c 32 31 31 1b 5c 32 30 33 71 00 0b 40 16 5c 66 5c 33 30 37 0e 5c 66 0e 0b 5c 22 5c 32 31 31	f\211.\203q..@.\f\307.\f..\"\211
1600	15 5c 32 30 34 62 00 0e 5c 66 5c 33 30 36 5c 32 31 31 1e 0d 1e 0e 5c 32 31 31 1e 5c 66 0e 0e 0e	.\204b..\f\306\211....\211.\f...
1620	0d 5c 33 30 36 46 2b 15 0e 0b 0d 1e 0f 5c 32 31 31 1e 0b 40 5c 32 30 33 5b 00 0e 0b 5c 32 31 31	.\306F+......\211..@\203[...\211
1640	40 0e 0b 41 42 5c 32 34 31 5c 32 31 30 0e 0b 0e 0f 5c 32 34 30 2a 5c 32 31 30 0d 1d 5c 33 31 30	@..AB\241\210....\240*\210..\310
1660	0d 5c 32 33 33 29 16 0b 0b 41 5c 32 31 31 13 5c 32 30 34 23 00 2a 0d 5c 6e 1e 0d 5c 32 31 31 1d	.\233)...A\211.\204#.*.\n..\211.
1680	41 41 0e 0d 5c 32 34 30 2a 5c 32 31 30 2b 0b 41 5c 32 31 31 13 5c 32 30 34 5c 66 00 2a 08 5c 33	AA..\240*\210+.A\211.\204\f.*.\3
16a0	31 31 5c 32 33 32 3f 5c 32 30 35 5c 32 32 30 00 08 29 5c 32 30 37 22 20 5b 74 72 65 65 20 73 74	11\232?\205\220..)\207".[tree.st
16c0	72 69 6e 67 73 20 73 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20 73 68 6f 72 74 65 6e 2d	rings.s.--dolist-tail--.shorten-
16e0	73 70 6c 69 74 2d 66 75 6e 63 74 69 6f 6e 20 65 6e 74 72 79 20 6e 69 6c 20 61 73 73 6f 63 20 33	split-function.entry.nil.assoc.3
1700	20 28 6e 69 6c 29 20 74 6f 6b 65 6e 73 20 6e 6f 64 65 20 74 6f 6b 65 6e 20 66 75 6c 6c 20 73 68	.(nil).tokens.node.token.full.sh
1720	6f 72 74 20 69 74 65 6d 5d 20 35 20 28 23 24 20 2e 20 35 33 33 37 29 5d 29 0a 23 40 32 37 37 20	ort.item].5.(#$...5337)]).#@277.
1740	54 61 6b 65 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 61 6e 64 20 72 65 74 75	Takes.a.list.of.strings.and.retu
1760	72 6e 73 20 61 6e 20 61 6c 69 73 74 20 28 28 53 54 52 49 4e 47 0a 2e 20 53 48 4f 52 54 45 4e 45	rns.an.alist.((STRING...SHORTENE
1780	44 2d 53 54 52 49 4e 47 29 20 2e 2e 2e 29 2e 20 20 55 73 65 73 20 60 73 68 6f 72 74 65 6e 2d 73	D-STRING)....)...Uses.`shorten-s
17a0	70 6c 69 74 2d 66 75 6e 63 74 69 6f 6e 27 20 74 6f 20 73 70 6c 69 74 0a 74 68 65 20 73 74 72 69	plit-function'.to.split.the.stri
17c0	6e 67 73 2c 20 61 6e 64 20 60 73 68 6f 72 74 65 6e 2d 6a 6f 69 6e 2d 66 75 6e 63 74 69 6f 6e 27	ngs,.and.`shorten-join-function'
17e0	20 74 6f 20 6a 6f 69 6e 20 73 68 6f 72 74 65 6e 65 64 0a 63 6f 6d 70 6f 6e 65 6e 74 73 20 62 61	.to.join.shortened.components.ba
1800	63 6b 20 74 6f 67 65 74 68 65 72 20 69 6e 74 6f 20 53 48 4f 52 54 45 4e 45 44 2d 53 54 52 49 4e	ck.together.into.SHORTENED-STRIN
1820	47 2e 20 20 53 65 65 20 61 6c 73 6f 0a 60 73 68 6f 72 74 65 6e 2d 76 61 6c 69 64 61 74 65 2d 63	G...See.also.`shorten-validate-c
1840	6f 6d 70 6f 6e 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	omponent-function'...(defalias.'
1860	73 68 6f 72 74 65 6e 2d 73 74 72 69 6e 67 73 20 23 5b 28 73 74 72 69 6e 67 73 29 20 22 5c 33 30	shorten-strings.#[(strings)."\30
1880	31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 73 20 73 68 6f 72 74 65 6e 2d 77	1\302.!!\207".[strings.shorten-w
18a0	61 6c 6b 20 73 68 6f 72 74 65 6e 2d 6d 61 6b 65 2d 74 72 65 65 5d 20 33 20 28 23 24 20 2e 20 35	alk.shorten-make-tree].3.(#$...5
18c0	39 35 32 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 73 68 6f 72 74 65 6e 29 0a	952)]).(provide.'shorten).