/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / emac1858.lha / emacs-18.58 / lisp / dired.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 c7 c8 08 5c 22 | 88 09 71 88 c3 1a c9 20 | "....\"|..q.... |
|00000040| 88 ca 20 88 cb 08 21 89 | 10 88 cc 08 21 83 29 00 |.. ...!.|....!.).|
|00000050| cd ce c3 09 c3 0c 08 26 | 06 82 3e 00 cf 08 21 1d |.......&|..>...!.|
|00000060| cd 0e 06 c3 09 c3 d0 d1 | 0c d2 d3 08 21 52 26 06 |........|....!R&.|
|00000070| 29 88 65 62 88 6d 3f 85 | 51 00 d4 63 88 d5 d6 21 |).eb.m?.|Q..c...!|
|00000080| 88 82 42 00 88 65 62 29 | 88 c7 d7 08 5c 22 29 87 |..B..eb)|....\").|
|00000090| 22 20 5b 64 69 72 6e 61 | 6d 65 20 62 75 66 66 65 |" [dirna|me buffe|
|000000a0| 72 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |r buffer|-read-on|
|000000b0| 6c 79 20 6e 69 6c 20 64 | 69 72 65 64 2d 6c 69 73 |ly nil d|ired-lis|
|000000c0| 74 69 6e 67 2d 73 77 69 | 74 63 68 65 73 20 64 65 |ting-swi|tches de|
|000000d0| 66 61 75 6c 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |fault-di|rectory |
|000000e0| 73 68 65 6c 6c 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |shell-fi|le-name |
|000000f0| 6d 65 73 73 61 67 65 20 | 22 52 65 61 64 69 6e 67 |message |"Reading|
|00000100| 20 64 69 72 65 63 74 6f | 72 79 20 25 73 2e 2e 2e | directo|ry %s...|
|00000110| 22 20 77 69 64 65 6e 20 | 65 72 61 73 65 2d 62 75 |" widen |erase-bu|
|00000120| 66 66 65 72 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ffer exp|and-file|
|00000130| 2d 6e 61 6d 65 20 66 69 | 6c 65 2d 64 69 72 65 63 |-name fi|le-direc|
|00000140| 74 6f 72 79 2d 70 20 63 | 61 6c 6c 2d 70 72 6f 63 |tory-p c|all-proc|
|00000150| 65 73 73 20 22 6c 73 22 | 20 66 69 6c 65 2d 6e 61 |ess "ls"| file-na|
|00000160| 6d 65 2d 64 69 72 65 63 | 74 6f 72 79 20 22 2d 63 |me-direc|tory "-c|
|00000170| 22 20 22 6c 73 20 22 20 | 22 20 22 20 66 69 6c 65 |" "ls " |" " file|
|00000180| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|00000190| 72 79 20 22 20 20 22 20 | 66 6f 72 77 61 72 64 2d |ry "  " |forward-|
|000001a0| 6c 69 6e 65 20 31 20 22 | 52 65 61 64 69 6e 67 20 |line 1 "|Reading |
|000001b0| 64 69 72 65 63 74 6f 72 | 79 20 25 73 2e 2e 2e 64 |director|y %s...d|
|000001c0| 6f 6e 65 22 5d 20 31 38 | 29 29 0a 0a 28 64 65 66 |one"] 18|))..(def|
|000001d0| 75 6e 20 64 69 72 65 64 | 2d 66 69 6e 64 2d 62 75 |un dired|-find-bu|
|000001e0| 66 66 65 72 20 28 64 69 | 72 6e 61 6d 65 29 20 28 |ffer (di|rname) (|
|000001f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c6 20 c5 19 18 |byte-cod|e ". ...|
|00000200| 08 85 2d 00 8a 08 40 71 | 88 0a c7 3d 85 18 00 c8 |..-...@q|...=....|
|00000210| 0b 0c 5c 22 83 24 00 08 | 40 11 c5 89 10 82 28 00 |..\".$..|@.....(.|
|00000220| 08 41 89 10 29 88 82 05 | 00 88 09 86 37 00 c9 ca |.A..)...|....7...|
|00000230| 0c 21 21 2a 87 22 20 5b | 62 6c 69 73 74 20 66 6f |.!!*." [|blist fo|
|00000240| 75 6e 64 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 64 |und majo|r-mode d|
|00000250| 69 72 65 64 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |ired-dir|ectory d|
|00000260| 69 72 6e 61 6d 65 20 6e | 69 6c 20 62 75 66 66 65 |irname n|il buffe|
|00000270| 72 2d 6c 69 73 74 20 64 | 69 72 65 64 2d 6d 6f 64 |r-list d|ired-mod|
|00000280| 65 20 65 71 75 61 6c 20 | 63 72 65 61 74 65 2d 66 |e equal |create-f|
|00000290| 69 6c 65 2d 62 75 66 66 | 65 72 20 64 69 72 65 63 |ile-buff|er direc|
|000002a0| 74 6f 72 79 2d 66 69 6c | 65 2d 6e 61 6d 65 5d 20 |tory-fil|e-name] |
|000002b0| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |5))..(de|fun dire|
|000002c0| 64 20 28 64 69 72 6e 61 | 6d 65 29 20 22 5c 0a 5c |d (dirna|me) "\.\|
|000002d0| 22 45 64 69 74 5c 22 20 | 64 69 72 65 63 74 6f 72 |"Edit\" |director|
|000002e0| 79 20 44 49 52 4e 41 4d | 45 2d 2d 64 65 6c 65 74 |y DIRNAM|E--delet|
|000002f0| 65 2c 20 72 65 6e 61 6d | 65 2c 20 70 72 69 6e 74 |e, renam|e, print|
|00000300| 2c 20 65 74 63 2e 20 73 | 6f 6d 65 20 66 69 6c 65 |, etc. s|ome file|
|00000310| 73 20 69 6e 20 69 74 2e | 0a 44 69 72 65 64 20 64 |s in it.|.Dired d|
|00000320| 69 73 70 6c 61 79 73 20 | 61 20 6c 69 73 74 20 6f |isplays |a list o|
|00000330| 66 20 66 69 6c 65 73 20 | 69 6e 20 44 49 52 4e 41 |f files |in DIRNA|
|00000340| 4d 45 2e 0a 59 6f 75 20 | 63 61 6e 20 6d 6f 76 65 |ME..You |can move|
|00000350| 20 61 72 6f 75 6e 64 20 | 69 6e 20 69 74 20 77 69 | around |in it wi|
|00000360| 74 68 20 74 68 65 20 75 | 73 75 61 6c 20 63 6f 6d |th the u|sual com|
|00000370| 6d 61 6e 64 73 2e 0a 59 | 6f 75 20 63 61 6e 20 66 |mands..Y|ou can f|
|00000380| 6c 61 67 20 66 69 6c 65 | 73 20 66 6f 72 20 64 65 |lag file|s for de|
|00000390| 6c 65 74 69 6f 6e 20 77 | 69 74 68 20 43 2d 64 0a |letion w|ith C-d.|
|000003a0| 61 6e 64 20 74 68 65 6e | 20 64 65 6c 65 74 65 20 |and then| delete |
|000003b0| 74 68 65 6d 20 62 79 20 | 74 79 70 69 6e 67 20 60 |them by |typing `|
|000003c0| 78 27 2e 0a 54 79 70 65 | 20 60 68 27 20 61 66 74 |x'..Type| `h' aft|
|000003d0| 65 72 20 65 6e 74 65 72 | 69 6e 67 20 64 69 72 65 |er enter|ing dire|
|000003e0| 64 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 2e |d for mo|re info.|
|000003f0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 28 |" (inter|active (|
|00000400| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 c3 c0 09 c0 |byte-cod|e ".....|
|00000410| 24 43 87 22 20 5b 6e 69 | 6c 20 64 65 66 61 75 6c |$C." [ni|l defaul|
|00000420| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 72 65 61 64 |t-direct|ory read|
|00000430| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 44 69 72 65 |-file-na|me "Dire|
|00000440| 64 20 28 64 69 72 65 63 | 74 6f 72 79 29 3a 20 22 |d (direc|tory): "|
|00000450| 5d 20 35 29 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |] 5)) (b|yte-code|
|00000460| 20 22 c0 88 c3 c4 0a 21 | 21 87 22 20 5b 6e 69 6c | ".....!|!." [nil|
|00000470| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00000480| 72 79 20 64 69 72 6e 61 | 6d 65 20 73 77 69 74 63 |ry dirna|me switc|
|00000490| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 64 69 72 65 |h-to-buf|fer dire|
|000004a0| 64 2d 6e 6f 73 65 6c 65 | 63 74 5d 20 33 29 29 0a |d-nosele|ct] 3)).|
|000004b0| 0a 28 64 65 66 75 6e 20 | 64 69 72 65 64 2d 6f 74 |.(defun |dired-ot|
|000004c0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 28 64 69 72 6e |her-wind|ow (dirn|
|000004d0| 61 6d 65 29 20 22 5c 0a | 5c 22 45 64 69 74 5c 22 |ame) "\.|\"Edit\"|
|000004e0| 20 64 69 72 65 63 74 6f | 72 79 20 44 49 52 4e 41 | directo|ry DIRNA|
|000004f0| 4d 45 2e 20 20 4c 69 6b | 65 20 4d 2d 78 20 64 69 |ME.  Lik|e M-x di|
|00000500| 72 65 64 20 62 75 74 20 | 73 65 6c 65 63 74 73 20 |red but |selects |
|00000510| 69 6e 20 61 6e 6f 74 68 | 65 72 20 77 69 6e 64 6f |in anoth|er windo|
|00000520| 77 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |w." (int|eractive|
|00000530| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 c3 c0 | (byte-c|ode "...|
|00000540| 09 c0 24 43 87 22 20 5b | 6e 69 6c 20 64 65 66 61 |..$C." [|nil defa|
|00000550| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 72 65 |ult-dire|ctory re|
|00000560| 61 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 44 69 |ad-file-|name "Di|
|00000570| 72 65 64 20 69 6e 20 6f | 74 68 65 72 20 77 69 6e |red in o|ther win|
|00000580| 64 6f 77 20 28 64 69 72 | 65 63 74 6f 72 79 29 3a |dow (dir|ectory):|
|00000590| 20 22 5d 20 35 29 29 20 | 28 62 79 74 65 2d 63 6f | "] 5)) |(byte-co|
|000005a0| 64 65 20 22 c0 88 c3 c4 | 0a 21 21 87 22 20 5b 6e |de "....|.!!." [n|
|000005b0| 69 6c 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |il defau|lt-direc|
|000005c0| 74 6f 72 79 20 64 69 72 | 6e 61 6d 65 20 73 77 69 |tory dir|name swi|
|000005d0| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 2d 6f 74 |tch-to-b|uffer-ot|
|000005e0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 64 69 72 65 64 |her-wind|ow dired|
|000005f0| 2d 6e 6f 73 65 6c 65 63 | 74 5d 20 33 29 29 0a 0a |-noselec|t] 3))..|
|00000600| 28 64 65 66 75 6e 20 64 | 69 72 65 64 2d 6e 6f 73 |(defun d|ired-nos|
|00000610| 65 6c 65 63 74 20 28 64 | 69 72 6e 61 6d 65 29 20 |elect (d|irname) |
|00000620| 22 5c 0a 4c 69 6b 65 20 | 4d 2d 78 20 64 69 72 65 |"\.Like |M-x dire|
|00000630| 64 20 62 75 74 20 72 65 | 74 75 72 6e 73 20 74 68 |d but re|turns th|
|00000640| 65 20 64 69 72 65 64 20 | 62 75 66 66 65 72 20 61 |e dired |buffer a|
|00000650| 73 20 76 61 6c 75 65 2c | 20 64 6f 65 73 20 6e 6f |s value,| does no|
|00000660| 74 20 73 65 6c 65 63 74 | 20 69 74 2e 22 20 28 62 |t select| it." (b|
|00000670| 79 74 65 2d 63 6f 64 65 | 20 22 08 86 07 00 09 89 |yte-code| "......|
|00000680| 10 88 c3 c4 08 21 21 89 | 10 88 c5 08 21 85 1b 00 |.....!!.|....!...|
|00000690| c6 08 21 89 10 88 c7 08 | 21 1a 8a 0a 71 88 c8 08 |..!.....|!...q...|
|000006a0| 0a 5c 22 88 c9 20 88 ca | 08 21 29 88 0a 29 87 22 |.\".. ..|.!)..)."|
|000006b0| 20 5b 64 69 72 6e 61 6d | 65 20 64 65 66 61 75 6c | [dirnam|e defaul|
|000006c0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 62 75 66 66 |t-direct|ory buff|
|000006d0| 65 72 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |er expan|d-file-n|
|000006e0| 61 6d 65 20 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |ame dire|ctory-fi|
|000006f0| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 2d 64 69 72 |le-name |file-dir|
|00000700| 65 63 74 6f 72 79 2d 70 | 20 66 69 6c 65 2d 6e 61 |ectory-p| file-na|
|00000710| 6d 65 2d 61 73 2d 64 69 | 72 65 63 74 6f 72 79 20 |me-as-di|rectory |
|00000720| 64 69 72 65 64 2d 66 69 | 6e 64 2d 62 75 66 66 65 |dired-fi|nd-buffe|
|00000730| 72 20 64 69 72 65 64 2d | 72 65 61 64 69 6e 20 64 |r dired-|readin d|
|00000740| 69 72 65 64 2d 6d 6f 76 | 65 2d 74 6f 2d 66 69 6c |ired-mov|e-to-fil|
|00000750| 65 6e 61 6d 65 20 64 69 | 72 65 64 2d 6d 6f 64 65 |ename di|red-mode|
|00000760| 5d 20 39 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 |] 9))..(|defun di|
|00000770| 72 65 64 2d 72 65 76 65 | 72 74 20 28 26 6f 70 74 |red-reve|rt (&opt|
|00000780| 69 6f 6e 61 6c 20 61 72 | 67 20 6e 6f 63 6f 6e 66 |ional ar|g noconf|
|00000790| 69 72 6d 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |irm) (by|te-code |
|000007a0| 22 60 c6 c2 c2 5c 22 c4 | 1b 19 18 c7 20 88 c8 0d |"`...\".|.... ...|
|000007b0| 70 5c 22 88 09 85 1f 00 | c9 ca cb 09 21 cc 51 c4 |p\".....|....!.Q.|
|000007c0| c2 23 86 24 00 08 62 88 | cd 20 2b 87 22 20 5b 6f |.#.$..b.|. +." [o|
|000007d0| 70 6f 69 6e 74 20 6f 66 | 69 6c 65 20 74 20 62 75 |point of|ile t bu|
|000007e0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 6e |ffer-rea|d-only n|
|000007f0| 69 6c 20 64 69 72 65 64 | 2d 64 69 72 65 63 74 6f |il dired|-directo|
|00000800| 72 79 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |ry dired|-get-fil|
|00000810| 65 6e 61 6d 65 20 65 72 | 61 73 65 2d 62 75 66 66 |ename er|ase-buff|
|00000820| 65 72 20 64 69 72 65 64 | 2d 72 65 61 64 69 6e 20 |er dired|-readin |
|00000830| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000840| 64 20 22 20 22 20 72 65 | 67 65 78 70 2d 71 75 6f |d " " re|gexp-quo|
|00000850| 74 65 20 22 24 22 20 62 | 65 67 69 6e 6e 69 6e 67 |te "$" b|eginning|
|00000860| 2d 6f 66 2d 6c 69 6e 65 | 5d 20 38 29 29 0a 0a 28 |-of-line|] 8))..(|
|00000870| 64 65 66 76 61 72 20 64 | 69 72 65 64 2d 6d 6f 64 |defvar d|ired-mod|
|00000880| 65 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 4c 6f 63 |e-map ni|l "\.Loc|
|00000890| 61 6c 20 6b 65 79 6d 61 | 70 20 66 6f 72 20 64 69 |al keyma|p for di|
|000008a0| 72 65 64 2d 6d 6f 64 65 | 20 62 75 66 66 65 72 73 |red-mode| buffers|
|000008b0| 2e 22 29 0a 0a 28 69 66 | 20 64 69 72 65 64 2d 6d |.")..(if| dired-m|
|000008c0| 6f 64 65 2d 6d 61 70 20 | 6e 69 6c 20 28 73 65 74 |ode-map |nil (set|
|000008d0| 71 20 64 69 72 65 64 2d | 6d 6f 64 65 2d 6d 61 70 |q dired-|mode-map|
|000008e0| 20 28 6d 61 6b 65 2d 6b | 65 79 6d 61 70 29 29 20 | (make-k|eymap)) |
|000008f0| 28 73 75 70 70 72 65 73 | 73 2d 6b 65 79 6d 61 70 |(suppres|s-keymap|
|00000900| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 29 | dired-m|ode-map)|
|00000910| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 69 72 | (define|-key dir|
|00000920| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 22 72 22 20 |ed-mode-|map "r" |
|00000930| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 72 65 6e |(quote d|ired-ren|
|00000940| 61 6d 65 2d 66 69 6c 65 | 29 29 20 28 64 65 66 69 |ame-file|)) (defi|
|00000950| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|00000960| 65 2d 6d 61 70 20 22 04 | 22 20 28 71 75 6f 74 65 |e-map ".|" (quote|
|00000970| 20 64 69 72 65 64 2d 66 | 6c 61 67 2d 66 69 6c 65 | dired-f|lag-file|
|00000980| 2d 64 65 6c 65 74 65 64 | 29 29 20 28 64 65 66 69 |-deleted|)) (defi|
|00000990| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|000009a0| 65 2d 6d 61 70 20 22 64 | 22 20 28 71 75 6f 74 65 |e-map "d|" (quote|
|000009b0| 20 64 69 72 65 64 2d 66 | 6c 61 67 2d 66 69 6c 65 | dired-f|lag-file|
|000009c0| 2d 64 65 6c 65 74 65 64 | 29 29 20 28 64 65 66 69 |-deleted|)) (defi|
|000009d0| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|000009e0| 65 2d 6d 61 70 20 22 76 | 22 20 28 71 75 6f 74 65 |e-map "v|" (quote|
|000009f0| 20 64 69 72 65 64 2d 76 | 69 65 77 2d 66 69 6c 65 | dired-v|iew-file|
|00000a00| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 64 |)) (defi|ne-key d|
|00000a10| 69 72 65 64 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 65 |ired-mod|e-map "e|
|00000a20| 22 20 28 71 75 6f 74 65 | 20 64 69 72 65 64 2d 66 |" (quote| dired-f|
|00000a30| 69 6e 64 2d 66 69 6c 65 | 29 29 20 28 64 65 66 69 |ind-file|)) (defi|
|00000a40| 6e 65 2d 6b 65 79 20 64 | 69 72 65 64 2d 6d 6f 64 |ne-key d|ired-mod|
|00000a50| 65 2d 6d 61 70 20 22 66 | 22 20 28 71 75 6f 74 65 |e-map "f|" (quote|
|00000a60| 20 64 69 72 65 64 2d 66 | 69 6e 64 2d 66 69 6c 65 | dired-f|ind-file|
|00000a70| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 64 |)) (defi|ne-key d|
|00000a80| 69 72 65 64 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 6f |ired-mod|e-map "o|
|00000a90| 22 20 28 71 75 6f 74 65 | 20 64 69 72 65 64 2d 66 |" (quote| dired-f|
|00000aa0| 69 6e 64 2d 66 69 6c 65 | 2d 6f 74 68 65 72 2d 77 |ind-file|-other-w|
|00000ab0| 69 6e 64 6f 77 29 29 20 | 28 64 65 66 69 6e 65 2d |indow)) |(define-|
|00000ac0| 6b 65 79 20 64 69 72 65 | 64 2d 6d 6f 64 65 2d 6d |key dire|d-mode-m|
|00000ad0| 61 70 20 22 75 22 20 28 | 71 75 6f 74 65 20 64 69 |ap "u" (|quote di|
|00000ae0| 72 65 64 2d 75 6e 66 6c | 61 67 29 29 20 28 64 65 |red-unfl|ag)) (de|
|00000af0| 66 69 6e 65 2d 6b 65 79 | 20 64 69 72 65 64 2d 6d |fine-key| dired-m|
|00000b00| 6f 64 65 2d 6d 61 70 20 | 22 78 22 20 28 71 75 6f |ode-map |"x" (quo|
|00000b10| 74 65 20 64 69 72 65 64 | 2d 64 6f 2d 64 65 6c 65 |te dired|-do-dele|
|00000b20| 74 69 6f 6e 73 29 29 20 | 28 64 65 66 69 6e 65 2d |tions)) |(define-|
|00000b30| 6b 65 79 20 64 69 72 65 | 64 2d 6d 6f 64 65 2d 6d |key dire|d-mode-m|
|00000b40| 61 70 20 22 7f 22 20 28 | 71 75 6f 74 65 20 64 69 |ap "." (|quote di|
|00000b50| 72 65 64 2d 62 61 63 6b | 75 70 2d 75 6e 66 6c 61 |red-back|up-unfla|
|00000b60| 67 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |g)) (def|ine-key |
|00000b70| 64 69 72 65 64 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |dired-mo|de-map "|
|00000b80| 3f 22 20 28 71 75 6f 74 | 65 20 64 69 72 65 64 2d |?" (quot|e dired-|
|00000b90| 73 75 6d 6d 61 72 79 29 | 29 20 28 64 65 66 69 6e |summary)|) (defin|
|00000ba0| 65 2d 6b 65 79 20 64 69 | 72 65 64 2d 6d 6f 64 65 |e-key di|red-mode|
|00000bb0| 2d 6d 61 70 20 22 63 22 | 20 28 71 75 6f 74 65 20 |-map "c"| (quote |
|00000bc0| 64 69 72 65 64 2d 63 6f | 70 79 2d 66 69 6c 65 29 |dired-co|py-file)|
|00000bd0| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 64 69 |) (defin|e-key di|
|00000be0| 72 65 64 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 23 22 |red-mode|-map "#"|
|00000bf0| 20 28 71 75 6f 74 65 20 | 64 69 72 65 64 2d 66 6c | (quote |dired-fl|
|00000c00| 61 67 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |ag-auto-|save-fil|
|00000c10| 65 73 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |es)) (de|fine-key|
|00000c20| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000c30| 22 7e 22 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |"~" (quo|te dired|
|00000c40| 2d 66 6c 61 67 2d 62 61 | 63 6b 75 70 2d 66 69 6c |-flag-ba|ckup-fil|
|00000c50| 65 73 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |es)) (de|fine-key|
|00000c60| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000c70| 22 2e 22 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |"." (quo|te dired|
|00000c80| 2d 63 6c 65 61 6e 2d 64 | 69 72 65 63 74 6f 72 79 |-clean-d|irectory|
|00000c90| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 64 |)) (defi|ne-key d|
|00000ca0| 69 72 65 64 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 68 |ired-mod|e-map "h|
|00000cb0| 22 20 28 71 75 6f 74 65 | 20 64 65 73 63 72 69 62 |" (quote| describ|
|00000cc0| 65 2d 6d 6f 64 65 29 29 | 20 28 64 65 66 69 6e 65 |e-mode))| (define|
|00000cd0| 2d 6b 65 79 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |-key dir|ed-mode-|
|00000ce0| 6d 61 70 20 22 20 22 20 | 28 71 75 6f 74 65 20 64 |map " " |(quote d|
|00000cf0| 69 72 65 64 2d 6e 65 78 | 74 2d 6c 69 6e 65 29 29 |ired-nex|t-line))|
|00000d00| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 69 72 | (define|-key dir|
|00000d10| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 22 0e 22 20 |ed-mode-|map "." |
|00000d20| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 6e 65 78 |(quote d|ired-nex|
|00000d30| 74 2d 6c 69 6e 65 29 29 | 20 28 64 65 66 69 6e 65 |t-line))| (define|
|00000d40| 2d 6b 65 79 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |-key dir|ed-mode-|
|00000d50| 6d 61 70 20 22 10 22 20 | 28 71 75 6f 74 65 20 64 |map "." |(quote d|
|00000d60| 69 72 65 64 2d 70 72 65 | 76 69 6f 75 73 2d 6c 69 |ired-pre|vious-li|
|00000d70| 6e 65 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ne)) (de|fine-key|
|00000d80| 20 64 69 72 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 | dired-m|ode-map |
|00000d90| 22 6e 22 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |"n" (quo|te dired|
|00000da0| 2d 6e 65 78 74 2d 6c 69 | 6e 65 29 29 20 28 64 65 |-next-li|ne)) (de|
|00000db0| 66 69 6e 65 2d 6b 65 79 | 20 64 69 72 65 64 2d 6d |fine-key| dired-m|
|00000dc0| 6f 64 65 2d 6d 61 70 20 | 22 70 22 20 28 71 75 6f |ode-map |"p" (quo|
|00000dd0| 74 65 20 64 69 72 65 64 | 2d 70 72 65 76 69 6f 75 |te dired|-previou|
|00000de0| 73 2d 6c 69 6e 65 29 29 | 20 28 64 65 66 69 6e 65 |s-line))| (define|
|00000df0| 2d 6b 65 79 20 64 69 72 | 65 64 2d 6d 6f 64 65 2d |-key dir|ed-mode-|
|00000e00| 6d 61 70 20 22 67 22 20 | 28 71 75 6f 74 65 20 72 |map "g" |(quote r|
|00000e10| 65 76 65 72 74 2d 62 75 | 66 66 65 72 29 29 20 28 |evert-bu|ffer)) (|
|00000e20| 64 65 66 69 6e 65 2d 6b | 65 79 20 64 69 72 65 64 |define-k|ey dired|
|00000e30| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 43 22 20 28 71 |-mode-ma|p "C" (q|
|00000e40| 75 6f 74 65 20 64 69 72 | 65 64 2d 63 6f 6d 70 72 |uote dir|ed-compr|
|00000e50| 65 73 73 29 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |ess)) (d|efine-ke|
|00000e60| 79 20 64 69 72 65 64 2d | 6d 6f 64 65 2d 6d 61 70 |y dired-|mode-map|
|00000e70| 20 22 55 22 20 28 71 75 | 6f 74 65 20 64 69 72 65 | "U" (qu|ote dire|
|00000e80| 64 2d 75 6e 63 6f 6d 70 | 72 65 73 73 29 29 20 28 |d-uncomp|ress)) (|
|00000e90| 64 65 66 69 6e 65 2d 6b | 65 79 20 64 69 72 65 64 |define-k|ey dired|
|00000ea0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 42 22 20 28 71 |-mode-ma|p "B" (q|
|00000eb0| 75 6f 74 65 20 64 69 72 | 65 64 2d 62 79 74 65 2d |uote dir|ed-byte-|
|00000ec0| 72 65 63 6f 6d 70 69 6c | 65 29 29 20 28 64 65 66 |recompil|e)) (def|
|00000ed0| 69 6e 65 2d 6b 65 79 20 | 64 69 72 65 64 2d 6d 6f |ine-key |dired-mo|
|00000ee0| 64 65 2d 6d 61 70 20 22 | 4d 22 20 28 71 75 6f 74 |de-map "|M" (quot|
|00000ef0| 65 20 64 69 72 65 64 2d | 63 68 6d 6f 64 29 29 20 |e dired-|chmod)) |
|00000f00| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 64 69 72 65 |(define-|key dire|
|00000f10| 64 2d 6d 6f 64 65 2d 6d | 61 70 20 22 47 22 20 28 |d-mode-m|ap "G" (|
|00000f20| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 63 68 67 72 |quote di|red-chgr|
|00000f30| 70 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |p)) (def|ine-key |
|00000f40| 64 69 72 65 64 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |dired-mo|de-map "|
|00000f50| 4f 22 20 28 71 75 6f 74 | 65 20 64 69 72 65 64 2d |O" (quot|e dired-|
|00000f60| 63 68 6f 77 6e 29 29 29 | 0a 0a 28 70 75 74 20 28 |chown)))|..(put (|
|00000f70| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 6d 6f 64 65 |quote di|red-mode|
|00000f80| 29 20 28 71 75 6f 74 65 | 20 6d 6f 64 65 2d 63 6c |) (quote| mode-cl|
|00000f90| 61 73 73 29 20 28 71 75 | 6f 74 65 20 73 70 65 63 |ass) (qu|ote spec|
|00000fa0| 69 61 6c 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 |ial))..(|defun di|
|00000fb0| 72 65 64 2d 6d 6f 64 65 | 20 28 26 6f 70 74 69 6f |red-mode| (&optio|
|00000fc0| 6e 61 6c 20 64 69 72 6e | 61 6d 65 29 20 22 5c 0a |nal dirn|ame) "\.|
|00000fd0| 4d 6f 64 65 20 66 6f 72 | 20 5c 22 65 64 69 74 69 |Mode for| \"editi|
|00000fe0| 6e 67 5c 22 20 64 69 72 | 65 63 74 6f 72 79 20 6c |ng\" dir|ectory l|
|00000ff0| 69 73 74 69 6e 67 73 2e | 0a 49 6e 20 64 69 72 65 |istings.|.In dire|
|00001000| 64 2c 20 79 6f 75 20 61 | 72 65 20 5c 22 65 64 69 |d, you a|re \"edi|
|00001010| 74 69 6e 67 5c 22 20 61 | 20 6c 69 73 74 20 6f 66 |ting\" a| list of|
|00001020| 20 74 68 65 20 66 69 6c | 65 73 20 69 6e 20 61 20 | the fil|es in a |
|00001030| 64 69 72 65 63 74 6f 72 | 79 2e 0a 59 6f 75 20 63 |director|y..You c|
|00001040| 61 6e 20 6d 6f 76 65 20 | 75 73 69 6e 67 20 74 68 |an move |using th|
|00001050| 65 20 75 73 75 61 6c 20 | 63 75 72 73 6f 72 20 6d |e usual |cursor m|
|00001060| 6f 74 69 6f 6e 20 63 6f | 6d 6d 61 6e 64 73 2e 0a |otion co|mmands..|
|00001070| 4c 65 74 74 65 72 73 20 | 6e 6f 20 6c 6f 6e 67 65 |Letters |no longe|
|00001080| 72 20 69 6e 73 65 72 74 | 20 74 68 65 6d 73 65 6c |r insert| themsel|
|00001090| 76 65 73 2e 0a 49 6e 73 | 74 65 61 64 2c 20 74 79 |ves..Ins|tead, ty|
|000010a0| 70 65 20 64 20 74 6f 20 | 66 6c 61 67 20 61 20 66 |pe d to |flag a f|
|000010b0| 69 6c 65 20 66 6f 72 20 | 44 65 6c 65 74 69 6f 6e |ile for |Deletion|
|000010c0| 2e 0a 54 79 70 65 20 75 | 20 74 6f 20 55 6e 66 6c |..Type u| to Unfl|
|000010d0| 61 67 20 61 20 66 69 6c | 65 20 28 72 65 6d 6f 76 |ag a fil|e (remov|
|000010e0| 65 20 69 74 73 20 44 20 | 66 6c 61 67 29 2e 0a 20 |e its D |flag).. |
|000010f0| 20 54 79 70 65 20 52 75 | 62 6f 75 74 20 74 6f 20 | Type Ru|bout to |
|00001100| 62 61 63 6b 20 75 70 20 | 6f 6e 65 20 6c 69 6e 65 |back up |one line|
|00001110| 20 61 6e 64 20 75 6e 66 | 6c 61 67 2e 0a 54 79 70 | and unf|lag..Typ|
|00001120| 65 20 78 20 74 6f 20 65 | 58 65 63 75 74 65 20 74 |e x to e|Xecute t|
|00001130| 68 65 20 64 65 6c 65 74 | 69 6f 6e 73 20 72 65 71 |he delet|ions req|
|00001140| 75 65 73 74 65 64 2e 0a | 54 79 70 65 20 66 20 74 |uested..|Type f t|
|00001150| 6f 20 46 69 6e 64 20 74 | 68 65 20 63 75 72 72 65 |o Find t|he curre|
|00001160| 6e 74 20 6c 69 6e 65 27 | 73 20 66 69 6c 65 0a 20 |nt line'|s file. |
|00001170| 20 28 6f 72 20 44 69 72 | 65 64 20 69 74 2c 20 69 | (or Dir|ed it, i|
|00001180| 66 20 69 74 20 69 73 20 | 61 20 64 69 72 65 63 74 |f it is |a direct|
|00001190| 6f 72 79 29 2e 0a 54 79 | 70 65 20 6f 20 74 6f 20 |ory)..Ty|pe o to |
|000011a0| 66 69 6e 64 20 66 69 6c | 65 20 6f 72 20 64 69 72 |find fil|e or dir|
|000011b0| 65 64 20 64 69 72 65 63 | 74 6f 72 79 20 69 6e 20 |ed direc|tory in |
|000011c0| 4f 74 68 65 72 20 77 69 | 6e 64 6f 77 2e 0a 54 79 |Other wi|ndow..Ty|
|000011d0| 70 65 20 23 20 74 6f 20 | 66 6c 61 67 20 74 65 6d |pe # to |flag tem|
|000011e0| 70 6f 72 61 72 79 20 66 | 69 6c 65 73 20 28 6e 61 |porary f|iles (na|
|000011f0| 6d 65 73 20 62 65 67 69 | 6e 6e 69 6e 67 20 77 69 |mes begi|nning wi|
|00001200| 74 68 20 23 29 20 66 6f | 72 20 44 65 6c 65 74 69 |th #) fo|r Deleti|
|00001210| 6f 6e 2e 0a 54 79 70 65 | 20 7e 20 74 6f 20 66 6c |on..Type| ~ to fl|
|00001220| 61 67 20 62 61 63 6b 75 | 70 20 66 69 6c 65 73 20 |ag backu|p files |
|00001230| 28 6e 61 6d 65 73 20 65 | 6e 64 69 6e 67 20 77 69 |(names e|nding wi|
|00001240| 74 68 20 7e 29 20 66 6f | 72 20 44 65 6c 65 74 69 |th ~) fo|r Deleti|
|00001250| 6f 6e 2e 0a 54 79 70 65 | 20 2e 20 74 6f 20 66 6c |on..Type| . to fl|
|00001260| 61 67 20 6e 75 6d 65 72 | 69 63 61 6c 20 62 61 63 |ag numer|ical bac|
|00001270| 6b 75 70 73 20 66 6f 72 | 20 44 65 6c 65 74 69 6f |kups for| Deletio|
|00001280| 6e 2e 0a 20 20 28 53 70 | 61 72 65 73 20 64 69 72 |n..  (Sp|ares dir|
|00001290| 65 64 2d 6b 65 70 74 2d | 76 65 72 73 69 6f 6e 73 |ed-kept-|versions|
|000012a0| 20 6f 72 20 69 74 73 20 | 6e 75 6d 65 72 69 63 20 | or its |numeric |
|000012b0| 61 72 67 75 6d 65 6e 74 | 2e 29 0a 54 79 70 65 20 |argument|.).Type |
|000012c0| 72 20 74 6f 20 72 65 6e | 61 6d 65 20 61 20 66 69 |r to ren|ame a fi|
|000012d0| 6c 65 2e 0a 54 79 70 65 | 20 63 20 74 6f 20 63 6f |le..Type| c to co|
|000012e0| 70 79 20 61 20 66 69 6c | 65 2e 0a 54 79 70 65 20 |py a fil|e..Type |
|000012f0| 76 20 74 6f 20 76 69 65 | 77 20 61 20 66 69 6c 65 |v to vie|w a file|
|00001300| 20 69 6e 20 56 69 65 77 | 20 6d 6f 64 65 2c 20 72 | in View| mode, r|
|00001310| 65 74 75 72 6e 69 6e 67 | 20 74 6f 20 44 69 72 65 |eturning| to Dire|
|00001320| 64 20 77 68 65 6e 20 64 | 6f 6e 65 2e 0a 54 79 70 |d when d|one..Typ|
|00001330| 65 20 67 20 74 6f 20 72 | 65 61 64 20 74 68 65 20 |e g to r|ead the |
|00001340| 64 69 72 65 63 74 6f 72 | 79 20 61 67 61 69 6e 2e |director|y again.|
|00001350| 20 20 54 68 69 73 20 64 | 69 73 63 61 72 64 73 20 |  This d|iscards |
|00001360| 61 6c 6c 20 64 65 6c 65 | 74 69 6f 6e 2d 66 6c 61 |all dele|tion-fla|
|00001370| 67 73 2e 0a 53 70 61 63 | 65 20 61 6e 64 20 52 75 |gs..Spac|e and Ru|
|00001380| 62 6f 75 74 20 63 61 6e | 20 62 65 20 75 73 65 64 |bout can| be used|
|00001390| 20 74 6f 20 6d 6f 76 65 | 20 64 6f 77 6e 20 61 6e | to move| down an|
|000013a0| 64 20 75 70 20 62 79 20 | 6c 69 6e 65 73 2e 0a 41 |d up by |lines..A|
|000013b0| 6c 73 6f 3a 20 43 20 2d | 2d 20 63 6f 6d 70 72 65 |lso: C -|- compre|
|000013c0| 73 73 20 74 68 69 73 20 | 66 69 6c 65 2e 20 20 55 |ss this |file.  U|
|000013d0| 20 2d 2d 20 75 6e 63 6f | 6d 70 72 65 73 73 20 74 | -- unco|mpress t|
|000013e0| 68 69 73 20 66 69 6c 65 | 2e 0a 20 20 20 20 20 20 |his file|..      |
|000013f0| 42 20 2d 2d 20 62 79 74 | 65 20 63 6f 6d 70 69 6c |B -- byt|e compil|
|00001400| 65 20 74 68 69 73 20 66 | 69 6c 65 2e 0a 20 4d 2c |e this f|ile.. M,|
|00001410| 20 47 2c 20 4f 20 2d 2d | 20 63 68 61 6e 67 65 20 | G, O --| change |
|00001420| 66 69 6c 65 27 73 20 6d | 6f 64 65 2c 20 67 72 6f |file's m|ode, gro|
|00001430| 75 70 20 6f 72 20 6f 77 | 6e 65 72 2e 0a 5c 5c 7b |up or ow|ner..\\{|
|00001440| 64 69 72 65 64 2d 6d 6f | 64 65 2d 6d 61 70 7d 22 |dired-mo|de-map}"|
|00001450| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00001460| 62 79 74 65 2d 63 6f 64 | 65 20 22 c8 88 cc 20 88 |byte-cod|e "... .|
|00001470| cd c0 21 88 ce 89 10 88 | cf 89 11 88 d0 89 12 88 |..!.....|........|
|00001480| cd c3 21 88 0c 86 1e 00 | 0d 89 13 88 0c 85 34 00 |..!.....|......4.|
|00001490| d1 0c 21 83 2f 00 0c 82 | 32 00 d2 0c 21 89 15 88 |..!./...|2...!...|
|000014a0| d3 89 16 06 88 c8 89 16 | 07 88 ca 89 16 09 88 d4 |........|........|
|000014b0| 0e 0b 21 88 d5 d6 21 87 | 22 20 5b 72 65 76 65 72 |..!...!.|" [rever|
|000014c0| 74 2d 62 75 66 66 65 72 | 2d 66 75 6e 63 74 69 6f |t-buffer|-functio|
|000014d0| 6e 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 6d 6f 64 |n major-|mode mod|
|000014e0| 65 2d 6e 61 6d 65 20 64 | 69 72 65 64 2d 64 69 72 |e-name d|ired-dir|
|000014f0| 65 63 74 6f 72 79 20 64 | 69 72 6e 61 6d 65 20 64 |ectory d|irname d|
|00001500| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00001510| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 62 75 66 66 65 | mode-li|ne-buffe|
|00001520| 72 2d 69 64 65 6e 74 69 | 66 69 63 61 74 69 6f 6e |r-identi|fication|
|00001530| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00001540| 68 20 6e 69 6c 20 62 75 | 66 66 65 72 2d 72 65 61 |h nil bu|ffer-rea|
|00001550| 64 2d 6f 6e 6c 79 20 74 | 20 64 69 72 65 64 2d 6d |d-only t| dired-m|
|00001560| 6f 64 65 2d 6d 61 70 20 | 6b 69 6c 6c 2d 61 6c 6c |ode-map |kill-all|
|00001570| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 73 |-local-v|ariables|
|00001580| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00001590| 61 62 6c 65 20 64 69 72 | 65 64 2d 72 65 76 65 72 |able dir|ed-rever|
|000015a0| 74 20 64 69 72 65 64 2d | 6d 6f 64 65 20 22 44 69 |t dired-|mode "Di|
|000015b0| 72 65 64 22 20 66 69 6c | 65 2d 64 69 72 65 63 74 |red" fil|e-direct|
|000015c0| 6f 72 79 2d 70 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |ory-p fi|le-name-|
|000015d0| 64 69 72 65 63 74 6f 72 | 79 20 28 22 44 69 72 65 |director|y ("Dire|
|000015e0| 64 3a 20 25 31 37 62 22 | 29 20 75 73 65 2d 6c 6f |d: %17b"|) use-lo|
|000015f0| 63 61 6c 2d 6d 61 70 20 | 72 75 6e 2d 68 6f 6f 6b |cal-map |run-hook|
|00001600| 73 20 64 69 72 65 64 2d | 6d 6f 64 65 2d 68 6f 6f |s dired-|mode-hoo|
|00001610| 6b 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |k] 8))..|(defun d|
|00001620| 69 72 65 64 2d 72 65 70 | 65 61 74 2d 6f 76 65 72 |ired-rep|eat-over|
|00001630| 2d 6c 69 6e 65 73 20 28 | 61 72 67 20 66 75 6e 63 |-lines (|arg func|
|00001640| 74 69 6f 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tion) (b|yte-code|
|00001650| 20 22 c2 20 88 08 c3 56 | 85 0b 00 6d 3f 85 34 00 | ". ...V|...m?.4.|
|00001660| 08 53 89 10 88 8a c2 20 | 88 6f 85 24 00 c4 c5 21 |.S..... |.o.$...!|
|00001670| 85 24 00 c6 c7 21 88 c8 | 09 21 29 88 c9 ca 21 88 |.$...!..|.!)...!.|
|00001680| cb 20 88 82 03 00 88 08 | c3 57 85 3d 00 6f 3f 85 |. ......|.W.=.o?.|
|00001690| 58 00 08 54 89 10 88 c9 | cc 21 88 cb 20 88 8a c2 |X..T....|.!.. ...|
|000016a0| 20 88 c8 09 21 29 88 82 | 35 00 87 22 20 5b 61 72 | ...!)..|5.." [ar|
|000016b0| 67 20 66 75 6e 63 74 69 | 6f 6e 20 62 65 67 69 6e |g functi|on begin|
|000016c0| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 30 20 6c |ning-of-|line 0 l|
|000016d0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 20 20 74 6f 74 |ooking-a|t "  tot|
|000016e0| 61 6c 22 20 65 72 72 6f | 72 20 22 4e 6f 20 66 69 |al" erro|r "No fi|
|000016f0| 6c 65 20 6f 6e 20 74 68 | 69 73 20 6c 69 6e 65 22 |le on th|is line"|
|00001700| 20 66 75 6e 63 61 6c 6c | 20 66 6f 72 77 61 72 64 | funcall| forward|
|00001710| 2d 6c 69 6e 65 20 31 20 | 64 69 72 65 64 2d 6d 6f |-line 1 |dired-mo|
|00001720| 76 65 2d 74 6f 2d 66 69 | 6c 65 6e 61 6d 65 20 2d |ve-to-fi|lename -|
|00001730| 31 5d 20 31 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |1] 13)).|.(defun |
|00001740| 64 69 72 65 64 2d 66 6c | 61 67 2d 66 69 6c 65 2d |dired-fl|ag-file-|
|00001750| 64 65 6c 65 74 65 64 20 | 28 61 72 67 29 20 22 5c |deleted |(arg) "\|
|00001760| 0a 49 6e 20 64 69 72 65 | 64 2c 20 66 6c 61 67 20 |.In dire|d, flag |
|00001770| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00001780| 27 73 20 66 69 6c 65 20 | 66 6f 72 20 64 65 6c 65 |'s file |for dele|
|00001790| 74 69 6f 6e 2e 0a 57 69 | 74 68 20 61 72 67 2c 20 |tion..Wi|th arg, |
|000017a0| 72 65 70 65 61 74 20 6f | 76 65 72 20 73 65 76 65 |repeat o|ver seve|
|000017b0| 72 61 6c 20 6c 69 6e 65 | 73 2e 22 20 28 69 6e 74 |ral line|s." (int|
|000017c0| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 62 |eractive| "p") (b|
|000017d0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 08 c3 5c |yte-code| ".....\|
|000017e0| 22 87 22 20 5b 61 72 67 | 20 6e 69 6c 20 64 69 72 |"." [arg| nil dir|
|000017f0| 65 64 2d 72 65 70 65 61 | 74 2d 6f 76 65 72 2d 6c |ed-repea|t-over-l|
|00001800| 69 6e 65 73 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |ines (la|mbda nil|
|00001810| 20 28 6c 65 74 20 28 28 | 62 75 66 66 65 72 2d 72 | (let ((|buffer-r|
|00001820| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 29 29 20 28 |ead-only| nil)) (|
|00001830| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 31 29 20 28 |delete-c|har 1) (|
|00001840| 69 6e 73 65 72 74 20 22 | 44 22 29 29 29 5d 20 33 |insert "|D")))] 3|
|00001850| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 72 65 64 |))..(def|un dired|
|00001860| 2d 73 75 6d 6d 61 72 79 | 20 6e 69 6c 20 28 69 6e |-summary| nil (in|
|00001870| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00001880| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00001890| 6e 69 6c 20 6d 65 73 73 | 61 67 65 20 22 64 2d 65 |nil mess|age "d-e|
|000018a0| 6c 65 74 65 2c 20 75 2d | 6e 64 65 6c 65 74 65 2c |lete, u-|ndelete,|
|000018b0| 20 78 2d 65 63 75 74 65 | 2c 20 66 2d 69 6e 64 2c | x-ecute|, f-ind,|
|000018c0| 20 6f 2d 74 68 65 72 20 | 77 69 6e 64 6f 77 2c 20 | o-ther |window, |
|000018d0| 72 2d 65 6e 61 6d 65 2c | 20 63 2d 6f 70 79 2c 20 |r-ename,| c-opy, |
|000018e0| 76 2d 69 65 77 22 5d 20 | 32 29 29 0a 0a 28 64 65 |v-iew"] |2))..(de|
|000018f0| 66 75 6e 20 64 69 72 65 | 64 2d 75 6e 66 6c 61 67 |fun dire|d-unflag|
|00001900| 20 28 61 72 67 29 20 22 | 5c 0a 49 6e 20 64 69 72 | (arg) "|\.In dir|
|00001910| 65 64 2c 20 72 65 6d 6f | 76 65 20 74 68 65 20 63 |ed, remo|ve the c|
|00001920| 75 72 72 65 6e 74 20 6c | 69 6e 65 27 73 20 64 65 |urrent l|ine's de|
|00001930| 6c 65 74 65 20 66 6c 61 | 67 20 74 68 65 6e 20 6d |lete fla|g then m|
|00001940| 6f 76 65 20 74 6f 20 6e | 65 78 74 20 6c 69 6e 65 |ove to n|ext line|
|00001950| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00001960| 22 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"p") (by|te-code |
|00001970| 22 c1 88 c2 08 c3 5c 22 | 87 22 20 5b 61 72 67 20 |".....\"|." [arg |
|00001980| 6e 69 6c 20 64 69 72 65 | 64 2d 72 65 70 65 61 74 |nil dire|d-repeat|
|00001990| 2d 6f 76 65 72 2d 6c 69 | 6e 65 73 20 28 6c 61 6d |-over-li|nes (lam|
|000019a0| 62 64 61 20 6e 69 6c 20 | 28 6c 65 74 20 28 28 62 |bda nil |(let ((b|
|000019b0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000019c0| 6e 69 6c 29 29 20 28 64 | 65 6c 65 74 65 2d 63 68 |nil)) (d|elete-ch|
|000019d0| 61 72 20 31 29 20 28 69 | 6e 73 65 72 74 20 22 20 |ar 1) (i|nsert " |
|000019e0| 22 29 20 28 66 6f 72 77 | 61 72 64 2d 63 68 61 72 |") (forw|ard-char|
|000019f0| 20 2d 31 29 29 29 5d 20 | 33 29 29 0a 0a 28 64 65 | -1)))] |3))..(de|
|00001a00| 66 75 6e 20 64 69 72 65 | 64 2d 62 61 63 6b 75 70 |fun dire|d-backup|
|00001a10| 2d 75 6e 66 6c 61 67 20 | 28 61 72 67 29 20 22 5c |-unflag |(arg) "\|
|00001a20| 0a 49 6e 20 64 69 72 65 | 64 2c 20 6d 6f 76 65 20 |.In dire|d, move |
|00001a30| 75 70 20 61 20 6c 69 6e | 65 20 61 6e 64 20 72 65 |up a lin|e and re|
|00001a40| 6d 6f 76 65 20 64 65 6c | 65 74 69 6f 6e 20 66 6c |move del|etion fl|
|00001a50| 61 67 20 74 68 65 72 65 | 2e 22 20 28 69 6e 74 65 |ag there|." (inte|
|00001a60| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00001a70| 74 65 2d 63 6f 64 65 20 | 22 c1 88 c2 08 5b 21 87 |te-code |"....[!.|
|00001a80| 22 20 5b 61 72 67 20 6e | 69 6c 20 64 69 72 65 64 |" [arg n|il dired|
|00001a90| 2d 75 6e 66 6c 61 67 5d | 20 32 29 29 0a 0a 28 64 |-unflag]| 2))..(d|
|00001aa0| 65 66 75 6e 20 64 69 72 | 65 64 2d 6e 65 78 74 2d |efun dir|ed-next-|
|00001ab0| 6c 69 6e 65 20 28 61 72 | 67 29 20 22 5c 0a 4d 6f |line (ar|g) "\.Mo|
|00001ac0| 76 65 20 64 6f 77 6e 20 | 41 52 47 20 6c 69 6e 65 |ve down |ARG line|
|00001ad0| 73 20 74 68 65 6e 20 70 | 6f 73 69 74 69 6f 6e 20 |s then p|osition |
|00001ae0| 61 74 20 66 69 6c 65 6e | 61 6d 65 2e 22 20 28 69 |at filen|ame." (i|
|00001af0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 70 22 29 20 |nteracti|ve "p") |
|00001b00| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 08 |(byte-co|de "....|
|00001b10| 21 88 c3 20 87 22 20 5b | 61 72 67 20 6e 69 6c 20 |!.. ." [|arg nil |
|00001b20| 6e 65 78 74 2d 6c 69 6e | 65 20 64 69 72 65 64 2d |next-lin|e dired-|
|00001b30| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00001b40| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 |] 3))..(|defun di|
|00001b50| 72 65 64 2d 70 72 65 76 | 69 6f 75 73 2d 6c 69 6e |red-prev|ious-lin|
|00001b60| 65 20 28 61 72 67 29 20 | 22 5c 0a 4d 6f 76 65 20 |e (arg) |"\.Move |
|00001b70| 75 70 20 41 52 47 20 6c | 69 6e 65 73 20 74 68 65 |up ARG l|ines the|
|00001b80| 6e 20 70 6f 73 69 74 69 | 6f 6e 20 61 74 20 66 69 |n positi|on at fi|
|00001b90| 6c 65 6e 61 6d 65 2e 22 | 20 28 69 6e 74 65 72 61 |lename."| (intera|
|00001ba0| 63 74 69 76 65 20 22 70 | 22 29 20 28 62 79 74 65 |ctive "p|") (byte|
|00001bb0| 2d 63 6f 64 65 20 22 c1 | 88 c2 08 21 88 c3 20 87 |-code ".|...!.. .|
|00001bc0| 22 20 5b 61 72 67 20 6e | 69 6c 20 70 72 65 76 69 |" [arg n|il previ|
|00001bd0| 6f 75 73 2d 6c 69 6e 65 | 20 64 69 72 65 64 2d 6d |ous-line| dired-m|
|00001be0| 6f 76 65 2d 74 6f 2d 66 | 69 6c 65 6e 61 6d 65 5d |ove-to-f|ilename]|
|00001bf0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 69 72 | 3))..(d|efun dir|
|00001c00| 65 64 2d 66 69 6e 64 2d | 66 69 6c 65 20 6e 69 6c |ed-find-|file nil|
|00001c10| 20 22 5c 0a 49 6e 20 64 | 69 72 65 64 2c 20 76 69 | "\.In d|ired, vi|
|00001c20| 73 69 74 20 74 68 65 20 | 66 69 6c 65 20 6f 72 20 |sit the |file or |
|00001c30| 64 69 72 65 63 74 6f 72 | 79 20 6e 61 6d 65 64 20 |director|y named |
|00001c40| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 22 20 28 |on this |line." (|
|00001c50| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00001c60| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 20 21 87 |te-code |".... !.|
|00001c70| 22 20 5b 6e 69 6c 20 66 | 69 6e 64 2d 66 69 6c 65 |" [nil f|ind-file|
|00001c80| 20 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e | dired-g|et-filen|
|00001c90| 61 6d 65 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ame] 3))|..(defun|
|00001ca0| 20 64 69 72 65 64 2d 76 | 69 65 77 2d 66 69 6c 65 | dired-v|iew-file|
|00001cb0| 20 6e 69 6c 20 22 5c 0a | 49 6e 20 64 69 72 65 64 | nil "\.|In dired|
|00001cc0| 2c 20 65 78 61 6d 69 6e | 65 20 61 20 66 69 6c 65 |, examin|e a file|
|00001cd0| 20 69 6e 20 76 69 65 77 | 20 6d 6f 64 65 2c 20 72 | in view| mode, r|
|00001ce0| 65 74 75 72 6e 69 6e 67 | 20 74 6f 20 64 69 72 65 |eturning| to dire|
|00001cf0| 64 20 77 68 65 6e 20 64 | 6f 6e 65 2e 22 20 28 69 |d when d|one." (i|
|00001d00| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00001d10| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 20 21 83 10 |e-code "|.... !..|
|00001d20| 00 c3 c2 20 21 82 14 00 | c4 c2 20 21 87 22 20 5b |... !...|.. !." [|
|00001d30| 6e 69 6c 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |nil file|-directo|
|00001d40| 72 79 2d 70 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |ry-p dir|ed-get-f|
|00001d50| 69 6c 65 6e 61 6d 65 20 | 64 69 72 65 64 20 76 69 |ilename |dired vi|
|00001d60| 65 77 2d 66 69 6c 65 5d | 20 37 29 29 0a 0a 28 64 |ew-file]| 7))..(d|
|00001d70| 65 66 75 6e 20 64 69 72 | 65 64 2d 66 69 6e 64 2d |efun dir|ed-find-|
|00001d80| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00001d90| 77 20 6e 69 6c 20 22 5c | 0a 49 6e 20 64 69 72 65 |w nil "\|.In dire|
|00001da0| 64 2c 20 76 69 73 69 74 | 20 74 68 69 73 20 66 69 |d, visit| this fi|
|00001db0| 6c 65 20 6f 72 20 64 69 | 72 65 63 74 6f 72 79 20 |le or di|rectory |
|00001dc0| 69 6e 20 61 6e 6f 74 68 | 65 72 20 77 69 6e 64 6f |in anoth|er windo|
|00001dd0| 77 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |w." (int|eractive|
|00001de0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|00001df0| c1 c2 20 21 87 22 20 5b | 6e 69 6c 20 66 69 6e 64 |.. !." [|nil find|
|00001e00| 2d 66 69 6c 65 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |-file-ot|her-wind|
|00001e10| 6f 77 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |ow dired|-get-fil|
|00001e20| 65 6e 61 6d 65 5d 20 33 | 29 29 0a 0a 28 64 65 66 |ename] 3|))..(def|
|00001e30| 75 6e 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |un dired|-get-fil|
|00001e40| 65 6e 61 6d 65 20 28 26 | 6f 70 74 69 6f 6e 61 6c |ename (&|optional|
|00001e50| 20 6c 6f 63 61 6c 70 20 | 6e 6f 2d 65 72 72 6f 72 | localp |no-error|
|00001e60| 2d 69 66 2d 6e 6f 74 2d | 66 69 6c 65 70 29 20 22 |-if-not-|filep) "|
|00001e70| 5c 0a 49 6e 20 64 69 72 | 65 64 2c 20 72 65 74 75 |\.In dir|ed, retu|
|00001e80| 72 6e 20 6e 61 6d 65 20 | 6f 66 20 66 69 6c 65 20 |rn name |of file |
|00001e90| 6d 65 6e 74 69 6f 6e 65 | 64 20 6f 6e 20 74 68 69 |mentione|d on thi|
|00001ea0| 73 20 6c 69 6e 65 2e 0a | 56 61 6c 75 65 20 72 65 |s line..|Value re|
|00001eb0| 74 75 72 6e 65 64 20 6e | 6f 72 6d 61 6c 6c 79 20 |turned n|ormally |
|00001ec0| 69 6e 63 6c 75 64 65 73 | 20 74 68 65 20 64 69 72 |includes| the dir|
|00001ed0| 65 63 74 6f 72 79 20 6e | 61 6d 65 2e 0a 41 20 6e |ectory n|ame..A n|
|00001ee0| 6f 6e 2d 6e 69 6c 20 31 | 73 74 20 61 72 67 75 6d |on-nil 1|st argum|
|00001ef0| 65 6e 74 20 6d 65 61 6e | 73 20 64 6f 20 6e 6f 74 |ent mean|s do not|
|00001f00| 20 69 6e 63 6c 75 64 65 | 20 69 74 2e 20 20 41 20 | include| it.  A |
|00001f10| 6e 6f 6e 2d 6e 69 6c 20 | 32 6e 64 20 61 72 67 75 |non-nil |2nd argu|
|00001f20| 6d 65 6e 74 0a 73 61 79 | 73 20 72 65 74 75 72 6e |ment.say|s return|
|00001f30| 20 6e 69 6c 20 69 66 20 | 6e 6f 20 66 69 6c 65 6e | nil if |no filen|
|00001f40| 61 6d 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ame on t|his line|
|00001f50| 2c 20 6f 74 68 65 72 77 | 69 73 65 20 61 6e 20 65 |, otherw|ise an e|
|00001f60| 72 72 6f 72 20 6f 63 63 | 75 72 73 2e 22 20 28 62 |rror occ|urs." (b|
|00001f70| 79 74 65 2d 63 6f 64 65 | 20 22 c6 18 8a c7 20 88 |yte-code| ".... .|
|00001f80| 60 89 10 88 c8 20 88 c9 | ca 08 c1 23 83 3e 00 cb |`.... ..|...#.>..|
|00001f90| cc 21 88 cb cd 08 5c 22 | 88 cb cc 08 5c 22 88 60 |.!....\"|....\".`|
|00001fa0| 1a cb ce 21 88 0b 83 34 | 00 cf 0a 60 5c 22 82 3a |...!...4|...`\".:|
|00001fb0| 00 0c cf 0a 60 5c 22 50 | 29 82 49 00 0d 83 46 00 |....`\"P|).I...F.|
|00001fc0| c6 82 49 00 d0 d1 21 29 | 29 87 22 20 5b 65 6f 6c |..I...!)|)." [eol|
|00001fd0| 20 74 20 62 65 67 20 6c | 6f 63 61 6c 70 20 64 65 | t beg l|ocalp de|
|00001fe0| 66 61 75 6c 74 2d 64 69 | 72 65 63 74 6f 72 79 20 |fault-di|rectory |
|00001ff0| 6e 6f 2d 65 72 72 6f 72 | 2d 69 66 2d 6e 6f 74 2d |no-error|-if-not-|
|00002000| 66 69 6c 65 70 20 6e 69 | 6c 20 65 6e 64 2d 6f 66 |filep ni|l end-of|
|00002010| 2d 6c 69 6e 65 20 62 65 | 67 69 6e 6e 69 6e 67 2d |-line be|ginning-|
|00002020| 6f 66 2d 6c 69 6e 65 20 | 72 65 2d 73 65 61 72 63 |of-line |re-searc|
|00002030| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 28 4a 61 |h-forwar|d "\\(Ja|
|00002040| 6e 5c 5c 7c 46 65 62 5c | 5c 7c 4d 61 72 5c 5c 7c |n\\|Feb\|\|Mar\\||
|00002050| 41 70 72 5c 5c 7c 4d 61 | 79 5c 5c 7c 4a 75 6e 5c |Apr\\|Ma|y\\|Jun\|
|00002060| 5c 7c 4a 75 6c 5c 5c 7c | 41 75 67 5c 5c 7c 53 65 |\|Jul\\||Aug\\|Se|
|00002070| 70 5c 5c 7c 4f 63 74 5c | 5c 7c 4e 6f 76 5c 5c 7c |p\\|Oct\|\|Nov\\||
|00002080| 44 65 63 5c 5c 29 5b 20 | 5d 2b 5b 30 2d 39 5d 2b |Dec\\)[ |]+[0-9]+|
|00002090| 22 20 73 6b 69 70 2d 63 | 68 61 72 73 2d 66 6f 72 |" skip-c|hars-for|
|000020a0| 77 61 72 64 20 22 20 22 | 20 22 5e 20 22 20 22 5e |ward " "| "^ " "^|
|000020b0| 20 0a 22 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 | ." buff|er-subst|
|000020c0| 72 69 6e 67 20 65 72 72 | 6f 72 20 22 4e 6f 20 66 |ring err|or "No f|
|000020d0| 69 6c 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ile on t|his line|
|000020e0| 22 5d 20 31 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |"] 12)).|.(defun |
|000020f0| 64 69 72 65 64 2d 6d 6f | 76 65 2d 74 6f 2d 66 69 |dired-mo|ve-to-fi|
|00002100| 6c 65 6e 61 6d 65 20 6e | 69 6c 20 22 5c 0a 49 6e |lename n|il "\.In|
|00002110| 20 64 69 72 65 64 2c 20 | 6d 6f 76 65 20 74 6f 20 | dired, |move to |
|00002120| 66 69 72 73 74 20 63 68 | 61 72 20 6f 66 20 66 69 |first ch|ar of fi|
|00002130| 6c 65 6e 61 6d 65 20 6f | 6e 20 74 68 69 73 20 6c |lename o|n this l|
|00002140| 69 6e 65 2e 0a 52 65 74 | 75 72 6e 73 20 70 6f 73 |ine..Ret|urns pos|
|00002150| 69 74 69 6f 6e 20 28 70 | 6f 69 6e 74 29 20 6f 72 |ition (p|oint) or|
|00002160| 20 6e 69 6c 20 69 66 20 | 6e 6f 20 66 69 6c 65 6e | nil if |no filen|
|00002170| 61 6d 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ame on t|his line|
|00002180| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |." (byte|-code ".|
|00002190| 20 88 60 18 c3 20 88 c4 | c5 08 c1 23 85 1f 00 c6 | .`.. ..|...#....|
|000021a0| c7 21 88 c6 c8 08 5c 22 | 88 c6 c7 08 5c 22 88 60 |.!....\"|....\".`|
|000021b0| 29 87 22 20 5b 65 6f 6c | 20 74 20 65 6e 64 2d 6f |)." [eol| t end-o|
|000021c0| 66 2d 6c 69 6e 65 20 62 | 65 67 69 6e 6e 69 6e 67 |f-line b|eginning|
|000021d0| 2d 6f 66 2d 6c 69 6e 65 | 20 72 65 2d 73 65 61 72 |-of-line| re-sear|
|000021e0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 5c 28 4a |ch-forwa|rd "\\(J|
|000021f0| 61 6e 5c 5c 7c 46 65 62 | 5c 5c 7c 4d 61 72 5c 5c |an\\|Feb|\\|Mar\\|
|00002200| 7c 41 70 72 5c 5c 7c 4d | 61 79 5c 5c 7c 4a 75 6e ||Apr\\|M|ay\\|Jun|
|00002210| 5c 5c 7c 4a 75 6c 5c 5c | 7c 41 75 67 5c 5c 7c 53 |\\|Jul\\||Aug\\|S|
|00002220| 65 70 5c 5c 7c 4f 63 74 | 5c 5c 7c 4e 6f 76 5c 5c |ep\\|Oct|\\|Nov\\|
|00002230| 7c 44 65 63 5c 5c 29 5b | 20 5d 2b 5b 30 2d 39 5d ||Dec\\)[| ]+[0-9]|
|00002240| 2b 22 20 73 6b 69 70 2d | 63 68 61 72 73 2d 66 6f |+" skip-|chars-fo|
|00002250| 72 77 61 72 64 20 22 20 | 22 20 22 5e 20 22 5d 20 |rward " |" "^ "] |
|00002260| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |8))..(de|fun dire|
|00002270| 64 2d 6d 61 70 2d 64 69 | 72 65 64 2d 66 69 6c 65 |d-map-di|red-file|
|00002280| 2d 6c 69 6e 65 73 20 28 | 66 6e 29 20 22 5c 0a 70 |-lines (|fn) "\.p|
|00002290| 65 72 66 6f 72 6d 20 66 | 6e 20 77 69 74 68 20 70 |erform f|n with p|
|000022a0| 6f 69 6e 74 20 61 74 20 | 74 68 65 20 65 6e 64 20 |oint at |the end |
|000022b0| 6f 66 20 65 61 63 68 20 | 6e 6f 6e 2d 64 69 72 65 |of each |non-dire|
|000022c0| 63 74 6f 72 79 20 6c 69 | 6e 65 3a 0a 61 72 67 75 |ctory li|ne:.argu|
|000022d0| 6d 65 6e 74 73 20 61 72 | 65 20 74 68 65 20 73 68 |ments ar|e the sh|
|000022e0| 6f 72 74 20 61 6e 64 20 | 6c 6f 6e 67 20 66 69 6c |ort and |long fil|
|000022f0| 65 6e 61 6d 65 22 20 28 | 62 79 74 65 2d 63 6f 64 |ename" (|byte-cod|
|00002300| 65 20 22 8a c3 c3 c3 1a | 19 18 65 62 88 6d 3f 85 |e ".....|..eb.m?.|
|00002310| 3b 00 8a c6 c7 21 3f 85 | 32 00 6c 3f 85 32 00 c8 |;....!?.|2.l?.2..|
|00002320| c4 c4 5c 22 10 c8 c3 c4 | 5c 22 89 11 85 32 00 c9 |..\"....|\"...2..|
|00002330| 20 88 ca 0d 08 09 23 29 | 88 cb cc 21 88 82 0a 00 | .....#)|...!....|
|00002340| 2b 29 87 22 20 5b 66 69 | 6c 65 6e 61 6d 65 20 6c |+)." [fi|lename l|
|00002350| 6f 6e 67 66 69 6c 65 6e | 61 6d 65 20 62 75 66 66 |ongfilen|ame buff|
|00002360| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 69 6c |er-read-|only nil|
|00002370| 20 74 20 66 6e 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 | t fn lo|oking-at|
|00002380| 20 22 20 20 64 22 20 64 | 69 72 65 64 2d 67 65 74 | "  d" d|ired-get|
|00002390| 2d 66 69 6c 65 6e 61 6d | 65 20 65 6e 64 2d 6f 66 |-filenam|e end-of|
|000023a0| 2d 6c 69 6e 65 20 66 75 | 6e 63 61 6c 6c 20 66 6f |-line fu|ncall fo|
|000023b0| 72 77 61 72 64 2d 6c 69 | 6e 65 20 31 5d 20 39 29 |rward-li|ne 1] 9)|
|000023c0| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|000023d0| 66 6c 61 67 2d 61 75 74 | 6f 2d 73 61 76 65 2d 66 |flag-aut|o-save-f|
|000023e0| 69 6c 65 73 20 6e 69 6c | 20 22 5c 0a 46 6c 61 67 |iles nil| "\.Flag|
|000023f0| 20 66 6f 72 20 64 65 6c | 65 74 69 6f 6e 20 66 69 | for del|etion fi|
|00002400| 6c 65 73 20 77 68 6f 73 | 65 20 6e 61 6d 65 73 20 |les whos|e names |
|00002410| 73 75 67 67 65 73 74 20 | 74 68 65 79 20 61 72 65 |suggest |they are|
|00002420| 20 61 75 74 6f 20 73 61 | 76 65 20 66 69 6c 65 73 | auto sa|ve files|
|00002430| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |." (inte|ractive)|
|00002440| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 88 8a | (byte-c|ode "...|
|00002450| c1 18 65 62 88 6d 3f 85 | 4b 00 c4 c5 21 3f 85 43 |..eb.m?.|K...!?.C|
|00002460| 00 6c 3f 85 43 00 c6 c7 | 21 83 2f 00 c8 c3 c3 5c |.l?.C...|!./....\|
|00002470| 22 1a 0a 85 2b 00 c7 0a | 21 29 82 37 00 c9 20 85 |"...+...|!).7.. .|
|00002480| 37 00 c4 ca 21 85 43 00 | cb 20 88 cc cd 21 88 ce |7...!.C.|. ...!..|
|00002490| 63 88 cf cd 21 88 82 08 | 00 29 29 87 22 20 5b 62 |c...!...|.))." [b|
|000024a0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000024b0| 6e 69 6c 20 66 6e 20 74 | 20 6c 6f 6f 6b 69 6e 67 |nil fn t| looking|
|000024c0| 2d 61 74 20 22 20 20 64 | 22 20 66 62 6f 75 6e 64 |-at "  d|" fbound|
|000024d0| 70 20 61 75 74 6f 2d 73 | 61 76 65 2d 66 69 6c 65 |p auto-s|ave-file|
|000024e0| 2d 6e 61 6d 65 2d 70 20 | 64 69 72 65 64 2d 67 65 |-name-p |dired-ge|
|000024f0| 74 2d 66 69 6c 65 6e 61 | 6d 65 20 64 69 72 65 64 |t-filena|me dired|
|00002500| 2d 6d 6f 76 65 2d 74 6f | 2d 66 69 6c 65 6e 61 6d |-move-to|-filenam|
|00002510| 65 20 22 23 22 20 62 65 | 67 69 6e 6e 69 6e 67 2d |e "#" be|ginning-|
|00002520| 6f 66 2d 6c 69 6e 65 20 | 64 65 6c 65 74 65 2d 63 |of-line |delete-c|
|00002530| 68 61 72 20 31 20 22 44 | 22 20 66 6f 72 77 61 72 |har 1 "D|" forwar|
|00002540| 64 2d 6c 69 6e 65 5d 20 | 31 31 29 29 0a 0a 28 64 |d-line] |11))..(d|
|00002550| 65 66 75 6e 20 64 69 72 | 65 64 2d 63 6c 65 61 6e |efun dir|ed-clean|
|00002560| 2d 64 69 72 65 63 74 6f | 72 79 20 28 6b 65 65 70 |-directo|ry (keep|
|00002570| 29 20 22 5c 0a 46 6c 61 | 67 20 6e 75 6d 65 72 69 |) "\.Fla|g numeri|
|00002580| 63 61 6c 20 62 61 63 6b | 75 70 73 20 66 6f 72 20 |cal back|ups for |
|00002590| 44 65 6c 65 74 69 6f 6e | 2e 0a 53 70 61 72 65 73 |Deletion|..Spares|
|000025a0| 20 64 69 72 65 64 2d 6b | 65 70 74 2d 76 65 72 73 | dired-k|ept-vers|
|000025b0| 69 6f 6e 73 20 6c 61 74 | 65 73 74 20 76 65 72 73 |ions lat|est vers|
|000025c0| 69 6f 6e 73 2c 20 61 6e | 64 20 6b 65 70 74 2d 6f |ions, an|d kept-o|
|000025d0| 6c 64 2d 76 65 72 73 69 | 6f 6e 73 20 6f 6c 64 65 |ld-versi|ons olde|
|000025e0| 73 74 2e 0a 50 6f 73 69 | 74 69 76 65 20 6e 75 6d |st..Posi|tive num|
|000025f0| 65 72 69 63 20 61 72 67 | 20 6f 76 65 72 72 69 64 |eric arg| overrid|
|00002600| 65 73 20 64 69 72 65 64 | 2d 6b 65 70 74 2d 76 65 |es dired|-kept-ve|
|00002610| 72 73 69 6f 6e 73 3b 0a | 6e 65 67 61 74 69 76 65 |rsions;.|negative|
|00002620| 20 6e 75 6d 65 72 69 63 | 20 61 72 67 20 6f 76 65 | numeric| arg ove|
|00002630| 72 72 69 64 65 73 20 6b | 65 70 74 2d 6f 6c 64 2d |rrides k|ept-old-|
|00002640| 76 65 72 73 69 6f 6e 73 | 20 77 69 74 68 20 6d 69 |versions| with mi|
|00002650| 6e 75 73 20 74 68 65 20 | 61 72 67 2e 22 20 28 69 |nus the |arg." (i|
|00002660| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00002670| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c6 88 08 83 |(byte-co|de "....|
|00002680| 0c 00 ca 08 21 82 0d 00 | 09 89 10 88 08 cb 57 83 |....!...|......W.|
|00002690| 1b 00 08 5b 82 1c 00 0b | 08 cb 58 83 26 00 09 82 |...[....|..X.&...|
|000026a0| 27 00 08 c6 1d 1c 1a cc | cd 21 88 0d 1e 07 0e 07 |'.......|.!......|
|000026b0| 85 74 00 ce cf 0e 07 40 | 41 d0 5c 22 42 1e 08 0e |.t.....@|A.\"B...|
|000026c0| 08 47 1e 09 0e 09 0a 0c | 5c 5c 56 85 5f 00 d1 d2 |.G......|\\V._...|
|000026d0| 0a 0e 08 5c 22 d2 0e 09 | 0c 5a 0e 08 5c 22 5c 22 |...\"...|.Z..\"\"|
|000026e0| 88 d1 0e 07 40 0e 08 41 | 5c 22 2a 88 0e 07 41 89 |....@..A|\"*...A.|
|000026f0| 16 07 88 82 32 00 29 88 | cc d3 21 2b 87 22 20 5b |....2.).|..!+." [|
|00002700| 6b 65 65 70 20 64 69 72 | 65 64 2d 6b 65 70 74 2d |keep dir|ed-kept-|
|00002710| 76 65 72 73 69 6f 6e 73 | 20 65 61 72 6c 79 2d 72 |versions| early-r|
|00002720| 65 74 65 6e 74 69 6f 6e | 20 6b 65 70 74 2d 6f 6c |etention| kept-ol|
|00002730| 64 2d 76 65 72 73 69 6f | 6e 73 20 6c 61 74 65 2d |d-versio|ns late-|
|00002740| 72 65 74 65 6e 74 69 6f | 6e 20 66 69 6c 65 2d 76 |retentio|n file-v|
|00002750| 65 72 73 69 6f 6e 2d 61 | 73 73 6f 63 2d 6c 69 73 |ersion-a|ssoc-lis|
|00002760| 74 20 6e 69 6c 20 66 76 | 61 6c 20 73 6f 72 74 65 |t nil fv|al sorte|
|00002770| 64 2d 76 2d 6c 69 73 74 | 20 76 2d 63 6f 75 6e 74 |d-v-list| v-count|
|00002780| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00002790| 76 61 6c 75 65 20 30 20 | 64 69 72 65 64 2d 6d 61 |value 0 |dired-ma|
|000027a0| 70 2d 64 69 72 65 64 2d | 66 69 6c 65 2d 6c 69 6e |p-dired-|file-lin|
|000027b0| 65 73 20 64 69 72 65 64 | 2d 63 6f 6c 6c 65 63 74 |es dired|-collect|
|000027c0| 2d 66 69 6c 65 2d 76 65 | 72 73 69 6f 6e 73 20 71 |-file-ve|rsions q|
|000027d0| 20 73 6f 72 74 20 3c 20 | 72 70 6c 61 63 64 20 6e | sort < |rplacd n|
|000027e0| 74 68 63 64 72 20 64 69 | 72 65 64 2d 74 72 61 6d |thcdr di|red-tram|
|000027f0| 70 6c 65 2d 66 69 6c 65 | 2d 76 65 72 73 69 6f 6e |ple-file|-version|
|00002800| 73 5d 20 31 30 29 29 0a | 0a 28 64 65 66 75 6e 20 |s] 10)).|.(defun |
|00002810| 64 69 72 65 64 2d 63 6f | 6c 6c 65 63 74 2d 66 69 |dired-co|llect-fi|
|00002820| 6c 65 2d 76 65 72 73 69 | 6f 6e 73 20 28 69 67 6e |le-versi|ons (ign|
|00002830| 6f 72 65 20 66 6e 29 20 | 22 5c 0a 49 66 20 69 74 |ore fn) |"\.If it|
|00002840| 20 6c 6f 6f 6b 73 20 6c | 69 6b 65 20 66 6e 20 68 | looks l|ike fn h|
|00002850| 61 73 20 76 65 72 73 69 | 6f 6e 73 2c 20 77 65 20 |as versi|ons, we |
|00002860| 6d 61 6b 65 20 61 20 6c | 69 73 74 20 6f 66 20 74 |make a l|ist of t|
|00002870| 68 65 20 76 65 72 73 69 | 6f 6e 73 2e 0a 57 65 20 |he versi|ons..We |
|00002880| 6d 61 79 20 77 61 6e 74 | 20 74 6f 20 66 6c 61 67 |may want| to flag|
|00002890| 20 73 6f 6d 65 20 66 6f | 72 20 64 65 6c 65 74 69 | some fo|r deleti|
|000028a0| 6f 6e 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |on." (by|te-code |
|000028b0| 22 c6 09 21 c7 50 18 08 | 47 1a c8 08 c9 09 21 5c |"..!.P..|G.....!\|
|000028c0| 22 1b ca cb 0b 5c 22 1c | 0c 85 20 00 09 0c 42 0d |"....\".|.. ...B.|
|000028d0| 42 89 15 2c 87 22 20 5b | 62 61 73 65 2d 76 65 72 |B..,." [|base-ver|
|000028e0| 73 69 6f 6e 73 20 66 6e | 20 62 76 2d 6c 65 6e 67 |sions fn| bv-leng|
|000028f0| 74 68 20 70 6f 73 73 69 | 62 69 6c 69 74 69 65 73 |th possi|bilities|
|00002900| 20 76 65 72 73 69 6f 6e | 73 20 66 69 6c 65 2d 76 | version|s file-v|
|00002910| 65 72 73 69 6f 6e 2d 61 | 73 73 6f 63 2d 6c 69 73 |ersion-a|ssoc-lis|
|00002920| 74 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |t file-n|ame-nond|
|00002930| 69 72 65 63 74 6f 72 79 | 20 22 2e 7e 22 20 66 69 |irectory| ".~" fi|
|00002940| 6c 65 2d 6e 61 6d 65 2d | 61 6c 6c 2d 63 6f 6d 70 |le-name-|all-comp|
|00002950| 6c 65 74 69 6f 6e 73 20 | 66 69 6c 65 2d 6e 61 6d |letions |file-nam|
|00002960| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 6d 61 70 63 |e-direct|ory mapc|
|00002970| 61 72 20 62 61 63 6b 75 | 70 2d 65 78 74 72 61 63 |ar backu|p-extrac|
|00002980| 74 2d 76 65 72 73 69 6f | 6e 5d 20 36 29 29 0a 0a |t-versio|n] 6))..|
|00002990| 28 64 65 66 75 6e 20 64 | 69 72 65 64 2d 74 72 61 |(defun d|ired-tra|
|000029a0| 6d 70 6c 65 2d 66 69 6c | 65 2d 76 65 72 73 69 6f |mple-fil|e-versio|
|000029b0| 6e 73 20 28 69 67 6e 6f | 72 65 20 66 6e 29 20 28 |ns (igno|re fn) (|
|000029c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 c5 09 5c 22 |byte-cod|e "...\"|
|000029d0| 18 c6 1a 08 85 27 00 c7 | 09 c8 08 4f 0b 5c 22 89 |.....'..|...O.\".|
|000029e0| 12 85 27 00 c9 09 ca 08 | 5c 5c c6 4f 21 0a 3e 3f |..'.....|\\.O!.>?|
|000029f0| 85 27 00 cb 20 2a 87 22 | 20 5b 73 74 61 72 74 2d |.'.. *."| [start-|
|00002a00| 76 6e 20 66 6e 20 62 61 | 73 65 2d 76 65 72 73 69 |vn fn ba|se-versi|
|00002a10| 6f 6e 2d 6c 69 73 74 20 | 66 69 6c 65 2d 76 65 72 |on-list |file-ver|
|00002a20| 73 69 6f 6e 2d 61 73 73 | 6f 63 2d 6c 69 73 74 20 |sion-ass|oc-list |
|00002a30| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00002a40| 2e 7e 5b 30 2d 39 5d 2b | 7e 24 22 20 6e 69 6c 20 |.~[0-9]+|~$" nil |
|00002a50| 61 73 73 6f 63 20 30 20 | 73 74 72 69 6e 67 2d 74 |assoc 0 |string-t|
|00002a60| 6f 2d 69 6e 74 20 32 20 | 64 69 72 65 64 2d 66 6c |o-int 2 |dired-fl|
|00002a70| 61 67 2d 74 68 69 73 2d | 6c 69 6e 65 2d 66 6f 72 |ag-this-|line-for|
|00002a80| 2d 44 45 41 54 48 5d 20 | 36 29 29 0a 0a 28 64 65 |-DEATH] |6))..(de|
|00002a90| 66 75 6e 20 64 69 72 65 | 64 2d 66 6c 61 67 2d 74 |fun dire|d-flag-t|
|00002aa0| 68 69 73 2d 6c 69 6e 65 | 2d 66 6f 72 2d 44 45 41 |his-line|-for-DEA|
|00002ab0| 54 48 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |TH nil (|byte-cod|
|00002ac0| 65 20 22 c0 20 88 c1 c2 | 21 88 c3 63 87 22 20 5b |e ". ...|!..c." [|
|00002ad0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|00002ae0| 65 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 31 20 |e delete|-char 1 |
|00002af0| 22 44 22 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |"D"] 3))|..(defun|
|00002b00| 20 64 69 72 65 64 2d 66 | 6c 61 67 2d 62 61 63 6b | dired-f|lag-back|
|00002b10| 75 70 2d 66 69 6c 65 73 | 20 6e 69 6c 20 22 5c 0a |up-files| nil "\.|
|00002b20| 46 6c 61 67 20 61 6c 6c | 20 62 61 63 6b 75 70 20 |Flag all| backup |
|00002b30| 66 69 6c 65 73 20 28 6e | 61 6d 65 73 20 65 6e 64 |files (n|ames end|
|00002b40| 69 6e 67 20 77 69 74 68 | 20 7e 29 20 66 6f 72 20 |ing with| ~) for |
|00002b50| 64 65 6c 65 74 69 6f 6e | 2e 22 20 28 69 6e 74 65 |deletion|." (inte|
|00002b60| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00002b70| 6f 64 65 20 22 c1 88 8a | c1 18 65 62 88 6d 3f 85 |ode "...|..eb.m?.|
|00002b80| 4d 00 c4 c5 21 3f 85 45 | 00 6c 3f 85 45 00 c6 c7 |M...!?.E|.l?.E...|
|00002b90| 21 83 2f 00 c8 c3 c3 5c | 22 1a 0a 85 2b 00 c7 0a |!./....\|"...+...|
|00002ba0| 21 29 82 39 00 c9 20 88 | ca cb 21 88 c4 cc 21 85 |!).9.. .|..!...!.|
|00002bb0| 45 00 cd 20 88 ce cf 21 | 88 d0 63 88 d1 cf 21 88 |E.. ...!|..c...!.|
|00002bc0| 82 08 00 29 29 87 22 20 | 5b 62 75 66 66 65 72 2d |...))." |[buffer-|
|00002bd0| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 66 6e |read-onl|y nil fn|
|00002be0| 20 74 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 20 | t looki|ng-at " |
|00002bf0| 20 64 22 20 66 62 6f 75 | 6e 64 70 20 62 61 63 6b | d" fbou|ndp back|
|00002c00| 75 70 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 70 20 64 |up-file-|name-p d|
|00002c10| 69 72 65 64 2d 67 65 74 | 2d 66 69 6c 65 6e 61 6d |ired-get|-filenam|
|00002c20| 65 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 20 66 6f |e end-of|-line fo|
|00002c30| 72 77 61 72 64 2d 63 68 | 61 72 20 2d 31 20 22 7e |rward-ch|ar -1 "~|
|00002c40| 22 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 6c |" beginn|ing-of-l|
|00002c50| 69 6e 65 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |ine dele|te-char |
|00002c60| 31 20 22 44 22 20 66 6f | 72 77 61 72 64 2d 6c 69 |1 "D" fo|rward-li|
|00002c70| 6e 65 5d 20 31 32 29 29 | 0a 0a 28 64 65 66 75 6e |ne] 12))|..(defun|
|00002c80| 20 64 69 72 65 64 2d 66 | 6c 61 67 2d 62 61 63 6b | dired-f|lag-back|
|00002c90| 75 70 2d 61 6e 64 2d 61 | 75 74 6f 2d 73 61 76 65 |up-and-a|uto-save|
|00002ca0| 2d 66 69 6c 65 73 20 6e | 69 6c 20 22 5c 0a 46 6c |-files n|il "\.Fl|
|00002cb0| 61 67 20 61 6c 6c 20 62 | 61 63 6b 75 70 20 61 6e |ag all b|ackup an|
|00002cc0| 64 20 74 65 6d 70 6f 72 | 61 72 79 20 66 69 6c 65 |d tempor|ary file|
|00002cd0| 73 20 66 6f 72 20 64 65 | 6c 65 74 69 6f 6e 2e 0a |s for de|letion..|
|00002ce0| 42 61 63 6b 75 70 20 66 | 69 6c 65 73 20 68 61 76 |Backup f|iles hav|
|00002cf0| 65 20 6e 61 6d 65 73 20 | 65 6e 64 69 6e 67 20 69 |e names |ending i|
|00002d00| 6e 20 7e 2e 20 20 41 75 | 74 6f 20 73 61 76 65 20 |n ~.  Au|to save |
|00002d10| 66 69 6c 65 20 6e 61 6d | 65 73 20 75 73 75 61 6c |file nam|es usual|
|00002d20| 6c 79 0a 73 74 61 72 74 | 20 77 69 74 68 20 23 2e |ly.start| with #.|
|00002d30| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |" (inter|active) |
|00002d40| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 20 |(byte-co|de "... |
|00002d50| 88 c2 20 87 22 20 5b 6e | 69 6c 20 64 69 72 65 64 |.. ." [n|il dired|
|00002d60| 2d 66 6c 61 67 2d 62 61 | 63 6b 75 70 2d 66 69 6c |-flag-ba|ckup-fil|
|00002d70| 65 73 20 64 69 72 65 64 | 2d 66 6c 61 67 2d 61 75 |es dired|-flag-au|
|00002d80| 74 6f 2d 73 61 76 65 2d | 66 69 6c 65 73 5d 20 33 |to-save-|files] 3|
|00002d90| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 72 65 64 |))..(def|un dired|
|00002da0| 2d 72 65 6e 61 6d 65 2d | 66 69 6c 65 20 28 74 6f |-rename-|file (to|
|00002db0| 2d 66 69 6c 65 29 20 22 | 5c 0a 52 65 6e 61 6d 65 |-file) "|\.Rename|
|00002dc0| 20 74 68 69 73 20 66 69 | 6c 65 20 74 6f 20 54 4f | this fi|le to TO|
|00002dd0| 2d 46 49 4c 45 2e 22 20 | 28 69 6e 74 65 72 61 63 |-FILE." |(interac|
|00002de0| 74 69 76 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |tive (by|te-code |
|00002df0| 22 c1 c2 c3 c4 c5 20 21 | 5c 22 c0 c5 20 23 43 87 |"..... !|\".. #C.|
|00002e00| 22 20 5b 6e 69 6c 20 72 | 65 61 64 2d 66 69 6c 65 |" [nil r|ead-file|
|00002e10| 2d 6e 61 6d 65 20 66 6f | 72 6d 61 74 20 22 52 65 |-name fo|rmat "Re|
|00002e20| 6e 61 6d 65 20 25 73 20 | 74 6f 3a 20 22 20 66 69 |name %s |to: " fi|
|00002e30| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00002e40| 74 6f 72 79 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |tory dir|ed-get-f|
|00002e50| 69 6c 65 6e 61 6d 65 5d | 20 38 29 29 20 28 62 79 |ilename]| 8)) (by|
|00002e60| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c3 09 21 89 11 |te-code |"....!..|
|00002e70| 88 c4 c5 20 09 5c 22 88 | c0 1a c6 20 88 c7 60 c8 |... .\".|... ..`.|
|00002e80| c9 21 88 60 5c 22 88 c3 | 09 21 89 11 88 ca cb 09 |.!.`\"..|.!......|
|00002e90| 21 cc 09 21 5c 22 29 87 | 22 20 5b 6e 69 6c 20 74 |!..!\").|" [nil t|
|00002ea0| 6f 2d 66 69 6c 65 20 62 | 75 66 66 65 72 2d 72 65 |o-file b|uffer-re|
|00002eb0| 61 64 2d 6f 6e 6c 79 20 | 65 78 70 61 6e 64 2d 66 |ad-only |expand-f|
|00002ec0| 69 6c 65 2d 6e 61 6d 65 | 20 72 65 6e 61 6d 65 2d |ile-name| rename-|
|00002ed0| 66 69 6c 65 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |file dir|ed-get-f|
|00002ee0| 69 6c 65 6e 61 6d 65 20 | 62 65 67 69 6e 6e 69 6e |ilename |beginnin|
|00002ef0| 67 2d 6f 66 2d 6c 69 6e | 65 20 64 65 6c 65 74 65 |g-of-lin|e delete|
|00002f00| 2d 72 65 67 69 6f 6e 20 | 66 6f 72 77 61 72 64 2d |-region |forward-|
|00002f10| 6c 69 6e 65 20 31 20 64 | 69 72 65 64 2d 61 64 64 |line 1 d|ired-add|
|00002f20| 2d 65 6e 74 72 79 20 66 | 69 6c 65 2d 6e 61 6d 65 |-entry f|ile-name|
|00002f30| 2d 64 69 72 65 63 74 6f | 72 79 20 66 69 6c 65 2d |-directo|ry file-|
|00002f40| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00002f50| 79 5d 20 31 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |y] 12)).|.(defun |
|00002f60| 64 69 72 65 64 2d 63 6f | 70 79 2d 66 69 6c 65 20 |dired-co|py-file |
|00002f70| 28 74 6f 2d 66 69 6c 65 | 29 20 22 5c 0a 43 6f 70 |(to-file|) "\.Cop|
|00002f80| 79 20 74 68 69 73 20 66 | 69 6c 65 20 74 6f 20 54 |y this f|ile to T|
|00002f90| 4f 2d 46 49 4c 45 2e 22 | 20 28 69 6e 74 65 72 61 |O-FILE."| (intera|
|00002fa0| 63 74 69 76 65 20 22 46 | 43 6f 70 79 20 74 6f 3a |ctive "F|Copy to:|
|00002fb0| 20 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | ") (byt|e-code "|
|00002fc0| c1 88 c2 c3 20 08 5c 22 | 88 c4 08 21 89 10 88 c5 |.... .\"|...!....|
|00002fd0| c6 08 21 c7 08 21 5c 22 | 87 22 20 5b 74 6f 2d 66 |..!..!\"|." [to-f|
|00002fe0| 69 6c 65 20 6e 69 6c 20 | 63 6f 70 79 2d 66 69 6c |ile nil |copy-fil|
|00002ff0| 65 20 64 69 72 65 64 2d | 67 65 74 2d 66 69 6c 65 |e dired-|get-file|
|00003000| 6e 61 6d 65 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |name exp|and-file|
|00003010| 2d 6e 61 6d 65 20 64 69 | 72 65 64 2d 61 64 64 2d |-name di|red-add-|
|00003020| 65 6e 74 72 79 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |entry fi|le-name-|
|00003030| 64 69 72 65 63 74 6f 72 | 79 20 66 69 6c 65 2d 6e |director|y file-n|
|00003040| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00003050| 5d 20 38 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 69 |] 8))..(|defun di|
|00003060| 72 65 64 2d 61 64 64 2d | 65 6e 74 72 79 20 28 64 |red-add-|entry (d|
|00003070| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 6e 61 6d |irectory| filenam|
|00003080| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c9 |e) (byte|-code ".|
|00003090| 08 09 5c 22 85 48 00 c3 | 1a ca 20 88 cb cc c3 c4 |..\".H..|.. .....|
|000030a0| c3 cd 0d 08 0e 06 50 26 | 07 88 ce cf 21 88 d0 63 |......P&|....!..c|
|000030b0| 88 d1 20 88 60 1e 07 d2 | 20 88 60 1e 08 d3 0e 07 |.. .`...| .`.....|
|000030c0| 0e 08 5c 22 89 16 06 88 | d4 0e 07 0e 08 5c 22 88 |..\"....|.....\".|
|000030d0| d5 0e 06 21 63 2a 88 ca | 20 29 87 22 20 5b 64 69 |...!c*..| )." [di|
|000030e0| 72 65 63 74 6f 72 79 20 | 64 65 66 61 75 6c 74 2d |rectory |default-|
|000030f0| 64 69 72 65 63 74 6f 72 | 79 20 62 75 66 66 65 72 |director|y buffer|
|00003100| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 6e 69 6c 20 74 |-read-on|ly nil t|
|00003110| 20 64 69 72 65 64 2d 6c | 69 73 74 69 6e 67 2d 73 | dired-l|isting-s|
|00003120| 77 69 74 63 68 65 73 20 | 66 69 6c 65 6e 61 6d 65 |witches |filename|
|00003130| 20 62 65 67 20 65 6e 64 | 20 73 74 72 69 6e 67 2d | beg end| string-|
|00003140| 65 71 75 61 6c 20 62 65 | 67 69 6e 6e 69 6e 67 2d |equal be|ginning-|
|00003150| 6f 66 2d 6c 69 6e 65 20 | 63 61 6c 6c 2d 70 72 6f |of-line |call-pro|
|00003160| 63 65 73 73 20 22 6c 73 | 22 20 22 2d 64 22 20 66 |cess "ls|" "-d" f|
|00003170| 6f 72 77 61 72 64 2d 6c | 69 6e 65 20 2d 31 20 22 |orward-l|ine -1 "|
|00003180| 20 20 22 20 64 69 72 65 | 64 2d 6d 6f 76 65 2d 74 |  " dire|d-move-t|
|00003190| 6f 2d 66 69 6c 65 6e 61 | 6d 65 20 65 6e 64 2d 6f |o-filena|me end-o|
|000031a0| 66 2d 6c 69 6e 65 20 62 | 75 66 66 65 72 2d 73 75 |f-line b|uffer-su|
|000031b0| 62 73 74 72 69 6e 67 20 | 64 65 6c 65 74 65 2d 72 |bstring |delete-r|
|000031c0| 65 67 69 6f 6e 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |egion fi|le-name-|
|000031d0| 6e 6f 6e 64 69 72 65 63 | 74 6f 72 79 5d 20 31 31 |nondirec|tory] 11|
|000031e0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 72 65 64 |))..(def|un dired|
|000031f0| 2d 63 6f 6d 70 72 65 73 | 73 20 6e 69 6c 20 22 5c |-compres|s nil "\|
|00003200| 0a 43 6f 6d 70 72 65 73 | 73 20 74 68 69 73 20 66 |.Compres|s this f|
|00003210| 69 6c 65 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ile." (i|nteracti|
|00003220| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00003230| c1 88 c1 18 c5 c6 21 1a | c7 20 1b 0b c8 50 1c c9 |......!.|. ...P..|
|00003240| ca 0b 5c 22 85 1a 00 cb | cc 0b 5c 22 88 cd ce 0b |..\"....|..\"....|
|00003250| 5c 22 88 cf 8e 8a 0a 71 | 88 d0 20 29 88 d1 d2 c1 |\".....q|.. )....|
|00003260| 0a c1 d3 0b 26 06 88 8a | 0a 71 88 d4 d5 20 55 29 |....&...|.q... U)|
|00003270| 83 4b 00 cd d6 0b 5c 22 | 88 d7 0a 21 82 57 00 d8 |.K....\"|...!.W..|
|00003280| 0a 21 88 c1 89 12 88 cb | d9 0b 5c 22 29 88 da 0c |.!......|..\")...|
|00003290| 21 2c 87 22 20 5b 62 75 | 66 66 65 72 2d 72 65 61 |!,." [bu|ffer-rea|
|000032a0| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 65 72 72 6f 72 |d-only n|il error|
|000032b0| 2d 62 75 66 66 65 72 20 | 66 72 6f 6d 2d 66 69 6c |-buffer |from-fil|
|000032c0| 65 20 74 6f 2d 66 69 6c | 65 20 67 65 74 2d 62 75 |e to-fil|e get-bu|
|000032d0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 20 2a 44 |ffer-cre|ate " *D|
|000032e0| 69 72 65 64 20 63 6f 6d | 70 72 65 73 73 20 6f 75 |ired com|press ou|
|000032f0| 74 70 75 74 2a 22 20 64 | 69 72 65 64 2d 67 65 74 |tput*" d|ired-get|
|00003300| 2d 66 69 6c 65 6e 61 6d | 65 20 22 2e 5a 22 20 73 |-filenam|e ".Z" s|
|00003310| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 2e |tring-ma|tch "\\.|
|00003320| 5a 24 22 20 65 72 72 6f | 72 20 22 25 73 20 69 73 |Z$" erro|r "%s is|
|00003330| 20 61 6c 72 65 61 64 79 | 20 63 6f 6d 70 72 65 73 | already| compres|
|00003340| 73 65 64 21 22 20 6d 65 | 73 73 61 67 65 20 22 43 |sed!" me|ssage "C|
|00003350| 6f 6d 70 72 65 73 73 69 | 6e 67 20 25 73 2e 2e 2e |ompressi|ng %s...|
|00003360| 22 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |" ((byte|-code ".|
|00003370| 85 07 00 c1 08 21 87 22 | 20 5b 65 72 72 6f 72 2d |.....!."| [error-|
|00003380| 62 75 66 66 65 72 20 6b | 69 6c 6c 2d 62 75 66 66 |buffer k|ill-buff|
|00003390| 65 72 5d 20 32 29 29 20 | 65 72 61 73 65 2d 62 75 |er] 2)) |erase-bu|
|000033a0| 66 66 65 72 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 |ffer cal|l-proces|
|000033b0| 73 20 22 63 6f 6d 70 72 | 65 73 73 22 20 22 2d 66 |s "compr|ess" "-f|
|000033c0| 22 20 30 20 62 75 66 66 | 65 72 2d 73 69 7a 65 20 |" 0 buff|er-size |
|000033d0| 22 43 6f 6d 70 72 65 73 | 73 69 6e 67 20 25 73 2e |"Compres|sing %s.|
|000033e0| 2e 2e 20 64 6f 6e 65 22 | 20 6b 69 6c 6c 2d 62 75 |.. done"| kill-bu|
|000033f0| 66 66 65 72 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |ffer dis|play-buf|
|00003400| 66 65 72 20 22 43 6f 6d | 70 72 65 73 73 20 65 72 |fer "Com|press er|
|00003410| 72 6f 72 20 6f 6e 20 25 | 73 2e 22 20 64 69 72 65 |ror on %|s." dire|
|00003420| 64 2d 72 65 64 69 73 70 | 6c 61 79 5d 20 31 34 29 |d-redisp|lay] 14)|
|00003430| 29 0a 0a 28 64 65 66 75 | 6e 20 64 69 72 65 64 2d |)..(defu|n dired-|
|00003440| 75 6e 63 6f 6d 70 72 65 | 73 73 20 6e 69 6c 20 22 |uncompre|ss nil "|
|00003450| 5c 0a 55 6e 63 6f 6d 70 | 72 65 73 73 20 74 68 69 |\.Uncomp|ress thi|
|00003460| 73 20 66 69 6c 65 2e 22 | 20 28 69 6e 74 65 72 61 |s file."| (intera|
|00003470| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00003480| 65 20 22 c1 88 c1 18 c5 | c6 21 1a c7 20 1b 0b c8 |e ".....|.!.. ...|
|00003490| c9 4f 1c ca cb 0b 5c 22 | 83 1b 00 c1 82 1f 00 cc |.O....\"|........|
|000034a0| cd 0b 5c 22 88 ce cf 0b | 5c 22 88 d0 8e 8a 0a 71 |..\"....|\".....q|
|000034b0| 88 d1 20 29 88 d2 d3 c1 | 0a c1 d4 0b 26 06 88 8a |.. )....|....&...|
|000034c0| 0a 71 88 c8 d5 20 55 29 | 83 50 00 ce d6 0b 5c 22 |.q... U)|.P....\"|
|000034d0| 88 d7 0a 21 82 5c 5c 00 | d8 0a 21 88 c1 89 12 88 |...!.\\.|..!.....|
|000034e0| cc d9 0b 5c 22 29 88 da | 0c 21 2c 87 22 20 5b 62 |...\")..|.!,." [b|
|000034f0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00003500| 6e 69 6c 20 65 72 72 6f | 72 2d 62 75 66 66 65 72 |nil erro|r-buffer|
|00003510| 20 66 72 6f 6d 2d 66 69 | 6c 65 20 74 6f 2d 66 69 | from-fi|le to-fi|
|00003520| 6c 65 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |le get-b|uffer-cr|
|00003530| 65 61 74 65 20 22 20 2a | 44 69 72 65 64 20 63 6f |eate " *|Dired co|
|00003540| 6d 70 72 65 73 73 20 6f | 75 74 70 75 74 2a 22 20 |mpress o|utput*" |
|00003550| 64 69 72 65 64 2d 67 65 | 74 2d 66 69 6c 65 6e 61 |dired-ge|t-filena|
|00003560| 6d 65 20 30 20 2d 32 20 | 73 74 72 69 6e 67 2d 6d |me 0 -2 |string-m|
|00003570| 61 74 63 68 20 22 5c 5c | 2e 5a 24 22 20 65 72 72 |atch "\\|.Z$" err|
|00003580| 6f 72 20 22 25 73 20 69 | 73 20 6e 6f 74 20 63 6f |or "%s i|s not co|
|00003590| 6d 70 72 65 73 73 65 64 | 21 22 20 6d 65 73 73 61 |mpressed|!" messa|
|000035a0| 67 65 20 22 55 6e 63 6f | 6d 70 72 65 73 73 69 6e |ge "Unco|mpressin|
|000035b0| 67 20 25 73 2e 2e 2e 22 | 20 28 28 62 79 74 65 2d |g %s..."| ((byte-|
|000035c0| 63 6f 64 65 20 22 08 85 | 07 00 c1 08 21 87 22 20 |code "..|....!." |
|000035d0| 5b 65 72 72 6f 72 2d 62 | 75 66 66 65 72 20 6b 69 |[error-b|uffer ki|
|000035e0| 6c 6c 2d 62 75 66 66 65 | 72 5d 20 32 29 29 20 65 |ll-buffe|r] 2)) e|
|000035f0| 72 61 73 65 2d 62 75 66 | 66 65 72 20 63 61 6c 6c |rase-buf|fer call|
|00003600| 2d 70 72 6f 63 65 73 73 | 20 22 75 6e 63 6f 6d 70 |-process| "uncomp|
|00003610| 72 65 73 73 22 20 22 2d | 66 22 20 62 75 66 66 65 |ress" "-|f" buffe|
|00003620| 72 2d 73 69 7a 65 20 22 | 55 6e 63 6f 6d 70 72 65 |r-size "|Uncompre|
|00003630| 73 73 69 6e 67 20 25 73 | 2e 2e 2e 20 64 6f 6e 65 |ssing %s|... done|
|00003640| 22 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 64 69 |" kill-b|uffer di|
|00003650| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 20 22 55 6e |splay-bu|ffer "Un|
|00003660| 63 6f 6d 70 72 65 73 73 | 20 65 72 72 6f 72 20 6f |compress| error o|
|00003670| 6e 20 25 73 2e 22 20 64 | 69 72 65 64 2d 72 65 64 |n %s." d|ired-red|
|00003680| 69 73 70 6c 61 79 5d 20 | 31 34 29 29 0a 0a 28 64 |isplay] |14))..(d|
|00003690| 65 66 75 6e 20 64 69 72 | 65 64 2d 62 79 74 65 2d |efun dir|ed-byte-|
|000036a0| 72 65 63 6f 6d 70 69 6c | 65 20 6e 69 6c 20 22 5c |recompil|e nil "\|
|000036b0| 0a 42 79 74 65 20 72 65 | 63 6f 6d 70 69 6c 65 20 |.Byte re|compile |
|000036c0| 74 68 69 73 20 66 69 6c | 65 2e 22 20 28 69 6e 74 |this fil|e." (int|
|000036d0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|000036e0| 63 6f 64 65 20 22 c1 88 | c1 18 c4 20 1a 0a c5 c6 |code "..|... ....|
|000036f0| 4f 1b c7 c8 0a 5c 22 83 | 17 00 c1 82 1b 00 c9 ca |O....\".|........|
|00003700| 0a 5c 22 88 cb 0a 21 2b | 87 22 20 5b 62 75 66 66 |.\"...!+|." [buff|
|00003710| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 69 6c |er-read-|only nil|
|00003720| 20 66 72 6f 6d 2d 66 69 | 6c 65 20 74 6f 2d 66 69 | from-fi|le to-fi|
|00003730| 6c 65 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |le dired|-get-fil|
|00003740| 65 6e 61 6d 65 20 30 20 | 2d 33 20 73 74 72 69 6e |ename 0 |-3 strin|
|00003750| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2e 65 6c 24 22 |g-match |"\\.el$"|
|00003760| 20 65 72 72 6f 72 20 22 | 25 73 20 69 73 20 75 6e | error "|%s is un|
|00003770| 63 6f 6d 70 69 6c 61 62 | 6c 65 21 22 20 62 79 74 |compilab|le!" byt|
|00003780| 65 2d 63 6f 6d 70 69 6c | 65 2d 66 69 6c 65 5d 20 |e-compil|e-file] |
|00003790| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |5))..(de|fun dire|
|000037a0| 64 2d 63 68 6d 6f 64 20 | 28 6d 6f 64 65 29 20 22 |d-chmod |(mode) "|
|000037b0| 5c 0a 43 68 61 6e 67 65 | 20 6d 6f 64 65 20 6f 66 |\.Change| mode of|
|000037c0| 20 74 68 69 73 20 66 69 | 6c 65 2e 22 20 28 69 6e | this fi|le." (in|
|000037d0| 74 65 72 61 63 74 69 76 | 65 20 22 73 43 68 61 6e |teractiv|e "sChan|
|000037e0| 67 65 20 74 6f 20 4d 6f | 64 65 3a 20 22 29 20 28 |ge to Mo|de: ") (|
|000037f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c1 c4 20 |byte-cod|e ".... |
|00003800| 1a 18 c5 c6 c1 c1 c1 0b | 0a 26 06 88 c7 0a 21 2a |........|.&....!*|
|00003810| 87 22 20 5b 62 75 66 66 | 65 72 2d 72 65 61 64 2d |." [buff|er-read-|
|00003820| 6f 6e 6c 79 20 6e 69 6c | 20 66 69 6c 65 20 6d 6f |only nil| file mo|
|00003830| 64 65 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |de dired|-get-fil|
|00003840| 65 6e 61 6d 65 20 63 61 | 6c 6c 2d 70 72 6f 63 65 |ename ca|ll-proce|
|00003850| 73 73 20 22 2f 62 69 6e | 2f 63 68 6d 6f 64 22 20 |ss "/bin|/chmod" |
|00003860| 64 69 72 65 64 2d 72 65 | 64 69 73 70 6c 61 79 5d |dired-re|display]|
|00003870| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 69 72 | 8))..(d|efun dir|
|00003880| 65 64 2d 63 68 67 72 70 | 20 28 67 72 6f 75 70 29 |ed-chgrp| (group)|
|00003890| 20 22 5c 0a 43 68 61 6e | 67 65 20 67 72 6f 75 70 | "\.Chan|ge group|
|000038a0| 20 6f 66 20 74 68 69 73 | 20 66 69 6c 65 2e 22 20 | of this| file." |
|000038b0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 73 43 |(interac|tive "sC|
|000038c0| 68 61 6e 67 65 20 74 6f | 20 47 72 6f 75 70 3a 20 |hange to| Group: |
|000038d0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |") (byte|-code ".|
|000038e0| 88 c1 c4 20 1a 18 c5 c6 | c1 c1 c1 0b 0a 26 06 88 |... ....|.....&..|
|000038f0| c7 0a 21 2a 87 22 20 5b | 62 75 66 66 65 72 2d 72 |..!*." [|buffer-r|
|00003900| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 66 69 6c |ead-only| nil fil|
|00003910| 65 20 67 72 6f 75 70 20 | 64 69 72 65 64 2d 67 65 |e group |dired-ge|
|00003920| 74 2d 66 69 6c 65 6e 61 | 6d 65 20 63 61 6c 6c 2d |t-filena|me call-|
|00003930| 70 72 6f 63 65 73 73 20 | 22 2f 62 69 6e 2f 63 68 |process |"/bin/ch|
|00003940| 67 72 70 22 20 64 69 72 | 65 64 2d 72 65 64 69 73 |grp" dir|ed-redis|
|00003950| 70 6c 61 79 5d 20 38 29 | 29 0a 0a 28 64 65 66 75 |play] 8)|)..(defu|
|00003960| 6e 20 64 69 72 65 64 2d | 63 68 6f 77 6e 20 28 6f |n dired-|chown (o|
|00003970| 77 6e 65 72 29 20 22 5c | 0a 43 68 61 6e 67 65 20 |wner) "\|.Change |
|00003980| 4f 77 6e 65 72 20 6f 66 | 20 74 68 69 73 20 66 69 |Owner of| this fi|
|00003990| 6c 65 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |le." (in|teractiv|
|000039a0| 65 20 22 73 43 68 61 6e | 67 65 20 74 6f 20 4f 77 |e "sChan|ge to Ow|
|000039b0| 6e 65 72 3a 20 22 29 20 | 28 62 79 74 65 2d 63 6f |ner: ") |(byte-co|
|000039c0| 64 65 20 22 c1 88 c1 c5 | 20 1a 18 c6 0b c7 3e 83 |de "....| .....>.|
|000039d0| 12 00 c8 82 13 00 c9 c1 | c1 c1 0c 0a 26 06 88 ca |........|....&...|
|000039e0| 0a 21 2a 87 22 20 5b 62 | 75 66 66 65 72 2d 72 65 |.!*." [b|uffer-re|
|000039f0| 61 64 2d 6f 6e 6c 79 20 | 6e 69 6c 20 66 69 6c 65 |ad-only |nil file|
|00003a00| 20 73 79 73 74 65 6d 2d | 74 79 70 65 20 6f 77 6e | system-|type own|
|00003a10| 65 72 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |er dired|-get-fil|
|00003a20| 65 6e 61 6d 65 20 63 61 | 6c 6c 2d 70 72 6f 63 65 |ename ca|ll-proce|
|00003a30| 73 73 20 28 68 70 75 78 | 20 75 73 67 2d 75 6e 69 |ss (hpux| usg-uni|
|00003a40| 78 2d 76 29 20 22 2f 62 | 69 6e 2f 63 68 6f 77 6e |x-v) "/b|in/chown|
|00003a50| 22 20 22 2f 65 74 63 2f | 63 68 6f 77 6e 22 20 64 |" "/etc/|chown" d|
|00003a60| 69 72 65 64 2d 72 65 64 | 69 73 70 6c 61 79 5d 20 |ired-red|isplay] |
|00003a70| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |8))..(de|fun dire|
|00003a80| 64 2d 72 65 64 69 73 70 | 6c 61 79 20 28 66 69 6c |d-redisp|lay (fil|
|00003a90| 65 29 20 22 5c 0a 52 65 | 64 69 73 70 6c 61 79 20 |e) "\.Re|display |
|00003aa0| 74 68 69 73 20 6c 69 6e | 65 2e 22 20 28 62 79 74 |this lin|e." (byt|
|00003ab0| 65 2d 63 6f 64 65 20 22 | c1 20 88 c2 60 c3 c4 21 |e-code "|. ..`..!|
|00003ac0| 88 60 5c 22 88 08 85 18 | 00 c5 c6 08 21 c7 08 21 |.`\"....|....!..!|
|00003ad0| 5c 22 88 c8 20 87 22 20 | 5b 66 69 6c 65 20 62 65 |\".. ." |[file be|
|00003ae0| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00003af0| 64 65 6c 65 74 65 2d 72 | 65 67 69 6f 6e 20 66 6f |delete-r|egion fo|
|00003b00| 72 77 61 72 64 2d 6c 69 | 6e 65 20 31 20 64 69 72 |rward-li|ne 1 dir|
|00003b10| 65 64 2d 61 64 64 2d 65 | 6e 74 72 79 20 66 69 6c |ed-add-e|ntry fil|
|00003b20| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00003b30| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00003b40| 72 65 63 74 6f 72 79 20 | 64 69 72 65 64 2d 6d 6f |rectory |dired-mo|
|00003b50| 76 65 2d 74 6f 2d 66 69 | 6c 65 6e 61 6d 65 5d 20 |ve-to-fi|lename] |
|00003b60| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |8))..(de|fun dire|
|00003b70| 64 2d 64 6f 2d 64 65 6c | 65 74 69 6f 6e 73 20 6e |d-do-del|etions n|
|00003b80| 69 6c 20 22 5c 0a 49 6e | 20 64 69 72 65 64 2c 20 |il "\.In| dired, |
|00003b90| 64 65 6c 65 74 65 20 74 | 68 65 20 66 69 6c 65 73 |delete t|he files|
|00003ba0| 20 66 6c 61 67 67 65 64 | 20 66 6f 72 20 64 65 6c | flagged| for del|
|00003bb0| 65 74 69 6f 6e 2e 22 20 | 28 69 6e 74 65 72 61 63 |etion." |(interac|
|00003bc0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00003bd0| 20 22 c2 88 c2 c2 19 18 | 8a c8 62 88 c9 ca c2 c3 | "......|..b.....|
|00003be0| 23 85 20 00 cb c3 21 60 | 53 42 08 42 89 10 88 82 |#. ...!`|SB.B....|
|00003bf0| 0a 00 29 88 08 3f 83 2d | 00 cc cd 21 82 61 00 ce |..)..?.-|...!.a..|
|00003c00| 8b 88 09 85 61 00 08 c2 | 1e 06 1d 0d 85 53 00 0d |....a...|.....S..|
|00003c10| 40 41 62 88 c2 1e 07 c2 | cf d0 8f 29 88 0d 41 89 |@Ab.....|...)..A.|
|00003c20| 15 88 82 39 00 88 0e 06 | 85 60 00 cc d1 d2 0e 06 |...9....|.`......|
|00003c30| 21 5c 22 2a 2a 87 22 20 | 5b 64 65 6c 65 74 65 2d |!\"**." |[delete-|
|00003c40| 6c 69 73 74 20 61 6e 73 | 77 65 72 20 6e 69 6c 20 |list ans|wer nil |
|00003c50| 74 20 66 69 6c 6c 2d 63 | 6f 6c 75 6d 6e 20 6c 20 |t fill-c|olumn l |
|00003c60| 66 61 69 6c 75 72 65 73 | 20 62 75 66 66 65 72 2d |failures| buffer-|
|00003c70| 72 65 61 64 2d 6f 6e 6c | 79 20 31 20 72 65 2d 73 |read-onl|y 1 re-s|
|00003c80| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|00003c90| 44 22 20 64 69 72 65 64 | 2d 67 65 74 2d 66 69 6c |D" dired|-get-fil|
|00003ca0| 65 6e 61 6d 65 20 6d 65 | 73 73 61 67 65 20 22 28 |ename me|ssage "(|
|00003cb0| 4e 6f 20 64 65 6c 65 74 | 69 6f 6e 73 20 72 65 71 |No delet|ions req|
|00003cc0| 75 65 73 74 65 64 29 22 | 20 28 28 62 79 74 65 2d |uested)"| ((byte-|
|00003cd0| 63 6f 64 65 20 22 c4 c5 | 21 88 c6 20 88 c7 89 10 |code "..|!.. ....|
|00003ce0| 88 c8 0a 21 19 09 85 3c | 00 69 c9 56 83 1e 00 ca |...!...<|.i.V....|
|00003cf0| 63 82 2e 00 6f 86 2e 00 | cb cc cd 69 ce 5c 5c cf |c...o...|...i.\\.|
|00003d00| 5c 22 cf 5c 22 d0 5c 22 | 88 09 40 40 63 88 09 41 |\".\".\"|..@@c..A|
|00003d10| 89 11 88 82 0f 00 29 88 | 65 62 88 d1 d2 21 89 13 |......).|eb...!..|
|00003d20| 87 22 20 5b 66 69 6c 6c | 2d 63 6f 6c 75 6d 6e 20 |." [fill|-column |
|00003d30| 6c 20 64 65 6c 65 74 65 | 2d 6c 69 73 74 20 61 6e |l delete|-list an|
|00003d40| 73 77 65 72 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |swer swi|tch-to-b|
|00003d50| 75 66 66 65 72 20 22 20 | 2a 44 65 6c 65 74 69 6f |uffer " |*Deletio|
|00003d60| 6e 73 2a 22 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ns*" era|se-buffe|
|00003d70| 72 20 37 30 20 72 65 76 | 65 72 73 65 20 35 39 20 |r 70 rev|erse 59 |
|00003d80| 31 30 20 69 6e 64 65 6e | 74 2d 74 6f 20 2a 20 2f |10 inden|t-to * /|
|00003d90| 20 31 39 20 32 30 20 31 | 20 79 65 73 2d 6f 72 2d | 19 20 1| yes-or-|
|00003da0| 6e 6f 2d 70 20 22 44 65 | 6c 65 74 65 20 74 68 65 |no-p "De|lete the|
|00003db0| 73 65 20 66 69 6c 65 73 | 3f 20 22 5d 20 39 29 29 |se files|? "] 9))|
|00003dc0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 09 0a 40 | (byte-c|ode "..@|
|00003dd0| 40 50 18 c4 08 21 83 20 | 00 c5 c6 c3 c3 c3 08 25 |@P...!. |.......%|
|00003de0| 88 c7 08 21 85 1d 00 c8 | 08 21 82 23 00 c8 08 21 |...!....|.!.#...!|
|00003df0| 88 c9 60 ca cb 21 88 60 | 5c 22 29 87 22 20 5b 66 |..`..!.`|\")." [f|
|00003e00| 6e 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |n defaul|t-direct|
|00003e10| 6f 72 79 20 6c 20 6e 69 | 6c 20 66 69 6c 65 2d 64 |ory l ni|l file-d|
|00003e20| 69 72 65 63 74 6f 72 79 | 2d 70 20 63 61 6c 6c 2d |irectory|-p call-|
|00003e30| 70 72 6f 63 65 73 73 20 | 22 72 6d 64 69 72 22 20 |process |"rmdir" |
|00003e40| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 64 65 |file-exi|sts-p de|
|00003e50| 6c 65 74 65 2d 66 69 6c | 65 20 64 65 6c 65 74 65 |lete-fil|e delete|
|00003e60| 2d 72 65 67 69 6f 6e 20 | 66 6f 72 77 61 72 64 2d |-region |forward-|
|00003e70| 6c 69 6e 65 20 31 5d 20 | 39 29 20 28 28 65 72 72 |line 1] |9) ((err|
|00003e80| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |or (byte|-code ".|
|00003e90| c3 21 88 c4 63 88 09 40 | 40 08 42 89 10 87 22 20 |.!..c..@|@.B..." |
|00003ea0| 5b 66 61 69 6c 75 72 65 | 73 20 6c 20 64 65 6c 65 |[failure|s l dele|
|00003eb0| 74 65 2d 63 68 61 72 20 | 31 20 22 20 22 5d 20 33 |te-char |1 " "] 3|
|00003ec0| 29 29 29 20 22 44 65 6c | 65 74 69 6f 6e 73 20 66 |))) "Del|etions f|
|00003ed0| 61 69 6c 65 64 3a 20 25 | 73 22 20 70 72 69 6e 31 |ailed: %|s" prin1|
|00003ee0| 2d 74 6f 2d 73 74 72 69 | 6e 67 5d 20 37 29 29 0a |-to-stri|ng] 7)).|
|00003ef0| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00003f00| 20 64 69 72 65 64 29 29 | 0a                      | dired))|.       |
+--------+-------------------------+-------------------------+--------+--------+