/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / elisp / dired.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 64 69 72 65 64 2d 72 65 |.(defun |dired-re|
|00000010| 61 64 69 6e 20 28 64 69 | 72 6e 61 6d 65 20 62 75 |adin (di|rname bu|
|00000020| 66 66 65 72 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |ffer) (b|yte-code|
|00000030| 20 22 8a c5 c6 08 5c 22 | 88 09 71 88 c3 1a c7 20 | "....\"|..q.... |
|00000040| 88 c8 20 88 c9 08 21 89 | 10 88 ca 08 21 83 24 00 |.. ...!.|....!.$.|
|00000050| cb 08 09 5c 22 82 2f 00 | cc 08 21 1c cb cd 08 21 |...\"./.|..!....!|
|00000060| 09 5c 22 29 88 65 62 88 | 6d 3f 85 3f 00 ce cf 21 |.\").eb.|m?.?...!|
|00000070| 88 82 33 00 88 65 62 29 | 88 c5 d0 08 5c 22 29 87 |..3..eb)|....\").|
|00000080| 22 20 5b 64 69 72 6e 61 | 6d 65 20 62 75 66 66 65 |" [dirna|me buffe|
|00000090| 72 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |r buffer|-read-on|
|000000a0| 6c 79 20 6e 69 6c 20 64 | 65 66 61 75 6c 74 2d 64 |ly nil d|efault-d|
|000000b0| 69 72 65 63 74 6f 72 79 | 20 6d 65 73 73 61 67 65 |irectory| message|
|000000c0| 20 22 52 65 61 64 69 6e | 67 20 64 69 72 65 63 74 | "Readin|g direct|
|000000d0| 6f 72 79 20 25 73 2e 2e | 2e 22 20 77 69 64 65 6e |ory %s..|." widen|
|000000e0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 65 78 | erase-b|uffer ex|
|000000f0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|00000100| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |ile-dire|ctory-p |
|00000110| 6d 79 2d 6c 69 73 74 2d | 64 69 72 2d 69 6e 2d 62 |my-list-|dir-in-b|
|00000120| 75 66 66 65 72 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |uffer fi|le-name-|
|00000130| 64 69 72 65 63 74 6f 72 | 79 20 66 69 6c 65 2d 6e |director|y file-n|
|00000140| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00000150| 20 66 6f 72 77 61 72 64 | 2d 6c 69 6e 65 20 31 20 | forward|-line 1 |
|00000160| 22 52 65 61 64 69 6e 67 | 20 64 69 72 65 63 74 6f |"Reading| directo|
|00000170| 72 79 20 25 73 2e 2e 2e | 64 6f 6e 65 22 5d 20 31 |ry %s...|done"] 1|
|00000180| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 6d 79 2d 6c |3))..(de|fun my-l|
|00000190| 69 73 74 2d 64 69 72 2d | 69 6e 2d 62 75 66 66 65 |ist-dir-|in-buffe|
|000001a0| 72 20 28 64 69 72 20 62 | 75 66 29 20 22 5c 0a 69 |r (dir b|uf) "\.i|
|000001b0| 6e 73 65 72 74 20 66 69 | 6c 65 2d 6e 61 6d 65 73 |nsert fi|le-names|
|000001c0| 20 6f 66 20 64 69 72 20 | 69 6e 20 62 75 66 66 65 | of dir |in buffe|
|000001d0| 72 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |r." (byt|e-code "|
|000001e0| 08 71 88 c4 0a c3 c3 23 | 19 09 3f 85 12 00 c5 c6 |.q.....#|..?.....|
|000001f0| 0a 5c 22 88 c7 c8 0a 5c | 22 88 09 85 2a 00 c9 0a |.\"....\|"...*...|
|00000200| 09 40 5c 22 88 09 41 89 | 11 88 82 18 00 88 c7 ca |.@\"..A.|........|
|00000210| 0a 5c 22 29 87 22 20 5b | 62 75 66 20 66 69 6c 65 |.\")." [|buf file|
|00000220| 6e 61 6d 65 73 20 64 69 | 72 20 6e 69 6c 20 64 69 |names di|r nil di|
|00000230| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 73 20 65 72 |rectory-|files er|
|00000240| 72 6f 72 20 22 44 69 72 | 65 63 74 6f 72 79 20 25 |ror "Dir|ectory %|
|00000250| 73 20 69 73 20 65 6d 70 | 74 79 2e 22 20 6d 65 73 |s is emp|ty." mes|
|00000260| 73 61 67 65 20 22 52 65 | 61 64 69 6e 67 20 25 73 |sage "Re|ading %s|
|00000270| 20 2e 2e 2e 22 20 64 69 | 72 65 64 2d 61 64 64 2d | ..." di|red-add-|
|00000280| 65 6e 74 72 79 20 22 52 | 65 61 64 69 6e 67 20 25 |entry "R|eading %|
|00000290| 73 20 2e 2e 2e 20 44 6f | 6e 65 2e 22 5d 20 37 29 |s ... Do|ne."] 7)|
|000002a0| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|000002b0| 66 69 6e 64 2d 62 75 66 | 66 65 72 20 28 64 69 72 |find-buf|fer (dir|
|000002c0| 6e 61 6d 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |name) (b|yte-code|
|000002d0| 20 22 c6 20 c5 19 18 08 | 85 2d 00 8a 08 40 71 88 | ". ....|.-...@q.|
|000002e0| 0a c7 3d 85 18 00 c8 0b | 0c 5c 22 83 24 00 08 40 |..=.....|.\".$..@|
|000002f0| 11 c5 89 10 82 28 00 08 | 41 89 10 29 88 82 05 00 |.....(..|A..)....|
|00000300| 88 09 86 45 00 c9 ca 0c | 5c 22 85 3f 00 0c cb cc |...E....|\".?....|
|00000310| 4f 89 14 88 cd ce 0c 21 | 21 2a 87 22 20 5b 62 6c |O......!|!*." [bl|
|00000320| 69 73 74 20 66 6f 75 6e | 64 20 6d 61 6a 6f 72 2d |ist foun|d major-|
|00000330| 6d 6f 64 65 20 64 69 72 | 65 64 2d 64 69 72 65 63 |mode dir|ed-direc|
|00000340| 74 6f 72 79 20 64 69 72 | 6e 61 6d 65 20 6e 69 6c |tory dir|name nil|
|00000350| 20 62 75 66 66 65 72 2d | 6c 69 73 74 20 64 69 72 | buffer-|list dir|
|00000360| 65 64 2d 6d 6f 64 65 20 | 65 71 75 61 6c 20 73 74 |ed-mode |equal st|
|00000370| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 2f 24 22 20 |ring-mat|ch "/$" |
|00000380| 30 20 2d 31 20 63 72 65 | 61 74 65 2d 66 69 6c 65 |0 -1 cre|ate-file|
|00000390| 2d 62 75 66 66 65 72 20 | 66 69 6c 65 2d 6e 61 6d |-buffer |file-nam|
|000003a0| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 5d 20 |e-nondir|ectory] |
|000003b0| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |6))..(de|fun dire|
|000003c0| 64 20 28 64 69 72 6e 61 | 6d 65 29 20 22 5c 0a 5c |d (dirna|me) "\.\|
|000003d0| 22 45 64 69 74 5c 22 20 | 64 69 72 65 63 74 6f 72 |"Edit\" |director|
|000003e0| 79 20 44 49 52 4e 41 4d | 45 2d 2d 64 65 6c 65 74 |y DIRNAM|E--delet|
|000003f0| 65 2c 20 72 65 6e 61 6d | 65 2c 20 70 72 69 6e 74 |e, renam|e, print|
|00000400| 2c 20 65 74 63 2e 20 73 | 6f 6d 65 20 66 69 6c 65 |, etc. s|ome file|
|00000410| 73 20 69 6e 20 69 74 2e | 0a 44 69 72 65 64 20 64 |s in it.|.Dired d|
|00000420| 69 73 70 6c 61 79 73 20 | 61 20 6c 69 73 74 20 6f |isplays |a list o|
|00000430| 66 20 66 69 6c 65 73 20 | 69 6e 20 44 49 52 4e 41 |f files |in DIRNA|
|00000440| 4d 45 2e 0a 59 6f 75 20 | 63 61 6e 20 6d 6f 76 65 |ME..You |can move|
|00000450| 20 61 72 6f 75 6e 64 20 | 69 6e 20 69 74 20 77 69 | around |in it wi|
|00000460| 74 68 20 74 68 65 20 75 | 73 75 61 6c 20 63 6f 6d |th the u|sual com|
|00000470| 6d 61 6e 64 73 2e 0a 59 | 6f 75 20 63 61 6e 20 66 |mands..Y|ou can f|
|00000480| 6c 61 67 20 66 69 6c 65 | 73 20 66 6f 72 20 64 65 |lag file|s for de|
|00000490| 6c 65 74 69 6f 6e 20 77 | 69 74 68 20 43 2d 64 0a |letion w|ith C-d.|
|000004a0| 61 6e 64 20 74 68 65 6e | 20 64 65 6c 65 74 65 20 |and then| delete |
|000004b0| 74 68 65 6d 20 62 79 20 | 74 79 70 69 6e 67 20 60 |them by |typing `|
|000004c0| 78 27 2e 0a 54 79 70 65 | 20 60 68 27 20 61 66 74 |x'..Type| `h' aft|
|000004d0| 65 72 20 65 6e 74 65 72 | 69 6e 67 20 64 69 72 65 |er enter|ing dire|
|000004e0| 64 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 2e |d for mo|re info.|
|000004f0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 28 |" (inter|active (|
|00000500| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 c3 c0 09 c0 |byte-cod|e ".....|
|00000510| 24 43 87 22 20 5b 6e 69 | 6c 20 64 65 66 61 75 6c |$C." [ni|l defaul|
|00000520| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 72 65 61 64 |t-direct|ory read|
|00000530| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 44 69 72 65 |-file-na|me "Dire|
|00000540| 64 20 28 64 69 72 65 63 | 74 6f 72 79 29 3a 20 22 |d (direc|tory): "|
|00000550| 5d 20 35 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |] 5)) (b|yte-code|
|00000560| 20 22 c0 88 c3 c4 0a 21 | 21 87 22 20 5b 6e 69 6c | ".....!|!." [nil|
|00000570| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00000580| 72 79 20 64 69 72 6e 61 | 6d 65 20 73 77 69 74 63 |ry dirna|me switc|
|00000590| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 64 69 72 65 |h-to-buf|fer dire|
|000005a0| 64 2d 6e 6f 73 65 6c 65 | 63 74 5d 20 33 29 29 0a |d-nosele|ct] 3)).|
|000005b0| 0a 28 64 65 66 75 6e 20 | 64 69 72 65 64 2d 6f 74 |.(defun |dired-ot|
|000005c0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 28 64 69 72 6e |her-wind|ow (dirn|
|000005d0| 61 6d 65 29 20 22 5c 0a | 5c 22 45 64 69 74 5c 22 |ame) "\.|\"Edit\"|
|000005e0| 20 64 69 72 65 63 74 6f | 72 79 20 44 49 52 4e 41 | directo|ry DIRNA|
|000005f0| 4d 45 2e 20 20 4c 69 6b | 65 20 4d 2d 78 20 64 69 |ME.  Lik|e M-x di|
|00000600| 72 65 64 20 62 75 74 20 | 73 65 6c 65 63 74 73 20 |red but |selects |
|00000610| 69 6e 20 61 6e 6f 74 68 | 65 72 20 77 69 6e 64 6f |in anoth|er windo|
|00000620| 77 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |w." (int|eractive|
|00000630| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 c0 | (byte-c|ode "...|
|00000640| 09 c0 24 43 87 22 20 5b | 6e 69 6c 20 64 65 66 61 |..$C." [|nil defa|
|00000650| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 72 65 |ult-dire|ctory re|
|00000660| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 44 69 |ad-file-|name "Di|
|00000670| 72 65 64 20 69 6e 20 6f | 74 68 65 72 20 77 69 6e |red in o|ther win|
|00000680| 64 6f 77 20 28 64 69 72 | 65 63 74 6f 72 79 29 3a |dow (dir|ectory):|
|00000690| 20 22 5d 20 35 29 29 20 | 28 62 79 74 65 2d 63 6f | "] 5)) |(byte-co|
|000006a0| 64 65 20 22 c0 88 c3 c4 | 0a 21 21 87 22 20 5b 6e |de "....|.!!." [n|
|000006b0| 69 6c 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |il defau|lt-direc|
|000006c0| 74 6f 72 79 20 64 69 72 | 6e 61 6d 65 20 73 77 69 |tory dir|name swi|
|000006d0| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 2d 6f 74 |tch-to-b|uffer-ot|
|000006e0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 64 69 72 65 64 |her-wind|ow dired|
|000006f0| 2d 6e 6f 73 65 6c 65 63 | 74 5d 20 33 29 29 0a 0a |-noselec|t] 3))..|
|00000700| 28 64 65 66 75 6e 20 64 | 69 72 65 64 2d 6e 6f 73 |(defun d|ired-nos|
|00000710| 65 6c 65 63 74 20 28 64 | 69 72 6e 61 6d 65 29 20 |elect (d|irname) |
|00000720| 22 5c 0a 4c 69 6b 65 20 | 4d 2d 78 20 44 69 72 65 |"\.Like |M-x Dire|
|00000730| 64 20 62 75 74 20 72 65 | 74 75 72 6e 73 20 74 68 |d but re|turns th|
|00000740| 65 20 64 69 72 65 64 20 | 62 75 66 66 65 72 20 61 |e dired |buffer a|
|00000750| 73 20 76 61 6c 75 65 2c | 20 64 6f 65 73 20 6e 6f |s value,| does no|
|00000760| 74 20 73 65 6c 65 63 74 | 20 69 74 2e 22 20 28 62 |t select| it." (b|
|00000770| 79 74 65 2d 63 6f 64 65 | 20 22 08 86 07 00 09 89 |yte-code| "......|
|00000780| 10 88 c3 c4 08 5c 22 85 | 15 00 08 c5 c6 4f 89 10 |.....\".|.....O..|
|00000790| 88 c7 08 21 89 10 88 c3 | c8 08 5c 22 3f 85 2f 00 |...!....|..\"?./.|
|000007a0| c9 08 21 85 2f 00 08 ca | 50 89 10 88 cb 08 21 1a |..!./...|P.....!.|
|000007b0| 8a 0a 71 88 cc 08 0a 5c | 22 88 cd 20 88 ce 08 21 |..q....\|".. ...!|
|000007c0| 29 88 0a 29 87 22 20 5b | 64 69 72 6e 61 6d 65 20 |)..)." [|dirname |
|000007d0| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|000007e0| 79 20 62 75 66 66 65 72 | 20 73 74 72 69 6e 67 2d |y buffer| string-|
|000007f0| 6d 61 74 63 68 20 22 2e | 2f 24 22 20 30 20 2d 31 |match ".|/$" 0 -1|
|00000800| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00000810| 65 20 22 2f 24 22 20 66 | 69 6c 65 2d 64 69 72 65 |e "/$" f|ile-dire|
|00000820| 63 74 6f 72 79 2d 70 20 | 22 2f 22 20 64 69 72 65 |ctory-p |"/" dire|
|00000830| 64 2d 66 69 6e 64 2d 62 | 75 66 66 65 72 20 64 69 |d-find-b|uffer di|
|00000840| 72 65 64 2d 72 65 61 64 | 69 6e 20 64 69 72 65 64 |red-read|in dired|
|00000850| 2d 6d 6f 76 65 2d 74 6f | 2d 66 69 6c 65 6e 61 6d |-move-to|-filenam|
|00000860| 65 20 64 69 72 65 64 2d | 6d 6f 64 65 5d 20 39 29 |e dired-|mode] 9)|
|00000870| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|00000880| 72 65 76 65 72 74 20 28 | 26 6f 70 74 69 6f 6e 61 |revert (|&optiona|
|00000890| 6c 20 61 72 67 20 6e 6f | 63 6f 6e 66 69 72 6d 29 |l arg no|confirm)|
|000008a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 60 c6 c2 | (byte-c|ode "`..|
|000008b0| c2 5c 22 c4 1b 19 18 c7 | 20 88 c8 0d 70 5c 22 88 |.\".....| ...p\".|
|000008c0| 09 85 1f 00 c9 ca cb 09 | 21 cc 51 c4 c2 23 86 24 |........|!.Q..#.$|
|000008d0| 00 08 62 88 cd 20 2b 87 | 22 20 5b 6f 70 6f 69 6e |..b.. +.|" [opoin|
|000008e0| 74 20 6f 66 69 6c 65 20 | 74 20 62 75 66 66 65 72 |t ofile |t buffer|
|000008f0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 69 6c 20 64 |-read-on|ly nil d|
|00000900| 69 72 65 64 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |ired-dir|ectory d|
|00000910| 69 72 65 64 2d 67 65 74 | 2d 66 69 6c 65 6e 61 6d |ired-get|-filenam|
|00000920| 65 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 64 |e erase-|buffer d|
|00000930| 69 72 65 64 2d 72 65 61 | 64 69 6e 20 72 65 2d 73 |ired-rea|din re-s|
|00000940| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 20 |earch-fo|rward " |
|00000950| 22 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 22 |" regexp|-quote "|
|00000960| 24 22 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |$" begin|ning-of-|
|00000970| 6c 69 6e 65 5d 20 38 29 | 29 0a 0a 28 64 65 66 76 |line] 8)|)..(defv|
|00000980| 61 72 20 64 69 72 65 64 | 2d 6d 6f 64 65 2d 6d 61 |ar dired|-mode-ma|
|00000990| 70 20 6e 69 6c 20 22 5c | 0a 4c 6f 63 61 6c 20 6b |p nil "\|.Local k|
|000009a0| 65 79 6d 61 70 20 66 6f | 72 20 64 69 72 65 64 2d |eymap fo|r dired-|
|000009b0| 6d 6f 64 65 20 62 75 66 | 66 65 72 73 2e 22 29 0a |mode buf|fers.").|
|000009c0| 0a 28 69 66 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |.(if dir|ed-mode-|
|000009d0| 6d 61 70 20 6e 69 6c 20 | 28 73 65 74 71 20 64 69 |map nil |(setq di|
|000009e0| 72 65 64 2d 6d 6f 64 65 | 2d 6d 61 70 20 28 6d 61 |red-mode|-map (ma|
|000009f0| 6b 65 2d 6b 65 79 6d 61 | 70 29 29 20 28 73 75 70 |ke-keyma|p)) (sup|
|00000a00| 70 72 65 73 73 2d 6b 65 | 79 6d 61 70 20 64 69 72 |press-ke|ymap dir|
|00000a10| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 29 20 28 64 65 |ed-mode-|map) (de|
|00000a20| 66 69 6e 65 2d 6b 65 79 | 20 64 69 72 65 64 2d 6d |fine-key| dired-m|
|00000a30| 6f 64 65 2d 6d 61 70 20 | 22 72 22 20 28 71 75 6f |ode-map |"r" (quo|
|00000a40| 74 65 20 64 69 72 65 64 | 2d 72 65 6e 61 6d 65 2d |te dired|-rename-|
|00000a50| 66 69 6c 65 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |file)) (|define-k|
|00000a60| 65 79 20 64 69 72 65 64 | 2d 6d 6f 64 65 2d 6d 61 |ey dired|-mode-ma|
|00000a70| 70 20 22 04 22 20 28 71 | 75 6f 74 65 20 64 69 72 |p "." (q|uote dir|
|00000a80| 65 64 2d 66 6c 61 67 2d | 66 69 6c 65 2d 64 65 6c |ed-flag-|file-del|
|00000a90| 65 74 65 64 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |eted)) (|define-k|
|00000aa0| 65 79 20 64 69 72 65 64 | 2d 6d 6f 64 65 2d 6d 61 |ey dired|-mode-ma|
|00000ab0| 70 20 22 64 22 20 28 71 | 75 6f 74 65 20 64 69 72 |p "d" (q|uote dir|
|00000ac0| 65 64 2d 66 6c 61 67 2d | 66 69 6c 65 2d 64 65 6c |ed-flag-|file-del|
|00000ad0| 65 74 65 64 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |eted)) (|define-k|
|00000ae0| 65 79 20 64 69 72 65 64 | 2d 6d 6f 64 65 2d 6d 61 |ey dired|-mode-ma|
|00000af0| 70 20 22 76 22 20 28 71 | 75 6f 74 65 20 64 69 72 |p "v" (q|uote dir|
|00000b00| 65 64 2d 76 69 65 77 2d | 66 69 6c 65 29 29 20 28 |ed-view-|file)) (|
|00000b10| 64 65 66 69 6e 65 2d 6b | 65 79 20 64 69 72 65 64 |define-k|ey dired|
|00000b20| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 65 22 20 28 71 |-mode-ma|p "e" (q|
|00000b30| 75 6f 74 65 20 64 69 72 | 65 64 2d 66 69 6e 64 2d |uote dir|ed-find-|
|00000b40| 66 69 6c 65 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |file)) (|define-k|
|00000b50| 65 79 20 64 69 72 65 64 | 2d 6d 6f 64 65 2d 6d 61 |ey dired|-mode-ma|
|00000b60| 70 20 22 66 22 20 28 71 | 75 6f 74 65 20 64 69 72 |p "f" (q|uote dir|
|00000b70| 65 64 2d 66 69 6e 64 2d | 66 69 6c 65 29 29 20 28 |ed-find-|file)) (|
|00000b80| 64 65 66 69 6e 65 2d 6b | 65 79 20 64 69 72 65 64 |define-k|ey dired|
|00000b90| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 6f 22 20 28 71 |-mode-ma|p "o" (q|
|00000ba0| 75 6f 74 65 20 64 69 72 | 65 64 2d 66 69 6e 64 2d |uote dir|ed-find-|
|00000bb0| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00000bc0| 77 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |w)) (def|ine-key |
|00000bd0| 64 69 72 65 64 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |dired-mo|de-map "|
|00000be0| 75 22 20 28 71 75 6f 74 | 65 20 64 69 72 65 64 2d |u" (quot|e dired-|
|00000bf0| 75 6e 66 6c 61 67 29 29 | 20 28 64 65 66 69 6e 65 |unflag))| (define|
|00000c00| 2d 6b 65 79 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |-key dir|ed-mode-|
|00000c10| 6d 61 70 20 22 78 22 20 | 28 71 75 6f 74 65 20 64 |map "x" |(quote d|
|00000c20| 69 72 65 64 2d 64 6f 2d | 64 65 6c 65 74 69 6f 6e |ired-do-|deletion|
|00000c30| 73 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |s)) (def|ine-key |
|00000c40| 64 69 72 65 64 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |dired-mo|de-map "|
|00000c50| 7f 22 20 28 71 75 6f 74 | 65 20 64 69 72 65 64 2d |." (quot|e dired-|
|00000c60| 62 61 63 6b 75 70 2d 75 | 6e 66 6c 61 67 29 29 20 |backup-u|nflag)) |
|00000c70| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 64 69 72 65 |(define-|key dire|
|00000c80| 64 2d 6d 6f 64 65 2d 6d | 61 70 20 22 3f 22 20 28 |d-mode-m|ap "?" (|
|00000c90| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 73 75 6d 6d |quote di|red-summ|
|00000ca0| 61 72 79 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |ary)) (d|efine-ke|
|00000cb0| 79 20 64 69 72 65 64 2d | 6d 6f 64 65 2d 6d 61 70 |y dired-|mode-map|
|00000cc0| 20 22 63 22 20 28 71 75 | 6f 74 65 20 64 69 72 65 | "c" (qu|ote dire|
|00000cd0| 64 2d 63 6f 70 79 2d 66 | 69 6c 65 29 29 20 28 64 |d-copy-f|ile)) (d|
|00000ce0| 65 66 69 6e 65 2d 6b 65 | 79 20 64 69 72 65 64 2d |efine-ke|y dired-|
|00000cf0| 6d 6f 64 65 2d 6d 61 70 | 20 22 23 22 20 28 71 75 |mode-map| "#" (qu|
|00000d00| 6f 74 65 20 64 69 72 65 | 64 2d 66 6c 61 67 2d 61 |ote dire|d-flag-a|
|00000d10| 75 74 6f 2d 73 61 76 65 | 2d 66 69 6c 65 73 29 29 |uto-save|-files))|
|00000d20| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 69 72 | (define|-key dir|
|00000d30| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 22 7e 22 20 |ed-mode-|map "~" |
|00000d40| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 66 6c 61 |(quote d|ired-fla|
|00000d50| 67 2d 62 61 63 6b 75 70 | 2d 66 69 6c 65 73 29 29 |g-backup|-files))|
|00000d60| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 69 72 | (define|-key dir|
|00000d70| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 22 2e 22 20 |ed-mode-|map "." |
|00000d80| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 63 6c 65 |(quote d|ired-cle|
|00000d90| 61 6e 2d 64 69 72 65 63 | 74 6f 72 79 29 29 20 28 |an-direc|tory)) (|
|00000da0| 64 65 66 69 6e 65 2d 6b | 65 79 20 64 69 72 65 64 |define-k|ey dired|
|00000db0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 68 22 20 28 71 |-mode-ma|p "h" (q|
|00000dc0| 75 6f 74 65 20 64 65 73 | 63 72 69 62 65 2d 6d 6f |uote des|cribe-mo|
|00000dd0| 64 65 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |de)) (de|fine-key|
|00000de0| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000df0| 22 20 22 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |" " (quo|te dired|
|00000e00| 2d 6e 65 78 74 2d 6c 69 | 6e 65 29 29 20 28 64 65 |-next-li|ne)) (de|
|00000e10| 66 69 6e 65 2d 6b 65 79 | 20 64 69 72 65 64 2d 6d |fine-key| dired-m|
|00000e20| 6f 64 65 2d 6d 61 70 20 | 22 0e 22 20 28 71 75 6f |ode-map |"." (quo|
|00000e30| 74 65 20 64 69 72 65 64 | 2d 6e 65 78 74 2d 6c 69 |te dired|-next-li|
|00000e40| 6e 65 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ne)) (de|fine-key|
|00000e50| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000e60| 22 10 22 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |"." (quo|te dired|
|00000e70| 2d 70 72 65 76 69 6f 75 | 73 2d 6c 69 6e 65 29 29 |-previou|s-line))|
|00000e80| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 69 72 | (define|-key dir|
|00000e90| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 22 6e 22 20 |ed-mode-|map "n" |
|00000ea0| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 6e 65 78 |(quote d|ired-nex|
|00000eb0| 74 2d 6c 69 6e 65 29 29 | 20 28 64 65 66 69 6e 65 |t-line))| (define|
|00000ec0| 2d 6b 65 79 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |-key dir|ed-mode-|
|00000ed0| 6d 61 70 20 22 70 22 20 | 28 71 75 6f 74 65 20 64 |map "p" |(quote d|
|00000ee0| 69 72 65 64 2d 70 72 65 | 76 69 6f 75 73 2d 6c 69 |ired-pre|vious-li|
|00000ef0| 6e 65 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ne)) (de|fine-key|
|00000f00| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000f10| 22 67 22 20 28 71 75 6f | 74 65 20 72 65 76 65 72 |"g" (quo|te rever|
|00000f20| 74 2d 62 75 66 66 65 72 | 29 29 20 28 64 65 66 69 |t-buffer|)) (defi|
|00000f30| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|00000f40| 65 2d 6d 61 70 20 22 43 | 22 20 28 71 75 6f 74 65 |e-map "C|" (quote|
|00000f50| 20 64 69 72 65 64 2d 63 | 6f 6d 70 72 65 73 73 29 | dired-c|ompress)|
|00000f60| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 64 69 |) (defin|e-key di|
|00000f70| 72 65 64 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 55 22 |red-mode|-map "U"|
|00000f80| 20 28 71 75 6f 74 65 20 | 64 69 72 65 64 2d 75 6e | (quote |dired-un|
|00000f90| 63 6f 6d 70 72 65 73 73 | 29 29 20 28 64 65 66 69 |compress|)) (defi|
|00000fa0| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|00000fb0| 65 2d 6d 61 70 20 22 42 | 22 20 28 71 75 6f 74 65 |e-map "B|" (quote|
|00000fc0| 20 64 69 72 65 64 2d 62 | 79 74 65 2d 72 65 63 6f | dired-b|yte-reco|
|00000fd0| 6d 70 69 6c 65 29 29 20 | 28 64 65 66 69 6e 65 2d |mpile)) |(define-|
|00000fe0| 6b 65 79 20 64 69 72 65 | 64 2d 6d 6f 64 65 2d 6d |key dire|d-mode-m|
|00000ff0| 61 70 20 22 4d 22 20 28 | 71 75 6f 74 65 20 64 69 |ap "M" (|quote di|
|00001000| 72 65 64 2d 63 68 6d 6f | 64 29 29 29 0a 0a 28 70 |red-chmo|d)))..(p|
|00001010| 75 74 20 28 71 75 6f 74 | 65 20 64 69 72 65 64 2d |ut (quot|e dired-|
|00001020| 6d 6f 64 65 29 20 28 71 | 75 6f 74 65 20 6d 6f 64 |mode) (q|uote mod|
|00001030| 65 2d 63 6c 61 73 73 29 | 20 28 71 75 6f 74 65 20 |e-class)| (quote |
|00001040| 73 70 65 63 69 61 6c 29 | 29 0a 0a 28 64 65 66 75 |special)|)..(defu|
|00001050| 6e 20 64 69 72 65 64 2d | 6d 6f 64 65 20 28 26 6f |n dired-|mode (&o|
|00001060| 70 74 69 6f 6e 61 6c 20 | 64 69 72 6e 61 6d 65 29 |ptional |dirname)|
|00001070| 20 22 5c 0a 4d 6f 64 65 | 20 66 6f 72 20 5c 22 65 | "\.Mode| for \"e|
|00001080| 64 69 74 69 6e 67 5c 22 | 20 64 69 72 65 63 74 6f |diting\"| directo|
|00001090| 72 79 20 6c 69 73 74 69 | 6e 67 73 2e 0a 49 6e 20 |ry listi|ngs..In |
|000010a0| 64 69 72 65 64 2c 20 79 | 6f 75 20 61 72 65 20 5c |dired, y|ou are \|
|000010b0| 22 65 64 69 74 69 6e 67 | 5c 22 20 61 20 6c 69 73 |"editing|\" a lis|
|000010c0| 74 20 6f 66 20 74 68 65 | 20 66 69 6c 65 73 20 69 |t of the| files i|
|000010d0| 6e 20 61 20 64 69 72 65 | 63 74 6f 72 79 2e 0a 59 |n a dire|ctory..Y|
|000010e0| 6f 75 20 63 61 6e 20 6d | 6f 76 65 20 75 73 69 6e |ou can m|ove usin|
|000010f0| 67 20 74 68 65 20 75 73 | 75 61 6c 20 63 75 72 73 |g the us|ual curs|
|00001100| 6f 72 20 6d 6f 74 69 6f | 6e 20 63 6f 6d 6d 61 6e |or motio|n comman|
|00001110| 64 73 2e 0a 4c 65 74 74 | 65 72 73 20 6e 6f 20 6c |ds..Lett|ers no l|
|00001120| 6f 6e 67 65 72 20 69 6e | 73 65 72 74 20 74 68 65 |onger in|sert the|
|00001130| 6d 73 65 6c 76 65 73 2e | 0a 49 6e 73 74 65 61 64 |mselves.|.Instead|
|00001140| 2c 20 74 79 70 65 20 64 | 20 74 6f 20 66 6c 61 67 |, type d| to flag|
|00001150| 20 61 20 66 69 6c 65 20 | 66 6f 72 20 44 65 6c 65 | a file |for Dele|
|00001160| 74 69 6f 6e 2e 0a 54 79 | 70 65 20 75 20 74 6f 20 |tion..Ty|pe u to |
|00001170| 55 6e 66 6c 61 67 20 61 | 20 66 69 6c 65 20 28 72 |Unflag a| file (r|
|00001180| 65 6d 6f 76 65 20 69 74 | 73 20 44 20 66 6c 61 67 |emove it|s D flag|
|00001190| 29 2e 0a 20 20 54 79 70 | 65 20 52 75 62 6f 75 74 |)..  Typ|e Rubout|
|000011a0| 20 74 6f 20 62 61 63 6b | 20 75 70 20 6f 6e 65 20 | to back| up one |
|000011b0| 6c 69 6e 65 20 61 6e 64 | 20 75 6e 66 6c 61 67 2e |line and| unflag.|
|000011c0| 0a 54 79 70 65 20 78 20 | 74 6f 20 65 58 65 63 75 |.Type x |to eXecu|
|000011d0| 74 65 20 74 68 65 20 64 | 65 6c 65 74 69 6f 6e 73 |te the d|eletions|
|000011e0| 20 72 65 71 75 65 73 74 | 65 64 2e 0a 54 79 70 65 | request|ed..Type|
|000011f0| 20 66 20 74 6f 20 46 69 | 6e 64 20 74 68 65 20 63 | f to Fi|nd the c|
|00001200| 75 72 72 65 6e 74 20 6c | 69 6e 65 27 73 20 66 69 |urrent l|ine's fi|
|00001210| 6c 65 0a 20 20 28 6f 72 | 20 44 69 72 65 64 20 69 |le.  (or| Dired i|
|00001220| 74 2c 20 69 66 20 69 74 | 20 69 73 20 61 20 64 69 |t, if it| is a di|
|00001230| 72 65 63 74 6f 72 79 29 | 2e 0a 54 79 70 65 20 6f |rectory)|..Type o|
|00001240| 20 74 6f 20 66 69 6e 64 | 20 66 69 6c 65 20 6f 72 | to find| file or|
|00001250| 20 64 69 72 65 64 20 64 | 69 72 65 63 74 6f 72 79 | dired d|irectory|
|00001260| 20 69 6e 20 4f 74 68 65 | 72 20 77 69 6e 64 6f 77 | in Othe|r window|
|00001270| 2e 0a 54 79 70 65 20 23 | 20 74 6f 20 66 6c 61 67 |..Type #| to flag|
|00001280| 20 74 65 6d 70 6f 72 61 | 72 79 20 66 69 6c 65 73 | tempora|ry files|
|00001290| 20 28 6e 61 6d 65 73 20 | 62 65 67 69 6e 6e 69 6e | (names |beginnin|
|000012a0| 67 20 77 69 74 68 20 23 | 29 20 66 6f 72 20 44 65 |g with #|) for De|
|000012b0| 6c 65 74 69 6f 6e 2e 0a | 54 79 70 65 20 7e 20 74 |letion..|Type ~ t|
|000012c0| 6f 20 66 6c 61 67 20 62 | 61 63 6b 75 70 20 66 69 |o flag b|ackup fi|
|000012d0| 6c 65 73 20 28 6e 61 6d | 65 73 20 65 6e 64 69 6e |les (nam|es endin|
|000012e0| 67 20 77 69 74 68 20 7e | 29 20 66 6f 72 20 44 65 |g with ~|) for De|
|000012f0| 6c 65 74 69 6f 6e 2e 0a | 54 79 70 65 20 2e 20 74 |letion..|Type . t|
|00001300| 6f 20 66 6c 61 67 20 6e | 75 6d 65 72 69 63 61 6c |o flag n|umerical|
|00001310| 20 62 61 63 6b 75 70 73 | 20 66 6f 72 20 44 65 6c | backups| for Del|
|00001320| 65 74 69 6f 6e 2e 0a 20 | 20 28 53 70 61 72 65 73 |etion.. | (Spares|
|00001330| 20 64 69 72 65 64 2d 6b | 65 70 74 2d 76 65 72 73 | dired-k|ept-vers|
|00001340| 69 6f 6e 73 20 6f 72 20 | 69 74 73 20 6e 75 6d 65 |ions or |its nume|
|00001350| 72 69 63 20 61 72 67 75 | 6d 65 6e 74 2e 29 0a 54 |ric argu|ment.).T|
|00001360| 79 70 65 20 72 20 74 6f | 20 72 65 6e 61 6d 65 20 |ype r to| rename |
|00001370| 61 20 66 69 6c 65 2e 0a | 54 79 70 65 20 63 20 74 |a file..|Type c t|
|00001380| 6f 20 63 6f 70 79 20 61 | 20 66 69 6c 65 2e 0a 54 |o copy a| file..T|
|00001390| 79 70 65 20 76 20 74 6f | 20 76 69 65 77 20 61 20 |ype v to| view a |
|000013a0| 66 69 6c 65 20 69 6e 20 | 56 69 65 77 20 6d 6f 64 |file in |View mod|
|000013b0| 65 2c 20 72 65 74 75 72 | 6e 69 6e 67 20 74 6f 20 |e, retur|ning to |
|000013c0| 44 69 72 65 64 20 77 68 | 65 6e 20 64 6f 6e 65 2e |Dired wh|en done.|
|000013d0| 0a 54 79 70 65 20 67 20 | 74 6f 20 72 65 61 64 20 |.Type g |to read |
|000013e0| 74 68 65 20 64 69 72 65 | 63 74 6f 72 79 20 61 67 |the dire|ctory ag|
|000013f0| 61 69 6e 2e 20 20 54 68 | 69 73 20 64 69 73 63 61 |ain.  Th|is disca|
|00001400| 72 64 73 20 61 6c 6c 20 | 64 65 6c 65 74 69 6f 6e |rds all |deletion|
|00001410| 2d 66 6c 61 67 73 2e 0a | 53 70 61 63 65 20 61 6e |-flags..|Space an|
|00001420| 64 20 52 75 62 6f 75 74 | 20 63 61 6e 20 62 65 20 |d Rubout| can be |
|00001430| 75 73 65 64 20 74 6f 20 | 6d 6f 76 65 20 64 6f 77 |used to |move dow|
|00001440| 6e 20 61 6e 64 20 75 70 | 20 62 79 20 6c 69 6e 65 |n and up| by line|
|00001450| 73 2e 0a 41 6c 73 6f 3a | 20 43 20 2d 2d 20 63 6f |s..Also:| C -- co|
|00001460| 6d 70 72 65 73 73 20 74 | 68 69 73 20 66 69 6c 65 |mpress t|his file|
|00001470| 2e 20 20 55 20 2d 2d 20 | 75 6e 63 6f 6d 70 72 65 |.  U -- |uncompre|
|00001480| 73 73 20 74 68 69 73 20 | 66 69 6c 65 2e 0a 20 20 |ss this |file..  |
|00001490| 20 20 20 20 42 20 2d 2d | 20 62 79 74 65 20 63 6f |    B --| byte co|
|000014a0| 6d 70 69 6c 65 20 74 68 | 69 73 20 66 69 6c 65 2e |mpile th|is file.|
|000014b0| 0a 20 4d 2c 20 47 2c 20 | 4f 20 2d 2d 20 63 68 61 |. M, G, |O -- cha|
|000014c0| 6e 67 65 20 66 69 6c 65 | 27 73 20 6d 6f 64 65 2c |nge file|'s mode,|
|000014d0| 20 67 72 6f 75 70 20 6f | 72 20 6f 77 6e 65 72 2e | group o|r owner.|
|000014e0| 0a 5c 5c 7b 64 69 72 65 | 64 2d 6d 6f 64 65 2d 6d |.\\{dire|d-mode-m|
|000014f0| 61 70 7d 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |ap}" (in|teractiv|
|00001500| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c8 |e) (byte|-code ".|
|00001510| 88 cc 20 88 cd c0 21 88 | ce 89 10 88 cf 89 11 88 |.. ...!.|........|
|00001520| d0 89 12 88 cd c3 21 88 | 0c 86 1e 00 0d 89 13 88 |......!.|........|
|00001530| 0c 85 34 00 d1 0c 21 83 | 2f 00 0c 82 32 00 d2 0c |..4...!.|/...2...|
|00001540| 21 89 15 88 d3 89 16 06 | 88 c8 89 16 07 88 ca 89 |!.......|........|
|00001550| 16 09 88 d4 0e 0b 21 88 | d5 d6 21 87 22 20 5b 72 |......!.|..!." [r|
|00001560| 65 76 65 72 74 2d 62 75 | 66 66 65 72 2d 66 75 6e |evert-bu|ffer-fun|
|00001570| 63 74 69 6f 6e 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |ction ma|jor-mode|
|00001580| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 64 69 72 65 64 | mode-na|me dired|
|00001590| 2d 64 69 72 65 63 74 6f | 72 79 20 64 69 72 6e 61 |-directo|ry dirna|
|000015a0| 6d 65 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |me defau|lt-direc|
|000015b0| 74 6f 72 79 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 62 |tory mod|e-line-b|
|000015c0| 75 66 66 65 72 2d 69 64 | 65 6e 74 69 66 69 63 61 |uffer-id|entifica|
|000015d0| 74 69 6f 6e 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |tion cas|e-fold-s|
|000015e0| 65 61 72 63 68 20 6e 69 | 6c 20 62 75 66 66 65 72 |earch ni|l buffer|
|000015f0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 74 20 64 69 72 |-read-on|ly t dir|
|00001600| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 6b 69 6c 6c |ed-mode-|map kill|
|00001610| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00001620| 62 6c 65 73 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |bles mak|e-local-|
|00001630| 76 61 72 69 61 62 6c 65 | 20 64 69 72 65 64 2d 72 |variable| dired-r|
|00001640| 65 76 65 72 74 20 64 69 | 72 65 64 2d 6d 6f 64 65 |evert di|red-mode|
|00001650| 20 22 44 69 72 65 64 22 | 20 66 69 6c 65 2d 64 69 | "Dired"| file-di|
|00001660| 72 65 63 74 6f 72 79 2d | 70 20 66 69 6c 65 2d 6e |rectory-|p file-n|
|00001670| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 28 22 |ame-dire|ctory ("|
|00001680| 44 69 72 65 64 3a 20 25 | 31 37 62 22 29 20 75 73 |Dired: %|17b") us|
|00001690| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 72 75 6e 2d |e-local-|map run-|
|000016a0| 68 6f 6f 6b 73 20 64 69 | 72 65 64 2d 6d 6f 64 65 |hooks di|red-mode|
|000016b0| 2d 68 6f 6f 6b 5d 20 38 | 29 29 0a 0a 28 64 65 66 |-hook] 8|))..(def|
|000016c0| 75 6e 20 64 69 72 65 64 | 2d 72 65 70 65 61 74 2d |un dired|-repeat-|
|000016d0| 6f 76 65 72 2d 6c 69 6e | 65 73 20 28 61 72 67 20 |over-lin|es (arg |
|000016e0| 66 75 6e 63 74 69 6f 6e | 29 20 28 62 79 74 65 2d |function|) (byte-|
|000016f0| 63 6f 64 65 20 22 c2 20 | 88 08 c3 56 85 0b 00 6d |code ". |...V...m|
|00001700| 3f 85 34 00 08 53 89 10 | 88 8a c2 20 88 6f 85 24 |?.4..S..|... .o.$|
|00001710| 00 c4 c5 21 85 24 00 c6 | c7 21 88 c8 09 21 29 88 |...!.$..|.!...!).|
|00001720| c9 ca 21 88 cb 20 88 82 | 03 00 88 08 c3 57 85 3d |..!.. ..|.....W.=|
|00001730| 00 6f 3f 85 58 00 08 54 | 89 10 88 c9 cc 21 88 cb |.o?.X..T|.....!..|
|00001740| 20 88 8a c2 20 88 c8 09 | 21 29 88 82 35 00 87 22 | ... ...|!)..5.."|
|00001750| 20 5b 61 72 67 20 66 75 | 6e 63 74 69 6f 6e 20 62 | [arg fu|nction b|
|00001760| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|00001770| 20 30 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 20 | 0 looki|ng-at " |
|00001780| 20 74 6f 74 61 6c 22 20 | 65 72 72 6f 72 20 22 4e | total" |error "N|
|00001790| 6f 20 66 69 6c 65 20 6f | 6e 20 74 68 69 73 20 6c |o file o|n this l|
|000017a0| 69 6e 65 22 20 66 75 6e | 63 61 6c 6c 20 66 6f 72 |ine" fun|call for|
|000017b0| 77 61 72 64 2d 6c 69 6e | 65 20 31 20 64 69 72 65 |ward-lin|e 1 dire|
|000017c0| 64 2d 6d 6f 76 65 2d 74 | 6f 2d 66 69 6c 65 6e 61 |d-move-t|o-filena|
|000017d0| 6d 65 20 2d 31 5d 20 31 | 33 29 29 0a 0a 28 64 65 |me -1] 1|3))..(de|
|000017e0| 66 75 6e 20 64 69 72 65 | 64 2d 66 6c 61 67 2d 66 |fun dire|d-flag-f|
|000017f0| 69 6c 65 2d 64 65 6c 65 | 74 65 64 20 28 61 72 67 |ile-dele|ted (arg|
|00001800| 29 20 22 5c 0a 49 6e 20 | 64 69 72 65 64 2c 20 66 |) "\.In |dired, f|
|00001810| 6c 61 67 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lag the |current |
|00001820| 6c 69 6e 65 27 73 20 66 | 69 6c 65 20 66 6f 72 20 |line's f|ile for |
|00001830| 64 65 6c 65 74 69 6f 6e | 2e 0a 57 69 74 68 20 61 |deletion|..With a|
|00001840| 72 67 2c 20 72 65 70 65 | 61 74 20 6f 76 65 72 20 |rg, repe|at over |
|00001850| 73 65 76 65 72 61 6c 20 | 6c 69 6e 65 73 2e 22 20 |several |lines." |
|00001860| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 70 22 |(interac|tive "p"|
|00001870| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00001880| c2 08 c3 5c 22 87 22 20 | 5b 61 72 67 20 6e 69 6c |...\"." |[arg nil|
|00001890| 20 64 69 72 65 64 2d 72 | 65 70 65 61 74 2d 6f 76 | dired-r|epeat-ov|
|000018a0| 65 72 2d 6c 69 6e 65 73 | 20 28 6c 61 6d 62 64 61 |er-lines| (lambda|
|000018b0| 20 6e 69 6c 20 28 6c 65 | 74 20 28 28 62 75 66 66 | nil (le|t ((buff|
|000018c0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 69 6c |er-read-|only nil|
|000018d0| 29 29 20 28 69 66 20 28 | 6c 6f 6f 6b 69 6e 67 2d |)) (if (|looking-|
|000018e0| 61 74 20 22 20 20 64 22 | 29 20 6e 69 6c 20 28 64 |at "  d"|) nil (d|
|000018f0| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 29 20 28 69 |elete-ch|ar 1) (i|
|00001900| 6e 73 65 72 74 20 22 44 | 22 29 29 29 29 5d 20 33 |nsert "D|"))))] 3|
|00001910| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 72 65 64 |))..(def|un dired|
|00001920| 2d 73 75 6d 6d 61 72 79 | 20 6e 69 6c 20 28 69 6e |-summary| nil (in|
|00001930| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00001940| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00001950| 6e 69 6c 20 6d 65 73 73 | 61 67 65 20 22 64 2d 65 |nil mess|age "d-e|
|00001960| 6c 65 74 65 2c 20 75 2d | 6e 64 65 6c 65 74 65 2c |lete, u-|ndelete,|
|00001970| 20 78 2d 65 63 75 74 65 | 2c 20 66 2d 69 6e 64 2c | x-ecute|, f-ind,|
|00001980| 20 6f 2d 74 68 65 72 20 | 77 69 6e 64 6f 77 2c 20 | o-ther |window, |
|00001990| 72 2d 65 6e 61 6d 65 2c | 20 63 2d 6f 70 79 2c 20 |r-ename,| c-opy, |
|000019a0| 76 2d 69 65 77 22 5d 20 | 32 29 29 0a 0a 28 64 65 |v-iew"] |2))..(de|
|000019b0| 66 75 6e 20 64 69 72 65 | 64 2d 75 6e 66 6c 61 67 |fun dire|d-unflag|
|000019c0| 20 28 61 72 67 29 20 22 | 5c 0a 49 6e 20 64 69 72 | (arg) "|\.In dir|
|000019d0| 65 64 2c 20 72 65 6d 6f | 76 65 20 74 68 65 20 63 |ed, remo|ve the c|
|000019e0| 75 72 72 65 6e 74 20 6c | 69 6e 65 27 73 20 64 65 |urrent l|ine's de|
|000019f0| 6c 65 74 65 20 66 6c 61 | 67 20 74 68 65 6e 20 6d |lete fla|g then m|
|00001a00| 6f 76 65 20 74 6f 20 6e | 65 78 74 20 6c 69 6e 65 |ove to n|ext line|
|00001a10| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00001a20| 22 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"p") (by|te-code |
|00001a30| 22 c1 88 c2 08 c3 5c 22 | 87 22 20 5b 61 72 67 20 |".....\"|." [arg |
|00001a40| 6e 69 6c 20 64 69 72 65 | 64 2d 72 65 70 65 61 74 |nil dire|d-repeat|
|00001a50| 2d 6f 76 65 72 2d 6c 69 | 6e 65 73 20 28 6c 61 6d |-over-li|nes (lam|
|00001a60| 62 64 61 20 6e 69 6c 20 | 28 6c 65 74 20 28 28 62 |bda nil |(let ((b|
|00001a70| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00001a80| 6e 69 6c 29 29 20 28 64 | 65 6c 65 74 65 2d 63 68 |nil)) (d|elete-ch|
|00001a90| 61 72 20 31 29 20 28 69 | 6e 73 65 72 74 20 22 20 |ar 1) (i|nsert " |
|00001aa0| 22 29 20 28 66 6f 72 77 | 61 72 64 2d 63 68 61 72 |") (forw|ard-char|
|00001ab0| 20 2d 31 29 29 29 5d 20 | 33 29 29 0a 0a 28 64 65 | -1)))] |3))..(de|
|00001ac0| 66 75 6e 20 64 69 72 65 | 64 2d 62 61 63 6b 75 70 |fun dire|d-backup|
|00001ad0| 2d 75 6e 66 6c 61 67 20 | 28 61 72 67 29 20 22 5c |-unflag |(arg) "\|
|00001ae0| 0a 49 6e 20 64 69 72 65 | 64 2c 20 6d 6f 76 65 20 |.In dire|d, move |
|00001af0| 75 70 20 61 20 6c 69 6e | 65 20 61 6e 64 20 72 65 |up a lin|e and re|
|00001b00| 6d 6f 76 65 20 64 65 6c | 65 74 69 6f 6e 20 66 6c |move del|etion fl|
|00001b10| 61 67 20 74 68 65 72 65 | 2e 22 20 28 69 6e 74 65 |ag there|." (inte|
|00001b20| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00001b30| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 08 5b 21 87 |te-code |"....[!.|
|00001b40| 22 20 5b 61 72 67 20 6e | 69 6c 20 64 69 72 65 64 |" [arg n|il dired|
|00001b50| 2d 75 6e 66 6c 61 67 5d | 20 32 29 29 0a 0a 28 64 |-unflag]| 2))..(d|
|00001b60| 65 66 75 6e 20 64 69 72 | 65 64 2d 6e 65 78 74 2d |efun dir|ed-next-|
|00001b70| 6c 69 6e 65 20 28 61 72 | 67 29 20 22 5c 0a 4d 6f |line (ar|g) "\.Mo|
|00001b80| 76 65 20 64 6f 77 6e 20 | 41 52 47 20 6c 69 6e 65 |ve down |ARG line|
|00001b90| 73 20 74 68 65 6e 20 70 | 6f 73 69 74 69 6f 6e 20 |s then p|osition |
|00001ba0| 61 74 20 66 69 6c 65 6e | 61 6d 65 2e 22 20 28 69 |at filen|ame." (i|
|00001bb0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 70 22 29 20 |nteracti|ve "p") |
|00001bc0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 08 |(byte-co|de "....|
|00001bd0| 21 88 c3 20 87 22 20 5b | 61 72 67 20 6e 69 6c 20 |!.. ." [|arg nil |
|00001be0| 6e 65 78 74 2d 6c 69 6e | 65 20 64 69 72 65 64 2d |next-lin|e dired-|
|00001bf0| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00001c00| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 |] 3))..(|defun di|
|00001c10| 72 65 64 2d 70 72 65 76 | 69 6f 75 73 2d 6c 69 6e |red-prev|ious-lin|
|00001c20| 65 20 28 61 72 67 29 20 | 22 5c 0a 4d 6f 76 65 20 |e (arg) |"\.Move |
|00001c30| 75 70 20 41 52 47 20 6c | 69 6e 65 73 20 74 68 65 |up ARG l|ines the|
|00001c40| 6e 20 70 6f 73 69 74 69 | 6f 6e 20 61 74 20 66 69 |n positi|on at fi|
|00001c50| 6c 65 6e 61 6d 65 2e 22 | 20 28 69 6e 74 65 72 61 |lename."| (intera|
|00001c60| 63 74 69 76 65 20 22 70 | 22 29 20 28 62 79 74 65 |ctive "p|") (byte|
|00001c70| 2d 63 6f 64 65 20 22 c1 | 88 c2 08 21 88 c3 20 87 |-code ".|...!.. .|
|00001c80| 22 20 5b 61 72 67 20 6e | 69 6c 20 70 72 65 76 69 |" [arg n|il previ|
|00001c90| 6f 75 73 2d 6c 69 6e 65 | 20 64 69 72 65 64 2d 6d |ous-line| dired-m|
|00001ca0| 6f 76 65 2d 74 6f 2d 66 | 69 6c 65 6e 61 6d 65 5d |ove-to-f|ilename]|
|00001cb0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 69 72 | 3))..(d|efun dir|
|00001cc0| 65 64 2d 66 69 6e 64 2d | 66 69 6c 65 20 6e 69 6c |ed-find-|file nil|
|00001cd0| 20 22 5c 0a 49 6e 20 64 | 69 72 65 64 2c 20 76 69 | "\.In d|ired, vi|
|00001ce0| 73 69 74 20 74 68 65 20 | 66 69 6c 65 20 6f 72 20 |sit the |file or |
|00001cf0| 64 69 72 65 63 74 6f 72 | 79 20 6e 61 6d 65 64 20 |director|y named |
|00001d00| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 22 20 28 |on this |line." (|
|00001d10| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00001d20| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 20 21 87 |te-code |".... !.|
|00001d30| 22 20 5b 6e 69 6c 20 66 | 69 6e 64 2d 66 69 6c 65 |" [nil f|ind-file|
|00001d40| 20 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e | dired-g|et-filen|
|00001d50| 61 6d 65 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ame] 3))|..(defun|
|00001d60| 20 64 69 72 65 64 2d 76 | 69 65 77 2d 66 69 6c 65 | dired-v|iew-file|
|00001d70| 20 6e 69 6c 20 22 5c 0a | 49 6e 20 64 69 72 65 64 | nil "\.|In dired|
|00001d80| 2c 20 65 78 61 6d 69 6e | 65 20 61 20 66 69 6c 65 |, examin|e a file|
|00001d90| 20 69 6e 20 76 69 65 77 | 20 6d 6f 64 65 2c 20 72 | in view| mode, r|
|00001da0| 65 74 75 72 6e 69 6e 67 | 20 74 6f 20 64 69 72 65 |eturning| to dire|
|00001db0| 64 20 77 68 65 6e 20 64 | 6f 6e 65 2e 22 20 28 69 |d when d|one." (i|
|00001dc0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00001dd0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 20 21 83 10 |e-code "|.... !..|
|00001de0| 00 c3 c2 20 21 82 14 00 | c4 c2 20 21 87 22 20 5b |... !...|.. !." [|
|00001df0| 6e 69 6c 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |nil file|-directo|
|00001e00| 72 79 2d 70 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |ry-p dir|ed-get-f|
|00001e10| 69 6c 65 6e 61 6d 65 20 | 64 69 72 65 64 20 76 69 |ilename |dired vi|
|00001e20| 65 77 2d 66 69 6c 65 5d | 20 37 29 29 0a 0a 28 64 |ew-file]| 7))..(d|
|00001e30| 65 66 75 6e 20 64 69 72 | 65 64 2d 66 69 6e 64 2d |efun dir|ed-find-|
|00001e40| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00001e50| 77 20 6e 69 6c 20 22 5c | 0a 49 6e 20 64 69 72 65 |w nil "\|.In dire|
|00001e60| 64 2c 20 76 69 73 69 74 | 20 74 68 69 73 20 66 69 |d, visit| this fi|
|00001e70| 6c 65 20 6f 72 20 64 69 | 72 65 63 74 6f 72 79 20 |le or di|rectory |
|00001e80| 69 6e 20 61 6e 6f 74 68 | 65 72 20 77 69 6e 64 6f |in anoth|er windo|
|00001e90| 77 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |w." (int|eractive|
|00001ea0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|00001eb0| c1 c2 20 21 87 22 20 5b | 6e 69 6c 20 66 69 6e 64 |.. !." [|nil find|
|00001ec0| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-file-ot|her-wind|
|00001ed0| 6f 77 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |ow dired|-get-fil|
|00001ee0| 65 6e 61 6d 65 5d 20 33 | 29 29 0a 0a 28 64 65 66 |ename] 3|))..(def|
|00001ef0| 75 6e 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |un dired|-get-fil|
|00001f00| 65 6e 61 6d 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |ename (&|optional|
|00001f10| 20 6c 6f 63 61 6c 70 20 | 6e 6f 2d 65 72 72 6f 72 | localp |no-error|
|00001f20| 2d 69 66 2d 6e 6f 74 2d | 66 69 6c 65 70 29 20 22 |-if-not-|filep) "|
|00001f30| 5c 0a 49 6e 20 64 69 72 | 65 64 2c 20 72 65 74 75 |\.In dir|ed, retu|
|00001f40| 72 6e 20 6e 61 6d 65 20 | 6f 66 20 66 69 6c 65 20 |rn name |of file |
|00001f50| 6d 65 6e 74 69 6f 6e 65 | 64 20 6f 6e 20 74 68 69 |mentione|d on thi|
|00001f60| 73 20 6c 69 6e 65 2e 0a | 56 61 6c 75 65 20 72 65 |s line..|Value re|
|00001f70| 74 75 72 6e 65 64 20 6e | 6f 72 6d 61 6c 6c 79 20 |turned n|ormally |
|00001f80| 69 6e 63 6c 75 64 65 73 | 20 74 68 65 20 64 69 72 |includes| the dir|
|00001f90| 65 63 74 6f 72 79 20 6e | 61 6d 65 2e 0a 41 20 6e |ectory n|ame..A n|
|00001fa0| 6f 6e 2d 6e 69 6c 20 31 | 73 74 20 61 72 67 75 6d |on-nil 1|st argum|
|00001fb0| 65 6e 74 20 6d 65 61 6e | 73 20 64 6f 20 6e 6f 74 |ent mean|s do not|
|00001fc0| 20 69 6e 63 6c 75 64 65 | 20 69 74 2e 20 20 41 20 | include| it.  A |
|00001fd0| 6e 6f 6e 2d 6e 69 6c 20 | 32 6e 64 20 61 72 67 75 |non-nil |2nd argu|
|00001fe0| 6d 65 6e 74 0a 73 61 79 | 73 20 72 65 74 75 72 6e |ment.say|s return|
|00001ff0| 20 6e 69 6c 20 69 66 20 | 6e 6f 20 66 69 6c 65 6e | nil if |no filen|
|00002000| 61 6d 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ame on t|his line|
|00002010| 2c 20 6f 74 68 65 72 77 | 69 73 65 20 61 6e 20 65 |, otherw|ise an e|
|00002020| 72 72 6f 72 20 6f 63 63 | 75 72 73 2e 22 20 28 62 |rror occ|urs." (b|
|00002030| 79 74 65 2d 63 6f 64 65 | 20 22 c6 18 8a c7 20 88 |yte-code| ".... .|
|00002040| 60 89 10 88 c8 20 88 c9 | ca 21 85 16 00 cb cc 21 |`.... ..|.!.....!|
|00002050| 88 cd ce 08 c1 23 83 48 | 00 cf d0 21 88 cf d1 08 |.....#.H|...!....|
|00002060| 5c 22 88 cf d0 08 5c 22 | 88 60 1a cf d2 21 88 0b |\"....\"|.`...!..|
|00002070| 83 3e 00 d3 0a 60 5c 22 | 82 44 00 0c d3 0a 60 5c |.>...`\"|.D....`\|
|00002080| 22 50 29 82 53 00 0d 83 | 50 00 c6 82 53 00 cb d4 |"P).S...|P...S...|
|00002090| 21 29 29 87 22 20 5b 65 | 6f 6c 20 74 20 62 65 67 |!))." [e|ol t beg|
|000020a0| 20 6c 6f 63 61 6c 70 20 | 64 65 66 61 75 6c 74 2d | localp |default-|
|000020b0| 64 69 72 65 63 74 6f 72 | 79 20 6e 6f 2d 65 72 72 |director|y no-err|
|000020c0| 6f 72 2d 69 66 2d 6e 6f | 74 2d 66 69 6c 65 70 20 |or-if-no|t-filep |
|000020d0| 6e 69 6c 20 65 6e 64 2d | 6f 66 2d 6c 69 6e 65 20 |nil end-|of-line |
|000020e0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|000020f0| 65 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5b 20 |e lookin|g-at "[ |
|00002100| 09 5d 2a 6e 6f 61 63 63 | 65 73 73 22 20 65 72 72 |.]*noacc|ess" err|
|00002110| 6f 72 20 22 53 6f 72 72 | 79 2c 20 74 68 69 73 20 |or "Sorr|y, this |
|00002120| 66 69 6c 65 2f 64 69 72 | 65 63 74 6f 72 79 20 63 |file/dir|ectory c|
|00002130| 6f 75 6c 64 6e 27 74 20 | 62 65 20 70 72 6f 63 65 |ouldn't |be proce|
|00002140| 73 73 65 64 2e 22 20 72 | 65 2d 73 65 61 72 63 68 |ssed." r|e-search|
|00002150| 2d 66 6f 72 77 61 72 64 | 20 22 5c 5c 28 4a 61 6e |-forward| "\\(Jan|
|00002160| 5c 5c 7c 46 65 62 5c 5c | 7c 4d 61 72 5c 5c 7c 41 |\\|Feb\\||Mar\\|A|
|00002170| 70 72 5c 5c 7c 4d 61 79 | 5c 5c 7c 4a 75 6e 5c 5c |pr\\|May|\\|Jun\\|
|00002180| 7c 4a 75 6c 5c 5c 7c 41 | 75 67 5c 5c 7c 53 65 70 ||Jul\\|A|ug\\|Sep|
|00002190| 5c 5c 7c 4f 63 74 5c 5c | 7c 4e 6f 76 5c 5c 7c 44 |\\|Oct\\||Nov\\|D|
|000021a0| 65 63 5c 5c 29 5b 20 5d | 2b 5b 30 2d 39 5d 2b 22 |ec\\)[ ]|+[0-9]+"|
|000021b0| 20 73 6b 69 70 2d 63 68 | 61 72 73 2d 66 6f 72 77 | skip-ch|ars-forw|
|000021c0| 61 72 64 20 22 20 22 20 | 22 5e 20 22 20 22 5e 20 |ard " " |"^ " "^ |
|000021d0| 0a 22 20 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |." buffe|r-substr|
|000021e0| 69 6e 67 20 22 4e 6f 20 | 66 69 6c 65 20 6f 6e 20 |ing "No |file on |
|000021f0| 74 68 69 73 20 6c 69 6e | 65 22 5d 20 31 34 29 29 |this lin|e"] 14))|
|00002200| 0a 0a 28 64 65 66 75 6e | 20 64 69 72 65 64 2d 6d |..(defun| dired-m|
|00002210| 6f 76 65 2d 74 6f 2d 66 | 69 6c 65 6e 61 6d 65 20 |ove-to-f|ilename |
|00002220| 6e 69 6c 20 22 5c 0a 49 | 6e 20 64 69 72 65 64 2c |nil "\.I|n dired,|
|00002230| 20 6d 6f 76 65 20 74 6f | 20 66 69 72 73 74 20 63 | move to| first c|
|00002240| 68 61 72 20 6f 66 20 66 | 69 6c 65 6e 61 6d 65 20 |har of f|ilename |
|00002250| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 0a 52 65 |on this |line..Re|
|00002260| 74 75 72 6e 73 20 70 6f | 73 69 74 69 6f 6e 20 28 |turns po|sition (|
|00002270| 70 6f 69 6e 74 29 20 6f | 72 20 6e 69 6c 20 69 66 |point) o|r nil if|
|00002280| 20 6e 6f 20 66 69 6c 65 | 6e 61 6d 65 20 6f 6e 20 | no file|name on |
|00002290| 74 68 69 73 20 6c 69 6e | 65 2e 22 20 28 62 79 74 |this lin|e." (byt|
|000022a0| 65 2d 63 6f 64 65 20 22 | c2 20 88 60 18 c3 20 88 |e-code "|. .`.. .|
|000022b0| c4 c5 08 c1 23 85 1f 00 | c6 c7 21 88 c6 c8 08 5c |....#...|..!....\|
|000022c0| 22 88 c6 c7 08 5c 22 88 | 60 29 87 22 20 5b 65 6f |"....\".|`)." [eo|
|000022d0| 6c 20 74 20 65 6e 64 2d | 6f 66 2d 6c 69 6e 65 20 |l t end-|of-line |
|000022e0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|000022f0| 65 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |e re-sea|rch-forw|
|00002300| 61 72 64 20 22 5c 5c 28 | 4a 61 6e 5c 5c 7c 46 65 |ard "\\(|Jan\\|Fe|
|00002310| 62 5c 5c 7c 4d 61 72 5c | 5c 7c 41 70 72 5c 5c 7c |b\\|Mar\|\|Apr\\||
|00002320| 4d 61 79 5c 5c 7c 4a 75 | 6e 5c 5c 7c 4a 75 6c 5c |May\\|Ju|n\\|Jul\|
|00002330| 5c 7c 41 75 67 5c 5c 7c | 53 65 70 5c 5c 7c 4f 63 |\|Aug\\||Sep\\|Oc|
|00002340| 74 5c 5c 7c 4e 6f 76 5c | 5c 7c 44 65 63 5c 5c 29 |t\\|Nov\|\|Dec\\)|
|00002350| 5b 20 5d 2b 5b 30 2d 39 | 5d 2b 22 20 73 6b 69 70 |[ ]+[0-9|]+" skip|
|00002360| 2d 63 68 61 72 73 2d 66 | 6f 72 77 61 72 64 20 22 |-chars-f|orward "|
|00002370| 20 22 20 22 5e 20 22 5d | 20 38 29 29 0a 0a 28 64 | " "^ "]| 8))..(d|
|00002380| 65 66 75 6e 20 64 69 72 | 65 64 2d 6d 61 70 2d 64 |efun dir|ed-map-d|
|00002390| 69 72 65 64 2d 66 69 6c | 65 2d 6c 69 6e 65 73 20 |ired-fil|e-lines |
|000023a0| 28 66 6e 29 20 22 5c 0a | 70 65 72 66 6f 72 6d 20 |(fn) "\.|perform |
|000023b0| 66 6e 20 77 69 74 68 20 | 70 6f 69 6e 74 20 61 74 |fn with |point at|
|000023c0| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 65 61 63 68 | the end| of each|
|000023d0| 20 6e 6f 6e 2d 64 69 72 | 65 63 74 6f 72 79 20 6c | non-dir|ectory l|
|000023e0| 69 6e 65 3a 0a 61 72 67 | 75 6d 65 6e 74 73 20 61 |ine:.arg|uments a|
|000023f0| 72 65 20 74 68 65 20 73 | 68 6f 72 74 20 61 6e 64 |re the s|hort and|
|00002400| 20 6c 6f 6e 67 20 66 69 | 6c 65 6e 61 6d 65 22 20 | long fi|lename" |
|00002410| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a c3 c3 c3 |(byte-co|de "....|
|00002420| 1a 19 18 65 62 88 6d 3f | 85 3b 00 8a c6 c7 21 3f |...eb.m?|.;....!?|
|00002430| 85 32 00 6c 3f 85 32 00 | c8 c4 c4 5c 22 10 c8 c3 |.2.l?.2.|...\"...|
|00002440| c4 5c 22 89 11 85 32 00 | c9 20 88 ca 0d 08 09 23 |.\"...2.|. .....#|
|00002450| 29 88 cb cc 21 88 82 0a | 00 2b 29 87 22 20 5b 66 |)...!...|.+)." [f|
|00002460| 69 6c 65 6e 61 6d 65 20 | 6c 6f 6e 67 66 69 6c 65 |ilename |longfile|
|00002470| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 72 65 61 64 |name buf|fer-read|
|00002480| 2d 6f 6e 6c 79 20 6e 69 | 6c 20 74 20 66 6e 20 6c |-only ni|l t fn l|
|00002490| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 20 20 64 22 20 |ooking-a|t "  d" |
|000024a0| 64 69 72 65 64 2d 67 65 | 74 2d 66 69 6c 65 6e 61 |dired-ge|t-filena|
|000024b0| 6d 65 20 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 66 |me end-o|f-line f|
|000024c0| 75 6e 63 61 6c 6c 20 66 | 6f 72 77 61 72 64 2d 6c |uncall f|orward-l|
|000024d0| 69 6e 65 20 31 5d 20 39 | 29 29 0a 0a 28 64 65 66 |ine 1] 9|))..(def|
|000024e0| 75 6e 20 64 69 72 65 64 | 2d 66 6c 61 67 2d 61 75 |un dired|-flag-au|
|000024f0| 74 6f 2d 73 61 76 65 2d | 66 69 6c 65 73 20 6e 69 |to-save-|files ni|
|00002500| 6c 20 22 5c 0a 46 6c 61 | 67 20 66 6f 72 20 64 65 |l "\.Fla|g for de|
|00002510| 6c 65 74 69 6f 6e 20 66 | 69 6c 65 73 20 77 68 6f |letion f|iles who|
|00002520| 73 65 20 6e 61 6d 65 73 | 20 73 75 67 67 65 73 74 |se names| suggest|
|00002530| 20 74 68 65 79 20 61 72 | 65 20 61 75 74 6f 20 73 | they ar|e auto s|
|00002540| 61 76 65 20 66 69 6c 65 | 73 2e 22 20 28 69 6e 74 |ave file|s." (int|
|00002550| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00002560| 63 6f 64 65 20 22 c1 88 | 8a c1 18 65 62 88 6d 3f |code "..|...eb.m?|
|00002570| 85 4b 00 c4 c5 21 3f 85 | 43 00 6c 3f 85 43 00 c6 |.K...!?.|C.l?.C..|
|00002580| c7 21 83 2f 00 c8 c3 c3 | 5c 22 1a 0a 85 2b 00 c7 |.!./....|\"...+..|
|00002590| 0a 21 29 82 37 00 c9 20 | 85 37 00 c4 ca 21 85 43 |.!).7.. |.7...!.C|
|000025a0| 00 cb 20 88 cc cd 21 88 | ce 63 88 cf cd 21 88 82 |.. ...!.|.c...!..|
|000025b0| 08 00 29 29 87 22 20 5b | 62 75 66 66 65 72 2d 72 |..))." [|buffer-r|
|000025c0| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 66 6e 20 |ead-only| nil fn |
|000025d0| 74 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 20 20 |t lookin|g-at "  |
|000025e0| 64 22 20 66 62 6f 75 6e | 64 70 20 61 75 74 6f 2d |d" fboun|dp auto-|
|000025f0| 73 61 76 65 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 70 |save-fil|e-name-p|
|00002600| 20 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e | dired-g|et-filen|
|00002610| 61 6d 65 20 64 69 72 65 | 64 2d 6d 6f 76 65 2d 74 |ame dire|d-move-t|
|00002620| 6f 2d 66 69 6c 65 6e 61 | 6d 65 20 22 23 22 20 62 |o-filena|me "#" b|
|00002630| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|00002640| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 31 20 22 | delete-|char 1 "|
|00002650| 44 22 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 5d |D" forwa|rd-line]|
|00002660| 20 31 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 | 11))..(|defun di|
|00002670| 72 65 64 2d 63 6c 65 61 | 6e 2d 64 69 72 65 63 74 |red-clea|n-direct|
|00002680| 6f 72 79 20 28 6b 65 65 | 70 29 20 22 5c 0a 46 6c |ory (kee|p) "\.Fl|
|00002690| 61 67 20 6e 75 6d 65 72 | 69 63 61 6c 20 62 61 63 |ag numer|ical bac|
|000026a0| 6b 75 70 73 20 66 6f 72 | 20 44 65 6c 65 74 69 6f |kups for| Deletio|
|000026b0| 6e 2e 0a 53 70 61 72 65 | 73 20 64 69 72 65 64 2d |n..Spare|s dired-|
|000026c0| 6b 65 70 74 2d 76 65 72 | 73 69 6f 6e 73 20 6c 61 |kept-ver|sions la|
|000026d0| 74 65 73 74 20 76 65 72 | 73 69 6f 6e 73 2c 20 61 |test ver|sions, a|
|000026e0| 6e 64 20 6b 65 70 74 2d | 6f 6c 64 2d 76 65 72 73 |nd kept-|old-vers|
|000026f0| 69 6f 6e 73 20 6f 6c 64 | 65 73 74 2e 0a 50 6f 73 |ions old|est..Pos|
|00002700| 69 74 69 76 65 20 6e 75 | 6d 65 72 69 63 20 61 72 |itive nu|meric ar|
|00002710| 67 20 6f 76 65 72 72 69 | 64 65 73 20 64 69 72 65 |g overri|des dire|
|00002720| 64 2d 6b 65 70 74 2d 76 | 65 72 73 69 6f 6e 73 3b |d-kept-v|ersions;|
|00002730| 0a 6e 65 67 61 74 69 76 | 65 20 6e 75 6d 65 72 69 |.negativ|e numeri|
|00002740| 63 20 61 72 67 20 6f 76 | 65 72 72 69 64 65 73 20 |c arg ov|errides |
|00002750| 6b 65 70 74 2d 6f 6c 64 | 2d 76 65 72 73 69 6f 6e |kept-old|-version|
|00002760| 73 20 77 69 74 68 20 6d | 69 6e 75 73 20 74 68 65 |s with m|inus the|
|00002770| 20 61 72 67 2e 22 20 28 | 69 6e 74 65 72 61 63 74 | arg." (|interact|
|00002780| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00002790| 6f 64 65 20 22 c6 88 08 | 83 0c 00 ca 08 21 82 0d |ode "...|.....!..|
|000027a0| 00 09 89 10 88 08 cb 57 | 83 1b 00 08 5b 82 1c 00 |.......W|....[...|
|000027b0| 0b 08 cb 58 83 26 00 09 | 82 27 00 08 c6 1d 1c 1a |...X.&..|.'......|
|000027c0| cc cd 21 88 0d 1e 07 0e | 07 85 74 00 ce cf 0e 07 |..!.....|..t.....|
|000027d0| 40 41 d0 5c 22 42 1e 08 | 0e 08 47 1e 09 0e 09 0a |@A.\"B..|..G.....|
|000027e0| 0c 5c 5c 56 85 5f 00 d1 | d2 0a 0e 08 5c 22 d2 0e |.\\V._..|....\"..|
|000027f0| 09 0c 5a 0e 08 5c 22 5c | 22 88 d1 0e 07 40 0e 08 |..Z..\"\|"....@..|
|00002800| 41 5c 22 2a 88 0e 07 41 | 89 16 07 88 82 32 00 29 |A\"*...A|.....2.)|
|00002810| 88 cc d3 21 2b 87 22 20 | 5b 6b 65 65 70 20 64 69 |...!+." |[keep di|
|00002820| 72 65 64 2d 6b 65 70 74 | 2d 76 65 72 73 69 6f 6e |red-kept|-version|
|00002830| 73 20 65 61 72 6c 79 2d | 72 65 74 65 6e 74 69 6f |s early-|retentio|
|00002840| 6e 20 6b 65 70 74 2d 6f | 6c 64 2d 76 65 72 73 69 |n kept-o|ld-versi|
|00002850| 6f 6e 73 20 6c 61 74 65 | 2d 72 65 74 65 6e 74 69 |ons late|-retenti|
|00002860| 6f 6e 20 66 69 6c 65 2d | 76 65 72 73 69 6f 6e 2d |on file-|version-|
|00002870| 61 73 73 6f 63 2d 6c 69 | 73 74 20 6e 69 6c 20 66 |assoc-li|st nil f|
|00002880| 76 61 6c 20 73 6f 72 74 | 65 64 2d 76 2d 6c 69 73 |val sort|ed-v-lis|
|00002890| 74 20 76 2d 63 6f 75 6e | 74 20 70 72 65 66 69 78 |t v-coun|t prefix|
|000028a0| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 30 |-numeric|-value 0|
|000028b0| 20 64 69 72 65 64 2d 6d | 61 70 2d 64 69 72 65 64 | dired-m|ap-dired|
|000028c0| 2d 66 69 6c 65 2d 6c 69 | 6e 65 73 20 64 69 72 65 |-file-li|nes dire|
|000028d0| 64 2d 63 6f 6c 6c 65 63 | 74 2d 66 69 6c 65 2d 76 |d-collec|t-file-v|
|000028e0| 65 72 73 69 6f 6e 73 20 | 71 20 73 6f 72 74 20 3c |ersions |q sort <|
|000028f0| 20 72 70 6c 61 63 64 20 | 6e 74 68 63 64 72 20 64 | rplacd |nthcdr d|
|00002900| 69 72 65 64 2d 74 72 61 | 6d 70 6c 65 2d 66 69 6c |ired-tra|mple-fil|
|00002910| 65 2d 76 65 72 73 69 6f | 6e 73 5d 20 31 30 29 29 |e-versio|ns] 10))|
|00002920| 0a 0a 28 64 65 66 75 6e | 20 64 69 72 65 64 2d 63 |..(defun| dired-c|
|00002930| 6f 6c 6c 65 63 74 2d 66 | 69 6c 65 2d 76 65 72 73 |ollect-f|ile-vers|
|00002940| 69 6f 6e 73 20 28 69 67 | 6e 6f 72 65 20 66 6e 29 |ions (ig|nore fn)|
|00002950| 20 22 5c 0a 49 66 20 69 | 74 20 6c 6f 6f 6b 73 20 | "\.If i|t looks |
|00002960| 6c 69 6b 65 20 66 6e 20 | 68 61 73 20 76 65 72 73 |like fn |has vers|
|00002970| 69 6f 6e 73 2c 20 77 65 | 20 6d 61 6b 65 20 61 20 |ions, we| make a |
|00002980| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 76 65 72 73 |list of |the vers|
|00002990| 69 6f 6e 73 2e 0a 57 65 | 20 6d 61 79 20 77 61 6e |ions..We| may wan|
|000029a0| 74 20 74 6f 20 66 6c 61 | 67 20 73 6f 6d 65 20 66 |t to fla|g some f|
|000029b0| 6f 72 20 64 65 6c 65 74 | 69 6f 6e 2e 22 20 28 62 |or delet|ion." (b|
|000029c0| 79 74 65 2d 63 6f 64 65 | 20 22 c6 09 21 c7 50 18 |yte-code| "..!.P.|
|000029d0| 08 47 1a c8 08 c9 09 21 | 5c 22 1b ca cb 0b 5c 22 |.G.....!|\"....\"|
|000029e0| 1c 0c 85 20 00 09 0c 42 | 0d 42 89 15 2c 87 22 20 |... ...B|.B..,." |
|000029f0| 5b 62 61 73 65 2d 76 65 | 72 73 69 6f 6e 73 20 66 |[base-ve|rsions f|
|00002a00| 6e 20 62 76 2d 6c 65 6e | 67 74 68 20 70 6f 73 73 |n bv-len|gth poss|
|00002a10| 69 62 69 6c 69 74 69 65 | 73 20 76 65 72 73 69 6f |ibilitie|s versio|
|00002a20| 6e 73 20 66 69 6c 65 2d | 76 65 72 73 69 6f 6e 2d |ns file-|version-|
|00002a30| 61 73 73 6f 63 2d 6c 69 | 73 74 20 66 69 6c 65 2d |assoc-li|st file-|
|00002a40| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00002a50| 79 20 22 2e 7e 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |y ".~" f|ile-name|
|00002a60| 2d 61 6c 6c 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 73 |-all-com|pletions|
|00002a70| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00002a80| 74 6f 72 79 20 6d 61 70 | 63 61 72 20 62 61 63 6b |tory map|car back|
|00002a90| 75 70 2d 65 78 74 72 61 | 63 74 2d 76 65 72 73 69 |up-extra|ct-versi|
|00002aa0| 6f 6e 5d 20 36 29 29 0a | 0a 28 64 65 66 75 6e 20 |on] 6)).|.(defun |
|00002ab0| 64 69 72 65 64 2d 74 72 | 61 6d 70 6c 65 2d 66 69 |dired-tr|ample-fi|
|00002ac0| 6c 65 2d 76 65 72 73 69 | 6f 6e 73 20 28 69 67 6e |le-versi|ons (ign|
|00002ad0| 6f 72 65 20 66 6e 29 20 | 28 62 79 74 65 2d 63 6f |ore fn) |(byte-co|
|00002ae0| 64 65 20 22 c4 c5 09 5c | 22 18 c6 1a 08 85 27 00 |de "...\|".....'.|
|00002af0| c7 09 c8 08 4f 0b 5c 22 | 89 12 85 27 00 c9 09 ca |....O.\"|...'....|
|00002b00| 08 5c 5c c6 4f 21 0a 3e | 3f 85 27 00 cb 20 2a 87 |.\\.O!.>|?.'.. *.|
|00002b10| 22 20 5b 73 74 61 72 74 | 2d 76 6e 20 66 6e 20 62 |" [start|-vn fn b|
|00002b20| 61 73 65 2d 76 65 72 73 | 69 6f 6e 2d 6c 69 73 74 |ase-vers|ion-list|
|00002b30| 20 66 69 6c 65 2d 76 65 | 72 73 69 6f 6e 2d 61 73 | file-ve|rsion-as|
|00002b40| 73 6f 63 2d 6c 69 73 74 | 20 73 74 72 69 6e 67 2d |soc-list| string-|
|00002b50| 6d 61 74 63 68 20 22 5c | 5c 2e 7e 5b 30 2d 39 5d |match "\|\.~[0-9]|
|00002b60| 2b 7e 24 22 20 6e 69 6c | 20 61 73 73 6f 63 20 30 |+~$" nil| assoc 0|
|00002b70| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 32 | string-|to-int 2|
|00002b80| 20 64 69 72 65 64 2d 66 | 6c 61 67 2d 74 68 69 73 | dired-f|lag-this|
|00002b90| 2d 6c 69 6e 65 2d 66 6f | 72 2d 44 45 41 54 48 5d |-line-fo|r-DEATH]|
|00002ba0| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 69 72 | 6))..(d|efun dir|
|00002bb0| 65 64 2d 66 6c 61 67 2d | 74 68 69 73 2d 6c 69 6e |ed-flag-|this-lin|
|00002bc0| 65 2d 66 6f 72 2d 44 45 | 41 54 48 20 6e 69 6c 20 |e-for-DE|ATH nil |
|00002bd0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 88 c1 |(byte-co|de ". ..|
|00002be0| c2 21 88 c3 63 87 22 20 | 5b 62 65 67 69 6e 6e 69 |.!..c." |[beginni|
|00002bf0| 6e 67 2d 6f 66 2d 6c 69 | 6e 65 20 64 65 6c 65 74 |ng-of-li|ne delet|
|00002c00| 65 2d 63 68 61 72 20 31 | 20 22 44 22 5d 20 33 29 |e-char 1| "D"] 3)|
|00002c10| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|00002c20| 66 6c 61 67 2d 62 61 63 | 6b 75 70 2d 66 69 6c 65 |flag-bac|kup-file|
|00002c30| 73 20 6e 69 6c 20 22 5c | 0a 46 6c 61 67 20 61 6c |s nil "\|.Flag al|
|00002c40| 6c 20 62 61 63 6b 75 70 | 20 66 69 6c 65 73 20 28 |l backup| files (|
|00002c50| 6e 61 6d 65 73 20 65 6e | 64 69 6e 67 20 77 69 74 |names en|ding wit|
|00002c60| 68 20 7e 29 20 66 6f 72 | 20 64 65 6c 65 74 69 6f |h ~) for| deletio|
|00002c70| 6e 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |n." (int|eractive|
|00002c80| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00002c90| 8a c1 18 65 62 88 6d 3f | 85 4d 00 c4 c5 21 3f 85 |...eb.m?|.M...!?.|
|00002ca0| 45 00 6c 3f 85 45 00 c6 | c7 21 83 2f 00 c8 c3 c3 |E.l?.E..|.!./....|
|00002cb0| 5c 22 1a 0a 85 2b 00 c7 | 0a 21 29 82 39 00 c9 20 |\"...+..|.!).9.. |
|00002cc0| 88 ca cb 21 88 c4 cc 21 | 85 45 00 cd 20 88 ce cf |...!...!|.E.. ...|
|00002cd0| 21 88 d0 63 88 d1 cf 21 | 88 82 08 00 29 29 87 22 |!..c...!|....))."|
|00002ce0| 20 5b 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e | [buffer|-read-on|
|00002cf0| 6c 79 20 6e 69 6c 20 66 | 6e 20 74 20 6c 6f 6f 6b |ly nil f|n t look|
|00002d00| 69 6e 67 2d 61 74 20 22 | 20 20 64 22 20 66 62 6f |ing-at "|  d" fbo|
|00002d10| 75 6e 64 70 20 62 61 63 | 6b 75 70 2d 66 69 6c 65 |undp bac|kup-file|
|00002d20| 2d 6e 61 6d 65 2d 70 20 | 64 69 72 65 64 2d 67 65 |-name-p |dired-ge|
|00002d30| 74 2d 66 69 6c 65 6e 61 | 6d 65 20 65 6e 64 2d 6f |t-filena|me end-o|
|00002d40| 66 2d 6c 69 6e 65 20 66 | 6f 72 77 61 72 64 2d 63 |f-line f|orward-c|
|00002d50| 68 61 72 20 2d 31 20 22 | 7e 22 20 62 65 67 69 6e |har -1 "|~" begin|
|00002d60| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 64 65 6c |ning-of-|line del|
|00002d70| 65 74 65 2d 63 68 61 72 | 20 31 20 22 44 22 20 66 |ete-char| 1 "D" f|
|00002d80| 6f 72 77 61 72 64 2d 6c | 69 6e 65 5d 20 31 32 29 |orward-l|ine] 12)|
|00002d90| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|00002da0| 66 6c 61 67 2d 62 61 63 | 6b 75 70 2d 61 6e 64 2d |flag-bac|kup-and-|
|00002db0| 61 75 74 6f 2d 73 61 76 | 65 2d 66 69 6c 65 73 20 |auto-sav|e-files |
|00002dc0| 6e 69 6c 20 22 5c 0a 46 | 6c 61 67 20 61 6c 6c 20 |nil "\.F|lag all |
|00002dd0| 62 61 63 6b 75 70 20 61 | 6e 64 20 74 65 6d 70 6f |backup a|nd tempo|
|00002de0| 72 61 72 79 20 66 69 6c | 65 73 20 66 6f 72 20 64 |rary fil|es for d|
|00002df0| 65 6c 65 74 69 6f 6e 2e | 0a 42 61 63 6b 75 70 20 |eletion.|.Backup |
|00002e00| 66 69 6c 65 73 20 68 61 | 76 65 20 6e 61 6d 65 73 |files ha|ve names|
|00002e10| 20 65 6e 64 69 6e 67 20 | 69 6e 20 7e 2e 20 20 41 | ending |in ~.  A|
|00002e20| 75 74 6f 20 73 61 76 65 | 20 66 69 6c 65 20 6e 61 |uto save| file na|
|00002e30| 6d 65 73 20 75 73 75 61 | 6c 6c 79 0a 73 74 61 72 |mes usua|lly.star|
|00002e40| 74 20 77 69 74 68 20 23 | 2e 22 20 28 69 6e 74 65 |t with #|." (inte|
|00002e50| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00002e60| 6f 64 65 20 22 c0 88 c1 | 20 88 c2 20 87 22 20 5b |ode "...| .. ." [|
|00002e70| 6e 69 6c 20 64 69 72 65 | 64 2d 66 6c 61 67 2d 62 |nil dire|d-flag-b|
|00002e80| 61 63 6b 75 70 2d 66 69 | 6c 65 73 20 64 69 72 65 |ackup-fi|les dire|
|00002e90| 64 2d 66 6c 61 67 2d 61 | 75 74 6f 2d 73 61 76 65 |d-flag-a|uto-save|
|00002ea0| 2d 66 69 6c 65 73 5d 20 | 33 29 29 0a 0a 28 64 65 |-files] |3))..(de|
|00002eb0| 66 75 6e 20 64 69 72 65 | 64 2d 72 65 6e 61 6d 65 |fun dire|d-rename|
|00002ec0| 2d 66 69 6c 65 20 28 74 | 6f 2d 66 69 6c 65 29 20 |-file (t|o-file) |
|00002ed0| 22 5c 0a 52 65 6e 61 6d | 65 20 74 68 69 73 20 66 |"\.Renam|e this f|
|00002ee0| 69 6c 65 20 74 6f 20 54 | 4f 2d 46 49 4c 45 2e 22 |ile to T|O-FILE."|
|00002ef0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 28 62 | (intera|ctive (b|
|00002f00| 79 74 65 2d 63 6f 64 65 | 20 22 c1 c2 c3 c4 c5 20 |yte-code| "..... |
|00002f10| 21 5c 22 c0 c5 20 23 43 | 87 22 20 5b 6e 69 6c 20 |!\".. #C|." [nil |
|00002f20| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |read-fil|e-name f|
|00002f30| 6f 72 6d 61 74 20 22 52 | 65 6e 61 6d 65 20 25 73 |ormat "R|ename %s|
|00002f40| 20 74 6f 3a 20 22 20 66 | 69 6c 65 2d 6e 61 6d 65 | to: " f|ile-name|
|00002f50| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 64 69 |-nondire|ctory di|
|00002f60| 72 65 64 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |red-get-|filename|
|00002f70| 5d 20 38 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |] 8)) (b|yte-code|
|00002f80| 20 22 c0 88 c3 09 21 89 | 11 88 c4 c5 20 09 5c 22 | "....!.|.... .\"|
|00002f90| 88 c0 1a c6 20 88 c7 60 | c8 c9 21 88 60 5c 22 88 |.... ..`|..!.`\".|
|00002fa0| c3 09 21 89 11 88 ca cb | 09 21 cc 09 21 5c 22 29 |..!.....|.!..!\")|
|00002fb0| 87 22 20 5b 6e 69 6c 20 | 74 6f 2d 66 69 6c 65 20 |." [nil |to-file |
|00002fc0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00002fd0| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00002fe0| 65 20 72 65 6e 61 6d 65 | 2d 66 69 6c 65 20 64 69 |e rename|-file di|
|00002ff0| 72 65 64 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |red-get-|filename|
|00003000| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 | beginni|ng-of-li|
|00003010| 6e 65 20 64 65 6c 65 74 | 65 2d 72 65 67 69 6f 6e |ne delet|e-region|
|00003020| 20 66 6f 72 77 61 72 64 | 2d 6c 69 6e 65 20 31 20 | forward|-line 1 |
|00003030| 64 69 72 65 64 2d 61 64 | 64 2d 65 6e 74 72 79 20 |dired-ad|d-entry |
|00003040| 66 69 6c 65 2d 6e 61 6d | 65 2d 64 69 72 65 63 74 |file-nam|e-direct|
|00003050| 6f 72 79 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |ory file|-name-no|
|00003060| 6e 64 69 72 65 63 74 6f | 72 79 5d 20 31 32 29 29 |ndirecto|ry] 12))|
|00003070| 0a 0a 28 64 65 66 75 6e | 20 64 69 72 65 64 2d 63 |..(defun| dired-c|
|00003080| 6f 70 79 2d 66 69 6c 65 | 20 28 74 6f 2d 66 69 6c |opy-file| (to-fil|
|00003090| 65 29 20 22 5c 0a 43 6f | 70 79 20 74 68 69 73 20 |e) "\.Co|py this |
|000030a0| 66 69 6c 65 20 74 6f 20 | 54 4f 2d 46 49 4c 45 2e |file to |TO-FILE.|
|000030b0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |" (inter|active "|
|000030c0| 46 43 6f 70 79 20 74 6f | 3a 20 22 29 20 28 62 79 |FCopy to|: ") (by|
|000030d0| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 c3 20 08 c4 |te-code |".... ..|
|000030e0| 23 88 c5 08 21 89 10 88 | c6 c7 08 21 c8 08 21 5c |#...!...|...!..!\|
|000030f0| 22 87 22 20 5b 74 6f 2d | 66 69 6c 65 20 6e 69 6c |"." [to-|file nil|
|00003100| 20 63 6f 70 79 2d 66 69 | 6c 65 20 64 69 72 65 64 | copy-fi|le dired|
|00003110| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 31 20 |-get-fil|ename 1 |
|00003120| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00003130| 20 64 69 72 65 64 2d 61 | 64 64 2d 65 6e 74 72 79 | dired-a|dd-entry|
|00003140| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00003150| 74 6f 72 79 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |tory fil|e-name-n|
|00003160| 6f 6e 64 69 72 65 63 74 | 6f 72 79 5d 20 38 29 29 |ondirect|ory] 8))|
|00003170| 0a 0a 28 64 65 66 75 6e | 20 64 69 72 65 64 2d 61 |..(defun| dired-a|
|00003180| 64 64 2d 65 6e 74 72 79 | 20 28 64 69 72 65 63 74 |dd-entry| (direct|
|00003190| 6f 72 79 20 66 69 6c 65 | 6e 61 6d 65 29 20 28 62 |ory file|name) (b|
|000031a0| 79 74 65 2d 63 6f 64 65 | 20 22 c7 09 0a 50 21 c4 |yte-code| "...P!.|
|000031b0| c8 20 c9 c4 4f 1d 1b 18 | 08 3f 85 16 00 ca 89 10 |. ..O...|.?......|
|000031c0| 88 cb cc 08 38 21 89 13 | 88 cd ce cf 08 38 5c 22 |....8!..|.....8\"|
|000031d0| 63 88 d0 d1 d2 0b 47 5a | 5c 22 88 d3 0b d4 5c 22 |c.....GZ|\"....\"|
|000031e0| 88 cd d5 d6 d7 08 38 21 | 1e 06 c9 d8 0d 0e 06 5c |......8!|.......\|
|000031f0| 22 3d 83 4f 00 0e 06 d7 | d9 4f 82 5a 00 0e 06 d7 |"=.O....|.O.Z....|
|00003200| da 4f 0e 06 db c4 4f 50 | 29 5c 22 63 88 0a 63 88 |.O....OP|)\"c..c.|
|00003210| dc 20 2b 87 22 20 5b 61 | 74 74 72 73 20 64 69 72 |. +." [a|ttrs dir|
|00003220| 65 63 74 6f 72 79 20 66 | 69 6c 65 6e 61 6d 65 20 |ectory f|ilename |
|00003230| 62 79 74 65 73 74 72 69 | 6e 67 20 6e 69 6c 20 79 |bytestri|ng nil y|
|00003240| 65 61 72 20 66 69 6c 65 | 2d 74 69 6d 65 20 66 69 |ear file|-time fi|
|00003250| 6c 65 2d 61 74 74 72 69 | 62 75 74 65 73 20 63 75 |le-attri|butes cu|
|00003260| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00003270| 67 20 32 30 20 28 6e 69 | 6c 20 6e 69 6c 20 6e 69 |g 20 (ni|l nil ni|
|00003280| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|00003290| 6c 20 30 20 22 20 20 6e | 6f 61 63 63 65 73 73 22 |l 0 "  n|oaccess"|
|000032a0| 29 20 69 6e 74 2d 74 6f | 2d 73 74 72 69 6e 67 20 |) int-to|-string |
|000032b0| 37 20 66 6f 72 6d 61 74 | 20 22 20 20 20 20 25 73 |7 format| "    %s|
|000032c0| 20 22 20 38 20 69 6e 73 | 65 72 74 2d 63 68 61 72 | " 8 ins|ert-char|
|000032d0| 20 33 32 20 31 30 20 69 | 6e 73 65 72 74 20 22 20 | 32 10 i|nsert " |
|000032e0| 22 20 22 25 73 20 22 20 | 74 69 6d 65 2d 74 6f 2d |" "%s " |time-to-|
|000032f0| 73 74 72 69 6e 67 20 34 | 20 73 74 72 69 6e 67 2d |string 4| string-|
|00003300| 6d 61 74 63 68 20 31 36 | 20 31 31 20 31 39 20 6e |match 16| 11 19 n|
|00003310| 65 77 6c 69 6e 65 5d 20 | 31 34 29 29 0a 0a 28 64 |ewline] |14))..(d|
|00003320| 65 66 75 6e 20 64 69 72 | 65 64 2d 63 6f 6d 70 72 |efun dir|ed-compr|
|00003330| 65 73 73 20 6e 69 6c 20 | 22 5c 0a 43 6f 6d 70 72 |ess nil |"\.Compr|
|00003340| 65 73 73 20 74 68 69 73 | 20 66 69 6c 65 2e 22 20 |ess this| file." |
|00003350| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00003360| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c1 18 c4 20 |yte-code| "..... |
|00003370| 1a 0a c5 50 1b c6 c7 0a | 5c 22 85 16 00 c8 c9 0a |...P....|\"......|
|00003380| 5c 22 88 ca cb 0a 5c 22 | 88 cc cd c1 c1 c1 ce 0a |\"....\"|........|
|00003390| 26 06 88 ca cf 0a 5c 22 | 88 d0 0b 21 2b 87 22 20 |&.....\"|...!+." |
|000033a0| 5b 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c |[buffer-|read-onl|
|000033b0| 79 20 6e 69 6c 20 66 72 | 6f 6d 2d 66 69 6c 65 20 |y nil fr|om-file |
|000033c0| 74 6f 2d 66 69 6c 65 20 | 64 69 72 65 64 2d 67 65 |to-file |dired-ge|
|000033d0| 74 2d 66 69 6c 65 6e 61 | 6d 65 20 22 2e 5a 22 20 |t-filena|me ".Z" |
|000033e0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|000033f0| 2e 5a 24 22 20 65 72 72 | 6f 72 20 22 25 73 20 69 |.Z$" err|or "%s i|
|00003400| 73 20 61 6c 72 65 61 64 | 79 20 63 6f 6d 70 72 65 |s alread|y compre|
|00003410| 73 73 65 64 21 22 20 6d | 65 73 73 61 67 65 20 22 |ssed!" m|essage "|
|00003420| 43 6f 6d 70 72 65 73 73 | 69 6e 67 20 25 73 2e 2e |Compress|ing %s..|
|00003430| 2e 22 20 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 20 |." call-|process |
|00003440| 22 63 6f 6d 70 72 65 73 | 73 22 20 22 2d 66 22 20 |"compres|s" "-f" |
|00003450| 22 43 6f 6d 70 72 65 73 | 73 69 6e 67 20 25 73 2e |"Compres|sing %s.|
|00003460| 2e 2e 20 64 6f 6e 65 22 | 20 64 69 72 65 64 2d 72 |.. done"| dired-r|
|00003470| 65 64 69 73 70 6c 61 79 | 5d 20 31 31 29 29 0a 0a |edisplay|] 11))..|
|00003480| 28 64 65 66 75 6e 20 64 | 69 72 65 64 2d 75 6e 63 |(defun d|ired-unc|
|00003490| 6f 6d 70 72 65 73 73 20 | 6e 69 6c 20 22 5c 0a 55 |ompress |nil "\.U|
|000034a0| 6e 63 6f 6d 70 72 65 73 | 73 20 74 68 69 73 20 66 |ncompres|s this f|
|000034b0| 69 6c 65 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ile." (i|nteracti|
|000034c0| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000034d0| c1 88 c1 18 c4 20 1a 0a | c5 c6 4f 1b c7 c8 0a 5c |..... ..|..O....\|
|000034e0| 22 83 17 00 c1 82 1b 00 | c9 ca 0a 5c 22 88 cb cc |".......|...\"...|
|000034f0| 0a 5c 22 88 cd ce c1 c1 | c1 0a 25 88 cb cf 0a 5c |.\".....|..%....\|
|00003500| 22 88 d0 0b 21 2b 87 22 | 20 5b 62 75 66 66 65 72 |"...!+."| [buffer|
|00003510| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 69 6c 20 66 |-read-on|ly nil f|
|00003520| 72 6f 6d 2d 66 69 6c 65 | 20 74 6f 2d 66 69 6c 65 |rom-file| to-file|
|00003530| 20 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e | dired-g|et-filen|
|00003540| 61 6d 65 20 30 20 2d 32 | 20 73 74 72 69 6e 67 2d |ame 0 -2| string-|
|00003550| 6d 61 74 63 68 20 22 5c | 5c 2e 5a 24 22 20 65 72 |match "\|\.Z$" er|
|00003560| 72 6f 72 20 22 25 73 20 | 69 73 20 6e 6f 74 20 63 |ror "%s |is not c|
|00003570| 6f 6d 70 72 65 73 73 65 | 64 21 22 20 6d 65 73 73 |ompresse|d!" mess|
|00003580| 61 67 65 20 22 55 6e 63 | 6f 6d 70 72 65 73 73 69 |age "Unc|ompressi|
|00003590| 6e 67 20 25 73 2e 2e 2e | 22 20 63 61 6c 6c 2d 70 |ng %s...|" call-p|
|000035a0| 72 6f 63 65 73 73 20 22 | 75 6e 63 6f 6d 70 72 65 |rocess "|uncompre|
|000035b0| 73 73 22 20 22 55 6e 63 | 6f 6d 70 72 65 73 73 69 |ss" "Unc|ompressi|
|000035c0| 6e 67 20 25 73 2e 2e 2e | 20 64 6f 6e 65 22 20 64 |ng %s...| done" d|
|000035d0| 69 72 65 64 2d 72 65 64 | 69 73 70 6c 61 79 5d 20 |ired-red|isplay] |
|000035e0| 31 30 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 69 72 |10))..(d|efun dir|
|000035f0| 65 64 2d 62 79 74 65 2d | 72 65 63 6f 6d 70 69 6c |ed-byte-|recompil|
|00003600| 65 20 6e 69 6c 20 22 5c | 0a 42 79 74 65 20 72 65 |e nil "\|.Byte re|
|00003610| 63 6f 6d 70 69 6c 65 20 | 74 68 69 73 20 66 69 6c |compile |this fil|
|00003620| 65 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |e." (int|eractive|
|00003630| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00003640| c1 18 c4 20 1a 0a c5 c6 | 4f 1b c7 c8 0a 5c 22 83 |... ....|O....\".|
|00003650| 17 00 c1 82 1b 00 c9 ca | 0a 5c 22 88 cb 0a 21 2b |........|.\"...!+|
|00003660| 87 22 20 5b 62 75 66 66 | 65 72 2d 72 65 61 64 2d |." [buff|er-read-|
|00003670| 6f 6e 6c 79 20 6e 69 6c | 20 66 72 6f 6d 2d 66 69 |only nil| from-fi|
|00003680| 6c 65 20 74 6f 2d 66 69 | 6c 65 20 64 69 72 65 64 |le to-fi|le dired|
|00003690| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 30 20 |-get-fil|ename 0 |
|000036a0| 2d 33 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |-3 strin|g-match |
|000036b0| 22 5c 5c 2e 65 6c 24 22 | 20 65 72 72 6f 72 20 22 |"\\.el$"| error "|
|000036c0| 25 73 20 69 73 20 75 6e | 63 6f 6d 70 69 6c 61 62 |%s is un|compilab|
|000036d0| 6c 65 21 22 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |le!" byt|e-compil|
|000036e0| 65 2d 66 69 6c 65 5d 20 | 35 29 29 0a 0a 28 64 65 |e-file] |5))..(de|
|000036f0| 66 75 6e 20 64 69 72 65 | 64 2d 63 68 6d 6f 64 20 |fun dire|d-chmod |
|00003700| 28 6d 6f 64 65 29 20 22 | 5c 0a 43 68 61 6e 67 65 |(mode) "|\.Change|
|00003710| 20 6d 6f 64 65 20 6f 66 | 20 74 68 69 73 20 66 69 | mode of| this fi|
|00003720| 6c 65 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |le." (in|teractiv|
|00003730| 65 20 22 6e 43 68 61 6e | 67 65 20 74 6f 20 4d 6f |e "nChan|ge to Mo|
|00003740| 64 65 3a 20 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |de: ") (|byte-cod|
|00003750| 65 20 22 c1 88 c1 c4 20 | 1a 18 c5 0a 0b 5c 22 88 |e ".... |.....\".|
|00003760| c6 0a 21 2a 87 22 20 5b | 62 75 66 66 65 72 2d 72 |..!*." [|buffer-r|
|00003770| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 66 69 6c |ead-only| nil fil|
|00003780| 65 20 6d 6f 64 65 20 64 | 69 72 65 64 2d 67 65 74 |e mode d|ired-get|
|00003790| 2d 66 69 6c 65 6e 61 6d | 65 20 73 65 74 2d 66 69 |-filenam|e set-fi|
|000037a0| 6c 65 2d 6d 6f 64 65 73 | 20 64 69 72 65 64 2d 72 |le-modes| dired-r|
|000037b0| 65 64 69 73 70 6c 61 79 | 5d 20 34 29 29 0a 0a 28 |edisplay|] 4))..(|
|000037c0| 64 65 66 75 6e 20 64 69 | 72 65 64 2d 63 68 67 72 |defun di|red-chgr|
|000037d0| 70 20 28 67 72 6f 75 70 | 29 20 22 5c 0a 43 68 61 |p (group|) "\.Cha|
|000037e0| 6e 67 65 20 67 72 6f 75 | 70 20 6f 66 20 74 68 69 |nge grou|p of thi|
|000037f0| 73 20 66 69 6c 65 2e 22 | 20 28 69 6e 74 65 72 61 |s file."| (intera|
|00003800| 63 74 69 76 65 20 22 73 | 43 68 61 6e 67 65 20 74 |ctive "s|Change t|
|00003810| 6f 20 47 72 6f 75 70 3a | 20 22 29 20 28 62 79 74 |o Group:| ") (byt|
|00003820| 65 2d 63 6f 64 65 20 22 | c1 88 c1 c4 20 1a 18 c5 |e-code "|.... ...|
|00003830| c6 c1 c1 c1 0b 0a 26 06 | 88 c7 0a 21 2a 87 22 20 |......&.|...!*." |
|00003840| 5b 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c |[buffer-|read-onl|
|00003850| 79 20 6e 69 6c 20 66 69 | 6c 65 20 67 72 6f 75 70 |y nil fi|le group|
|00003860| 20 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e | dired-g|et-filen|
|00003870| 61 6d 65 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ame call|-process|
|00003880| 20 22 2f 62 69 6e 2f 63 | 68 67 72 70 22 20 64 69 | "/bin/c|hgrp" di|
|00003890| 72 65 64 2d 72 65 64 69 | 73 70 6c 61 79 5d 20 38 |red-redi|splay] 8|
|000038a0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 72 65 64 |))..(def|un dired|
|000038b0| 2d 63 68 6f 77 6e 20 28 | 6f 77 6e 65 72 29 20 22 |-chown (|owner) "|
|000038c0| 5c 0a 43 68 61 6e 67 65 | 20 4f 77 6e 65 72 20 6f |\.Change| Owner o|
|000038d0| 66 20 74 68 69 73 20 66 | 69 6c 65 2e 22 20 28 69 |f this f|ile." (i|
|000038e0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 73 43 68 61 |nteracti|ve "sCha|
|000038f0| 6e 67 65 20 74 6f 20 4f | 77 6e 65 72 3a 20 22 29 |nge to O|wner: ")|
|00003900| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 c1 | (byte-c|ode "...|
|00003910| c4 20 1a 18 c5 c6 c1 c1 | c1 0b 0a 26 06 88 c7 0a |. ......|...&....|
|00003920| 21 2a 87 22 20 5b 62 75 | 66 66 65 72 2d 72 65 61 |!*." [bu|ffer-rea|
|00003930| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 66 69 6c 65 20 |d-only n|il file |
|00003940| 6f 77 6e 65 72 20 64 69 | 72 65 64 2d 67 65 74 2d |owner di|red-get-|
|00003950| 66 69 6c 65 6e 61 6d 65 | 20 63 61 6c 6c 2d 70 72 |filename| call-pr|
|00003960| 6f 63 65 73 73 20 22 2f | 65 74 63 2f 63 68 6f 77 |ocess "/|etc/chow|
|00003970| 6e 22 20 64 69 72 65 64 | 2d 72 65 64 69 73 70 6c |n" dired|-redispl|
|00003980| 61 79 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |ay] 8)).|.(defun |
|00003990| 64 69 72 65 64 2d 72 65 | 64 69 73 70 6c 61 79 20 |dired-re|display |
|000039a0| 28 66 69 6c 65 29 20 22 | 5c 0a 52 65 64 69 73 70 |(file) "|\.Redisp|
|000039b0| 6c 61 79 20 74 68 69 73 | 20 6c 69 6e 65 2e 22 20 |lay this| line." |
|000039c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 20 88 c2 |(byte-co|de ". ..|
|000039d0| 60 c3 c4 21 88 60 5c 22 | 88 08 85 18 00 c5 c6 08 |`..!.`\"|........|
|000039e0| 21 c7 08 21 5c 22 88 c8 | 20 87 22 20 5b 66 69 6c |!..!\"..| ." [fil|
|000039f0| 65 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 6c |e beginn|ing-of-l|
|00003a00| 69 6e 65 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |ine dele|te-regio|
|00003a10| 6e 20 66 6f 72 77 61 72 | 64 2d 6c 69 6e 65 20 31 |n forwar|d-line 1|
|00003a20| 20 64 69 72 65 64 2d 61 | 64 64 2d 65 6e 74 72 79 | dired-a|dd-entry|
|00003a30| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00003a40| 74 6f 72 79 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |tory fil|e-name-n|
|00003a50| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 65 |ondirect|ory dire|
|00003a60| 64 2d 6d 6f 76 65 2d 74 | 6f 2d 66 69 6c 65 6e 61 |d-move-t|o-filena|
|00003a70| 6d 65 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |me] 8)).|.(defun |
|00003a80| 64 69 72 65 64 2d 64 6f | 2d 64 65 6c 65 74 69 6f |dired-do|-deletio|
|00003a90| 6e 73 20 6e 69 6c 20 22 | 5c 0a 49 6e 20 64 69 72 |ns nil "|\.In dir|
|00003aa0| 65 64 2c 20 64 65 6c 65 | 74 65 20 74 68 65 20 66 |ed, dele|te the f|
|00003ab0| 69 6c 65 73 20 66 6c 61 | 67 67 65 64 20 66 6f 72 |iles fla|gged for|
|00003ac0| 20 64 65 6c 65 74 69 6f | 6e 2e 22 20 28 69 6e 74 | deletio|n." (int|
|00003ad0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00003ae0| 63 6f 64 65 20 22 c2 88 | c2 c2 19 18 8a c8 62 88 |code "..|......b.|
|00003af0| c9 ca c2 c3 23 85 20 00 | cb c3 21 60 53 42 08 42 |....#. .|..!`SB.B|
|00003b00| 89 10 88 82 0a 00 29 88 | 08 3f 83 2d 00 cc cd 21 |......).|.?.-...!|
|00003b10| 82 61 00 ce 8b 88 09 85 | 61 00 08 c2 1e 06 1d 0d |.a......|a.......|
|00003b20| 85 53 00 0d 40 41 62 88 | c2 1e 07 c2 cf d0 8f 29 |.S..@Ab.|.......)|
|00003b30| 88 0d 41 89 15 88 82 39 | 00 88 0e 06 85 60 00 cc |..A....9|.....`..|
|00003b40| d1 d2 0e 06 21 5c 22 2a | 2a 87 22 20 5b 64 65 6c |....!\"*|*." [del|
|00003b50| 65 74 65 2d 6c 69 73 74 | 20 61 6e 73 77 65 72 20 |ete-list| answer |
|00003b60| 6e 69 6c 20 74 20 66 69 | 6c 6c 2d 63 6f 6c 75 6d |nil t fi|ll-colum|
|00003b70| 6e 20 6c 20 66 61 69 6c | 75 72 65 73 20 62 75 66 |n l fail|ures buf|
|00003b80| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 31 20 |fer-read|-only 1 |
|00003b90| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00003ba0| 64 20 22 5e 44 22 20 64 | 69 72 65 64 2d 67 65 74 |d "^D" d|ired-get|
|00003bb0| 2d 66 69 6c 65 6e 61 6d | 65 20 6d 65 73 73 61 67 |-filenam|e messag|
|00003bc0| 65 20 22 28 4e 6f 20 64 | 65 6c 65 74 69 6f 6e 73 |e "(No d|eletions|
|00003bd0| 20 72 65 71 75 65 73 74 | 65 64 29 22 20 28 28 62 | request|ed)" ((b|
|00003be0| 79 74 65 2d 63 6f 64 65 | 20 22 c4 c5 21 88 c6 20 |yte-code| "..!.. |
|00003bf0| 88 c7 89 10 88 c8 0a 21 | 19 09 85 3c 00 69 c9 56 |.......!|...<.i.V|
|00003c00| 83 1e 00 ca 63 82 2e 00 | 6f 86 2e 00 cb cc cd 69 |....c...|o......i|
|00003c10| ce 5c 5c cf 5c 22 cf 5c | 22 d0 5c 22 88 09 40 40 |.\\.\".\|".\"..@@|
|00003c20| 63 88 09 41 89 11 88 82 | 0f 00 29 88 65 62 88 d1 |c..A....|..).eb..|
|00003c30| d2 21 89 13 87 22 20 5b | 66 69 6c 6c 2d 63 6f 6c |.!..." [|fill-col|
|00003c40| 75 6d 6e 20 6c 20 64 65 | 6c 65 74 65 2d 6c 69 73 |umn l de|lete-lis|
|00003c50| 74 20 61 6e 73 77 65 72 | 20 73 77 69 74 63 68 2d |t answer| switch-|
|00003c60| 74 6f 2d 62 75 66 66 65 | 72 20 22 20 2a 44 65 6c |to-buffe|r " *Del|
|00003c70| 65 74 69 6f 6e 73 2a 22 | 20 65 72 61 73 65 2d 62 |etions*"| erase-b|
|00003c80| 75 66 66 65 72 20 37 30 | 20 72 65 76 65 72 73 65 |uffer 70| reverse|
|00003c90| 20 35 39 20 31 30 20 69 | 6e 64 65 6e 74 2d 74 6f | 59 10 i|ndent-to|
|00003ca0| 20 2a 20 2f 20 31 39 20 | 32 30 20 31 20 79 65 73 | * / 19 |20 1 yes|
|00003cb0| 2d 6f 72 2d 6e 6f 2d 70 | 20 22 44 65 6c 65 74 65 |-or-no-p| "Delete|
|00003cc0| 20 74 68 65 73 65 20 66 | 69 6c 65 73 3f 20 22 5d | these f|iles? "]|
|00003cd0| 20 39 29 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | 9)) (by|te-code |
|00003ce0| 22 c2 08 09 40 40 50 21 | 88 c3 60 c4 c5 21 88 60 |"...@@P!|..`..!.`|
|00003cf0| 5c 22 87 22 20 5b 64 65 | 66 61 75 6c 74 2d 64 69 |\"." [de|fault-di|
|00003d00| 72 65 63 74 6f 72 79 20 | 6c 20 64 65 6c 65 74 65 |rectory |l delete|
|00003d10| 2d 66 69 6c 65 20 64 65 | 6c 65 74 65 2d 72 65 67 |-file de|lete-reg|
|00003d20| 69 6f 6e 20 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |ion forw|ard-line|
|00003d30| 20 31 5d 20 35 29 20 28 | 28 65 72 72 6f 72 20 28 | 1] 5) (|(error (|
|00003d40| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 c3 21 88 c4 |byte-cod|e "..!..|
|00003d50| 63 88 09 40 40 08 42 89 | 10 87 22 20 5b 66 61 69 |c..@@.B.|.." [fai|
|00003d60| 6c 75 72 65 73 20 6c 20 | 64 65 6c 65 74 65 2d 63 |lures l |delete-c|
|00003d70| 68 61 72 20 31 20 22 20 | 22 5d 20 33 29 29 29 20 |har 1 " |"] 3))) |
|00003d80| 22 44 65 6c 65 74 69 6f | 6e 73 20 66 61 69 6c 65 |"Deletio|ns faile|
|00003d90| 64 3a 20 25 73 22 20 70 | 72 69 6e 31 2d 74 6f 2d |d: %s" p|rin1-to-|
|00003da0| 73 74 72 69 6e 67 5d 20 | 37 29 29 0a             |string] |7)).    |
+--------+-------------------------+-------------------------+--------+--------+