summaryrefslogtreecommitdiff
path: root/localrepo/dired-subtree-20230512.1107.tar
blob: 88c529b689867d5f26588c2b266dd6d94600b390 (plain)
ofshex dumpascii
0000 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 32 30 32 33 30 35 31 32 2e 31 31 30 37 2f 00 00 00 00 dired-subtree-20230512.1107/....
0020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0060 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0080 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 35 33 36 00 20 35 00 00 00 0000000.00000000000.013536..5...
00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0200 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 32 30 32 33 30 35 31 32 2e 31 31 30 37 2f 64 69 72 65 dired-subtree-20230512.1107/dire
0220 64 2d 73 75 62 74 72 65 65 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d-subtree-pkg.el................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 30 30 37 32 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 33 37 35 00 20 30 00 00 00 0000721.00000000000.017375..0...
02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0400 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 64 69 72 65 64 2d 73 75 62 74 72 65 65 22 20 (define-package."dired-subtree".
0420 22 32 30 32 33 30 35 31 32 2e 31 31 30 37 22 20 22 49 6e 73 65 72 74 20 73 75 62 64 69 72 65 63 "20230512.1107"."Insert.subdirec
0440 74 6f 72 69 65 73 20 69 6e 20 61 20 74 72 65 65 2d 6c 69 6b 65 20 66 61 73 68 69 6f 6e 22 0a 20 tories.in.a.tree-like.fashion"..
0460 20 27 28 28 64 61 73 68 20 22 32 2e 35 2e 30 22 29 0a 20 20 20 20 28 64 69 72 65 64 2d 68 61 63 .'((dash."2.5.0").....(dired-hac
0480 6b 73 2d 75 74 69 6c 73 20 22 30 2e 30 2e 31 22 29 29 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 35 32 ks-utils."0.0.1"))...:commit."52
04a0 33 66 35 31 62 34 31 35 32 61 33 62 66 34 65 36 30 66 65 35 37 66 35 31 32 37 33 32 63 36 39 38 3f51b4152a3bf4e60fe57f512732c698
04c0 62 35 63 39 36 66 22 20 3a 61 75 74 68 6f 72 73 0a 20 20 27 28 28 22 4d 61 74 c3 ba c5 a1 20 47 b5c96f".:authors...'(("Mat.....G
04e0 6f 6c 6a 65 72 22 20 2e 20 22 6d 61 74 75 73 2e 67 6f 6c 6a 65 72 40 67 6d 61 69 6c 2e 63 6f 6d oljer"..."matus.goljer@gmail.com
0500 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 0a 20 20 27 28 28 22 4d 61 74 c3 ba c5 a1 "))...:maintainers...'(("Mat....
0520 20 47 6f 6c 6a 65 72 22 20 2e 20 22 6d 61 74 75 73 2e 67 6f 6c 6a 65 72 40 67 6d 61 69 6c 2e 63 .Goljer"..."matus.goljer@gmail.c
0540 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 0a 20 20 27 28 22 4d 61 74 c3 ba c5 a1 om"))...:maintainer...'("Mat....
0560 20 47 6f 6c 6a 65 72 22 20 2e 20 22 6d 61 74 75 73 2e 67 6f 6c 6a 65 72 40 67 6d 61 69 6c 2e 63 .Goljer"..."matus.goljer@gmail.c
0580 6f 6d 22 29 0a 20 20 3a 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 22 66 69 6c 65 73 22 29 29 0a 3b om")...:keywords...'("files")).;
05a0 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f ;.Local.Variables:.;;.no-byte-co
05c0 6d 70 69 6c 65 3a 20 74 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 mpile:.t.;;.End:................
05e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0600 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 32 30 32 33 30 35 31 32 2e 31 31 30 37 2f 64 69 72 65 dired-subtree-20230512.1107/dire
0620 64 2d 73 75 62 74 72 65 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d-subtree.el....................
0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0680 30 30 36 36 35 36 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 36 34 30 00 20 30 00 00 00 0066565.00000000000.016640..0...
06a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0800 3b 3b 3b 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2e 65 6c 20 2d 2d 2d 20 49 6e 73 65 72 74 20 ;;;.dired-subtree.el.---.Insert.
0820 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 61 20 74 72 65 65 2d 6c 69 6b 65 20 66 61 subdirectories.in.a.tree-like.fa
0840 73 68 69 6f 6e 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 34 2d 32 30 31 shion..;;.Copyright.(C).2014-201
0860 35 20 4d 61 74 c3 ba c5 a1 20 47 6f 6c 6a 65 72 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4d 61 74 5.Mat.....Goljer..;;.Author:.Mat
0880 c3 ba c5 a1 20 47 6f 6c 6a 65 72 20 3c 6d 61 74 75 73 2e 67 6f 6c 6a 65 72 40 67 6d 61 69 6c 2e .....Goljer.<matus.goljer@gmail.
08a0 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4d 61 74 c3 ba c5 a1 20 47 6f 6c 6a com>.;;.Maintainer:.Mat.....Golj
08c0 65 72 20 3c 6d 61 74 75 73 2e 67 6f 6c 6a 65 72 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4b er.<matus.goljer@gmail.com>.;;.K
08e0 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 30 2e 31 eywords:.files.;;.Version:.0.0.1
0900 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 32 35 74 68 20 46 65 62 72 75 61 72 79 20 32 30 31 34 0a .;;.Created:.25th.February.2014.
0920 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 64 61 73 68 20 22 32 2e 35 ;;.Package-Requires:.((dash."2.5
0940 2e 30 22 29 20 28 64 69 72 65 64 2d 68 61 63 6b 73 2d 75 74 69 6c 73 20 22 30 2e 30 2e 31 22 29 .0").(dired-hacks-utils."0.0.1")
0960 29 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 )..;;.This.program.is.free.softw
0980 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 are;.you.can.redistribute.it.and
09a0 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 /or.modify.;;.it.under.the.terms
09c0 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e .of.the.GNU.General.Public.Licen
09e0 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 se.as.published.by.;;.the.Free.S
0a00 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 oftware.Foundation,.either.versi
0a20 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 on.3.of.the.License,.or.;;.(at.y
0a40 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a our.option).any.later.version...
0a60 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 ;;.This.program.is.distributed.i
0a80 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 n.the.hope.that.it.will.be.usefu
0aa0 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 l,.;;.but.WITHOUT.ANY.WARRANTY;.
0ac0 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 without.even.the.implied.warrant
0ae0 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 y.of.;;.MERCHANTABILITY.or.FITNE
0b00 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 SS.FOR.A.PARTICULAR.PURPOSE...Se
0b20 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 e.the.;;.GNU.General.Public.Lice
0b40 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 nse.for.more.details...;;.You.sh
0b60 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 ould.have.received.a.copy.of.the
0b80 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 .GNU.General.Public.License.;;.a
0ba0 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c long.with.this.program...If.not,
0bc0 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 .see.<http://www.gnu.org/license
0be0 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 49 6e 74 72 6f 64 s/>...;;;.Commentary:..;;.Introd
0c00 75 63 74 69 6f 6e 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 3b 3b 20 54 68 65 20 62 uction.;;.------------..;;.The.b
0c20 61 73 69 63 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 77 6f 72 6b 20 77 69 74 68 20 73 75 62 64 69 72 asic.command.to.work.with.subdir
0c40 65 63 74 6f 72 69 65 73 20 69 6e 20 64 69 72 65 64 20 69 73 20 60 69 27 2c 0a 3b 3b 20 77 68 69 ectories.in.dired.is.`i',.;;.whi
0c60 63 68 20 69 6e 73 65 72 74 73 20 74 68 65 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 61 73 20 61 ch.inserts.the.subdirectory.as.a
0c80 20 73 65 70 61 72 61 74 65 20 6c 69 73 74 69 6e 67 20 69 6e 20 74 68 65 20 61 63 74 69 76 65 0a .separate.listing.in.the.active.
0ca0 3b 3b 20 64 69 72 65 64 20 62 75 66 66 65 72 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 ;;.dired.buffer...;;.This.packag
0cc0 65 20 64 65 66 69 6e 65 73 20 66 75 6e 63 74 69 6f 6e 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 e.defines.function.`dired-subtre
0ce0 65 2d 69 6e 73 65 72 74 27 20 77 68 69 63 68 20 69 6e 73 74 65 61 64 0a 3b 3b 20 69 6e 73 65 72 e-insert'.which.instead.;;.inser
0d00 74 73 20 74 68 65 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6c 79 20 62 65 6c ts.the.subdirectory.directly.bel
0d20 6f 77 20 69 74 73 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 3b 3b 20 6c ow.its.line.in.the.original.;;.l
0d40 69 73 74 69 6e 67 2c 20 61 6e 64 20 69 6e 64 65 6e 74 20 74 68 65 20 6c 69 73 74 69 6e 67 20 6f isting,.and.indent.the.listing.o
0d60 66 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 74 6f 20 72 65 73 65 6d 62 6c 65 20 61 0a 3b 3b 20 f.subdirectory.to.resemble.a.;;.
0d80 74 72 65 65 2d 6c 69 6b 65 20 73 74 72 75 63 74 75 72 65 20 28 73 6f 6d 65 77 68 61 74 20 73 69 tree-like.structure.(somewhat.si
0da0 6d 69 6c 61 72 20 74 6f 20 74 72 65 65 28 31 29 20 65 78 63 65 70 74 20 74 68 65 20 70 72 65 74 milar.to.tree(1).except.the.pret
0dc0 74 79 0a 3b 3b 20 67 72 61 70 68 69 63 73 29 2e 20 20 54 68 65 20 74 72 65 65 20 64 69 73 70 6c ty.;;.graphics)...The.tree.displ
0de0 61 79 20 69 73 20 73 6f 6d 65 77 68 61 74 20 6d 6f 72 65 20 69 6e 74 75 69 74 69 76 65 20 74 68 ay.is.somewhat.more.intuitive.th
0e00 61 6e 20 74 68 65 0a 3b 3b 20 64 65 66 61 75 6c 74 20 22 66 6c 61 74 22 20 73 75 62 64 69 72 65 an.the.;;.default."flat".subdire
0e20 63 74 6f 72 79 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 70 72 6f 76 69 64 65 64 20 62 79 20 60 ctory.manipulation.provided.by.`
0e40 69 27 2e 0a 0a 3b 3b 20 54 68 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 20 70 72 65 73 65 6e i'...;;.There.are.several.presen
0e60 74 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 20 61 6e 64 20 66 61 63 65 73 20 79 6f 75 20 63 61 6e tation.options.and.faces.you.can
0e80 20 63 75 73 74 6f 6d 69 7a 65 0a 3b 3b 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 77 61 79 20 .customize.;;.to.change.the.way.
0ea0 73 75 62 74 72 65 65 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 2e 0a 0a 3b 3b 20 59 6f 75 20 subtrees.are.displayed...;;.You.
0ec0 63 61 6e 20 66 75 72 74 68 65 72 20 72 65 6d 6f 76 65 20 74 68 65 20 75 6e 77 61 6e 74 65 64 20 can.further.remove.the.unwanted.
0ee0 6c 69 6e 65 73 20 66 72 6f 6d 20 74 68 65 20 73 75 62 74 72 65 65 20 62 79 20 75 73 69 6e 67 0a lines.from.the.subtree.by.using.
0f00 3b 3b 20 60 6b 27 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 73 6f 6d 65 20 6f 66 20 74 68 65 20 62 75 ;;.`k'.command.or.some.of.the.bu
0f20 69 6c 74 2d 69 6e 20 22 66 6f 63 75 73 69 6e 67 22 20 66 75 6e 63 74 69 6f 6e 73 2c 20 73 75 63 ilt-in."focusing".functions,.suc
0f40 68 20 61 73 0a 3b 3b 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 6e 6c 79 2d 2a 27 20 28 h.as.;;.`dired-subtree-only-*'.(
0f60 73 65 65 20 6c 69 73 74 20 62 65 6c 6f 77 29 2e 0a 0a 3b 3b 20 49 66 20 79 6f 75 20 68 61 76 65 see.list.below)...;;.If.you.have
0f80 20 74 68 65 20 70 61 63 6b 61 67 65 20 60 64 69 72 65 64 2d 66 69 6c 74 65 72 27 2c 20 79 6f 75 .the.package.`dired-filter',.you
0fa0 20 63 61 6e 20 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 66 69 6c 74 65 72 0a 3b 3b 20 74 68 65 20 .can.additionally.filter.;;.the.
0fc0 73 75 62 74 72 65 65 73 20 77 69 74 68 20 67 6c 6f 62 61 6c 20 6f 72 20 6c 6f 63 61 6c 20 66 69 subtrees.with.global.or.local.fi
0fe0 6c 74 65 72 73 2e 0a 0a 3b 3b 20 41 20 64 65 6d 6f 20 6f 66 20 62 61 73 69 63 20 66 75 6e 63 74 lters...;;.A.demo.of.basic.funct
1000 69 6f 6e 61 6c 69 74 79 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 20 79 6f 75 74 75 62 65 ionality.is.available.on.youtube
1020 3a 0a 3b 3b 20 68 74 74 70 73 3a 2f 2f 77 77 77 2e 79 6f 75 74 75 62 65 2e 63 6f 6d 2f 77 61 74 :.;;.https://www.youtube.com/wat
1040 63 68 3f 76 3d 7a 32 36 62 38 48 4b 46 73 4e 45 0a 0a 3b 3b 20 49 6e 74 65 72 61 63 74 69 76 65 ch?v=z26b8HKFsNE..;;.Interactive
1060 20 66 75 6e 63 74 69 6f 6e 73 0a 3b 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .functions.;;.------------------
1080 2d 2d 2d 0a 0a 3b 3b 20 48 65 72 65 27 73 20 61 20 6c 69 73 74 20 6f 66 20 61 76 61 69 6c 61 62 ---..;;.Here's.a.list.of.availab
10a0 6c 65 20 69 6e 74 65 72 61 63 74 69 76 65 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 59 6f 75 20 63 le.interactive.functions...You.c
10c0 61 6e 20 72 65 61 64 0a 3b 3b 20 6d 6f 72 65 20 61 62 6f 75 74 20 65 61 63 68 20 6f 6e 65 20 62 an.read.;;.more.about.each.one.b
10e0 79 20 75 73 69 6e 67 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 64 6f 63 75 6d 65 6e 74 61 74 69 y.using.the.built-in.documentati
1100 6f 6e 20 66 61 63 69 6c 69 74 69 65 73 0a 3b 3b 20 6f 66 20 65 6d 61 63 73 2e 20 20 49 74 20 69 on.facilities.;;.of.emacs...It.i
1120 73 20 61 64 76 69 63 65 64 20 74 6f 20 70 6c 61 63 65 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 s.adviced.to.place.bindings.for.
1140 74 68 65 73 65 20 69 6e 74 6f 20 61 0a 3b 3b 20 63 6f 6e 76 65 6e 69 65 6e 74 20 70 72 65 66 69 these.into.a.;;.convenient.prefi
1160 78 20 6b 65 79 20 6d 61 70 2c 20 66 6f 72 20 65 78 61 6d 70 6c 65 20 43 2d 2c 0a 0a 3b 3b 20 2a x.key.map,.for.example.C-,..;;.*
1180 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 74 27 0a 3b 3b 20 2a 20 60 64 69 .`dired-subtree-insert'.;;.*.`di
11a0 72 65 64 2d 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 2d red-subtree-remove'.;;.*.`dired-
11c0 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 2d 73 75 62 74 subtree-toggle'.;;.*.`dired-subt
11e0 72 65 65 2d 63 79 63 6c 65 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 72 ree-cycle'.;;.*.`dired-subtree-r
1200 65 76 65 72 74 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 72 72 6f evert'.;;.*.`dired-subtree-narro
1220 77 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 70 27 0a 3b 3b 20 2a 20 w'.;;.*.`dired-subtree-up'.;;.*.
1240 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 6f 77 6e 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 `dired-subtree-down'.;;.*.`dired
1260 2d 73 75 62 74 72 65 65 2d 6e 65 78 74 2d 73 69 62 6c 69 6e 67 27 0a 3b 3b 20 2a 20 60 64 69 72 -subtree-next-sibling'.;;.*.`dir
1280 65 64 2d 73 75 62 74 72 65 65 2d 70 72 65 76 69 6f 75 73 2d 73 69 62 6c 69 6e 67 27 0a 3b 3b 20 ed-subtree-previous-sibling'.;;.
12a0 2a 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 62 65 67 69 6e 6e 69 6e 67 27 0a 3b 3b 20 2a *.`dired-subtree-beginning'.;;.*
12c0 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 65 6e 64 27 0a 3b 3b 20 2a 20 60 64 69 72 65 64 .`dired-subtree-end'.;;.*.`dired
12e0 2d 73 75 62 74 72 65 65 2d 6d 61 72 6b 2d 73 75 62 74 72 65 65 27 0a 3b 3b 20 2a 20 60 64 69 72 -subtree-mark-subtree'.;;.*.`dir
1300 65 64 2d 73 75 62 74 72 65 65 2d 75 6e 6d 61 72 6b 2d 73 75 62 74 72 65 65 27 0a 3b 3b 20 2a 20 ed-subtree-unmark-subtree'.;;.*.
1320 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 6e 6c 79 2d 74 68 69 73 2d 66 69 6c 65 27 0a 3b `dired-subtree-only-this-file'.;
1340 3b 20 2a 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 6e 6c 79 2d 74 68 69 73 2d 64 69 72 ;.*.`dired-subtree-only-this-dir
1360 65 63 74 6f 72 79 27 0a 0a 3b 3b 20 49 66 20 79 6f 75 20 68 61 76 65 20 70 61 63 6b 61 67 65 20 ectory'..;;.If.you.have.package.
1380 60 64 69 72 65 64 2d 66 69 6c 74 65 72 27 2c 20 61 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 6d 61 `dired-filter',.additional.comma
13a0 6e 64 0a 3b 3b 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 61 70 70 6c 79 2d 66 69 6c 74 65 nd.;;.`dired-subtree-apply-filte
13c0 72 27 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 3b 3b 20 53 65 65 20 68 74 74 70 73 3a 2f r'.is.available...;;.See.https:/
13e0 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 46 75 63 6f 31 2f 64 69 72 65 64 2d 68 61 63 6b 73 20 66 6f /github.com/Fuco1/dired-hacks.fo
1400 72 20 74 68 65 20 65 6e 74 69 72 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2e 0a 0a 3b 3b 3b 20 43 6f r.the.entire.collection...;;;.Co
1420 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 68 61 63 6b 73 2d 75 74 69 6c 73 de:..(require.'dired-hacks-utils
1440 29 0a 28 72 65 71 75 69 72 65 20 27 64 61 73 68 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c ).(require.'dash).(require.'cl-l
1460 69 62 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 28 29 0a ib)..(defgroup.dired-subtree.().
1480 20 20 22 49 6e 73 65 72 74 20 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 61 20 74 72 .."Insert.subdirectories.in.a.tr
14a0 65 65 2d 6c 69 6b 65 20 66 61 73 68 69 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 ee-like.fashion."...:group.'dire
14c0 64 2d 68 61 63 6b 73 0a 20 20 3a 70 72 65 66 69 78 20 22 64 69 72 65 64 2d 73 75 62 74 72 65 65 d-hacks...:prefix."dired-subtree
14e0 2d 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 -")..(defcustom.dired-subtree-li
1500 6e 65 2d 70 72 65 66 69 78 20 22 20 20 22 0a 20 20 22 41 20 70 72 65 66 69 78 20 70 75 74 20 69 ne-prefix.".."..."A.prefix.put.i
1520 6e 74 6f 20 65 61 63 68 20 6e 65 73 74 65 64 20 73 75 62 74 72 65 65 2e 0a 0a 54 68 65 20 70 72 nto.each.nested.subtree...The.pr
1540 65 66 69 78 20 69 73 20 72 65 70 65 61 74 65 64 20 5c 22 64 65 70 74 68 5c 22 20 74 69 6d 65 73 efix.is.repeated.\"depth\".times
1560 2e 0a 0a 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 69 74 20 63 61 6e 20 62 65 20 61 20 66 75 ...Alternatively,.it.can.be.a.fu
1580 6e 63 74 69 6f 6e 20 74 61 6b 69 6e 67 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2d 2d 2d 74 68 65 nction.taking.one.argument---the
15a0 0a 64 65 70 74 68 2d 2d 2d 74 68 61 74 20 63 72 65 61 74 65 73 20 74 68 65 20 70 72 65 66 69 78 .depth---that.creates.the.prefix
15c0 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 73 74 72 69 6e 67 20 66 75 6e 63 74 ."...:type.'(choice.string.funct
15e0 69 6f 6e 29 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 ion)...:group.'dired-subtree)..(
1600 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 defcustom.dired-subtree-line-pre
1620 66 69 78 2d 66 61 63 65 20 27 70 61 72 65 6e 74 73 0a 20 20 22 53 70 65 63 69 66 69 65 73 20 68 fix-face.'parents..."Specifies.h
1640 6f 77 20 74 68 65 20 70 72 65 66 69 78 20 69 73 20 66 6f 6e 74 69 66 69 65 64 2e 22 0a 20 20 3a ow.the.prefix.is.fontified."...:
1660 74 79 70 65 20 27 28 72 61 64 69 6f 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 type.'(radio...........(const.:t
1680 61 67 20 22 4e 6f 20 66 61 63 65 20 61 70 70 6c 69 65 64 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 ag."No.face.applied".nil).......
16a0 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 49 6e 68 65 72 69 74 20 66 72 6f 6d 20 63 75 ....(const.:tag."Inherit.from.cu
16c0 72 72 65 6e 74 20 73 75 62 74 72 65 65 22 20 73 75 62 74 72 65 65 29 0a 20 20 20 20 20 20 20 20 rrent.subtree".subtree).........
16e0 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 49 6e 68 65 72 69 74 20 66 72 6f 6d 20 61 6c 6c 20 ..(const.:tag."Inherit.from.all.
1700 70 61 72 65 6e 74 73 22 20 70 61 72 65 6e 74 73 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 parents".parents))...:group.'dir
1720 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 75 ed-subtree)..(defcustom.dired-su
1740 62 74 72 65 65 2d 75 73 65 2d 62 61 63 6b 67 72 6f 75 6e 64 73 20 74 0a 20 20 22 57 68 65 6e 20 btree-use-backgrounds.t..."When.
1760 6e 6f 6e 2d 6e 69 6c 2c 20 61 64 64 20 61 20 62 61 63 6b 67 72 6f 75 6e 64 20 66 61 63 65 20 74 non-nil,.add.a.background.face.t
1780 6f 20 61 20 73 75 62 74 72 65 65 20 6c 69 73 74 69 6e 67 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 o.a.subtree.listing."...:type.'b
17a0 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a oolean...:group.'dired-subtree).
17c0 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 61 66 74 65 72 2d .(defcustom.dired-subtree-after-
17e0 69 6e 73 65 72 74 2d 68 6f 6f 6b 20 28 29 0a 20 20 22 48 6f 6f 6b 20 72 75 6e 20 61 74 20 74 68 insert-hook.()..."Hook.run.at.th
1800 65 20 65 6e 64 20 6f 66 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 74 27 2e e.end.of.`dired-subtree-insert'.
1820 22 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d "...:type.'hook...:group.'dired-
1840 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 75 62 74 72 subtree)..(defcustom.dired-subtr
1860 65 65 2d 61 66 74 65 72 2d 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 28 29 0a 20 20 22 48 6f 6f 6b 20 ee-after-remove-hook.()..."Hook.
1880 72 75 6e 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 run.at.the.end.of.`dired-subtree
18a0 2d 72 65 6d 6f 76 65 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 0a 20 20 3a 67 72 6f 75 -remove'."...:type.'hook...:grou
18c0 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 p.'dired-subtree)..(defcustom.di
18e0 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 2d 64 65 70 74 68 20 33 0a 20 20 22 44 65 66 red-subtree-cycle-depth.3..."Def
1900 61 75 6c 74 20 64 65 70 74 68 20 65 78 70 61 6e 64 65 64 20 62 79 20 60 64 69 72 65 64 2d 73 75 ault.depth.expanded.by.`dired-su
1920 62 74 72 65 65 2d 63 79 63 6c 65 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 61 74 6e 75 6d 0a 20 btree-cycle'."...:type.'natnum..
1940 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 63 75 73 .:group.'dired-subtree)..(defcus
1960 74 6f 6d 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 67 6e 6f 72 65 64 2d 72 65 67 65 78 70 tom.dired-subtree-ignored-regexp
1980 0a 20 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 28 72 65 67 65 78 70 2d 6f 70 74 20 76 63 2d 64 69 ...(concat."^".(regexp-opt.vc-di
19a0 72 65 63 74 6f 72 79 2d 65 78 63 6c 75 73 69 6f 6e 2d 6c 69 73 74 29 20 22 24 22 29 0a 20 20 22 rectory-exclusion-list)."$")..."
19c0 4d 61 74 63 68 69 6e 67 20 64 69 72 65 63 74 6f 72 69 65 73 20 77 69 6c 6c 20 6e 6f 74 20 62 65 Matching.directories.will.not.be
19e0 20 65 78 70 61 6e 64 65 64 20 69 6e 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c .expanded.in.`dired-subtree-cycl
1a00 65 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 72 65 67 65 78 70 0a 20 20 3a 67 72 6f 75 70 20 27 64 e'."...:type.'regexp...:group.'d
1a20 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 64 69 72 65 64 2d 73 ired-subtree)..(defgroup.dired-s
1a40 75 62 74 72 65 65 2d 66 61 63 65 73 20 28 29 0a 20 20 22 46 61 63 65 73 20 75 73 65 64 20 69 6e ubtree-faces.()..."Faces.used.in
1a60 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 .`dired-subtree'."...:group.'dir
1a80 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 65 64 2d 73 75 62 74 ed-subtree)..(defface.dired-subt
1aa0 72 65 65 2d 64 65 70 74 68 2d 31 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 62 61 63 6b 67 72 ree-depth-1-face...'((t.(:backgr
1ac0 6f 75 6e 64 20 22 23 32 35 32 65 33 30 22 29 29 29 0a 20 20 22 42 61 63 6b 67 72 6f 75 6e 64 20 ound."#252e30")))..."Background.
1ae0 66 6f 72 20 64 65 70 74 68 20 31 20 73 75 62 74 72 65 65 73 22 0a 20 20 3a 67 72 6f 75 70 20 27 for.depth.1.subtrees"...:group.'
1b00 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 64 dired-subtree-faces)..(defface.d
1b20 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 2d 32 2d 66 61 63 65 0a 20 20 27 28 28 74 ired-subtree-depth-2-face...'((t
1b40 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 32 33 32 61 32 62 22 29 29 29 0a 20 20 22 42 61 .(:background."#232a2b")))..."Ba
1b60 63 6b 67 72 6f 75 6e 64 20 66 6f 72 20 64 65 70 74 68 20 32 20 73 75 62 74 72 65 65 73 22 0a 20 ckground.for.depth.2.subtrees"..
1b80 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 66 61 63 65 73 29 0a 0a 28 .:group.'dired-subtree-faces)..(
1ba0 64 65 66 66 61 63 65 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 2d 33 2d 66 61 defface.dired-subtree-depth-3-fa
1bc0 63 65 0a 20 20 27 28 28 74 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 32 31 32 36 32 37 22 ce...'((t.(:background."#212627"
1be0 29 29 29 0a 20 20 22 42 61 63 6b 67 72 6f 75 6e 64 20 66 6f 72 20 64 65 70 74 68 20 33 20 73 75 )))..."Background.for.depth.3.su
1c00 62 74 72 65 65 73 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d btrees"...:group.'dired-subtree-
1c20 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 faces)..(defface.dired-subtree-d
1c40 65 70 74 68 2d 34 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 epth-4-face...'((t.(:background.
1c60 22 23 31 65 32 32 32 33 22 29 29 29 0a 20 20 22 42 61 63 6b 67 72 6f 75 6e 64 20 66 6f 72 20 64 "#1e2223")))..."Background.for.d
1c80 65 70 74 68 20 34 20 73 75 62 74 72 65 65 73 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 epth.4.subtrees"...:group.'dired
1ca0 2d 73 75 62 74 72 65 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 65 64 2d -subtree-faces)..(defface.dired-
1cc0 73 75 62 74 72 65 65 2d 64 65 70 74 68 2d 35 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 62 61 subtree-depth-5-face...'((t.(:ba
1ce0 63 6b 67 72 6f 75 6e 64 20 22 23 31 63 31 64 31 65 22 29 29 29 0a 20 20 22 42 61 63 6b 67 72 6f ckground."#1c1d1e")))..."Backgro
1d00 75 6e 64 20 66 6f 72 20 64 65 70 74 68 20 35 20 73 75 62 74 72 65 65 73 22 0a 20 20 3a 67 72 6f und.for.depth.5.subtrees"...:gro
1d20 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 up.'dired-subtree-faces)..(deffa
1d40 63 65 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 2d 36 2d 66 61 63 65 0a 20 20 ce.dired-subtree-depth-6-face...
1d60 27 28 28 74 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 31 61 31 39 31 61 22 29 29 29 0a 20 '((t.(:background."#1a191a")))..
1d80 20 22 42 61 63 6b 67 72 6f 75 6e 64 20 66 6f 72 20 64 65 70 74 68 20 36 20 73 75 62 74 72 65 65 ."Background.for.depth.6.subtree
1da0 73 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 66 61 63 65 73 s"...:group.'dired-subtree-faces
1dc0 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 )..(defvar.dired-subtree-overlay
1de0 73 20 6e 69 6c 0a 20 20 22 53 75 62 74 72 65 65 20 6f 76 65 72 6c 61 79 73 20 69 6e 20 74 68 69 s.nil..."Subtree.overlays.in.thi
1e00 73 20 62 75 66 66 65 72 2e 22 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 s.buffer.").(make-variable-buffe
1e20 72 2d 6c 6f 63 61 6c 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 29 r-local.'dired-subtree-overlays)
1e40 0a 0a 0c 0a 3b 3b 3b 20 4f 76 65 72 6c 61 79 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 0a 3b 3b 20 ....;;;.Overlay.manipulation.;;.
1e60 4d 61 79 62 65 20 77 65 20 73 68 6f 75 6c 64 20 61 62 73 74 72 61 63 74 20 74 68 65 20 6f 76 65 Maybe.we.should.abstract.the.ove
1e80 72 6c 61 79 2d 66 6f 6f 20 69 6e 74 6f 20 73 6f 6d 65 20 73 75 62 74 72 65 65 0a 3b 3b 20 66 75 rlay-foo.into.some.subtree.;;.fu
1ea0 6e 63 74 69 6f 6e 73 20 69 6e 73 74 65 61 64 21 21 21 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 nctions.instead!!!..(defun.dired
1ec0 2d 73 75 62 74 72 65 65 2d 2d 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 20 28 6f 76 29 0a 20 20 -subtree--remove-overlay.(ov)...
1ee0 22 52 65 6d 6f 76 65 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 6f 76 65 72 6c 61 79 20 4f 56 "Remove.dired-subtree.overlay.OV
1f00 2e 22 0a 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 ."...(setq.dired-subtree-overlay
1f20 73 0a 20 20 20 20 20 20 20 20 28 2d 2d 72 65 6d 6f 76 65 20 28 65 71 75 61 6c 20 69 74 20 6f 76 s.........(--remove.(equal.it.ov
1f40 29 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 29 29 0a 20 20 28 64 65 ).dired-subtree-overlays))...(de
1f60 6c 65 74 65 2d 6f 76 65 72 6c 61 79 20 6f 76 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d lete-overlay.ov))..(defun.dired-
1f80 73 75 62 74 72 65 65 2d 2d 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 28 6f 76 73 29 0a 20 subtree--remove-overlays.(ovs)..
1fa0 20 22 52 65 6d 6f 76 65 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 6f 76 65 72 6c 61 79 73 20 ."Remove.dired-subtree.overlays.
1fc0 4f 56 53 2e 22 0a 20 20 28 6d 61 70 63 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 72 65 OVS."...(mapc.'dired-subtree--re
1fe0 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 20 6f 76 73 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 move-overlay.ovs))..(defun.dired
2000 2d 73 75 62 74 72 65 65 2d 2d 63 6c 65 61 6e 75 70 2d 6f 76 65 72 6c 61 79 73 20 28 29 0a 20 20 -subtree--cleanup-overlays.()...
2020 22 52 65 6d 6f 76 65 20 74 68 65 20 60 6e 69 6c 27 20 76 61 6c 75 65 73 20 66 72 6f 6d 20 60 64 "Remove.the.`nil'.values.from.`d
2040 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 27 2e 22 0a 20 20 28 73 65 74 71 ired-subtree-overlays'."...(setq
2060 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 20 20 .dired-subtree-overlays.........
2080 28 2d 2d 72 65 6d 6f 76 65 20 28 6e 6f 74 20 28 6f 76 65 72 6c 61 79 2d 62 75 66 66 65 72 20 69 (--remove.(not.(overlay-buffer.i
20a0 74 29 29 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 29 29 29 0a 0a 28 t)).dired-subtree-overlays)))..(
20c0 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 61 6c 6c 2d 6f 76 73 defun.dired-subtree--get-all-ovs
20e0 20 28 29 0a 20 20 22 47 65 74 20 61 6c 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 6f 76 65 .()..."Get.all.dired-subtree.ove
2100 72 6c 61 79 73 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 2e 22 0a 20 20 28 2d 2d 66 69 6c 74 rlays.in.this.buffer."...(--filt
2120 65 72 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 er.(overlay-get.it.'dired-subtre
2140 65 2d 64 65 70 74 68 29 20 28 6f 76 65 72 6c 61 79 73 2d 69 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e e-depth).(overlays-in.(point-min
2160 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 ).(point-max))))..(defun.dired-s
2180 75 62 74 72 65 65 2d 2d 67 65 74 2d 61 6c 6c 2d 6f 76 73 2d 61 74 2d 70 6f 69 6e 74 20 28 26 6f ubtree--get-all-ovs-at-point.(&o
21a0 70 74 69 6f 6e 61 6c 20 70 29 0a 20 20 22 47 65 74 20 61 6c 6c 20 64 69 72 65 64 2d 73 75 62 74 ptional.p)..."Get.all.dired-subt
21c0 72 65 65 20 6f 76 65 72 6c 61 79 73 20 61 74 20 70 6f 69 6e 74 20 50 2e 22 0a 20 20 28 73 65 74 ree.overlays.at.point.P."...(set
21e0 71 20 70 20 28 6f 72 20 70 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 28 2d 2d 66 69 6c 74 65 72 20 q.p.(or.p.(point)))...(--filter.
2200 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 (overlay-get.it.'dired-subtree-d
2220 65 70 74 68 29 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 epth).(overlays-at.(point))))..(
2240 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 73 2d 69 6e 20 defun.dired-subtree--get-ovs-in.
2260 28 26 6f 70 74 69 6f 6e 61 6c 20 62 65 67 20 65 6e 64 29 0a 20 20 22 47 65 74 20 61 6c 6c 20 64 (&optional.beg.end)..."Get.all.d
2280 69 72 65 64 2d 73 75 62 74 72 65 65 20 6f 76 65 72 6c 61 79 73 20 62 65 74 77 65 65 6e 20 42 45 ired-subtree.overlays.between.BE
22a0 47 20 61 6e 64 20 45 4e 44 2e 0a 0a 42 45 47 20 61 6e 64 20 45 4e 44 20 64 65 66 61 75 6c 74 20 G.and.END...BEG.and.END.default.
22c0 74 6f 20 74 68 65 20 72 65 67 69 6f 6e 20 73 70 61 6e 6e 65 64 20 62 79 20 6f 76 65 72 6c 61 79 to.the.region.spanned.by.overlay
22e0 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 62 65 67 29 0a 20 20 .at.point."...(when.(not.beg)...
2300 20 20 28 6c 65 74 20 28 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d ..(let.((ov.(dired-subtree--get-
2320 6f 76 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 6f 76 65 72 6c 61 79 2d 73 ov))).......(setq.beg.(overlay-s
2340 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 6f 76 65 72 6c tart.ov)).......(setq.end.(overl
2360 61 79 2d 65 6e 64 20 6f 76 29 29 29 29 0a 20 20 28 2d 2d 66 69 6c 74 65 72 20 28 61 6e 64 20 28 ay-end.ov))))...(--filter.(and.(
2380 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 overlay-get.it.'dired-subtree-de
23a0 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 28 6f 76 65 72 6c pth)..................(>=.(overl
23c0 61 79 2d 73 74 61 72 74 20 69 74 29 20 62 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ay-start.it).beg)...............
23e0 20 20 20 28 3c 3d 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 69 74 29 20 65 6e 64 29 29 0a 20 20 ...(<=.(overlay-end.it).end))...
2400 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 73 2d 69 6e 20 28 70 6f 69 6e 74 2d 6d 69 ..........(overlays-in.(point-mi
2420 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d n).(point-max))))..(defun.dired-
2440 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 29 0a 20 20 subtree--get-ov.(&optional.p)...
2460 22 47 65 74 20 74 68 65 20 70 61 72 65 6e 74 20 73 75 62 74 72 65 65 20 6f 76 65 72 6c 61 79 20 "Get.the.parent.subtree.overlay.
2480 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 65 74 71 20 70 20 28 6f 72 20 70 20 28 70 6f 69 6e at.point."...(setq.p.(or.p.(poin
24a0 74 29 29 29 0a 20 20 28 63 61 72 20 28 2d 2d 73 6f 72 74 20 28 3e 20 28 6f 76 65 72 6c 61 79 2d t)))...(car.(--sort.(>.(overlay-
24c0 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 0a 20 20 20 get.it.'dired-subtree-depth)....
24e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 74 68 65 ...............(overlay-get.othe
2500 72 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 29 0a 20 20 20 20 20 20 20 r.'dired-subtree-depth))........
2520 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 61 6c 6c 2d ........(dired-subtree--get-all-
2540 6f 76 73 2d 61 74 2d 70 6f 69 6e 74 20 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 ovs-at-point.p))))..(defun.dired
2560 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 28 6f 76 29 0a 20 20 22 47 65 74 20 -subtree--get-depth.(ov)..."Get.
2580 73 75 62 74 72 65 65 20 64 65 70 74 68 2e 22 0a 20 20 28 6f 72 20 28 61 6e 64 20 6f 76 20 28 6f subtree.depth."...(or.(and.ov.(o
25a0 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 verlay-get.ov.'dired-subtree-dep
25c0 74 68 29 29 20 30 29 29 0a 0a 0a 0c 0a 3b 3b 3b 20 68 65 6c 70 65 72 73 0a 28 64 65 66 76 61 72 th)).0)).....;;;.helpers.(defvar
25e0 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 70 72 65 73 65 72 76 65 2d 70 72 6f 70 65 72 74 69 .dired-subtree-preserve-properti
2600 65 73 20 27 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 66 69 6c 74 65 72 29 0a 20 20 22 50 72 es.'(dired-subtree-filter)..."Pr
2620 6f 70 65 72 74 69 65 73 20 74 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 70 72 65 73 65 72 76 65 operties.that.should.be.preserve
2640 64 20 62 65 74 77 65 65 6e 20 72 65 61 64 2d 69 6e 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 d.between.read-ins.")..(defun.di
2660 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 61 66 74 65 72 2d 72 65 61 64 69 6e 20 28 26 6f 70 74 69 red-subtree--after-readin.(&opti
2680 6f 6e 61 6c 20 73 75 62 74 72 65 65 73 29 0a 20 20 22 49 6e 73 65 72 74 20 74 68 65 20 53 55 42 onal.subtrees)..."Insert.the.SUB
26a0 54 52 45 45 53 20 61 67 61 69 6e 20 61 66 74 65 72 20 64 69 72 65 64 20 62 75 66 66 65 72 20 68 TREES.again.after.dired.buffer.h
26c0 61 73 20 62 65 65 6e 20 72 65 76 65 72 74 65 64 2e 0a 0a 49 66 20 6e 6f 20 53 55 42 54 52 45 45 as.been.reverted...If.no.SUBTREE
26e0 53 20 61 72 65 20 73 70 65 63 69 66 69 65 64 2c 20 75 73 65 20 60 64 69 72 65 64 2d 73 75 62 74 S.are.specified,.use.`dired-subt
2700 72 65 65 2d 6f 76 65 72 6c 61 79 73 27 2e 22 0a 20 20 28 2d 77 68 65 6e 2d 6c 65 74 20 28 73 75 ree-overlays'."...(-when-let.(su
2720 62 74 72 65 65 73 2d 74 6f 2d 70 72 6f 63 65 73 73 20 28 6f 72 20 73 75 62 74 72 65 65 73 20 64 btrees-to-process.(or.subtrees.d
2740 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 29 29 0a 20 20 20 20 28 6c 65 74 ired-subtree-overlays)).....(let
2760 2a 20 28 28 6f 76 73 2d 62 79 2d 64 65 70 74 68 20 28 2d 2d 73 6f 72 74 20 28 3c 20 28 63 61 72 *.((ovs-by-depth.(--sort.(<.(car
2780 20 69 74 29 20 28 63 61 72 20 6f 74 68 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .it).(car.other))...............
27a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 2d 67 72 6f 75 70 2d 62 79 20 28 ...................(--group-by.(
27c0 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 overlay-get.it.'dired-subtree-de
27e0 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 pth)............................
2800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 74 72 65 65 73 2d 74 6f 2d 70 72 ..................subtrees-to-pr
2820 6f 63 65 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6f 72 74 65 64 2d 6f 76 73 20 ocess)))............(sorted-ovs.
2840 28 2d 2d 6d 61 70 20 28 63 6f 6e 73 20 28 63 61 72 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 (--map.(cons.(car.it)...........
2860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 2d 6d 61 70 ..........................(--map
2880 20 28 2d 63 6f 6e 73 2a 20 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(-cons*.it.....................
28a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
28c0 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 overlay-get.it.'dired-subtree-na
28e0 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 me).............................
2900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 .......................(-map.(la
2920 6d 62 64 61 20 28 78 29 20 28 63 6f 6e 73 20 78 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 69 74 mbda.(x).(cons.x.(overlay-get.it
2940 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .x)))...........................
2960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ...............................d
2980 69 72 65 64 2d 73 75 62 74 72 65 65 2d 70 72 65 73 65 72 76 65 2d 70 72 6f 70 65 72 74 69 65 73 ired-subtree-preserve-properties
29a0 29 29 20 28 63 64 72 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )).(cdr.it)))...................
29c0 20 20 20 20 20 20 20 20 20 20 20 20 6f 76 73 2d 62 79 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 ............ovs-by-depth))).....
29e0 20 20 3b 3b 20 28 64 65 70 74 68 20 28 70 61 74 68 31 20 6f 76 31 20 28 70 72 6f 70 31 20 2e 20 ..;;.(depth.(path1.ov1.(prop1...
2a00 76 61 6c 75 65 31 29 20 28 70 72 6f 70 32 20 2e 20 76 61 6c 75 65 32 29 29 20 28 70 61 74 68 32 value1).(prop2...value2)).(path2
2a20 20 2e 2e 2e 29 29 0a 20 20 20 20 20 20 28 2d 2d 65 61 63 68 20 73 6f 72 74 65 64 2d 6f 76 73 0a ....)).......(--each.sorted-ovs.
2a40 20 20 20 20 20 20 20 20 28 2d 2d 65 61 63 68 20 28 63 64 72 20 69 74 29 0a 20 20 20 20 20 20 20 ........(--each.(cdr.it)........
2a60 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 75 74 69 6c 73 2d 67 6f 74 6f 2d 6c 69 6e 65 20 ...(when.(dired-utils-goto-line.
2a80 28 63 61 64 72 20 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 (cadr.it)).............(dired-su
2aa0 62 74 72 65 65 2d 2d 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 20 28 63 61 72 20 69 74 29 29 0a btree--remove-overlay.(car.it)).
2ac0 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 ............(dired-subtree-inser
2ae0 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 76 20 28 64 69 72 65 64 2d t).............(let.((ov.(dired-
2b00 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 subtree--get-ov)))..............
2b20 20 28 2d 2d 65 61 63 68 20 28 63 64 64 72 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .(--each.(cddr.it)..............
2b40 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 28 63 61 72 20 69 74 29 20 28 63 64 72 ...(overlay-put.ov.(car.it).(cdr
2b60 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 .it)))...............(dired-subt
2b80 72 65 65 2d 2d 66 69 6c 74 65 72 2d 73 75 62 74 72 65 65 20 6f 76 29 29 29 29 29 29 29 29 0a 0a ree--filter-subtree.ov))))))))..
2ba0 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 61 66 74 65 72 2d 69 6e 73 65 (defun.dired-subtree--after-inse
2bc0 72 74 20 28 29 0a 20 20 22 41 66 74 65 72 20 69 6e 73 65 72 74 69 6e 67 20 74 68 65 20 73 75 62 rt.()..."After.inserting.the.sub
2be0 74 72 65 65 2c 20 73 65 74 75 70 20 64 69 72 65 64 2d 64 65 74 61 69 6c 73 2f 64 69 72 65 64 2d tree,.setup.dired-details/dired-
2c00 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 2e 22 0a 20 20 28 69 66 20 28 66 62 6f 75 6e hide-details-mode."...(if.(fboun
2c20 64 70 20 27 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 73 65 74 2d 70 72 6f 70 65 72 74 69 65 73 29 dp.'dired-insert-set-properties)
2c40 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 .......(let.((inhibit-read-only.
2c60 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 t).............(ov.(dired-subtre
2c80 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 69 6e 73 65 e--get-ov))).........(dired-inse
2ca0 72 74 2d 73 65 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 rt-set-properties.(overlay-start
2cc0 20 6f 76 29 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 29 0a 20 20 20 20 28 77 68 65 .ov).(overlay-end.ov))).....(whe
2ce0 6e 20 28 66 65 61 74 75 72 65 70 20 27 64 69 72 65 64 2d 64 65 74 61 69 6c 73 29 0a 20 20 20 20 n.(featurep.'dired-details).....
2d00 20 20 28 64 69 72 65 64 2d 64 65 74 61 69 6c 73 2d 64 65 6c 65 74 65 2d 6f 76 65 72 6c 61 79 73 ..(dired-details-delete-overlays
2d20 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 64 65 74 61 69 6c 73 2d 61 63 74 69 76 61 74 65 29 ).......(dired-details-activate)
2d40 29 29 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 61 66 74 65 72 2d 72 65 61 64 )))..(add-hook.'dired-after-read
2d60 69 6e 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 61 66 74 65 72 2d 72 65 in-hook.'dired-subtree--after-re
2d80 61 64 69 6e 29 0a 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d adin)..(add-hook.'dired-subtree-
2da0 61 66 74 65 72 2d 69 6e 73 65 72 74 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 after-insert-hook.'dired-subtree
2dc0 2d 2d 61 66 74 65 72 2d 69 6e 73 65 72 74 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 --after-insert)..(defun.dired-su
2de0 62 74 72 65 65 2d 2d 75 6e 6d 61 72 6b 20 28 29 0a 20 20 22 55 6e 6d 61 72 6b 20 61 20 66 69 6c btree--unmark.()..."Unmark.a.fil
2e00 65 20 77 69 74 68 6f 75 74 20 6d 6f 76 69 6e 67 20 70 6f 69 6e 74 2e 22 0a 20 20 28 73 61 76 65 e.without.moving.point."...(save
2e20 2d 65 78 63 75 72 73 69 6f 6e 20 28 64 69 72 65 64 2d 75 6e 6d 61 72 6b 20 31 29 29 29 0a 0a 28 -excursion.(dired-unmark.1)))..(
2e40 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 64 69 72 65 64 2d 6c 69 6e 65 2d defun.dired-subtree--dired-line-
2e60 69 73 2d 64 69 72 65 63 74 6f 72 79 2d 6f 72 2d 6c 69 6e 6b 2d 70 20 28 29 0a 20 20 22 52 65 74 is-directory-or-link-p.()..."Ret
2e80 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 6c 69 6e 65 20 75 6e 64 65 72 20 70 6f 69 6e 74 20 urn.non-nil.if.line.under.point.
2ea0 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 6f 72 20 73 79 6d 6c 69 6e 6b 22 0a 20 20 3b 3b 20 is.a.directory.or.symlink"...;;.
2ec0 57 65 27 76 65 20 72 65 70 6c 61 63 65 64 20 60 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 We've.replaced.`file-directory-p
2ee0 27 20 77 69 74 68 20 74 68 65 20 72 65 67 65 78 70 20 74 65 73 74 20 74 6f 0a 20 20 3b 3b 20 73 '.with.the.regexp.test.to...;;.s
2f00 70 65 65 64 20 75 70 20 66 69 6c 74 65 72 73 20 6f 76 65 72 20 54 52 41 4d 50 2e 20 20 53 6f 20 peed.up.filters.over.TRAMP...So.
2f20 6c 6f 6e 67 20 61 73 20 64 69 72 65 64 2f 6c 73 20 66 6f 72 6d 61 74 0a 20 20 3b 3b 20 64 6f 65 long.as.dired/ls.format...;;.doe
2f40 73 6e 27 74 20 63 68 61 6e 67 65 2c 20 77 65 27 72 65 20 67 6f 6f 64 2e 0a 20 20 3b 3b 20 27 64 sn't.change,.we're.good....;;.'d
2f60 27 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 27 6c 27 20 66 6f 72 20 70 6f 74 65 6e '.for.directories,.'l'.for.poten
2f80 74 69 61 6c 20 73 79 6d 6c 69 6e 6b 73 20 74 6f 20 64 69 72 65 63 74 6f 72 69 65 73 2e 0a 20 20 tial.symlinks.to.directories....
2fa0 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 (save-excursion.(beginning-of-li
2fc0 6e 65 29 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 2e 2e 5b 64 6c 5d 22 29 29 29 0a 0a 28 64 65 ne).(looking-at."..[dl]")))..(de
2fe0 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 fun.dired-subtree--is-expanded-p
3000 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 64 69 72 65 63 74 6f .()..."Return.non-nil.if.directo
3020 72 79 20 75 6e 64 65 72 20 70 6f 69 6e 74 20 69 73 20 65 78 70 61 6e 64 65 64 2e 22 0a 20 20 28 ry.under.point.is.expanded."...(
3040 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d save-excursion.....(when.(dired-
3060 75 74 69 6c 73 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 utils-get-filename).......(let.(
3080 28 64 65 70 74 68 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 (depth.(dired-subtree--get-depth
30a0 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 29 0a 20 20 20 20 .(dired-subtree--get-ov)))).....
30c0 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 ....(dired-next-line.1).........
30e0 28 3c 20 64 65 70 74 68 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 (<.depth.(dired-subtree--get-dep
3100 74 68 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 29 29 29 29 th.(dired-subtree--get-ov)))))))
3120 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 77 69 74 68 2d 73 ..(defmacro.dired-subtree-with-s
3140 75 62 74 72 65 65 20 28 26 72 65 73 74 20 66 6f 72 6d 73 29 0a 20 20 22 52 75 6e 20 46 4f 52 4d ubtree.(&rest.forms)..."Run.FORM
3160 53 20 6f 6e 20 65 61 63 68 20 66 69 6c 65 20 69 6e 20 74 68 69 73 20 73 75 62 74 72 65 65 2e 22 S.on.each.file.in.this.subtree."
3180 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 62 6f 64 79 29 29 29 0a 20 20 60 28 ...(declare.(debug.(body)))...`(
31a0 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 save-excursion......(dired-subtr
31c0 65 65 2d 62 65 67 69 6e 6e 69 6e 67 29 0a 20 20 20 20 20 2c 40 66 6f 72 6d 73 0a 20 20 20 20 20 ee-beginning)......,@forms......
31e0 28 77 68 69 6c 65 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 65 78 74 2d 73 69 62 6c 69 (while.(dired-subtree-next-sibli
3200 6e 67 29 0a 20 20 20 20 20 20 20 2c 40 66 6f 72 6d 73 29 29 29 0a 0a 0c 0a 3b 3b 3b 3b 20 49 6e ng)........,@forms)))....;;;;.In
3220 74 65 72 61 63 74 69 76 65 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e teractive..;;;###autoload.(defun
3240 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 72 72 6f 77 20 28 29 0a 20 20 22 4e 61 72 72 .dired-subtree-narrow.()..."Narr
3260 6f 77 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 74 68 69 73 20 73 75 62 74 72 65 65 2e 22 0a ow.the.buffer.to.this.subtree.".
3280 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 2d 77 68 65 6e 2d 6c 65 74 20 28 6f 76 ..(interactive)...(-when-let.(ov
32a0 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 0a 20 20 20 20 28 6e .(dired-subtree--get-ov)).....(n
32c0 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f arrow-to-region.(overlay-start.o
32e0 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 v).......................(overla
3300 79 2d 65 6e 64 20 6f 76 29 29 29 29 0a 0a 3b 3b 3b 20 4e 61 76 69 67 61 74 69 6f 6e 0a 0a 3b 3b y-end.ov))))..;;;.Navigation..;;
3320 20 6d 61 6b 65 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 61 63 74 75 61 6c 6c 79 20 64 6f 20 .make.the.arguments.actually.do.
3340 73 6f 6d 65 74 68 69 6e 67 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 something.;;;###autoload.(defun.
3360 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 dired-subtree-up.(&optional.arg)
3380 0a 20 20 22 4a 75 6d 70 20 75 70 20 6f 6e 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 ..."Jump.up.one.directory."...(i
33a0 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 2d 77 68 65 6e 2d 6c 65 74 20 28 6f 76 nteractive."p")...(-when-let.(ov
33c0 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 0a 20 20 20 20 28 67 .(dired-subtree--get-ov)).....(g
33e0 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 20 oto-char.(overlay-start.ov))....
3400 20 28 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 31 29 29 29 0a 0a 3b 3b 3b 23 .(dired-previous-line.1)))..;;;#
3420 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d ##autoload.(defun.dired-subtree-
3440 64 6f 77 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 4a 75 6d 70 20 64 6f 77 down.(&optional.arg)..."Jump.dow
3460 6e 20 6f 6e 65 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 n.one.directory."...(interactive
3480 20 22 70 22 29 0a 20 20 28 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 70 20 28 70 6f 69 6e 74 29 29 ."p")...(-when-let*.((p.(point))
34a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 20 28 63 61 72 20 28 2d 2d 73 6f 72 74 ................(ov.(car.(--sort
34c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 6f 76 ..........................(<.(ov
34e0 65 72 6c 61 79 2d 73 74 61 72 74 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 erlay-start.it).................
3500 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 74 68 65 72 ............(overlay-start.other
3520 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 2d 72 ))..........................(--r
3540 65 6d 6f 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 emove...........................
3560 28 3c 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 69 74 29 20 70 29 0a 20 20 20 20 20 20 20 (<.(overlay-start.it).p)........
3580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 ...................(dired-subtre
35a0 65 2d 2d 67 65 74 2d 61 6c 6c 2d 6f 76 73 29 29 29 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 e--get-all-ovs)))))).....(goto-c
35c0 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 28 64 69 72 har.(overlay-start.ov)).....(dir
35e0 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 ed-move-to-filename)))..;;;###au
3600 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 65 78 74 toload.(defun.dired-subtree-next
3620 2d 73 69 62 6c 69 6e 67 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 47 6f 20 74 -sibling.(&optional.arg)..."Go.t
3640 6f 20 74 68 65 20 6e 65 78 74 20 73 69 62 6c 69 6e 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 o.the.next.sibling."...(interact
3660 69 76 65 20 22 70 22 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 6f 76 20 28 64 69 ive."p")...(let.((current-ov.(di
3680 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 28 64 69 72 65 red-subtree--get-ov))).....(dire
36a0 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 6f 76 d-next-line.1).....(let.((new-ov
36c0 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 20 .(dired-subtree--get-ov)))......
36e0 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 64 69 72 65 64 2d 75 74 69 6c 73 .(cond........((not.(dired-utils
3700 2d 69 73 2d 66 69 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 -is-file-p)).........nil).......
3720 20 28 28 3c 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 63 .((<.(dired-subtree--get-depth.c
3740 75 72 72 65 6e 74 2d 6f 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 urrent-ov)............(dired-sub
3760 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 6e 65 77 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 tree--get-depth.new-ov))........
3780 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6e 65 77 2d 6f 76 29 .(goto-char.(overlay-end.new-ov)
37a0 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d ).........(dired-move-to-filenam
37c0 65 29 0a 20 20 20 20 20 20 20 20 74 29 0a 20 20 20 20 20 20 20 28 28 3e 20 28 64 69 72 65 64 2d e).........t)........((>.(dired-
37e0 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 63 75 72 72 65 6e 74 2d 6f 76 29 0a 20 subtree--get-depth.current-ov)..
3800 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 ..........(dired-subtree--get-de
3820 70 74 68 20 6e 65 77 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 61 64 64 20 6f 70 74 69 pth.new-ov)).........;;.add.opti
3840 6f 6e 20 74 6f 20 65 69 74 68 65 72 20 67 6f 20 74 6f 20 74 6f 70 20 6f 72 20 73 74 61 79 20 61 on.to.either.go.to.top.or.stay.a
3860 74 20 74 68 65 20 65 6e 64 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 70 72 65 76 69 6f 75 t.the.end.........(dired-previou
3880 73 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 74 s-line.1).........nil)........(t
38a0 20 74 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 .t)))))..;;;###autoload.(defun.d
38c0 69 72 65 64 2d 73 75 62 74 72 65 65 2d 70 72 65 76 69 6f 75 73 2d 73 69 62 6c 69 6e 67 20 28 26 ired-subtree-previous-sibling.(&
38e0 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 70 72 65 76 69 optional.arg)..."Go.to.the.previ
3900 6f 75 73 20 73 69 62 6c 69 6e 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 ous.sibling."...(interactive."p"
3920 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 6f 76 20 28 64 69 72 65 64 2d 73 75 62 )...(let.((current-ov.(dired-sub
3940 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 28 64 69 72 65 64 2d 70 72 65 76 69 tree--get-ov))).....(dired-previ
3960 6f 75 73 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 6f 76 20 28 64 ous-line.1).....(let.((new-ov.(d
3980 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 20 20 28 63 ired-subtree--get-ov))).......(c
39a0 6f 6e 64 0a 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 77 69 6c 6c 20 6e 65 65 64 20 62 65 74 ond........;;.this.will.need.bet
39c0 74 65 72 20 68 61 6e 64 6c 69 67 6e 20 69 66 20 77 65 20 68 61 76 65 20 69 6e 73 65 72 74 65 64 ter.handlign.if.we.have.inserted
39e0 0a 20 20 20 20 20 20 20 3b 3b 20 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 0a 20 20 20 20 20 20 ........;;.subdirectories.......
3a00 20 28 28 6e 6f 74 20 28 64 69 72 65 64 2d 75 74 69 6c 73 2d 69 73 2d 66 69 6c 65 2d 70 29 29 0a .((not.(dired-utils-is-file-p)).
3a20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 28 3c 20 28 64 69 72 65 64 2d 73 ........nil)........((<.(dired-s
3a40 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 63 75 72 72 65 6e 74 2d 6f 76 29 0a 20 20 ubtree--get-depth.current-ov)...
3a60 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 .........(dired-subtree--get-dep
3a80 74 68 20 6e 65 77 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 th.new-ov)).........(goto-char.(
3aa0 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6e 65 77 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 20 28 overlay-start.new-ov)).........(
3ac0 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 74 dired-previous-line.1).........t
3ae0 29 0a 20 20 20 20 20 20 20 28 28 3e 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 )........((>.(dired-subtree--get
3b00 2d 64 65 70 74 68 20 63 75 72 72 65 6e 74 2d 6f 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 -depth.current-ov)............(d
3b20 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 6e 65 77 2d 6f 76 29 29 ired-subtree--get-depth.new-ov))
3b40 0a 20 20 20 20 20 20 20 20 3b 3b 20 61 64 64 20 6f 70 74 69 6f 6e 20 74 6f 20 65 69 74 68 65 72 .........;;.add.option.to.either
3b60 20 67 6f 20 74 6f 20 74 6f 70 20 6f 72 20 73 74 61 79 20 61 74 20 74 68 65 20 65 6e 64 0a 20 20 .go.to.top.or.stay.at.the.end...
3b80 20 20 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 ......(dired-next-line.1).......
3ba0 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 28 74 20 74 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 ..nil)........(t.t)))))..;;;###a
3bc0 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 62 65 67 utoload.(defun.dired-subtree-beg
3be0 69 6e 6e 69 6e 67 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 66 69 6c inning.()..."Go.to.the.first.fil
3c00 65 20 69 6e 20 74 68 69 73 20 73 75 62 74 72 65 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 e.in.this.subtree."...(interacti
3c20 76 65 29 0a 20 20 28 6c 65 74 20 28 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d ve)...(let.((ov.(dired-subtree--
3c40 67 65 74 2d 6f 76 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6f 76 29 0a 20 20 20 20 20 get-ov))).....(if.(not.ov)......
3c60 20 20 20 3b 3b 20 64 6f 20 73 6f 6d 65 74 68 69 6e 67 20 77 68 65 6e 20 6e 6f 74 20 69 6e 20 73 ...;;.do.something.when.not.in.s
3c80 75 62 74 72 65 65 0a 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 ubtree.........t.......(goto-cha
3ca0 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 20 20 28 64 69 72 r.(overlay-start.ov)).......(dir
3cc0 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 ed-move-to-filename))))..;;;###a
3ce0 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 65 6e 64 utoload.(defun.dired-subtree-end
3d00 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 20 69 6e 20 74 .()..."Go.to.the.first.file.in.t
3d20 68 69 73 20 73 75 62 74 72 65 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 his.subtree."...(interactive)...
3d40 28 6c 65 74 20 28 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 (let.((ov.(dired-subtree--get-ov
3d60 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6f 76 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 ))).....(if.(not.ov).........;;.
3d80 64 6f 20 73 6f 6d 65 74 68 69 6e 67 20 77 68 65 6e 20 6e 6f 74 20 69 6e 20 73 75 62 74 72 65 65 do.something.when.not.in.subtree
3da0 0a 20 20 20 20 20 20 20 20 74 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 .........t.......(goto-char.(ove
3dc0 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 70 72 65 76 69 rlay-end.ov)).......(dired-previ
3de0 6f 75 73 2d 6c 69 6e 65 20 31 29 29 29 29 0a 0a 3b 3b 3b 20 4d 61 72 6b 69 6e 67 0a 0a 3b 3b 3b ous-line.1))))..;;;.Marking..;;;
3e00 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 ###autoload.(defun.dired-subtree
3e20 2d 6d 61 72 6b 2d 73 75 62 74 72 65 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 6c 29 0a 20 20 -mark-subtree.(&optional.all)...
3e40 22 4d 61 72 6b 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 74 68 69 73 20 73 75 62 74 72 65 65 2e "Mark.all.files.in.this.subtree.
3e60 0a 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 6d 61 72 6b 20 61 6c 6c 20 ..With.prefix.argument.mark.all.
3e80 74 68 65 20 66 69 6c 65 73 20 69 6e 20 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 0a 72 65 63 75 the.files.in.subdirectories.recu
3ea0 72 73 69 76 65 6c 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 rsively."...(interactive."P")...
3ec0 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 69 66 20 61 6c 6c 0a 20 20 20 20 (save-excursion.....(if.all.....
3ee0 20 20 20 20 28 6c 65 74 20 28 28 62 65 67 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 ....(let.((beg.(save-excursion..
3f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 ....................(dired-subtr
3f20 65 65 2d 62 65 67 69 6e 6e 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ee-beginning)...................
3f40 20 20 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 ...(point)))...............(end.
3f60 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (save-excursion.................
3f80 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 .....(dired-subtree-end)........
3fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 20 ..............(point))))........
3fc0 20 20 20 28 64 69 72 65 64 2d 6d 61 72 6b 2d 66 69 6c 65 73 2d 69 6e 2d 72 65 67 69 6f 6e 0a 20 ...(dired-mark-files-in-region..
3fe0 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 29 ..........(progn.(goto-char.beg)
4000 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 .(line-beginning-position)).....
4020 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 65 6e 64 29 20 28 6c .......(progn.(goto-char.end).(l
4040 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 ine-end-position)))).......(dire
4060 64 2d 73 75 62 74 72 65 65 2d 62 65 67 69 6e 6e 69 6e 67 29 0a 20 20 20 20 20 20 28 73 61 76 65 d-subtree-beginning).......(save
4080 2d 65 78 63 75 72 73 69 6f 6e 20 28 64 69 72 65 64 2d 6d 61 72 6b 20 31 29 29 0a 20 20 20 20 20 -excursion.(dired-mark.1))......
40a0 20 28 77 68 69 6c 65 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 65 78 74 2d 73 69 62 6c .(while.(dired-subtree-next-sibl
40c0 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 64 69 ing).........(save-excursion.(di
40e0 72 65 64 2d 6d 61 72 6b 20 31 29 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 red-mark.1))))))..;;;###autoload
4100 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 6e 6d 61 72 6b 2d 73 75 62 .(defun.dired-subtree-unmark-sub
4120 74 72 65 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 6c 29 0a 20 20 22 55 6e 6d 61 72 6b 20 61 tree.(&optional.all)..."Unmark.a
4140 6c 6c 20 66 69 6c 65 73 20 69 6e 20 74 68 69 73 20 73 75 62 74 72 65 65 2e 0a 0a 57 69 74 68 20 ll.files.in.this.subtree...With.
4160 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 75 6e 6d 61 72 6b 20 61 6c 6c 20 74 68 65 20 66 prefix.argument.unmark.all.the.f
4180 69 6c 65 73 20 69 6e 20 73 75 62 64 69 72 65 63 74 6f 72 69 65 73 0a 72 65 63 75 72 73 69 76 65 iles.in.subdirectories.recursive
41a0 6c 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 64 69 ly."...(interactive)...(let.((di
41c0 72 65 64 2d 6d 61 72 6b 65 72 2d 63 68 61 72 20 3f 20 29 29 0a 20 20 20 20 28 64 69 72 65 64 2d red-marker-char.?.)).....(dired-
41e0 73 75 62 74 72 65 65 2d 6d 61 72 6b 2d 73 75 62 74 72 65 65 20 61 6c 6c 29 29 29 0a 0a 3b 3b 3b subtree-mark-subtree.all)))..;;;
4200 20 49 6e 73 65 72 74 69 6f 6e 2f 64 65 6c 65 74 69 6f 6e 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f .Insertion/deletion.;;;###autolo
4220 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 72 65 76 65 72 74 20 28 ad.(defun.dired-subtree-revert.(
4240 29 0a 20 20 22 52 65 76 65 72 74 20 74 68 65 20 73 75 62 74 72 65 65 2e 0a 0a 54 68 69 73 20 6d )..."Revert.the.subtree...This.m
4260 65 61 6e 73 20 72 65 69 6e 73 65 72 74 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 eans.reinserting.the.content.of.
4280 74 68 69 73 20 73 75 62 74 72 65 65 20 61 6e 64 20 61 6c 6c 20 69 74 73 0a 63 68 69 6c 64 72 65 this.subtree.and.all.its.childre
42a0 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 n."...(interactive)...(let.((inh
42c0 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d ibit-read-only.t).........(file-
42e0 6e 61 6d 65 20 28 64 69 72 65 64 2d 75 74 69 6c 73 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 29 name.(dired-utils-get-filename))
4300 29 0a 20 20 20 20 28 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6f 76 20 28 64 69 72 65 64 2d 73 75 ).....(-when-let*.((ov.(dired-su
4320 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 btree--get-ov)).................
4340 20 28 6f 76 73 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 73 2d 69 6e .(ovs.(dired-subtree--get-ovs-in
4360 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 70 29 0a 20 20 20 ))).......(dired-subtree-up)....
4380 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 ...(delete-region.(overlay-start
43a0 20 6f 76 29 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 0a 20 20 20 20 20 20 28 64 69 .ov).(overlay-end.ov)).......(di
43c0 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 61 66 74 65 72 2d 72 65 61 64 69 6e 20 6f 76 73 29 0a 20 red-subtree--after-readin.ovs)..
43e0 20 20 20 20 20 28 77 68 65 6e 20 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 28 64 69 .....(when.file-name.........(di
4400 72 65 64 2d 75 74 69 6c 73 2d 67 6f 74 6f 2d 6c 69 6e 65 20 66 69 6c 65 2d 6e 61 6d 65 29 29 29 red-utils-goto-line.file-name)))
4420 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 72 65 61 64 69 6e ))..(defun.dired-subtree--readin
4440 20 28 64 69 72 2d 6e 61 6d 65 29 0a 20 20 22 52 65 61 64 20 69 6e 20 74 68 65 20 64 69 72 65 63 .(dir-name)..."Read.in.the.direc
4460 74 6f 72 79 2e 0a 0a 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 73 75 69 74 61 62 6c 65 20 tory...Return.a.string.suitable.
4480 66 6f 72 20 69 6e 73 65 72 74 69 6f 6e 20 69 6e 20 60 64 69 72 65 64 27 20 62 75 66 66 65 72 2e for.insertion.in.`dired'.buffer.
44a0 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 "...(with-temp-buffer.....(inser
44c0 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 2d 6e 61 6d 65 20 64 69 72 65 64 2d 6c 69 73 74 69 t-directory.dir-name.dired-listi
44e0 6e 67 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 74 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 63 ng-switches.nil.t).....(delete-c
4500 68 61 72 20 2d 31 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 har.-1).....(goto-char.(point-mi
4520 6e 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 0a 20 20 20 20 20 28 70 72 6f n)).....(delete-region......(pro
4540 67 6e 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 20 28 70 6f 69 6e 74 29 29 0a gn.(beginning-of-line).(point)).
4560 20 20 20 20 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 0a 20 20 20 20 20 20 .....(progn.(forward-line.......
4580 20 20 20 20 20 20 20 28 69 66 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 .......(if.(save-excursion......
45a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 0a 20 ..............(forward-line.1)..
45c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 0a ..................(end-of-line).
45e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 62 61 63 6b ...................(looking-back
4600 20 22 5c 5c 2e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 31 29 29 20 ."\\."))..................3.1)).
4620 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 20 22 29 0a 20 20 20 20 (point))).....(insert."..").....
4640 28 77 68 69 6c 65 20 28 3d 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 20 30 29 0a 20 20 20 20 (while.(=.(forward-line).0).....
4660 20 20 28 69 6e 73 65 72 74 20 22 20 20 22 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 63 68 61 ..(insert."..")).....(delete-cha
4680 72 20 2d 32 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 0a 3b 3b 3b r.-2).....(buffer-string)))..;;;
46a0 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 ###autoload.(defun.dired-subtree
46c0 2d 69 6e 73 65 72 74 20 28 29 0a 20 20 22 49 6e 73 65 72 74 20 73 75 62 74 72 65 65 20 75 6e 64 -insert.()..."Insert.subtree.und
46e0 65 72 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 er.this.directory."...(interacti
4700 76 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d ve)...(when.(and.(dired-subtree-
4720 2d 64 69 72 65 64 2d 6c 69 6e 65 2d 69 73 2d 64 69 72 65 63 74 6f 72 79 2d 6f 72 2d 6c 69 6e 6b -dired-line-is-directory-or-link
4740 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 64 69 72 65 64 2d 73 75 62 -p)..............(not.(dired-sub
4760 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 29 29 0a 20 20 20 20 28 6c 65 74 2a tree--is-expanded-p))).....(let*
4780 20 28 28 64 69 72 2d 6e 61 6d 65 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 .((dir-name.(dired-get-filename.
47a0 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 69 6e 67 20 28 64 69 72 65 64 nil))............(listing.(dired
47c0 2d 73 75 62 74 72 65 65 2d 2d 72 65 61 64 69 6e 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 -subtree--readin.(file-name-as-d
47e0 69 72 65 63 74 6f 72 79 20 64 69 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 irectory.dir-name)))............
4800 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d 6d 6f 64 65 20 2d beg.end).......(read-only-mode.-
4820 31 29 0a 20 20 20 20 20 20 28 6d 6f 76 65 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 31 29 0a 20 20 1).......(move-end-of-line.1)...
4840 20 20 20 20 3b 3b 20 74 68 69 73 20 69 73 20 70 72 65 74 74 79 20 75 67 6c 79 2c 20 49 27 6d 20 ....;;.this.is.pretty.ugly,.I'm.
4860 73 75 72 65 20 69 74 20 63 61 6e 20 62 65 20 64 6f 6e 65 20 62 65 74 74 65 72 0a 20 20 20 20 20 sure.it.can.be.done.better......
4880 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 .(save-excursion.........(insert
48a0 20 6c 69 73 74 69 6e 67 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6e 64 20 28 2b 20 28 .listing).........(setq.end.(+.(
48c0 70 6f 69 6e 74 29 20 32 29 29 29 0a 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 point).2))).......(newline).....
48e0 20 20 28 73 65 74 71 20 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 ..(setq.beg.(point)).......(let.
4900 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 20 20 ((inhibit-read-only.t)).........
4920 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 31 2d 20 62 65 67 29 (remove-text-properties.(1-.beg)
4940 20 62 65 67 20 27 28 64 69 72 65 64 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 28 .beg.'(dired-filename))).......(
4960 6c 65 74 2a 20 28 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 62 65 67 20 65 6e 64 29 let*.((ov.(make-overlay.beg.end)
4980 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 65 6e 74 20 28 64 69 72 65 64 2d 73 75 )..............(parent.(dired-su
49a0 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 20 28 31 2d 20 62 65 67 29 29 29 0a 20 20 20 20 20 20 20 btree--get-ov.(1-.beg)))........
49c0 20 20 20 20 20 20 28 64 65 70 74 68 20 28 6f 72 20 28 61 6e 64 20 70 61 72 65 6e 74 20 28 31 2b ......(depth.(or.(and.parent.(1+
49e0 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 70 61 72 65 6e 74 20 27 64 69 72 65 64 2d 73 75 62 74 .(overlay-get.parent.'dired-subt
4a00 72 65 65 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ree-depth)))....................
4a20 20 20 20 20 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 69 6e 74 .....1))..............(face.(int
4a40 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 ern.(format."dired-subtree-depth
4a60 2d 25 64 2d 66 61 63 65 22 20 64 65 70 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 -%d-face".depth)))).........(whe
4a80 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 73 65 2d 62 61 63 6b 67 72 6f 75 6e 64 73 0a n.dired-subtree-use-backgrounds.
4aa0 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 66 61 63 65 20 ..........(overlay-put.ov.'face.
4ac0 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 72 65 66 61 63 74 6f 72 20 74 68 69 73 20 face)).........;;.refactor.this.
4ae0 74 6f 20 73 6f 6d 65 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 to.some.function.........(overla
4b00 79 2d 70 75 74 20 6f 76 20 27 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 y-put.ov.'line-prefix...........
4b20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 64 69 72 65 64 2d 73 75 ...........(if.(stringp.dired-su
4b40 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 btree-line-prefix)..............
4b60 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 64 69 72 65 64 2d 73 75 62 74 72 ............(if.(not.dired-subtr
4b80 65 65 2d 75 73 65 2d 62 61 63 6b 67 72 6f 75 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ee-use-backgrounds).............
4ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 20 .................(apply.'concat.
4bc0 28 2d 72 65 70 65 61 74 20 64 65 70 74 68 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e (-repeat.depth.dired-subtree-lin
4be0 65 2d 70 72 65 66 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-prefix))......................
4c00 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......(cond.....................
4c20 20 20 20 20 20 20 20 20 28 28 65 71 20 6e 69 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c ........((eq.nil.dired-subtree-l
4c40 69 6e 65 2d 70 72 65 66 69 78 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ine-prefix-face)................
4c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 0a 20 20 20 ..............(apply.'concat....
4c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
4ca0 20 28 2d 72 65 70 65 61 74 20 64 65 70 74 68 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 .(-repeat.depth.dired-subtree-li
4cc0 6e 65 2d 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ne-prefix)))....................
4ce0 20 20 20 20 20 20 20 20 20 28 28 65 71 20 27 73 75 62 74 72 65 65 20 64 69 72 65 64 2d 73 75 62 .........((eq.'subtree.dired-sub
4d00 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 tree-line-prefix-face)..........
4d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 ....................(concat.....
4d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d ..........................dired-
4d60 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 subtree-line-prefix.............
4d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 ..................(propertize...
4da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 .............................(ap
4dc0 70 6c 79 20 27 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ply.'concat.....................
4de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 72 65 70 65 61 74 20 28 31 2d 20 64 ..................(-repeat.(1-.d
4e00 65 70 74 68 29 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 29 epth).dired-subtree-line-prefix)
4e20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
4e40 20 27 66 61 63 65 20 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .'face.face)))..................
4e60 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 27 70 61 72 65 6e 74 73 20 64 69 72 65 64 2d 73 ...........((eq.'parents.dired-s
4e80 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 ubtree-line-prefix-face)........
4ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 ......................(concat...
4ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 ............................dire
4ee0 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 d-subtree-line-prefix...........
4f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 ....................(apply.'conc
4f20 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 at..............................
4f40 20 20 20 20 20 20 20 20 28 2d 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ........(--map..................
4f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 .....................(propertize
4f80 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 20 20 20 .dired-subtree-line-prefix......
4fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
4fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .............'face..............
4fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
5000 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 65 64 2d 73 75 62 74 .....(intern.(format."dired-subt
5020 72 65 65 2d 64 65 70 74 68 2d 25 64 2d 66 61 63 65 22 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 ree-depth-%d-face".it)))........
5040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
5060 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 20 31 20 28 31 2d 20 64 65 70 74 68 29 29 29 29 29 number-sequence.1.(1-.depth)))))
5080 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 )))........................(func
50a0 61 6c 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 64 65 all.dired-subtree-line-prefix.de
50c0 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 pth))).........(overlay-put.ov.'
50e0 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 6d 65 20 64 69 72 2d 6e 61 6d 65 29 0a 20 20 20 dired-subtree-name.dir-name)....
5100 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 62 74 .....(overlay-put.ov.'dired-subt
5120 72 65 65 2d 70 61 72 65 6e 74 20 70 61 72 65 6e 74 29 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 ree-parent.parent).........(over
5140 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 20 lay-put.ov.'dired-subtree-depth.
5160 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 depth).........(overlay-put.ov.'
5180 65 76 61 70 6f 72 61 74 65 20 74 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 6f 76 20 64 69 evaporate.t).........(push.ov.di
51a0 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 76 65 72 6c 61 79 73 29 29 0a 20 20 20 20 20 20 28 67 6f red-subtree-overlays)).......(go
51c0 74 6f 2d 63 68 61 72 20 62 65 67 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 to-char.beg).......(dired-move-t
51e0 6f 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 72 65 61 64 2d 6f 6e 6c 79 2d 6d 6f 64 o-filename).......(read-only-mod
5200 65 20 31 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 e.1).......(when.(bound-and-true
5220 2d 70 20 64 69 72 65 64 2d 66 69 6c 74 65 72 2d 6d 6f 64 65 29 20 28 64 69 72 65 64 2d 66 69 6c -p.dired-filter-mode).(dired-fil
5240 74 65 72 2d 6d 6f 64 65 20 31 29 29 0a 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 64 ter-mode.1)).......(run-hooks.'d
5260 69 72 65 64 2d 73 75 62 74 72 65 65 2d 61 66 74 65 72 2d 69 6e 73 65 72 74 2d 68 6f 6f 6b 29 29 ired-subtree-after-insert-hook))
5280 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d ))..;;;###autoload.(defun.dired-
52a0 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 73 75 62 74 subtree-remove.()..."Remove.subt
52c0 72 65 65 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 ree.at.point."...(interactive)..
52e0 20 28 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 .(-when-let*.((ov.(dired-subtree
5300 2d 2d 67 65 74 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 73 20 28 --get-ov))................(ovs.(
5320 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 73 2d 69 6e 0a 20 20 20 20 20 20 dired-subtree--get-ovs-in.......
5340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 ...............(overlay-start.ov
5360 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d )......................(overlay-
5380 65 6e 64 20 6f 76 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 end.ov)))).....(let.((inhibit-re
53a0 61 64 2d 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 ad-only.t)).......(dired-subtree
53c0 2d 75 70 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6f 76 65 72 6c -up).......(delete-region.(overl
53e0 61 79 2d 73 74 61 72 74 20 6f 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ay-start.ov)....................
5400 20 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 ..(overlay-end.ov)).......(dired
5420 2d 73 75 62 74 72 65 65 2d 2d 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 6f 76 73 29 29 29 -subtree--remove-overlays.ovs)))
5440 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 61 66 74 ...(run-hooks.'dired-subtree-aft
5460 65 72 2d 72 65 6d 6f 76 65 2d 68 6f 6f 6b 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 er-remove-hook))..;;;###autoload
5480 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 20 28 29 0a .(defun.dired-subtree-toggle.().
54a0 20 20 22 49 6e 73 65 72 74 20 73 75 62 74 72 65 65 20 61 74 20 70 6f 69 6e 74 20 6f 72 20 72 65 .."Insert.subtree.at.point.or.re
54c0 6d 6f 76 65 20 69 74 20 69 66 20 69 74 20 77 61 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e 22 0a move.it.if.it.was.not.present.".
54e0 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 64 69 72 65 64 2d 73 75 62 ..(interactive)...(if.(dired-sub
5500 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 28 70 72 6f 67 tree--is-expanded-p).......(prog
5520 6e 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 n.........(dired-next-line.1)...
5540 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 29 0a 20 20 20 ......(dired-subtree-remove)....
5560 20 20 20 20 20 3b 3b 20 23 31 37 35 20 66 69 78 65 73 20 74 68 65 20 63 61 73 65 20 6f 66 20 74 .....;;.#175.fixes.the.case.of.t
5580 68 65 20 66 69 72 73 74 20 6c 69 6e 65 20 69 6e 20 64 69 72 65 64 20 77 68 65 6e 20 74 68 65 0a he.first.line.in.dired.when.the.
55a0 20 20 20 20 20 20 20 20 3b 3b 20 63 75 72 73 6f 72 20 6a 75 6d 70 73 20 74 6f 20 74 68 65 20 68 ........;;.cursor.jumps.to.the.h
55c0 65 61 64 65 72 20 69 6e 20 64 69 72 65 64 20 72 61 74 68 65 72 20 74 68 65 6e 20 74 6f 20 74 68 eader.in.dired.rather.then.to.th
55e0 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 66 69 72 73 74 20 66 69 6c 65 20 69 6e 20 62 75 66 66 65 e.........;;.first.file.in.buffe
5600 72 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 6f 62 70 29 0a 20 20 20 20 20 20 20 20 20 r.........(when.(bobp)..........
5620 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 29 29 0a 20 20 20 20 28 73 61 76 65 .(dired-next-line.1))).....(save
5640 2d 65 78 63 75 72 73 69 6f 6e 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 74 -excursion.(dired-subtree-insert
5660 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 6e 73 65 ))))..(defun.dired-subtree--inse
5680 72 74 2d 72 65 63 75 72 73 69 76 65 20 28 64 65 70 74 68 20 6d 61 78 2d 64 65 70 74 68 29 0a 20 rt-recursive.(depth.max-depth)..
56a0 20 22 49 6e 73 65 72 74 20 66 75 6c 6c 20 73 75 62 74 72 65 65 20 61 74 20 70 6f 69 6e 74 2e 22 ."Insert.full.subtree.at.point."
56c0 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 61 ...(save-excursion.....(let.((na
56e0 6d 65 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 0a me.(dired-get-filename.nil.t))).
5700 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e 61 6d 65 20 28 66 69 6c 65 2d 64 69 72 65 ......(when.(and.name.(file-dire
5720 63 74 6f 72 79 2d 70 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ctory-p.name)..................(
5740 3c 3d 20 64 65 70 74 68 20 28 6f 72 20 6d 61 78 2d 64 65 70 74 68 20 64 65 70 74 68 29 29 0a 20 <=.depth.(or.max-depth.depth))..
5760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 3d 20 31 20 64 65 70 74 68 29 0a ................(or.(=.1.depth).
5780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e .....................(not.(strin
57a0 67 2d 6d 61 74 63 68 2d 70 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 67 6e 6f 72 65 64 2d g-match-p.dired-subtree-ignored-
57c0 72 65 67 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 regexp..........................
57e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 .................(file-name-nond
5800 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 irectory.name))))).........(if.(
5820 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 dired-subtree--is-expanded-p)...
5840 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 ..........(dired-next-line.1)...
5860 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 74 29 29 0a ........(dired-subtree-insert)).
5880 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 65 6e 64 29 0a 20 20 20 20 ........(dired-subtree-end).....
58a0 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 2d 72 65 63 75 72 ....(dired-subtree--insert-recur
58c0 73 69 76 65 20 28 31 2b 20 64 65 70 74 68 29 20 6d 61 78 2d 64 65 70 74 68 29 0a 20 20 20 20 20 sive.(1+.depth).max-depth)......
58e0 20 20 20 28 77 68 69 6c 65 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 70 72 65 76 69 6f 75 ...(while.(dired-subtree-previou
5900 73 2d 73 69 62 6c 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 s-sibling)...........(dired-subt
5920 72 65 65 2d 2d 69 6e 73 65 72 74 2d 72 65 63 75 72 73 69 76 65 20 28 31 2b 20 64 65 70 74 68 29 ree--insert-recursive.(1+.depth)
5940 20 6d 61 78 2d 64 65 70 74 68 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d .max-depth))))))..(defvar.dired-
5960 73 75 62 74 72 65 65 2d 2d 63 79 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 6e 69 6c 0a 20 20 22 52 subtree--cycle-previous.nil..."R
5980 65 6d 65 6d 62 65 72 20 70 72 65 76 69 6f 75 73 20 61 63 74 69 6f 6e 20 66 6f 72 20 60 64 69 72 emember.previous.action.for.`dir
59a0 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 27 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c ed-subtree-cycle'")..;;;###autol
59c0 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 20 28 oad.(defun.dired-subtree-cycle.(
59e0 26 6f 70 74 69 6f 6e 61 6c 20 6d 61 78 2d 64 65 70 74 68 29 0a 20 20 22 4f 72 67 2d 6d 6f 64 65 &optional.max-depth)..."Org-mode
5a00 20 6c 69 6b 65 20 63 79 63 6c 65 20 76 69 73 69 62 69 6c 69 74 79 3a 0a 0a 31 29 20 53 68 6f 77 .like.cycle.visibility:..1).Show
5a20 20 73 75 62 74 72 65 65 0a 32 29 20 53 68 6f 77 20 73 75 62 74 72 65 65 20 72 65 63 75 72 73 69 .subtree.2).Show.subtree.recursi
5a40 76 65 6c 79 20 28 69 66 20 70 72 65 76 69 6f 75 73 20 63 6f 6d 6d 61 6e 64 20 77 61 73 20 63 79 vely.(if.previous.command.was.cy
5a60 63 6c 65 29 0a 33 29 20 52 65 6d 6f 76 65 20 73 75 62 74 72 65 65 0a 0a 4e 75 6d 65 72 69 63 20 cle).3).Remove.subtree..Numeric.
5a80 70 72 65 66 69 78 20 77 69 6c 6c 20 73 65 74 20 6d 61 78 20 64 65 70 74 68 22 0a 20 20 28 69 6e prefix.will.set.max.depth"...(in
5aa0 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e teractive."P")...(save-excursion
5ac0 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 3b 3b 20 70 72 65 66 69 78 20 2d 20 73 68 6f 77 .....(cond......;;.prefix.-.show
5ae0 20 73 75 62 74 72 65 65 73 20 75 70 20 74 6f 20 6d 61 78 2d 64 65 70 74 68 0a 20 20 20 20 20 28 .subtrees.up.to.max-depth......(
5b00 6d 61 78 2d 64 65 70 74 68 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 75 62 max-depth.......(when.(dired-sub
5b20 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 28 64 69 tree--is-expanded-p).........(di
5b40 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d red-next-line.1).........(dired-
5b60 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 subtree-remove)).......(dired-su
5b80 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 2d 72 65 63 75 72 73 69 76 65 20 31 20 28 69 66 20 28 69 btree--insert-recursive.1.(if.(i
5ba0 6e 74 65 67 65 72 70 20 6d 61 78 2d 64 65 70 74 68 29 20 6d 61 78 2d 64 65 70 74 68 20 6e 69 6c ntegerp.max-depth).max-depth.nil
5bc0 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 63 79 )).......(setq.dired-subtree--cy
5be0 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 3a 66 75 6c 6c 29 29 0a 20 20 20 20 20 3b 3b 20 69 66 20 cle-previous.:full))......;;.if.
5c00 64 69 72 65 63 74 6f 72 79 20 69 73 20 6e 6f 74 20 65 78 70 61 6e 64 65 64 2c 20 65 78 70 61 6e directory.is.not.expanded,.expan
5c20 64 20 6f 6e 65 20 6c 65 76 65 6c 0a 20 20 20 20 20 28 28 6e 6f 74 20 28 64 69 72 65 64 2d 73 75 d.one.level......((not.(dired-su
5c40 62 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 29 0a 20 20 20 20 20 20 28 64 69 btree--is-expanded-p)).......(di
5c60 72 65 64 2d 73 75 62 74 72 65 65 2d 69 6e 73 65 72 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 red-subtree-insert).......(setq.
5c80 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 63 79 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 3a 69 dired-subtree--cycle-previous.:i
5ca0 6e 73 65 72 74 29 29 0a 20 20 20 20 20 3b 3b 20 68 69 64 65 20 69 66 20 70 72 65 76 69 6f 75 73 nsert))......;;.hide.if.previous
5cc0 20 63 6f 6d 6d 61 6e 64 20 77 61 73 20 6e 6f 74 20 63 79 63 6c 65 20 6f 72 20 74 72 65 65 20 77 .command.was.not.cycle.or.tree.w
5ce0 61 73 20 66 75 6c 6c 79 20 65 78 70 61 6e 64 65 64 0a 20 20 20 20 20 28 28 6f 72 20 28 6e 6f 74 as.fully.expanded......((or.(not
5d00 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 .(eq.last-command.'dired-subtree
5d20 2d 63 79 63 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 71 20 64 69 72 65 64 2d 73 75 62 -cycle))...........(eq.dired-sub
5d40 74 72 65 65 2d 2d 63 79 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 3a 66 75 6c 6c 29 29 0a 20 20 20 tree--cycle-previous.:full))....
5d60 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 28 64 69 ...(dired-next-line.1).......(di
5d80 72 65 64 2d 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 red-subtree-remove).......(setq.
5da0 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 63 79 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 3a 72 dired-subtree--cycle-previous.:r
5dc0 65 6d 6f 76 65 29 29 0a 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 emove))......(t.......(dired-sub
5de0 74 72 65 65 2d 2d 69 6e 73 65 72 74 2d 72 65 63 75 72 73 69 76 65 20 31 20 64 69 72 65 64 2d 73 tree--insert-recursive.1.dired-s
5e00 75 62 74 72 65 65 2d 63 79 63 6c 65 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 ubtree-cycle-depth).......(setq.
5e20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 63 79 63 6c 65 2d 70 72 65 76 69 6f 75 73 20 3a 66 dired-subtree--cycle-previous.:f
5e40 75 6c 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d ull)))))..(defun.dired-subtree--
5e60 66 69 6c 74 65 72 2d 75 70 20 28 6b 65 65 70 2d 64 69 72 20 6b 69 6c 6c 2d 73 69 62 6c 69 6e 67 filter-up.(keep-dir.kill-sibling
5e80 73 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 20 28 6f s)...(save-excursion.....(let.(o
5ea0 76 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 v).......(save-excursion........
5ec0 20 28 77 68 69 6c 65 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 70 29 29 0a 20 20 20 20 .(while.(dired-subtree-up)).....
5ee0 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 ....(dired-next-line.1).........
5f00 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6d 61 72 6b 2d 73 75 62 74 72 65 65 20 74 29 29 0a (dired-subtree-mark-subtree.t)).
5f20 20 20 20 20 20 20 28 69 66 20 6b 65 65 70 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 ......(if.keep-dir...........(di
5f40 72 65 64 2d 73 75 62 74 72 65 65 2d 75 6e 6d 61 72 6b 2d 73 75 62 74 72 65 65 29 0a 20 20 20 20 red-subtree-unmark-subtree).....
5f60 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 75 6e 6d 61 72 6b 29 29 0a 20 20 20 ....(dired-subtree--unmark))....
5f80 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 70 ...(while.(and.(dired-subtree-up
5fa0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 20 28 64 69 72 65 64 2d 73 75 )...................(>.(dired-su
5fc0 62 74 72 65 65 2d 2d 67 65 74 2d 64 65 70 74 68 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d btree--get-depth.(dired-subtree-
5fe0 2d 67 65 74 2d 6f 76 29 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6b -get-ov)).0)).........(if.(not.k
6000 69 6c 6c 2d 73 69 62 6c 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 ill-siblings).............(dired
6020 2d 73 75 62 74 72 65 65 2d 2d 75 6e 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 -subtree--unmark)...........(dir
6040 65 64 2d 73 75 62 74 72 65 65 2d 2d 75 6e 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c ed-subtree--unmark)...........(l
6060 65 74 20 28 28 68 65 72 65 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 et.((here.(point))).............
6080 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 77 69 74 68 2d 73 75 62 74 72 65 65 0a 20 20 20 20 (dired-subtree-with-subtree.....
60a0 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 65 64 2d 73 75 62 74 72 .........(when.(and.(dired-subtr
60c0 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ee--is-expanded-p)..............
60e0 20 20 20 20 20 20 20 20 20 20 20 28 2f 3d 20 28 70 6f 69 6e 74 29 20 68 65 72 65 29 29 0a 20 20 ...........(/=.(point).here))...
6100 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 75 6e 6d .............(dired-subtree--unm
6120 61 72 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 ark)................(save-excurs
6140 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6e 65 78 74 ion..................(dired-next
6160 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 -line.1)..................(dired
6180 2d 73 75 62 74 72 65 65 2d 75 6e 6d 61 72 6b 2d 73 75 62 74 72 65 65 20 74 29 29 29 29 29 29 29 -subtree-unmark-subtree.t)))))))
61a0 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 29 0a 20 20 20 .......(dired-do-kill-lines)....
61c0 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 63 6c 65 61 6e 75 70 2d 6f 76 65 72 6c ...(dired-subtree--cleanup-overl
61e0 61 79 73 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 ays))))..;;;###autoload.(defun.d
6200 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6f 6e 6c 79 2d 74 68 69 73 2d 66 69 6c 65 20 28 26 6f 70 ired-subtree-only-this-file.(&op
6220 74 69 6f 6e 61 6c 20 61 72 67 29 0a 20 20 22 52 65 6d 6f 76 65 20 61 6c 6c 20 74 68 65 20 73 69 tional.arg)..."Remove.all.the.si
6240 62 6c 69 6e 67 73 20 6f 6e 20 74 68 65 20 72 6f 75 74 65 20 66 72 6f 6d 20 74 68 69 73 20 66 69 blings.on.the.route.from.this.fi
6260 6c 65 20 74 6f 20 74 68 65 20 74 6f 70 2d 6d 6f 73 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 57 le.to.the.top-most.directory...W
6280 69 74 68 20 41 52 47 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 72 65 6d 6f 76 65 20 65 ith.ARG.non-nil,.do.not.remove.e
62a0 78 70 61 6e 64 65 64 20 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 70 61 72 65 6e 74 73 2e 22 xpanded.directories.in.parents."
62c0 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 64 69 72 65 64 2d 73 75 ...(interactive."P")...(dired-su
62e0 62 74 72 65 65 2d 2d 66 69 6c 74 65 72 2d 75 70 20 6e 69 6c 20 61 72 67 29 29 0a 0a 3b 3b 3b 23 btree--filter-up.nil.arg))..;;;#
6300 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d ##autoload.(defun.dired-subtree-
6320 6f 6e 6c 79 2d 74 68 69 73 2d 64 69 72 65 63 74 6f 72 79 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 only-this-directory.(&optional.a
6340 72 67 29 0a 20 20 22 52 65 6d 6f 76 65 20 61 6c 6c 20 74 68 65 20 73 69 62 6c 69 6e 67 73 20 6f rg)..."Remove.all.the.siblings.o
6360 6e 20 74 68 65 20 72 6f 75 74 65 20 66 72 6f 6d 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 n.the.route.from.this.directory.
6380 74 6f 20 74 68 65 20 74 6f 70 2d 6d 6f 73 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 57 69 74 68 to.the.top-most.directory...With
63a0 20 41 52 47 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 72 65 6d 6f 76 65 20 65 78 70 61 .ARG.non-nil,.do.not.remove.expa
63c0 6e 64 65 64 20 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 70 61 72 65 6e 74 73 2e 22 0a 20 20 nded.directories.in.parents."...
63e0 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 (interactive."P")...(dired-subtr
6400 65 65 2d 2d 66 69 6c 74 65 72 2d 75 70 20 74 20 61 72 67 29 29 0a 0a 3b 3b 3b 20 66 69 6c 74 65 ee--filter-up.t.arg))..;;;.filte
6420 72 69 6e 67 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 66 69 6c 74 65 ring.(defun.dired-subtree--filte
6440 72 2d 75 70 64 61 74 65 2d 62 73 20 28 6f 76 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 6c r-update-bs.(ov)..."Update.the.l
6460 6f 63 61 6c 20 66 69 6c 74 65 72 20 6c 69 73 74 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e ocal.filter.list...This.function
6480 20 61 73 73 75 6d 65 73 20 74 68 61 74 20 60 64 69 72 65 64 2d 66 69 6c 74 65 72 2d 73 74 61 63 .assumes.that.`dired-filter-stac
64a0 6b 27 20 69 73 20 64 79 6e 61 6d 69 63 61 6c 6c 79 0a 62 6f 75 6e 64 20 74 6f 20 72 65 6c 65 76 k'.is.dynamically.bound.to.relev
64c0 61 6e 74 20 76 61 6c 75 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 74 20 28 64 69 72 65 ant.value."...(let*.((filt.(dire
64e0 64 2d 66 69 6c 74 65 72 2d 2d 64 65 73 63 72 69 62 65 2d 66 69 6c 74 65 72 73 29 29 0a 20 20 20 d-filter--describe-filters))....
6500 20 20 20 20 20 20 28 62 65 66 6f 72 65 2d 73 74 72 20 28 69 66 20 28 65 71 75 61 6c 20 66 69 6c ......(before-str.(if.(equal.fil
6520 74 20 22 22 29 20 6e 69 6c 20 28 63 6f 6e 63 61 74 20 22 20 20 4c 6f 63 61 6c 20 66 69 6c 74 65 t."").nil.(concat."..Local.filte
6540 72 73 3a 20 22 20 66 69 6c 74 20 22 5c 6e 22 29 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 rs:.".filt."\n")))).....(overlay
6560 2d 70 75 74 20 6f 76 20 27 62 65 66 6f 72 65 2d 73 74 72 69 6e 67 20 62 65 66 6f 72 65 2d 73 74 -put.ov.'before-string.before-st
6580 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 66 69 6c 74 r)))..(defun.dired-subtree--filt
65a0 65 72 2d 73 75 62 74 72 65 65 20 28 6f 76 29 0a 20 20 22 52 75 6e 20 74 68 65 20 66 69 6c 74 65 er-subtree.(ov)..."Run.the.filte
65c0 72 20 66 6f 72 20 74 68 69 73 20 73 75 62 74 72 65 65 2e 0a 0a 49 74 20 69 73 20 6f 6e 6c 79 20 r.for.this.subtree...It.is.only.
65e0 73 61 66 65 20 74 6f 20 63 61 6c 6c 20 74 68 69 73 20 66 72 6f 6d 20 72 65 61 64 69 6e 2e 0a 0a safe.to.call.this.from.readin...
6600 54 68 69 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 60 64 69 72 65 64 2d 66 69 6c 74 65 72 27 20 70 This.depends.on.`dired-filter'.p
6620 61 63 6b 61 67 65 2e 22 0a 20 20 28 77 68 65 6e 20 28 66 65 61 74 75 72 65 70 20 27 64 69 72 65 ackage."...(when.(featurep.'dire
6640 64 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 65 64 2d 66 69 6c 74 65 d-filter).....(let.((dired-filte
6660 72 2d 73 74 61 63 6b 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 20 27 64 69 72 65 64 2d 73 r-stack.(overlay-get.ov.'dired-s
6680 75 62 74 72 65 65 2d 66 69 6c 74 65 72 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 ubtree-filter))).......(save-res
66a0 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 20 20 20 triction.........(widen)........
66c0 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 72 72 6f 77 29 0a 20 20 20 20 20 20 20 20 .(dired-subtree-narrow).........
66e0 28 64 69 72 65 64 2d 66 69 6c 74 65 72 2d 2d 65 78 70 75 6e 67 65 29 0a 20 20 20 20 20 20 20 20 (dired-filter--expunge).........
6700 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 66 69 6c 74 65 72 2d 75 70 64 61 74 65 2d 62 73 (dired-subtree--filter-update-bs
6720 20 6f 76 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 .ov)))))..;;;###autoload.(defun.
6740 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 61 70 70 6c 79 2d 66 69 6c 74 65 72 20 28 29 0a 20 20 dired-subtree-apply-filter.()...
6760 22 50 75 73 68 20 61 20 6c 6f 63 61 6c 20 66 69 6c 74 65 72 20 66 6f 72 20 74 68 69 73 20 73 75 "Push.a.local.filter.for.this.su
6780 62 74 72 65 65 2e 0a 0a 54 68 69 73 20 64 65 70 65 6e 64 73 20 6f 6e 20 60 64 69 72 65 64 2d 66 btree...This.depends.on.`dired-f
67a0 69 6c 74 65 72 27 20 70 61 63 6b 61 67 65 2e 0a 0a 49 74 20 77 6f 72 6b 73 20 65 78 61 63 74 6c ilter'.package...It.works.exactl
67c0 79 20 74 68 65 20 73 61 6d 65 20 61 73 20 67 6c 6f 62 61 6c 20 64 69 72 65 64 20 66 69 6c 74 65 y.the.same.as.global.dired.filte
67e0 72 73 2c 20 6f 6e 6c 79 0a 72 65 73 74 72 69 63 74 65 64 20 74 6f 20 61 20 73 75 62 74 72 65 65 rs,.only.restricted.to.a.subtree
6800 2e 20 20 54 68 65 20 67 6c 6f 62 61 6c 20 66 69 6c 74 65 72 20 69 73 20 61 6c 73 6f 20 61 70 70 ...The.global.filter.is.also.app
6820 6c 69 65 64 20 74 6f 0a 74 68 65 20 73 75 62 74 72 65 65 2e 20 20 54 68 65 20 66 69 6c 74 65 72 lied.to.the.subtree...The.filter
6840 20 61 63 74 69 6f 6e 20 69 73 20 72 65 61 64 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 66 69 6c 74 .action.is.read.from.`dired-filt
6860 65 72 2d 6d 61 70 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 er-map'."...(interactive)...(whe
6880 6e 20 28 66 65 61 74 75 72 65 70 20 27 64 69 72 65 64 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 28 n.(featurep.'dired-filter).....(
68a0 2d 77 68 65 6e 2d 6c 65 74 20 28 6f 76 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 -when-let.(ov.(dired-subtree--ge
68c0 74 2d 6f 76 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 65 64 2d 66 69 6c 74 65 72 t-ov)).......(let.((dired-filter
68e0 2d 73 74 61 63 6b 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 -stack.(overlay-get.ov.'dired-su
6900 62 74 72 65 65 2d 66 69 6c 74 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6c 6f 62 btree-filter)).............(glob
6920 20 28 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 20 .(current-global-map))..........
6940 20 20 20 28 6c 6f 63 20 28 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 29 29 0a 20 20 20 ...(loc.(current-local-map))....
6960 20 20 20 20 20 20 20 20 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 66 6c 65 74 20 28 .........cmd).........(cl-flet.(
6980 28 64 69 72 65 64 2d 66 69 6c 74 65 72 2d 2d 75 70 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 (dired-filter--update...........
69a0 20 20 20 20 20 20 20 20 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .........()....................(
69c0 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 save-restriction................
69e0 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 62 ......(overlay-put.ov.'dired-sub
6a00 74 72 65 65 2d 66 69 6c 74 65 72 20 64 69 72 65 64 2d 66 69 6c 74 65 72 2d 73 74 61 63 6b 29 0a tree-filter.dired-filter-stack).
6a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 .....................(widen)....
6a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 ..................(dired-subtree
6a60 2d 72 65 76 65 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 -revert)......................(d
6a80 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 66 69 6c 74 65 72 2d 75 70 64 61 74 65 2d 62 73 20 6f ired-subtree--filter-update-bs.o
6aa0 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a v))))...........(unwind-protect.
6ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ..............(progn............
6ae0 20 20 20 20 20 28 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 64 69 72 65 64 2d 66 69 6c 74 65 .....(use-global-map.dired-filte
6b00 72 2d 6d 61 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 2d 6c 6f 63 61 r-map).................(use-loca
6b20 6c 2d 6d 61 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 l-map.nil).................(setq
6b40 20 63 6d 64 20 28 6b 65 79 2d 62 69 6e 64 69 6e 67 20 28 72 65 61 64 2d 6b 65 79 2d 73 65 71 75 .cmd.(key-binding.(read-key-sequ
6b60 65 6e 63 65 20 22 43 68 6f 6f 73 65 20 66 69 6c 74 65 72 20 61 63 74 69 6f 6e 3a 20 22 29 29 29 ence."Choose.filter.action:.")))
6b80 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 67 6c ).............(use-global-map.gl
6ba0 6f 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6c ob).............(use-local-map.l
6bc0 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 20 28 70 6f 69 6e 74 29 29 oc))...........(let.((p.(point))
6be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 20 28 6f 76 65 72 6c 61 79 2d 73 .................(beg.(overlay-s
6c00 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 tart.ov)).................(curre
6c20 6e 74 2d 66 69 6c 65 20 28 64 69 72 65 64 2d 75 74 69 6c 73 2d 67 65 74 2d 66 69 6c 65 6e 61 6d nt-file.(dired-utils-get-filenam
6c40 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 e))).............(unwind-protect
6c60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 .................(call-interacti
6c80 76 65 6c 79 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 vely.cmd)...............(unless.
6ca0 28 64 69 72 65 64 2d 75 74 69 6c 73 2d 67 6f 74 6f 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 2d 66 (dired-utils-goto-line.current-f
6cc0 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 ile).................(goto-char.
6ce0 62 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 beg).................(forward-li
6d00 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 ne).................(goto-char.(
6d20 6d 69 6e 20 70 20 28 31 2d 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 28 64 69 72 65 64 2d 73 75 min.p.(1-.(overlay-end.(dired-su
6d40 62 74 72 65 65 2d 2d 67 65 74 2d 6f 76 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 btree--get-ov)))))..............
6d60 20 20 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 ...(dired-move-to-filename))))))
6d80 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 48 65 72 65 20 77 65 20 72 65 64 65 66 69 6e 65 20 61 20 63 6f )))....;;;.Here.we.redefine.a.co
6da0 75 70 6c 65 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 66 72 6f 6d 20 64 69 72 65 64 2e 65 6c 20 uple.of.functions.from.dired.el.
6dc0 74 6f 20 6d 61 6b 65 20 74 68 65 6d 0a 3b 3b 3b 20 73 75 62 74 72 65 65 2d 61 77 61 72 65 0a 0a to.make.them.;;;.subtree-aware..
6de0 3b 3b 20 49 66 20 74 68 65 20 70 6f 69 6e 74 20 69 73 20 69 6e 20 61 20 73 75 62 74 72 65 65 2c ;;.If.the.point.is.in.a.subtree,
6e00 20 77 65 20 6e 65 65 64 20 74 6f 20 70 72 6f 76 69 64 65 20 61 20 70 72 6f 70 65 72 0a 3b 3b 20 .we.need.to.provide.a.proper.;;.
6e20 64 69 72 65 63 74 6f 72 79 2c 20 6e 6f 74 20 74 68 65 20 6f 6e 65 20 74 68 61 74 20 77 6f 75 6c directory,.not.the.one.that.woul
6e40 64 20 63 6f 6d 65 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 27 d.come.from.`dired-subdir-alist'
6e60 2e 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 ..(defun.dired-current-directory
6e80 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 63 61 6c 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 .(&optional.localp)..."Return.th
6ea0 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 74 6f 20 77 68 e.name.of.the.subdirectory.to.wh
6ec0 69 63 68 20 74 68 69 73 20 6c 69 6e 65 20 62 65 6c 6f 6e 67 73 2e 0a 54 68 69 73 20 72 65 74 75 ich.this.line.belongs..This.retu
6ee0 72 6e 73 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 74 72 61 69 6c 69 6e 67 20 73 6c 61 73 68 rns.a.string.with.trailing.slash
6f00 2c 20 6c 69 6b 65 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 0a 4f 70 74 69 ,.like.`default-directory'..Opti
6f20 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 72 65 74 75 72 6e 20 61 20 66 69 6c onal.argument.means.return.a.fil
6f40 65 20 6e 61 6d 65 20 72 65 6c 61 74 69 76 65 20 74 6f 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 e.name.relative.to.`default-dire
6f60 63 74 6f 72 79 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 68 65 72 65 20 28 70 6f 69 6e 74 29 29 0a ctory'."...(let.((here.(point)).
6f80 20 20 20 20 20 20 20 20 28 61 6c 69 73 74 20 28 6f 72 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d ........(alist.(or.dired-subdir-
6fa0 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 72 6f 62 alist....................;;.prob
6fc0 61 62 6c 79 20 62 65 63 61 75 73 65 20 63 61 6c 6c 65 64 20 69 6e 20 61 20 6e 6f 6e 2d 64 69 72 ably.because.called.in.a.non-dir
6fe0 65 64 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 ed.buffer....................(er
7000 72 6f 72 20 22 4e 6f 20 73 75 62 64 69 72 2d 61 6c 69 73 74 20 69 6e 20 25 73 22 20 28 63 75 72 ror."No.subdir-alist.in.%s".(cur
7020 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 65 6c 74 20 64 69 72 29 rent-buffer)))).........elt.dir)
7040 0a 20 20 20 20 28 77 68 69 6c 65 20 61 6c 69 73 74 0a 20 20 20 20 20 20 28 73 65 74 71 20 65 6c .....(while.alist.......(setq.el
7060 74 20 28 63 61 72 20 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 20 28 63 t.(car.alist).............dir.(c
7080 61 72 20 65 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 75 73 65 20 60 3c 3d 27 20 ar.elt).............;;.use.`<='.
70a0 28 6e 6f 74 20 60 3c 27 29 20 61 73 20 73 75 62 64 69 72 20 6c 69 6e 65 20 69 73 20 70 61 72 74 (not.`<').as.subdir.line.is.part
70c0 20 6f 66 20 73 75 62 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 69 73 74 20 28 69 66 .of.subdir.............alist.(if
70e0 20 28 3c 3d 20 28 64 69 72 65 64 2d 67 65 74 2d 73 75 62 64 69 72 2d 6d 69 6e 20 65 6c 74 29 20 .(<=.(dired-get-subdir-min.elt).
7100 68 65 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 here).......................nil.
7120 20 20 20 20 20 20 3b 20 66 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......;.found...................
7140 20 20 28 63 64 72 20 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 3b 3b 20 64 69 72 65 64 2d 73 75 ..(cdr.alist)))).....;;.dired-su
7160 62 64 69 72 3a 20 6d 6f 64 69 66 79 20 64 69 72 20 68 65 72 65 20 69 66 20 77 65 20 61 72 65 20 bdir:.modify.dir.here.if.we.are.
7180 69 6e 20 61 20 22 73 75 62 74 72 65 65 22 20 76 69 65 77 0a 20 20 20 20 28 2d 77 68 65 6e 2d 6c in.a."subtree".view.....(-when-l
71a0 65 74 20 28 70 61 72 65 6e 74 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 67 65 74 2d 6f et.(parent.(dired-subtree--get-o
71c0 76 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 20 28 63 6f 6e 63 61 74 20 28 6f 76 65 v)).......(setq.dir.(concat.(ove
71e0 72 6c 61 79 2d 67 65 74 20 70 61 72 65 6e 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e rlay-get.parent.'dired-subtree-n
7200 61 6d 65 29 20 22 2f 22 29 29 29 0a 20 20 20 20 3b 3b 20 65 6e 64 0a 20 20 20 20 28 69 66 20 6c ame)."/"))).....;;.end.....(if.l
7220 6f 63 61 6c 70 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 61 6b 65 2d 72 65 6c 61 74 69 ocalp.........(dired-make-relati
7240 76 65 20 64 69 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 ve.dir.default-directory).......
7260 64 69 72 29 29 29 0a 0a 3b 3b 20 53 69 6e 63 65 20 74 68 65 20 74 72 65 65 2d 69 6e 73 65 72 74 dir)))..;;.Since.the.tree-insert
7280 65 64 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 6e 6f 74 20 69 6e 20 74 68 65 20 64 69 72 65 64 ed.directory.is.not.in.the.dired
72a0 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 2c 0a 3b 3b 20 77 65 20 6e 65 65 64 20 74 6f 20 67 75 61 -subdir-alist,.;;.we.need.to.gua
72c0 72 64 20 61 67 61 69 6e 73 74 20 6e 69 6c 2e 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 67 65 74 rd.against.nil..(defun.dired-get
72e0 2d 73 75 62 64 69 72 20 28 29 0a 20 20 3b 3b 22 52 65 74 75 72 6e 20 74 68 65 20 73 75 62 64 69 -subdir.()...;;"Return.the.subdi
7300 72 20 6e 61 6d 65 20 6f 6e 20 74 68 69 73 20 6c 69 6e 65 2c 20 6f 72 20 6e 69 6c 20 69 66 20 6e r.name.on.this.line,.or.nil.if.n
7320 6f 74 20 6f 6e 20 61 20 68 65 61 64 65 72 6c 69 6e 65 2e 22 0a 20 20 3b 3b 20 4c 6f 6f 6b 20 75 ot.on.a.headerline."...;;.Look.u
7340 70 20 69 6e 20 74 68 65 20 61 6c 69 73 74 20 77 68 65 74 68 65 72 20 74 68 69 73 20 69 73 20 61 p.in.the.alist.whether.this.is.a
7360 20 68 65 61 64 65 72 6c 69 6e 65 2e 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 .headerline....(save-excursion..
7380 20 20 20 28 6c 65 74 20 28 28 63 75 72 2d 64 69 72 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 ...(let.((cur-dir.(dired-current
73a0 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f -directory))).......(beginning-o
73c0 66 2d 6c 69 6e 65 29 20 20 20 20 20 20 20 3b 20 61 6c 69 73 74 20 73 74 6f 72 65 73 20 62 2d 6f f-line).......;.alist.stores.b-o
73e0 2d 6c 20 70 6f 73 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 61 6e 64 20 28 7a 65 72 6f 70 20 28 -l.positions.......(and.(zerop.(
7400 2d 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 -.(point)......................(
7420 6f 72 20 28 64 69 72 65 64 2d 67 65 74 2d 73 75 62 64 69 72 2d 6d 69 6e 0a 20 20 20 20 20 20 20 or.(dired-get-subdir-min........
7440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 6f 63 20 63 75 72 2d 64 69 ...................(assoc.cur-di
7460 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r...............................
7480 20 20 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 ...dired-subdir-alist)).........
74a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 29 20 3b 3b 20 64 69 72 65 64 2d 73 .................0))).;;.dired-s
74c0 75 62 74 72 65 65 3a 20 72 65 74 75 72 6e 20 7a 65 72 6f 20 69 66 20 63 75 72 72 65 6e 74 0a 20 ubtree:.return.zero.if.current..
74e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 .............................;;.
7500 64 69 72 20 69 73 20 6e 6f 74 20 69 6e 20 60 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 dir.is.not.in.`dired-subdir-alis
7520 74 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 63 75 72 2d 64 69 72 29 29 29 29 0a 0a 28 70 72 6f t'.............cur-dir))))..(pro
7540 76 69 64 65 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 0a 3b 3b 3b 20 64 69 72 65 64 2d vide.'dired-subtree)..;;;.dired-
7560 73 75 62 74 72 65 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 subtree.el.ends.here............
7580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
75e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
76e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
77e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
78a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
78c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
78e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
79a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
79c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
79e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
80a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
80c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
80e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
81a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
81c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
81e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
82a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
82c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
82e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
84a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
84c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
84e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
85a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
85c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
85e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
86a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
86c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
86e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
87a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
87c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
87e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
88a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
88c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
88e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
89a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
89c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
89e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
90a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
90c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
90e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
92a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
92c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
92e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
94a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
94c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
94e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
95a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
95c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
95e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
96a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
96c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
96e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
98a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
98c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
98e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
99a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
99c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
99e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................