home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 35.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 32 3a 34 37 3a 32 | 37 20 31 39 39 33 0a 3b | 22:47:2|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 64 69 72 | 65 64 2d 61 75 78 2e 65 |lisp/dir|ed-aux.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 31 | 35 2e 31 36 2e 0a 3b 3b |ion 19.1|5.16..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 | (erro|r "This |
|000001a0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001b0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001c0| 29 0a 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |)..(defa|lias 'di|
|000001d0| 72 65 64 2d 64 69 66 66 | 20 23 5b 28 66 69 6c 65 |red-diff| #[(file|
|000001e0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 77 69 74 63 | &option|al switc|
|000001f0| 68 65 73 29 20 22 08 83 | 0c 00 c1 5c 6e c3 c4 21 |hes) "..|...\n..!|
|00000200| 08 23 87 c1 5c 6e c3 c4 | 21 5c 22 87 22 20 5b 73 |.#..\n..|!\"." [s|
|00000210| 77 69 74 63 68 65 73 20 | 64 69 66 66 20 66 69 6c |witches |diff fil|
|00000220| 65 20 64 69 72 65 64 2d | 67 65 74 2d 66 69 6c 65 |e dired-|get-file|
|00000230| 6e 61 6d 65 20 74 5d 20 | 34 20 22 5c 0a 43 6f 6d |name t] |4 "\.Com|
|00000240| 70 61 72 65 20 66 69 6c | 65 20 61 74 20 70 6f 69 |pare fil|e at poi|
|00000250| 6e 74 20 77 69 74 68 20 | 66 69 6c 65 20 46 49 4c |nt with |file FIL|
|00000260| 45 20 75 73 69 6e 67 20 | 60 64 69 66 66 27 2e 0a |E using |`diff'..|
|00000270| 46 49 4c 45 20 64 65 66 | 61 75 6c 74 73 20 74 6f |FILE def|aults to|
|00000280| 20 74 68 65 20 66 69 6c | 65 20 61 74 20 74 68 65 | the fil|e at the|
|00000290| 20 6d 61 72 6b 2e 0a 54 | 68 65 20 70 72 6f 6d 70 | mark..T|he promp|
|000002a0| 74 65 64 2d 66 6f 72 20 | 66 69 6c 65 20 69 73 20 |ted-for |file is |
|000002b0| 74 68 65 20 66 69 72 73 | 74 20 66 69 6c 65 20 67 |the firs|t file g|
|000002c0| 69 76 65 6e 20 74 6f 20 | 60 64 69 66 66 27 2e 22 |iven to |`diff'."|
|000002d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 | (byte-c|ode "..!|
|000002e0| 85 11 00 8a c0 c1 21 62 | 88 c2 c1 89 5c 22 29 1b |......!b|....\").|
|000002f0| c4 c5 c6 c2 c1 21 0b 83 | 23 00 c7 0b c8 51 82 24 |.....!..|#....Q.$|
|00000300| 00 c9 23 ca 20 0b c1 24 | cb cc 21 85 33 00 cc cd |..#. ..$|..!.3...|
|00000310| 21 29 44 87 22 20 5b 6d | 61 72 6b 20 74 20 64 69 |!)D." [m|ark t di|
|00000320| 72 65 64 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |red-get-|filename|
|00000330| 20 64 65 66 61 75 6c 74 | 20 72 65 61 64 2d 66 69 | default| read-fi|
|00000340| 6c 65 2d 6e 61 6d 65 20 | 66 6f 72 6d 61 74 20 22 |le-name |format "|
|00000350| 44 69 66 66 20 25 73 20 | 77 69 74 68 3a 20 25 73 |Diff %s |with: %s|
|00000360| 22 20 22 28 64 65 66 61 | 75 6c 74 20 22 20 22 29 |" "(defa|ult " ")|
|00000370| 20 22 20 22 22 20 64 69 | 72 65 64 2d 63 75 72 72 | " "" di|red-curr|
|00000380| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 20 66 62 |ent-dire|ctory fb|
|00000390| 6f 75 6e 64 70 20 64 69 | 66 66 2d 72 65 61 64 2d |oundp di|ff-read-|
|000003a0| 73 77 69 74 63 68 65 73 | 20 22 4f 70 74 69 6f 6e |switches| "Option|
|000003b0| 73 20 66 6f 72 20 64 69 | 66 66 3a 20 22 5d 20 37 |s for di|ff: "] 7|
|000003c0| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |)]).(def|alias 'd|
|000003d0| 69 72 65 64 2d 62 61 63 | 6b 75 70 2d 64 69 66 66 |ired-bac|kup-diff|
|000003e0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 77 | #[(&opt|ional sw|
|000003f0| 69 74 63 68 65 73 29 20 | 22 08 83 5c 6e 00 c1 c2 |itches) |"..\n...|
|00000400| 20 08 5c 22 87 c1 c2 20 | 21 87 22 20 5b 73 77 69 | .\"... |!." [swi|
|00000410| 74 63 68 65 73 20 64 69 | 66 66 2d 62 61 63 6b 75 |tches di|ff-backu|
|00000420| 70 20 64 69 72 65 64 2d | 67 65 74 2d 66 69 6c 65 |p dired-|get-file|
|00000430| 6e 61 6d 65 5d 20 33 20 | 22 5c 0a 44 69 66 66 20 |name] 3 |"\.Diff |
|00000440| 74 68 69 73 20 66 69 6c | 65 20 77 69 74 68 20 69 |this fil|e with i|
|00000450| 74 73 20 62 61 63 6b 75 | 70 20 66 69 6c 65 20 6f |ts backu|p file o|
|00000460| 72 20 76 69 63 65 20 76 | 65 72 73 61 2e 0a 55 73 |r vice v|ersa..Us|
|00000470| 65 73 20 74 68 65 20 6c | 61 74 65 73 74 20 62 61 |es the l|atest ba|
|00000480| 63 6b 75 70 2c 20 69 66 | 20 74 68 65 72 65 20 61 |ckup, if| there a|
|00000490| 72 65 20 73 65 76 65 72 | 61 6c 20 6e 75 6d 65 72 |re sever|al numer|
|000004a0| 69 63 61 6c 20 62 61 63 | 6b 75 70 73 2e 0a 49 66 |ical bac|kups..If|
|000004b0| 20 74 68 69 73 20 66 69 | 6c 65 20 69 73 20 61 20 | this fi|le is a |
|000004c0| 62 61 63 6b 75 70 2c 20 | 64 69 66 66 20 69 74 20 |backup, |diff it |
|000004d0| 77 69 74 68 20 69 74 73 | 20 6f 72 69 67 69 6e 61 |with its| origina|
|000004e0| 6c 2e 0a 54 68 65 20 62 | 61 63 6b 75 70 20 66 69 |l..The b|ackup fi|
|000004f0| 6c 65 20 69 73 20 74 68 | 65 20 66 69 72 73 74 20 |le is th|e first |
|00000500| 66 69 6c 65 20 67 69 76 | 65 6e 20 74 6f 20 60 64 |file giv|en to `d|
|00000510| 69 66 66 27 2e 22 20 28 | 6c 69 73 74 20 28 69 66 |iff'." (|list (if|
|00000520| 20 28 66 62 6f 75 6e 64 | 70 20 28 71 75 6f 74 65 | (fbound|p (quote|
|00000530| 20 64 69 66 66 2d 72 65 | 61 64 2d 73 77 69 74 63 | diff-re|ad-switc|
|00000540| 68 65 73 29 29 20 28 64 | 69 66 66 2d 72 65 61 64 |hes)) (d|iff-read|
|00000550| 2d 73 77 69 74 63 68 65 | 73 20 22 44 69 66 66 20 |-switche|s "Diff |
|00000560| 77 69 74 68 20 73 77 69 | 74 63 68 65 73 3a 20 22 |with swi|tches: "|
|00000570| 29 29 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |)))]).(d|efalias |
|00000580| 28 71 75 6f 74 65 20 64 | 69 72 65 64 2d 64 6f 2d |(quote d|ired-do-|
|00000590| 63 68 78 78 78 29 20 23 | 5b 28 61 74 74 72 69 62 |chxxx) #|[(attrib|
|000005a0| 75 74 65 2d 6e 61 6d 65 | 20 70 72 6f 67 72 61 6d |ute-name| program|
|000005b0| 20 6f 70 2d 73 79 6d 62 | 6f 6c 20 61 72 67 29 20 | op-symb|ol arg) |
|000005c0| 22 c0 c1 5c 6e 5c 22 1b | c4 c5 0e 06 c7 51 c8 0e |"..\n\".|.....Q..|
|000005d0| 09 5c 6e 0b 25 1e 5c 6e | 0e 0b cc 0e 5c 6e 51 1e |.\n.%.\n|....\nQ.|
|000005e0| 0d c8 1e 0e cf d0 d1 0e | 0d 0e 0b 0e 5c 6e 45 0b |........|....\nE.|
|000005f0| 24 16 0e d2 5c 6e 21 88 | 0e 0e 85 3d 00 d3 d4 d5 |$...\n!.|...=....|
|00000600| 0e 0d 5c 22 c8 5c 22 2c | 87 22 20 5b 64 69 72 65 |..\".\",|." [dire|
|00000610| 64 2d 67 65 74 2d 6d 61 | 72 6b 65 64 2d 66 69 6c |d-get-ma|rked-fil|
|00000620| 65 73 20 74 20 61 72 67 | 20 66 69 6c 65 73 20 64 |es t arg| files d|
|00000630| 69 72 65 64 2d 6d 61 72 | 6b 2d 72 65 61 64 2d 73 |ired-mar|k-read-s|
|00000640| 74 72 69 6e 67 20 22 43 | 68 61 6e 67 65 20 22 20 |tring "C|hange " |
|00000650| 61 74 74 72 69 62 75 74 | 65 2d 6e 61 6d 65 20 22 |attribut|e-name "|
|00000660| 20 6f 66 20 25 73 20 74 | 6f 3a 20 22 20 6e 69 6c | of %s t|o: " nil|
|00000670| 20 6f 70 2d 73 79 6d 62 | 6f 6c 20 6e 65 77 2d 61 | op-symb|ol new-a|
|00000680| 74 74 72 69 62 75 74 65 | 20 70 72 6f 67 72 61 6d |ttribute| program|
|00000690| 20 22 20 22 20 6f 70 65 | 72 61 74 69 6f 6e 20 66 | " " ope|ration f|
|000006a0| 61 69 6c 75 72 65 73 20 | 64 69 72 65 64 2d 62 75 |ailures |dired-bu|
|000006b0| 6e 63 68 2d 66 69 6c 65 | 73 20 31 30 30 30 30 20 |nch-file|s 10000 |
|000006c0| 64 69 72 65 64 2d 63 68 | 65 63 6b 2d 70 72 6f 63 |dired-ch|eck-proc|
|000006d0| 65 73 73 20 64 69 72 65 | 64 2d 64 6f 2d 72 65 64 |ess dire|d-do-red|
|000006e0| 69 73 70 6c 61 79 20 64 | 69 72 65 64 2d 6c 6f 67 |isplay d|ired-log|
|000006f0| 2d 73 75 6d 6d 61 72 79 | 20 66 6f 72 6d 61 74 20 |-summary| format |
|00000700| 22 25 73 3a 20 65 72 72 | 6f 72 22 5d 20 36 5d 29 |"%s: err|or"] 6])|
|00000710| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00000720| 64 2d 64 6f 2d 63 68 6d | 6f 64 20 23 5b 28 26 6f |d-do-chm|od #[(&o|
|00000730| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 c1 |ptional |arg) "..|
|00000740| c2 c3 0c 24 87 22 20 5b | 64 69 72 65 64 2d 64 6f |...$." [|dired-do|
|00000750| 2d 63 68 78 78 78 20 22 | 4d 6f 64 65 22 20 22 63 |-chxxx "|Mode" "c|
|00000760| 68 6d 6f 64 22 20 63 68 | 6d 6f 64 20 61 72 67 5d |hmod" ch|mod arg]|
|00000770| 20 35 20 22 5c 0a 43 68 | 61 6e 67 65 20 74 68 65 | 5 "\.Ch|ange the|
|00000780| 20 6d 6f 64 65 20 6f 66 | 20 74 68 65 20 6d 61 72 | mode of| the mar|
|00000790| 6b 65 64 20 28 6f 72 20 | 6e 65 78 74 20 41 52 47 |ked (or |next ARG|
|000007a0| 29 20 66 69 6c 65 73 2e | 0a 54 68 69 73 20 63 61 |) files.|.This ca|
|000007b0| 6c 6c 73 20 63 68 6d 6f | 64 2c 20 74 68 75 73 20 |lls chmo|d, thus |
|000007c0| 73 79 6d 62 6f 6c 69 63 | 20 6d 6f 64 65 73 20 6c |symbolic| modes l|
|000007d0| 69 6b 65 20 60 67 2b 77 | 27 20 61 72 65 20 61 6c |ike `g+w|' are al|
|000007e0| 6c 6f 77 65 64 2e 22 20 | 22 50 22 5d 29 0a 28 64 |lowed." |"P"]).(d|
|000007f0| 65 66 61 6c 69 61 73 20 | 27 64 69 72 65 64 2d 64 |efalias |'dired-d|
|00000800| 6f 2d 63 68 67 72 70 20 | 23 5b 28 26 6f 70 74 69 |o-chgrp |#[(&opti|
|00000810| 6f 6e 61 6c 20 61 72 67 | 29 20 22 c0 c1 c2 c3 0c |onal arg|) ".....|
|00000820| 24 87 22 20 5b 64 69 72 | 65 64 2d 64 6f 2d 63 68 |$." [dir|ed-do-ch|
|00000830| 78 78 78 20 22 47 72 6f | 75 70 22 20 22 63 68 67 |xxx "Gro|up" "chg|
|00000840| 72 70 22 20 63 68 67 72 | 70 20 61 72 67 5d 20 35 |rp" chgr|p arg] 5|
|00000850| 20 22 5c 0a 43 68 61 6e | 67 65 20 74 68 65 20 67 | "\.Chan|ge the g|
|00000860| 72 6f 75 70 20 6f 66 20 | 74 68 65 20 6d 61 72 6b |roup of |the mark|
|00000870| 65 64 20 28 6f 72 20 6e | 65 78 74 20 41 52 47 29 |ed (or n|ext ARG)|
|00000880| 20 66 69 6c 65 73 2e 22 | 20 22 50 22 5d 29 0a 28 | files."| "P"]).(|
|00000890| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|000008a0| 64 6f 2d 63 68 6f 77 6e | 20 23 5b 28 26 6f 70 74 |do-chown| #[(&opt|
|000008b0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 c1 5c 6e |ional ar|g) "..\n|
|000008c0| c3 0c 24 87 22 20 5b 64 | 69 72 65 64 2d 64 6f 2d |..$." [d|ired-do-|
|000008d0| 63 68 78 78 78 20 22 4f | 77 6e 65 72 22 20 64 69 |chxxx "O|wner" di|
|000008e0| 72 65 64 2d 63 68 6f 77 | 6e 2d 70 72 6f 67 72 61 |red-chow|n-progra|
|000008f0| 6d 20 63 68 6f 77 6e 20 | 61 72 67 5d 20 35 20 22 |m chown |arg] 5 "|
|00000900| 5c 0a 43 68 61 6e 67 65 | 20 74 68 65 20 6f 77 6e |\.Change| the own|
|00000910| 65 72 20 6f 66 20 74 68 | 65 20 6d 61 72 6b 65 64 |er of th|e marked|
|00000920| 20 28 6f 72 20 6e 65 78 | 74 20 41 52 47 29 20 66 | (or nex|t ARG) f|
|00000930| 69 6c 65 73 2e 22 20 22 | 50 22 5d 29 0a 28 64 65 |iles." "|P"]).(de|
|00000940| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 64 69 |falias (|quote di|
|00000950| 72 65 64 2d 62 75 6e 63 | 68 2d 66 69 6c 65 73 29 |red-bunc|h-files)|
|00000960| 20 23 5b 28 6d 61 78 20 | 66 75 6e 63 74 69 6f 6e | #[(max |function|
|00000970| 20 61 72 67 73 20 66 69 | 6c 65 73 29 20 22 c0 c1 | args fi|les) "..|
|00000980| c0 1a 1b 1c 0d 83 48 00 | 0d 40 89 1e 06 47 c7 5c |......H.|.@...G.\|
|00000990| 5c 1e 08 0d 41 1e 09 0c | 83 36 00 0e 08 0b 5c 5c |\...A...|.6....\\|
|000009a0| 0e 5c 6e 56 83 36 00 cb | 0e 0c cd 0e 0e 0c 5c 22 |.\nV.6..|......\"|
|000009b0| 5c 22 5c 6e a4 12 c0 14 | c1 13 0d 0c a1 88 0d 14 |\"\n....|........|
|000009c0| 0e 08 0b 5c 5c 13 0e 09 | 15 2b 82 06 00 cb 0e 0c |...\\...|.+......|
|000009d0| cd 0e 0e 0c 5c 22 5c 22 | 5c 6e a4 2b 87 22 20 5b |....\"\"|\n.+." [|
|000009e0| 6e 69 6c 20 30 20 66 61 | 69 6c 75 72 65 73 20 70 |nil 0 fa|ilures p|
|000009f0| 65 6e 64 69 6e 67 2d 6c | 65 6e 67 74 68 20 70 65 |ending-l|ength pe|
|00000a00| 6e 64 69 6e 67 20 66 69 | 6c 65 73 20 74 68 69 73 |nding fi|les this|
|00000a10| 66 69 6c 65 20 33 20 74 | 68 69 73 6c 65 6e 67 74 |file 3 t|hislengt|
|00000a20| 68 20 72 65 73 74 20 6d | 61 78 20 61 70 70 6c 79 |h rest m|ax apply|
|00000a30| 20 66 75 6e 63 74 69 6f | 6e 20 61 70 70 65 6e 64 | functio|n append|
|00000a40| 20 61 72 67 73 5d 20 36 | 5d 29 0a 28 64 65 66 61 | args] 6|]).(defa|
|00000a50| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 70 |lias 'di|red-do-p|
|00000a60| 72 69 6e 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |rint #[(|&optiona|
|00000a70| 6c 20 61 72 67 29 20 22 | c0 c1 5c 6e 5c 22 1b c4 |l arg) "|..\n\"..|
|00000a80| c5 c6 c7 0e 08 c9 0e 5c | 6e 24 cb 5c 6e 0b 25 1e |.......\|n$.\n.%.|
|00000a90| 0c cd ce 0e 0c 0b cf 23 | 21 2a 87 22 20 5b 64 69 |.......#|!*." [di|
|00000aa0| 72 65 64 2d 67 65 74 2d | 6d 61 72 6b 65 64 2d 66 |red-get-|marked-f|
|00000ab0| 69 6c 65 73 20 74 20 61 | 72 67 20 66 69 6c 65 2d |iles t a|rg file-|
|00000ac0| 6c 69 73 74 20 64 69 72 | 65 64 2d 6d 61 72 6b 2d |list dir|ed-mark-|
|00000ad0| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 50 72 69 |read-str|ing "Pri|
|00000ae0| 6e 74 20 25 73 20 77 69 | 74 68 3a 20 22 20 61 70 |nt %s wi|th: " ap|
|00000af0| 70 6c 79 20 63 6f 6e 63 | 61 74 20 6c 70 72 2d 63 |ply conc|at lpr-c|
|00000b00| 6f 6d 6d 61 6e 64 20 22 | 20 22 20 6c 70 72 2d 73 |ommand "| " lpr-s|
|00000b10| 77 69 74 63 68 65 73 20 | 70 72 69 6e 74 20 63 6f |witches |print co|
|00000b20| 6d 6d 61 6e 64 20 64 69 | 72 65 64 2d 72 75 6e 2d |mmand di|red-run-|
|00000b30| 73 68 65 6c 6c 2d 63 6f | 6d 6d 61 6e 64 20 64 69 |shell-co|mmand di|
|00000b40| 72 65 64 2d 73 68 65 6c | 6c 2d 73 74 75 66 66 2d |red-shel|l-stuff-|
|00000b50| 69 74 20 6e 69 6c 5d 20 | 37 20 22 5c 0a 50 72 69 |it nil] |7 "\.Pri|
|00000b60| 6e 74 20 74 68 65 20 6d | 61 72 6b 65 64 20 28 6f |nt the m|arked (o|
|00000b70| 72 20 6e 65 78 74 20 41 | 52 47 29 20 66 69 6c 65 |r next A|RG) file|
|00000b80| 73 2e 0a 55 73 65 73 20 | 74 68 65 20 73 68 65 6c |s..Uses |the shel|
|00000b90| 6c 20 63 6f 6d 6d 61 6e | 64 20 63 6f 6d 69 6e 67 |l comman|d coming|
|00000ba0| 20 66 72 6f 6d 20 76 61 | 72 69 61 62 6c 65 73 20 | from va|riables |
|00000bb0| 60 6c 70 72 2d 63 6f 6d | 6d 61 6e 64 27 20 61 6e |`lpr-com|mand' an|
|00000bc0| 64 0a 60 6c 70 72 2d 73 | 77 69 74 63 68 65 73 27 |d.`lpr-s|witches'|
|00000bd0| 20 61 73 20 64 65 66 61 | 75 6c 74 2e 22 20 22 50 | as defa|ult." "P|
|00000be0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 28 71 |"]).(def|alias (q|
|00000bf0| 75 6f 74 65 20 64 69 72 | 65 64 2d 6d 61 72 6b 2d |uote dir|ed-mark-|
|00000c00| 72 65 61 64 2d 73 74 72 | 69 6e 67 29 20 23 5b 28 |read-str|ing) #[(|
|00000c10| 70 72 6f 6d 70 74 20 69 | 6e 69 74 69 61 6c 20 6f |prompt i|nitial o|
|00000c20| 70 2d 73 79 6d 62 6f 6c | 20 61 72 67 20 66 69 6c |p-symbol| arg fil|
|00000c30| 65 73 29 20 22 c0 c1 5c | 6e 0b c4 c5 0e 06 c7 0e |es) "..\|n.......|
|00000c40| 08 0b 5c 22 5c 22 0e 09 | 26 06 87 22 20 5b 64 69 |..\"\"..|&.." [di|
|00000c50| 72 65 64 2d 6d 61 72 6b | 2d 70 6f 70 2d 75 70 20 |red-mark|-pop-up |
|00000c60| 6e 69 6c 20 6f 70 2d 73 | 79 6d 62 6f 6c 20 66 69 |nil op-s|ymbol fi|
|00000c70| 6c 65 73 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |les read|-string |
|00000c80| 66 6f 72 6d 61 74 20 70 | 72 6f 6d 70 74 20 64 69 |format p|rompt di|
|00000c90| 72 65 64 2d 6d 61 72 6b | 2d 70 72 6f 6d 70 74 20 |red-mark|-prompt |
|00000ca0| 61 72 67 20 69 6e 69 74 | 69 61 6c 5d 20 31 30 5d |arg init|ial] 10]|
|00000cb0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|00000cc0| 65 64 2d 63 6c 65 61 6e | 2d 64 69 72 65 63 74 6f |ed-clean|-directo|
|00000cd0| 72 79 20 23 5b 28 6b 65 | 65 70 29 20 22 08 83 5c |ry #[(ke|ep) "..\|
|00000ce0| 6e 00 c1 08 21 82 0b 00 | 5c 6e 89 10 c3 57 83 17 |n...!...|\n...W..|
|00000cf0| 00 08 5b 82 18 00 0c 08 | c3 58 83 5c 22 00 5c 6e |..[.....|.X.\".\n|
|00000d00| 82 23 00 08 c5 1e 06 1e | 07 1e 08 c9 ca 0e 07 0e |.#......|........|
|00000d10| 08 23 88 cb cc 21 88 0e | 06 89 1e 0d 83 78 00 ce |.#...!..|.....x..|
|00000d20| cf 0e 0d 40 41 d0 5c 22 | 42 89 1e 11 47 89 1e 12 |...@A.\"|B...G...|
|00000d30| 0e 08 0e 07 5c 5c 56 83 | 66 00 0e 08 0e 11 9b 0e |....\\V.|f.......|
|00000d40| 12 0e 07 5a 0e 11 9b a1 | 88 0e 0d 40 0e 11 41 a1 |...Z....|...@..A.|
|00000d50| 88 2a 0e 0d 41 89 16 0d | 84 3e 00 29 cb d3 21 88 |.*..A...|.>.)..!.|
|00000d60| c9 d4 21 2b 87 22 20 5b | 6b 65 65 70 20 70 72 65 |..!+." [|keep pre|
|00000d70| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00000d80| 65 20 64 69 72 65 64 2d | 6b 65 70 74 2d 76 65 72 |e dired-|kept-ver|
|00000d90| 73 69 6f 6e 73 20 30 20 | 6b 65 70 74 2d 6f 6c 64 |sions 0 |kept-old|
|00000da0| 2d 76 65 72 73 69 6f 6e | 73 20 6e 69 6c 20 64 69 |-version|s nil di|
|00000db0| 72 65 64 2d 66 69 6c 65 | 2d 76 65 72 73 69 6f 6e |red-file|-version|
|00000dc0| 2d 61 6c 69 73 74 20 6c | 61 74 65 2d 72 65 74 65 |-alist l|ate-rete|
|00000dd0| 6e 74 69 6f 6e 20 65 61 | 72 6c 79 2d 72 65 74 65 |ntion ea|rly-rete|
|00000de0| 6e 74 69 6f 6e 20 6d 65 | 73 73 61 67 65 20 22 43 |ntion me|ssage "C|
|00000df0| 6c 65 61 6e 69 6e 67 20 | 6e 75 6d 65 72 69 63 61 |leaning |numerica|
|00000e00| 6c 20 62 61 63 6b 75 70 | 73 20 28 6b 65 65 70 69 |l backup|s (keepi|
|00000e10| 6e 67 20 25 64 20 6c 61 | 74 65 2c 20 25 64 20 6f |ng %d la|te, %d o|
|00000e20| 6c 64 29 2e 2e 2e 22 20 | 64 69 72 65 64 2d 6d 61 |ld)..." |dired-ma|
|00000e30| 70 2d 64 69 72 65 64 2d | 66 69 6c 65 2d 6c 69 6e |p-dired-|file-lin|
|00000e40| 65 73 20 64 69 72 65 64 | 2d 63 6f 6c 6c 65 63 74 |es dired|-collect|
|00000e50| 2d 66 69 6c 65 2d 76 65 | 72 73 69 6f 6e 73 20 66 |-file-ve|rsions f|
|00000e60| 76 61 6c 20 71 20 73 6f | 72 74 20 3c 20 73 6f 72 |val q so|rt < sor|
|00000e70| 74 65 64 2d 76 2d 6c 69 | 73 74 20 76 2d 63 6f 75 |ted-v-li|st v-cou|
|00000e80| 6e 74 20 64 69 72 65 64 | 2d 74 72 61 6d 70 6c 65 |nt dired|-trample|
|00000e90| 2d 66 69 6c 65 2d 76 65 | 72 73 69 6f 6e 73 20 22 |-file-ve|rsions "|
|00000ea0| 43 6c 65 61 6e 69 6e 67 | 20 6e 75 6d 65 72 69 63 |Cleaning| numeric|
|00000eb0| 61 6c 20 62 61 63 6b 75 | 70 73 2e 2e 2e 64 6f 6e |al backu|ps...don|
|00000ec0| 65 22 5d 20 35 20 22 5c | 0a 46 6c 61 67 20 6e 75 |e"] 5 "\|.Flag nu|
|00000ed0| 6d 65 72 69 63 61 6c 20 | 62 61 63 6b 75 70 73 20 |merical |backups |
|00000ee0| 66 6f 72 20 64 65 6c 65 | 74 69 6f 6e 2e 0a 53 70 |for dele|tion..Sp|
|00000ef0| 61 72 65 73 20 60 64 69 | 72 65 64 2d 6b 65 70 74 |ares `di|red-kept|
|00000f00| 2d 76 65 72 73 69 6f 6e | 73 27 20 6c 61 74 65 73 |-version|s' lates|
|00000f10| 74 20 76 65 72 73 69 6f | 6e 73 2c 20 61 6e 64 20 |t versio|ns, and |
|00000f20| 60 6b 65 70 74 2d 6f 6c | 64 2d 76 65 72 73 69 6f |`kept-ol|d-versio|
|00000f30| 6e 73 27 20 6f 6c 64 65 | 73 74 2e 0a 50 6f 73 69 |ns' olde|st..Posi|
|00000f40| 74 69 76 65 20 70 72 65 | 66 69 78 20 61 72 67 20 |tive pre|fix arg |
|00000f50| 4b 45 45 50 20 6f 76 65 | 72 72 69 64 65 73 20 60 |KEEP ove|rrides `|
|00000f60| 64 69 72 65 64 2d 6b 65 | 70 74 2d 76 65 72 73 69 |dired-ke|pt-versi|
|00000f70| 6f 6e 73 27 3b 0a 4e 65 | 67 61 74 69 76 65 20 70 |ons';.Ne|gative p|
|00000f80| 72 65 66 69 78 20 61 72 | 67 20 4b 45 45 50 20 6f |refix ar|g KEEP o|
|00000f90| 76 65 72 72 69 64 65 73 | 20 60 6b 65 70 74 2d 6f |verrides| `kept-o|
|00000fa0| 6c 64 2d 76 65 72 73 69 | 6f 6e 73 27 20 77 69 74 |ld-versi|ons' wit|
|00000fb0| 68 20 4b 45 45 50 20 6d | 61 64 65 20 70 6f 73 69 |h KEEP m|ade posi|
|00000fc0| 74 69 76 65 2e 0a 0a 54 | 6f 20 63 6c 65 61 72 20 |tive...T|o clear |
|00000fd0| 74 68 65 20 66 6c 61 67 | 73 20 6f 6e 20 74 68 65 |the flag|s on the|
|00000fe0| 73 65 20 66 69 6c 65 73 | 2c 20 79 6f 75 20 63 61 |se files|, you ca|
|00000ff0| 6e 20 75 73 65 20 5c 5c | 5b 64 69 72 65 64 2d 66 |n use \\|[dired-f|
|00001000| 6c 61 67 2d 62 61 63 6b | 75 70 2d 66 69 6c 65 73 |lag-back|up-files|
|00001010| 5d 0a 77 69 74 68 20 61 | 20 70 72 65 66 69 78 20 |].with a| prefix |
|00001020| 61 72 67 75 6d 65 6e 74 | 2e 22 20 22 50 22 5d 29 |argument|." "P"])|
|00001030| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00001040| 5c 22 88 c0 c3 c4 5c 22 | 88 c0 c5 c6 5c 22 87 22 |\"....\"|....\"."|
|00001050| 20 5b 64 65 66 61 6c 69 | 61 73 20 64 69 72 65 64 | [defali|as dired|
|00001060| 2d 6d 61 70 2d 64 69 72 | 65 64 2d 66 69 6c 65 2d |-map-dir|ed-file-|
|00001070| 6c 69 6e 65 73 20 23 5b | 28 66 75 6e 29 20 22 8a |lines #[|(fun) ".|
|00001080| c0 89 19 1a 65 62 88 6d | 3f 85 30 00 8a c3 0c 21 |....eb.m|?.0....!|
|00001090| 84 29 00 6c 84 29 00 c5 | c0 c6 5c 22 89 12 83 29 |.).l.)..|..\"...)|
|000010a0| 00 c0 7f 88 0e 07 5c 6e | 21 88 29 c8 79 88 82 08 |......\n|!.).y...|
|000010b0| 00 2b 87 22 20 5b 6e 69 | 6c 20 62 75 66 66 65 72 |.+." [ni|l buffer|
|000010c0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 66 69 6c 65 20 |-read-on|ly file |
|000010d0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 64 69 72 65 64 |looking-|at dired|
|000010e0| 2d 72 65 2d 64 69 72 20 | 64 69 72 65 64 2d 67 65 |-re-dir |dired-ge|
|000010f0| 74 2d 66 69 6c 65 6e 61 | 6d 65 20 74 20 66 75 6e |t-filena|me t fun|
|00001100| 20 31 5d 20 33 5d 20 64 | 69 72 65 64 2d 63 6f 6c | 1] 3] d|ired-col|
|00001110| 6c 65 63 74 2d 66 69 6c | 65 2d 76 65 72 73 69 6f |lect-fil|e-versio|
|00001120| 6e 73 20 23 5b 28 66 6e | 29 20 22 c0 09 21 c2 50 |ns #[(fn|) "..!.P|
|00001130| 89 1b 47 1c c5 0b c6 09 | 21 5c 22 1e 07 c8 c9 0e |..G.....|!\".....|
|00001140| 07 5c 22 89 1e 5c 6e 85 | 26 00 09 0e 5c 6e 42 0e |.\"..\n.|&...\nB.|
|00001150| 0b 42 89 16 0b 2c 87 22 | 20 5b 66 69 6c 65 2d 6e |.B...,."| [file-n|
|00001160| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00001170| 20 66 6e 20 22 2e 7e 22 | 20 62 61 73 65 2d 76 65 | fn ".~"| base-ve|
|00001180| 72 73 69 6f 6e 73 20 62 | 76 2d 6c 65 6e 67 74 68 |rsions b|v-length|
|00001190| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 61 6c 6c 2d 63 | file-na|me-all-c|
|000011a0| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 66 69 6c 65 2d |ompletio|ns file-|
|000011b0| 6e 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 70 |name-dir|ectory p|
|000011c0| 6f 73 73 69 62 69 6c 69 | 74 69 65 73 20 6d 61 70 |ossibili|ties map|
|000011d0| 63 61 72 20 62 61 63 6b | 75 70 2d 65 78 74 72 61 |car back|up-extra|
|000011e0| 63 74 2d 76 65 72 73 69 | 6f 6e 20 76 65 72 73 69 |ct-versi|on versi|
|000011f0| 6f 6e 73 20 64 69 72 65 | 64 2d 66 69 6c 65 2d 76 |ons dire|d-file-v|
|00001200| 65 72 73 69 6f 6e 2d 61 | 6c 69 73 74 5d 20 35 5d |ersion-a|list] 5]|
|00001210| 20 64 69 72 65 64 2d 74 | 72 61 6d 70 6c 65 2d 66 | dired-t|rample-f|
|00001220| 69 6c 65 2d 76 65 72 73 | 69 6f 6e 73 20 23 5b 28 |ile-vers|ions #[(|
|00001230| 66 6e 29 20 22 c0 c1 5c | 6e 5c 22 1b c4 1d 0b 85 |fn) "..\|n\".....|
|00001240| 30 00 c6 5c 6e c7 0b 4f | 0e 08 5c 22 89 15 85 30 |0..\n..O|..\"...0|
|00001250| 00 c9 5c 6e 0b ca 5c 5c | c4 4f 21 0d 3e 3f 85 30 |..\n..\\|.O!.>?.0|
|00001260| 00 c7 79 88 cb cc 21 88 | 0e 0d 63 2a 87 22 20 5b |..y...!.|..c*." [|
|00001270| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00001280| 2e 7e 5b 30 2d 39 5d 2b | 7e 24 22 20 66 6e 20 73 |.~[0-9]+|~$" fn s|
|00001290| 74 61 72 74 2d 76 6e 20 | 6e 69 6c 20 62 61 73 65 |tart-vn |nil base|
|000012a0| 2d 76 65 72 73 69 6f 6e | 2d 6c 69 73 74 20 61 73 |-version|-list as|
|000012b0| 73 6f 63 20 30 20 64 69 | 72 65 64 2d 66 69 6c 65 |soc 0 di|red-file|
|000012c0| 2d 76 65 72 73 69 6f 6e | 2d 61 6c 69 73 74 20 73 |-version|-alist s|
|000012d0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 32 20 64 |tring-to|-int 2 d|
|000012e0| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 20 64 69 72 |elete-ch|ar 1 dir|
|000012f0| 65 64 2d 64 65 6c 2d 6d | 61 72 6b 65 72 5d 20 34 |ed-del-m|arker] 4|
|00001300| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00001310| 27 64 69 72 65 64 2d 73 | 68 65 6c 6c 2d 71 75 6f |'dired-s|hell-quo|
|00001320| 74 65 20 23 5b 28 66 69 | 6c 65 6e 61 6d 65 29 20 |te #[(fi|lename) |
|00001330| 22 c0 c1 c2 1b 1c 1d c6 | c7 0e 08 0c 23 83 27 00 |".......|....#.'.|
|00001340| c1 94 13 0d 0e 08 0c 0b | 4f c9 0e 08 0b 89 54 4f |........|O.....TO|
|00001350| 52 15 0b 54 14 82 06 00 | 0d 0e 08 0c c2 4f 50 2b |R..T....|.....OP+|
|00001360| 87 22 20 5b 22 22 20 30 | 20 6e 69 6c 20 65 6e 64 |." ["" 0| nil end|
|00001370| 20 73 74 61 72 74 20 72 | 65 73 75 6c 74 20 73 74 | start r|esult st|
|00001380| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 5e 2d 2d |ring-mat|ch "[^--|
|00001390| 2d 30 2d 39 61 2d 7a 41 | 2d 5a 5f 2e 2f 5d 22 20 |-0-9a-zA|-Z_./]" |
|000013a0| 66 69 6c 65 6e 61 6d 65 | 20 22 5c 5c 22 5d 20 36 |filename| "\\"] 6|
|000013b0| 20 22 5c 0a 51 75 6f 74 | 65 20 61 20 66 69 6c 65 | "\.Quot|e a file|
|000013c0| 20 6e 61 6d 65 20 66 6f | 72 20 69 6e 66 65 72 69 | name fo|r inferi|
|000013d0| 6f 72 20 73 68 65 6c 6c | 20 28 73 65 65 20 76 61 |or shell| (see va|
|000013e0| 72 69 61 62 6c 65 20 60 | 73 68 65 6c 6c 2d 66 69 |riable `|shell-fi|
|000013f0| 6c 65 2d 6e 61 6d 65 27 | 29 2e 22 5d 29 0a 28 64 |le-name'|)."]).(d|
|00001400| 65 66 61 6c 69 61 73 20 | 28 71 75 6f 74 65 20 64 |efalias |(quote d|
|00001410| 69 72 65 64 2d 72 65 61 | 64 2d 73 68 65 6c 6c 2d |ired-rea|d-shell-|
|00001420| 63 6f 6d 6d 61 6e 64 29 | 20 23 5b 28 70 72 6f 6d |command)| #[(prom|
|00001430| 70 74 20 61 72 67 20 66 | 69 6c 65 73 29 20 22 c0 |pt arg f|iles) ".|
|00001440| c1 c2 0b c4 c5 0e 06 c7 | 0e 08 0b 5c 22 5c 22 25 |........|...\"\"%|
|00001450| 87 22 20 5b 64 69 72 65 | 64 2d 6d 61 72 6b 2d 70 |." [dire|d-mark-p|
|00001460| 6f 70 2d 75 70 20 6e 69 | 6c 20 73 68 65 6c 6c 20 |op-up ni|l shell |
|00001470| 66 69 6c 65 73 20 72 65 | 61 64 2d 73 74 72 69 6e |files re|ad-strin|
|00001480| 67 20 66 6f 72 6d 61 74 | 20 70 72 6f 6d 70 74 20 |g format| prompt |
|00001490| 64 69 72 65 64 2d 6d 61 | 72 6b 2d 70 72 6f 6d 70 |dired-ma|rk-promp|
|000014a0| 74 20 61 72 67 5d 20 31 | 30 5d 29 0a 28 64 65 66 |t arg] 1|0]).(def|
|000014b0| 61 6c 69 61 73 20 27 64 | 69 72 65 64 2d 64 6f 2d |alias 'd|ired-do-|
|000014c0| 73 68 65 6c 6c 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |shell-co|mmand #[|
|000014d0| 28 63 6f 6d 6d 61 6e 64 | 20 26 6f 70 74 69 6f 6e |(command| &option|
|000014e0| 61 6c 20 61 72 67 29 20 | 22 c0 c1 5c 6e 5c 22 3f |al arg) |"..\n\"?|
|000014f0| 1b c4 c5 0e 06 5c 22 1e | 07 0b 83 1e 00 c8 c9 5c |.....\".|.......\|
|00001500| 6e 47 5a ca cb 0e 07 24 | 82 28 00 cc cd 5c 6e 0e |nGZ....$|.(...\n.|
|00001510| 07 cb 0e 06 24 21 2a 87 | 22 20 5b 73 74 72 69 6e |....$!*.|" [strin|
|00001520| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2a 22 20 63 6f |g-match |"\\*" co|
|00001530| 6d 6d 61 6e 64 20 6f 6e | 2d 65 61 63 68 20 64 69 |mmand on|-each di|
|00001540| 72 65 64 2d 67 65 74 2d | 6d 61 72 6b 65 64 2d 66 |red-get-|marked-f|
|00001550| 69 6c 65 73 20 74 20 61 | 72 67 20 66 69 6c 65 2d |iles t a|rg file-|
|00001560| 6c 69 73 74 20 64 69 72 | 65 64 2d 62 75 6e 63 68 |list dir|ed-bunch|
|00001570| 2d 66 69 6c 65 73 20 31 | 30 30 30 30 20 23 5b 28 |-files 1|0000 #[(|
|00001580| 26 72 65 73 74 20 66 69 | 6c 65 73 29 20 22 c0 c1 |&rest fi|les) "..|
|00001590| 5c 6e 0b c4 0d 24 21 87 | 22 20 5b 64 69 72 65 64 |\n...$!.|" [dired|
|000015a0| 2d 72 75 6e 2d 73 68 65 | 6c 6c 2d 63 6f 6d 6d 61 |-run-she|ll-comma|
|000015b0| 6e 64 20 64 69 72 65 64 | 2d 73 68 65 6c 6c 2d 73 |nd dired|-shell-s|
|000015c0| 74 75 66 66 2d 69 74 20 | 63 6f 6d 6d 61 6e 64 20 |tuff-it |command |
|000015d0| 66 69 6c 65 73 20 74 20 | 61 72 67 5d 20 36 5d 20 |files t |arg] 6] |
|000015e0| 6e 69 6c 20 64 69 72 65 | 64 2d 72 75 6e 2d 73 68 |nil dire|d-run-sh|
|000015f0| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 64 69 72 65 |ell-comm|and dire|
|00001600| 64 2d 73 68 65 6c 6c 2d | 73 74 75 66 66 2d 69 74 |d-shell-|stuff-it|
|00001610| 5d 20 36 20 22 5c 0a 52 | 75 6e 20 61 20 73 68 65 |] 6 "\.R|un a she|
|00001620| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 20 43 4f 4d 4d 41 |ll comma|nd COMMA|
|00001630| 4e 44 20 6f 6e 20 74 68 | 65 20 6d 61 72 6b 65 64 |ND on th|e marked|
|00001640| 20 66 69 6c 65 73 2e 0a | 49 66 20 6e 6f 20 66 69 | files..|If no fi|
|00001650| 6c 65 73 20 61 72 65 20 | 6d 61 72 6b 65 64 20 6f |les are |marked o|
|00001660| 72 20 61 20 73 70 65 63 | 69 66 69 63 20 6e 75 6d |r a spec|ific num|
|00001670| 65 72 69 63 20 70 72 65 | 66 69 78 20 61 72 67 20 |eric pre|fix arg |
|00001680| 69 73 20 67 69 76 65 6e | 2c 0a 74 68 65 20 6e 65 |is given|,.the ne|
|00001690| 78 74 20 41 52 47 20 66 | 69 6c 65 73 20 61 72 65 |xt ARG f|iles are|
|000016a0| 20 75 73 65 64 2e 20 20 | 4a 75 73 74 20 5c 5c 5b | used. |Just \\[|
|000016b0| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|000016c0| 6e 74 5d 20 6d 65 61 6e | 73 20 74 68 65 20 63 75 |nt] mean|s the cu|
|000016d0| 72 72 65 6e 74 20 66 69 | 6c 65 2e 0a 54 68 65 20 |rrent fi|le..The |
|000016e0| 70 72 6f 6d 70 74 20 6d | 65 6e 74 69 6f 6e 73 20 |prompt m|entions |
|000016f0| 74 68 65 20 66 69 6c 65 | 28 73 29 20 6f 72 20 74 |the file|(s) or t|
|00001700| 68 65 20 6d 61 72 6b 65 | 72 2c 20 61 73 20 61 70 |he marke|r, as ap|
|00001710| 70 72 6f 70 72 69 61 74 | 65 2e 0a 0a 49 66 20 74 |propriat|e...If t|
|00001720| 68 65 72 65 20 69 73 20 | 6f 75 74 70 75 74 2c 20 |here is |output, |
|00001730| 69 74 20 67 6f 65 73 20 | 74 6f 20 61 20 73 65 70 |it goes |to a sep|
|00001740| 61 72 61 74 65 20 62 75 | 66 66 65 72 2e 0a 0a 4e |arate bu|ffer...N|
|00001750| 6f 72 6d 61 6c 6c 79 20 | 74 68 65 20 63 6f 6d 6d |ormally |the comm|
|00001760| 61 6e 64 20 69 73 20 72 | 75 6e 20 6f 6e 20 65 61 |and is r|un on ea|
|00001770| 63 68 20 66 69 6c 65 20 | 69 6e 64 69 76 69 64 75 |ch file |individu|
|00001780| 61 6c 6c 79 2e 0a 48 6f | 77 65 76 65 72 2c 20 69 |ally..Ho|wever, i|
|00001790| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 60 2a 27 |f there |is a `*'|
|000017a0| 20 69 6e 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | in the |command |
|000017b0| 74 68 65 6e 20 69 74 20 | 69 73 20 72 75 6e 0a 6a |then it |is run.j|
|000017c0| 75 73 74 20 6f 6e 63 65 | 20 77 69 74 68 20 74 68 |ust once| with th|
|000017d0| 65 20 65 6e 74 69 72 65 | 20 66 69 6c 65 20 6c 69 |e entire| file li|
|000017e0| 73 74 20 73 75 62 73 74 | 69 74 75 74 65 64 20 74 |st subst|ituted t|
|000017f0| 68 65 72 65 2e 0a 0a 4e | 6f 20 61 75 74 6f 6d 61 |here...N|o automa|
|00001800| 74 69 63 20 72 65 64 69 | 73 70 6c 61 79 20 6f 66 |tic redi|splay of|
|00001810| 20 64 69 72 65 64 20 62 | 75 66 66 65 72 73 20 69 | dired b|uffers i|
|00001820| 73 20 61 74 74 65 6d 70 | 74 65 64 2c 20 61 73 20 |s attemp|ted, as |
|00001830| 74 68 65 72 65 27 73 20 | 6e 6f 0a 74 65 6c 6c 69 |there's |no.telli|
|00001840| 6e 67 20 77 68 61 74 20 | 66 69 6c 65 73 20 74 68 |ng what |files th|
|00001850| 65 20 63 6f 6d 6d 61 6e | 64 20 6d 61 79 20 68 61 |e comman|d may ha|
|00001860| 76 65 20 63 68 61 6e 67 | 65 64 2e 20 20 54 79 70 |ve chang|ed. Typ|
|00001870| 65 0a 5c 5c 5b 64 69 72 | 65 64 2d 64 6f 2d 72 65 |e.\\[dir|ed-do-re|
|00001880| 64 69 73 70 6c 61 79 5d | 20 74 6f 20 72 65 64 69 |display]| to redi|
|00001890| 73 70 6c 61 79 20 74 68 | 65 20 6d 61 72 6b 65 64 |splay th|e marked|
|000018a0| 20 66 69 6c 65 73 2e 0a | 0a 54 68 65 20 73 68 65 | files..|.The she|
|000018b0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 20 68 61 73 20 74 |ll comma|nd has t|
|000018c0| 68 65 20 74 6f 70 20 6c | 65 76 65 6c 20 64 69 72 |he top l|evel dir|
|000018d0| 65 63 74 6f 72 79 20 61 | 73 20 77 6f 72 6b 69 6e |ectory a|s workin|
|000018e0| 67 20 64 69 72 65 63 74 | 6f 72 79 2c 20 73 6f 0a |g direct|ory, so.|
|000018f0| 6f 75 74 70 75 74 20 66 | 69 6c 65 73 20 75 73 75 |output f|iles usu|
|00001900| 61 6c 6c 79 20 61 72 65 | 20 63 72 65 61 74 65 64 |ally are| created|
|00001910| 20 74 68 65 72 65 20 69 | 6e 73 74 65 61 64 20 6f | there i|nstead o|
|00001920| 66 20 69 6e 20 61 20 73 | 75 62 64 69 72 2e 22 20 |f in a s|ubdir." |
|00001930| 28 6c 69 73 74 20 28 64 | 69 72 65 64 2d 72 65 61 |(list (d|ired-rea|
|00001940| 64 2d 73 68 65 6c 6c 2d | 63 6f 6d 6d 61 6e 64 20 |d-shell-|command |
|00001950| 28 63 6f 6e 63 61 74 20 | 22 21 20 6f 6e 20 22 20 |(concat |"! on " |
|00001960| 22 25 73 3a 20 22 29 20 | 63 75 72 72 65 6e 74 2d |"%s: ") |current-|
|00001970| 70 72 65 66 69 78 2d 61 | 72 67 20 28 64 69 72 65 |prefix-a|rg (dire|
|00001980| 64 2d 67 65 74 2d 6d 61 | 72 6b 65 64 2d 66 69 6c |d-get-ma|rked-fil|
|00001990| 65 73 20 74 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |es t cur|rent-pre|
|000019a0| 66 69 78 2d 61 72 67 29 | 29 20 63 75 72 72 65 6e |fix-arg)|) curren|
|000019b0| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 29 5d 29 0a |t-prefix|-arg)]).|
|000019c0| 28 64 65 66 76 61 72 20 | 64 69 72 65 64 2d 6d 61 |(defvar |dired-ma|
|000019d0| 72 6b 2d 70 72 65 66 69 | 78 20 22 22 20 22 5c 0a |rk-prefi|x "" "\.|
|000019e0| 50 72 65 70 65 6e 64 65 | 64 20 74 6f 20 6d 61 72 |Prepende|d to mar|
|000019f0| 6b 65 64 20 66 69 6c 65 | 73 20 69 6e 20 64 69 72 |ked file|s in dir|
|00001a00| 65 64 20 73 68 65 6c 6c | 20 63 6f 6d 6d 61 6e 64 |ed shell| command|
|00001a10| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 64 69 72 |s.").(de|fvar dir|
|00001a20| 65 64 2d 6d 61 72 6b 2d | 70 6f 73 74 66 69 78 20 |ed-mark-|postfix |
|00001a30| 22 22 20 22 5c 0a 41 70 | 70 65 6e 64 65 64 20 74 |"" "\.Ap|pended t|
|00001a40| 6f 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 20 69 |o marked| files i|
|00001a50| 6e 20 64 69 72 65 64 20 | 73 68 65 6c 6c 20 63 6f |n dired |shell co|
|00001a60| 6d 6d 61 6e 64 73 2e 22 | 29 0a 28 64 65 66 76 61 |mmands."|).(defva|
|00001a70| 72 20 64 69 72 65 64 2d | 6d 61 72 6b 2d 73 65 70 |r dired-|mark-sep|
|00001a80| 61 72 61 74 6f 72 20 22 | 20 22 20 22 5c 0a 53 65 |arator "| " "\.Se|
|00001a90| 70 61 72 61 74 65 73 20 | 6d 61 72 6b 65 64 20 66 |parates |marked f|
|00001aa0| 69 6c 65 73 20 69 6e 20 | 64 69 72 65 64 20 73 68 |iles in |dired sh|
|00001ab0| 65 6c 6c 20 63 6f 6d 6d | 61 6e 64 73 2e 22 29 0a |ell comm|ands.").|
|00001ac0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00001ad0| 22 88 c0 c3 c4 5c 22 88 | c0 c5 c6 5c 22 88 c0 c7 |"....\".|...\"...|
|00001ae0| c8 5c 22 88 c0 c9 ca 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00001af0| 61 6c 69 61 73 20 64 69 | 72 65 64 2d 73 68 65 6c |alias di|red-shel|
|00001b00| 6c 2d 73 74 75 66 66 2d | 69 74 20 23 5b 28 63 6f |l-stuff-|it #[(co|
|00001b10| 6d 6d 61 6e 64 20 66 69 | 6c 65 2d 6c 69 73 74 20 |mmand fi|le-list |
|00001b20| 6f 6e 2d 65 61 63 68 20 | 26 6f 70 74 69 6f 6e 61 |on-each |&optiona|
|00001b30| 6c 20 72 61 77 2d 61 72 | 67 29 20 22 c0 c1 5c 6e |l raw-ar|g) "..\n|
|00001b40| 5c 22 83 0b 00 c3 82 0c | 00 c4 1d 0e 06 83 1e 00 |\"......|........|
|00001b50| c7 0d c8 c9 0e 5c 6e 5c | 22 cb 23 82 3d 00 c7 c9 |.....\n\|".#.=...|
|00001b60| 0e 5c 6e 0e 0c 23 1e 0d | 0e 5c 6e 47 ce 56 83 38 |.\n..#..|.\nG.V.8|
|00001b70| 00 0e 0f 0e 0d 0e 10 51 | 16 0d 0d 0e 0d 21 29 29 |.......Q|.....!))|
|00001b80| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00001b90| 20 22 5c 5c 2a 22 20 63 | 6f 6d 6d 61 6e 64 20 23 | "\\*" c|ommand #|
|00001ba0| 5b 28 78 29 20 22 c0 c1 | 5c 6e 0b 23 87 22 20 5b |[(x) "..|\n.#." [|
|00001bb0| 64 69 72 65 64 2d 72 65 | 70 6c 61 63 65 2d 69 6e |dired-re|place-in|
|00001bc0| 2d 73 74 72 69 6e 67 20 | 22 5c 5c 2a 22 20 78 20 |-string |"\\*" x |
|00001bd0| 63 6f 6d 6d 61 6e 64 5d | 20 34 5d 20 23 5b 28 78 |command]| 4] #[(x|
|00001be0| 29 20 22 08 c1 5c 6e 51 | 87 22 20 5b 63 6f 6d 6d |) "..\nQ|." [comm|
|00001bf0| 61 6e 64 20 22 20 22 20 | 78 5d 20 33 5d 20 73 74 |and " " |x] 3] st|
|00001c00| 75 66 66 2d 69 74 20 6f | 6e 2d 65 61 63 68 20 6d |uff-it o|n-each m|
|00001c10| 61 70 63 6f 6e 63 61 74 | 20 6d 61 70 63 61 72 20 |apconcat| mapcar |
|00001c20| 64 69 72 65 64 2d 73 68 | 65 6c 6c 2d 71 75 6f 74 |dired-sh|ell-quot|
|00001c30| 65 20 66 69 6c 65 2d 6c | 69 73 74 20 22 3b 22 20 |e file-l|ist ";" |
|00001c40| 64 69 72 65 64 2d 6d 61 | 72 6b 2d 73 65 70 61 72 |dired-ma|rk-separ|
|00001c50| 61 74 6f 72 20 66 6e 73 | 20 31 20 64 69 72 65 64 |ator fns| 1 dired|
|00001c60| 2d 6d 61 72 6b 2d 70 72 | 65 66 69 78 20 64 69 72 |-mark-pr|efix dir|
|00001c70| 65 64 2d 6d 61 72 6b 2d | 70 6f 73 74 66 69 78 5d |ed-mark-|postfix]|
|00001c80| 20 35 5d 20 64 69 72 65 | 64 2d 72 75 6e 2d 73 68 | 5] dire|d-run-sh|
|00001c90| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 28 63 |ell-comm|and #[(c|
|00001ca0| 6f 6d 6d 61 6e 64 29 20 | 22 c0 09 21 88 c2 87 22 |ommand) |"..!..."|
|00001cb0| 20 5b 73 68 65 6c 6c 2d | 63 6f 6d 6d 61 6e 64 20 | [shell-|command |
|00001cc0| 63 6f 6d 6d 61 6e 64 20 | 6e 69 6c 5d 20 32 5d 20 |command |nil] 2] |
|00001cd0| 64 69 72 65 64 2d 63 61 | 6c 6c 2d 70 72 6f 63 65 |dired-ca|ll-proce|
|00001ce0| 73 73 20 23 5b 28 70 72 | 6f 67 72 61 6d 20 64 69 |ss #[(pr|ogram di|
|00001cf0| 73 63 61 72 64 20 26 72 | 65 73 74 20 61 72 67 75 |scard &r|est argu|
|00001d00| 6d 65 6e 74 73 29 20 22 | c0 c1 5c 6e c3 0c 3f c3 |ments) "|..\n..?.|
|00001d10| 0d 26 06 87 22 20 5b 61 | 70 70 6c 79 20 63 61 6c |.&.." [a|pply cal|
|00001d20| 6c 2d 70 72 6f 63 65 73 | 73 20 70 72 6f 67 72 61 |l-proces|s progra|
|00001d30| 6d 20 6e 69 6c 20 64 69 | 73 63 61 72 64 20 61 72 |m nil di|scard ar|
|00001d40| 67 75 6d 65 6e 74 73 5d | 20 37 5d 20 64 69 72 65 |guments]| 7] dire|
|00001d50| 64 2d 63 68 65 63 6b 2d | 70 72 6f 63 65 73 73 20 |d-check-|process |
|00001d60| 23 5b 28 6d 73 67 20 70 | 72 6f 67 72 61 6d 20 26 |#[(msg p|rogram &|
|00001d70| 72 65 73 74 20 61 72 67 | 75 6d 65 6e 74 73 29 20 |rest arg|uments) |
|00001d80| 22 c0 89 09 1a 1b 1c c5 | c6 0e 07 5c 22 88 8a c8 |".......|...\"...|
|00001d90| c9 21 89 14 71 88 ca 20 | 88 5c 6e 11 cb cc 0e 0d |.!..q.. |.\n.....|
|00001da0| c0 0e 0e 24 cf 55 3f 89 | 13 83 47 00 d0 0e 0d d1 |...$.U?.|..G.....|
|00001db0| d2 0e 0e 21 d3 52 21 88 | d0 0c 21 88 0e 0e 86 52 |...!.R!.|..!....R|
|00001dc0| 00 0e 0d 86 52 00 d4 82 | 52 00 d5 0c 21 88 c5 d6 |....R...|R...!...|
|00001dd0| 0e 07 5c 22 88 c0 2c 87 | 22 20 5b 6e 69 6c 20 64 |..\"..,.|" [nil d|
|00001de0| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00001df0| 20 64 69 72 20 65 72 72 | 20 65 72 72 2d 62 75 66 | dir err| err-buf|
|00001e00| 66 65 72 20 6d 65 73 73 | 61 67 65 20 22 25 73 2e |fer mess|age "%s.|
|00001e10| 2e 2e 22 20 6d 73 67 20 | 67 65 74 2d 62 75 66 66 |.." msg |get-buff|
|00001e20| 65 72 2d 63 72 65 61 74 | 65 20 22 20 2a 64 69 72 |er-creat|e " *dir|
|00001e30| 65 64 2d 63 68 65 63 6b | 2d 70 72 6f 63 65 73 73 |ed-check|-process|
|00001e40| 20 6f 75 74 70 75 74 2a | 22 20 65 72 61 73 65 2d | output*|" erase-|
|00001e50| 62 75 66 66 65 72 20 61 | 70 70 6c 79 20 64 69 72 |buffer a|pply dir|
|00001e60| 65 64 2d 63 61 6c 6c 2d | 70 72 6f 63 65 73 73 20 |ed-call-|process |
|00001e70| 70 72 6f 67 72 61 6d 20 | 61 72 67 75 6d 65 6e 74 |program |argument|
|00001e80| 73 20 30 20 64 69 72 65 | 64 2d 6c 6f 67 20 22 20 |s 0 dire|d-log " |
|00001e90| 22 20 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e |" prin1-|to-strin|
|00001ea0| 67 20 22 5c 6e 22 20 74 | 20 6b 69 6c 6c 2d 62 75 |g "\n" t| kill-bu|
|00001eb0| 66 66 65 72 20 22 25 73 | 2e 2e 2e 64 6f 6e 65 22 |ffer "%s|...done"|
|00001ec0| 5d 20 36 5d 20 64 69 72 | 65 64 2d 6b 69 6c 6c 2d |] 6] dir|ed-kill-|
|00001ed0| 6c 69 6e 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |line #[(|&optiona|
|00001ee0| 6c 20 61 72 67 29 20 22 | c0 09 21 11 c2 89 1b 1c |l arg) "|..!.....|
|00001ef0| 09 c5 55 84 4d 00 c6 c2 | c7 5c 22 89 13 84 1e 00 |..U.M...|.\".....|
|00001f00| c8 c9 21 88 82 08 00 8a | 0b 83 2c 00 ca 0b 21 83 |..!.....|..,...!.|
|00001f10| 2c 00 cb 20 88 29 c5 79 | 88 60 cc 79 88 60 7c 88 |,.. .).y|.`.y.`|.|
|00001f20| 09 c5 56 83 44 00 09 53 | 89 11 82 09 00 09 54 11 |..V.D..S|......T.|
|00001f30| cd 79 88 82 08 00 ce 20 | 2a 87 22 20 5b 70 72 65 |.y..... |*." [pre|
|00001f40| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00001f50| 65 20 61 72 67 20 6e 69 | 6c 20 66 69 6c 65 20 62 |e arg ni|l file b|
|00001f60| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00001f70| 30 20 64 69 72 65 64 2d | 67 65 74 2d 66 69 6c 65 |0 dired-|get-file|
|00001f80| 6e 61 6d 65 20 74 20 65 | 72 72 6f 72 20 22 43 61 |name t e|rror "Ca|
|00001f90| 6e 20 6f 6e 6c 79 20 6b | 69 6c 6c 20 66 69 6c 65 |n only k|ill file|
|00001fa0| 20 6c 69 6e 65 73 2e 22 | 20 64 69 72 65 64 2d 67 | lines."| dired-g|
|00001fb0| 6f 74 6f 2d 73 75 62 64 | 69 72 20 64 69 72 65 64 |oto-subd|ir dired|
|00001fc0| 2d 6b 69 6c 6c 2d 73 75 | 62 64 69 72 20 31 20 2d |-kill-su|bdir 1 -|
|00001fd0| 31 20 64 69 72 65 64 2d | 6d 6f 76 65 2d 74 6f 2d |1 dired-|move-to-|
|00001fe0| 66 69 6c 65 6e 61 6d 65 | 5d 20 34 20 6e 69 6c 20 |filename|] 4 nil |
|00001ff0| 22 50 22 5d 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |"P"]] 3)|.(defali|
|00002000| 61 73 20 27 64 69 72 65 | 64 2d 64 6f 2d 6b 69 6c |as 'dire|d-do-kil|
|00002010| 6c 2d 6c 69 6e 65 73 20 | 23 5b 28 26 6f 70 74 69 |l-lines |#[(&opti|
|00002020| 6f 6e 61 6c 20 61 72 67 | 20 66 6d 74 29 20 22 08 |onal arg| fmt) ".|
|00002030| 83 10 00 c1 20 83 0c 00 | c2 20 87 c3 08 21 87 8a |.... ...|. ...!..|
|00002040| 65 62 88 c4 c5 1e 06 1e | 07 08 84 45 00 c8 20 1e |eb......|...E.. .|
|00002050| 09 6d 84 41 00 ca 0e 09 | c4 cb 23 83 41 00 0e 06 |.m.A....|..#.A...|
|00002060| 54 16 06 c5 79 88 60 cc | 79 88 60 7c 88 82 5c 22 |T...y.`.|y.`|..\"|
|00002070| 00 29 82 6b 00 6d 84 6b | 00 cd 20 84 54 00 ce cf |.).k.m.k|.. .T...|
|00002080| 21 84 5a 00 cc 79 88 82 | 45 00 0e 06 54 16 06 60 |!.Z..y..|E...T..`|
|00002090| 8a cc 79 88 60 29 7c 88 | 82 45 00 d0 0e 11 9a 84 |..y.`)|.|.E......|
|000020a0| 81 00 d2 0e 11 86 79 00 | d3 0e 06 d4 0e 06 21 23 |......y.|......!#|
|000020b0| 88 0e 06 2b 87 22 20 5b | 61 72 67 20 64 69 72 65 |...+." [|arg dire|
|000020c0| 64 2d 67 65 74 2d 73 75 | 62 64 69 72 20 64 69 72 |d-get-su|bdir dir|
|000020d0| 65 64 2d 6b 69 6c 6c 2d | 73 75 62 64 69 72 20 64 |ed-kill-|subdir d|
|000020e0| 69 72 65 64 2d 6b 69 6c | 6c 2d 6c 69 6e 65 20 6e |ired-kil|l-line n|
|000020f0| 69 6c 20 30 20 63 6f 75 | 6e 74 20 62 75 66 66 65 |il 0 cou|nt buffe|
|00002100| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 64 69 72 65 |r-read-o|nly dire|
|00002110| 64 2d 6d 61 72 6b 65 72 | 2d 72 65 67 65 78 70 20 |d-marker|-regexp |
|00002120| 72 65 67 65 78 70 20 72 | 65 2d 73 65 61 72 63 68 |regexp r|e-search|
|00002130| 2d 66 6f 72 77 61 72 64 | 20 74 20 31 20 64 69 72 |-forward| t 1 dir|
|00002140| 65 64 2d 62 65 74 77 65 | 65 6e 2d 66 69 6c 65 73 |ed-betwe|en-files|
|00002150| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5e 20 20 | looking|-at "^ |
|00002160| 22 20 22 22 20 66 6d 74 | 20 6d 65 73 73 61 67 65 |" "" fmt| message|
|00002170| 20 22 4b 69 6c 6c 65 64 | 20 25 64 20 6c 69 6e 65 | "Killed| %d line|
|00002180| 25 73 2e 22 20 64 69 72 | 65 64 2d 70 6c 75 72 61 |%s." dir|ed-plura|
|00002190| 6c 2d 73 5d 20 35 20 22 | 5c 0a 4b 69 6c 6c 20 61 |l-s] 5 "|\.Kill a|
|000021a0| 6c 6c 20 6d 61 72 6b 65 | 64 20 6c 69 6e 65 73 20 |ll marke|d lines |
|000021b0| 28 6e 6f 74 20 74 68 65 | 20 66 69 6c 65 73 29 2e |(not the| files).|
|000021c0| 0a 57 69 74 68 20 61 20 | 70 72 65 66 69 78 20 61 |.With a |prefix a|
|000021d0| 72 67 75 6d 65 6e 74 2c | 20 6b 69 6c 6c 20 74 68 |rgument,| kill th|
|000021e0| 61 74 20 6d 61 6e 79 20 | 6c 69 6e 65 73 20 73 74 |at many |lines st|
|000021f0| 61 72 74 69 6e 67 20 77 | 69 74 68 20 74 68 65 20 |arting w|ith the |
|00002200| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2e 0a 28 41 |current |line..(A|
|00002210| 20 6e 65 67 61 74 69 76 | 65 20 61 72 67 75 6d 65 | negativ|e argume|
|00002220| 6e 74 20 6b 69 6c 6c 73 | 20 6c 69 6e 65 73 20 62 |nt kills| lines b|
|00002230| 65 66 6f 72 65 20 74 68 | 65 20 63 75 72 72 65 6e |efore th|e curren|
|00002240| 74 20 6c 69 6e 65 2e 29 | 0a 54 6f 20 6b 69 6c 6c |t line.)|.To kill|
|00002250| 20 61 6e 20 65 6e 74 69 | 72 65 20 73 75 62 64 69 | an enti|re subdi|
|00002260| 72 65 63 74 6f 72 79 2c | 20 67 6f 20 74 6f 20 69 |rectory,| go to i|
|00002270| 74 73 20 64 69 72 65 63 | 74 6f 72 79 20 68 65 61 |ts direc|tory hea|
|00002280| 64 65 72 20 6c 69 6e 65 | 0a 61 6e 64 20 75 73 65 |der line|.and use|
|00002290| 20 74 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 77 69 | this co|mmand wi|
|000022a0| 74 68 20 61 20 70 72 65 | 66 69 78 20 61 72 67 75 |th a pre|fix argu|
|000022b0| 6d 65 6e 74 20 28 74 68 | 65 20 76 61 6c 75 65 20 |ment (th|e value |
|000022c0| 64 6f 65 73 20 6e 6f 74 | 20 6d 61 74 74 65 72 29 |does not| matter)|
|000022d0| 2e 22 20 22 50 22 5d 29 | 0a 28 62 79 74 65 2d 63 |." "P"])|.(byte-c|
|000022e0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|000022f0| 88 c0 c5 c6 5c 22 88 c0 | c7 c8 5c 22 88 c9 ca 21 |....\"..|..\"...!|
|00002300| 84 1d 00 cb 16 5c 6e c0 | cc cd 5c 22 87 22 20 5b |.....\n.|..\"." [|
|00002310| 64 65 66 61 6c 69 61 73 | 20 64 69 72 65 64 2d 63 |defalias| dired-c|
|00002320| 6f 6d 70 72 65 73 73 20 | 23 5b 6e 69 6c 20 22 c0 |ompress |#[nil ".|
|00002330| 19 c2 20 1b c4 0b 21 89 | 1d 83 15 00 c6 0d 21 88 |.. ...!.|......!.|
|00002340| c0 82 1c 00 c7 c8 0b 50 | 21 88 0b 2b 87 22 20 5b |.......P|!..+." [|
|00002350| 6e 69 6c 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |nil buff|er-read-|
|00002360| 6f 6e 6c 79 20 64 69 72 | 65 64 2d 67 65 74 2d 66 |only dir|ed-get-f|
|00002370| 69 6c 65 6e 61 6d 65 20 | 66 72 6f 6d 2d 66 69 6c |ilename |from-fil|
|00002380| 65 20 64 69 72 65 64 2d | 63 6f 6d 70 72 65 73 73 |e dired-|compress|
|00002390| 2d 66 69 6c 65 20 6e 65 | 77 2d 66 69 6c 65 20 64 |-file ne|w-file d|
|000023a0| 69 72 65 64 2d 75 70 64 | 61 74 65 2d 66 69 6c 65 |ired-upd|ate-file|
|000023b0| 2d 6c 69 6e 65 20 64 69 | 72 65 64 2d 6c 6f 67 20 |-line di|red-log |
|000023c0| 22 46 61 69 6c 65 64 20 | 74 6f 20 63 6f 6d 70 72 |"Failed |to compr|
|000023d0| 65 73 73 22 5d 20 34 5d | 20 64 69 72 65 64 2d 63 |ess"] 4]| dired-c|
|000023e0| 6f 6d 70 72 65 73 73 2d | 66 69 6c 65 20 23 5b 28 |ompress-|file #[(|
|000023f0| 66 69 6c 65 29 20 22 c0 | 09 21 89 1a 83 0f 00 5c |file) ".|.!.....\|
|00002400| 6e c3 09 5c 22 82 57 00 | c4 09 21 83 19 00 c5 82 |n..\".W.|..!.....|
|00002410| 57 00 c5 1e 06 c7 c8 09 | 5c 22 29 83 36 00 c9 ca |W.......|\").6...|
|00002420| 09 50 cb 09 23 3f 85 57 | 00 09 cc cd 4f 82 57 00 |.P..#?.W|....O.W.|
|00002430| c5 1e 06 c7 ce 09 5c 22 | 29 83 53 00 c9 ca 09 50 |......\"|).S....P|
|00002440| cf 09 23 3f 85 57 00 09 | cc d0 4f 82 57 00 c5 d1 |..#?.W..|..O.W...|
|00002450| d2 8f 29 87 22 20 5b 66 | 69 6e 64 2d 66 69 6c 65 |..)." [f|ind-file|
|00002460| 2d 6e 61 6d 65 2d 68 61 | 6e 64 6c 65 72 20 66 69 |-name-ha|ndler fi|
|00002470| 6c 65 20 68 61 6e 64 6c | 65 72 20 64 69 72 65 64 |le handl|er dired|
|00002480| 2d 63 6f 6d 70 72 65 73 | 73 2d 66 69 6c 65 20 66 |-compres|s-file f|
|00002490| 69 6c 65 2d 73 79 6d 6c | 69 6e 6b 2d 70 20 6e 69 |ile-syml|ink-p ni|
|000024a0| 6c 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |l case-f|old-sear|
|000024b0| 63 68 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ch strin|g-match |
|000024c0| 22 5c 5c 2e 5a 24 22 20 | 64 69 72 65 64 2d 63 68 |"\\.Z$" |dired-ch|
|000024d0| 65 63 6b 2d 70 72 6f 63 | 65 73 73 20 22 55 6e 63 |eck-proc|ess "Unc|
|000024e0| 6f 6d 70 72 65 73 73 69 | 6e 67 20 22 20 22 75 6e |ompressi|ng " "un|
|000024f0| 63 6f 6d 70 72 65 73 73 | 22 20 30 20 2d 32 20 22 |compress|" 0 -2 "|
|00002500| 5c 5c 2e 67 7a 24 22 20 | 22 67 75 6e 7a 69 70 22 |\\.gz$" |"gunzip"|
|00002510| 20 2d 33 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | -3 (byt|e-code "|
|00002520| c0 c1 5c 6e 50 c3 c4 5c | 6e 24 3f 85 0f 00 5c 6e |..\nP..\|n$?...\n|
|00002530| c5 50 87 22 20 5b 64 69 | 72 65 64 2d 63 68 65 63 |.P." [di|red-chec|
|00002540| 6b 2d 70 72 6f 63 65 73 | 73 20 22 43 6f 6d 70 72 |k-proces|s "Compr|
|00002550| 65 73 73 69 6e 67 20 22 | 20 66 69 6c 65 20 22 67 |essing "| file "g|
|00002560| 7a 69 70 22 20 22 2d 66 | 22 20 22 2e 67 7a 22 5d |zip" "-f|" ".gz"]|
|00002570| 20 35 29 20 28 28 66 69 | 6c 65 2d 65 72 72 6f 72 | 5) ((fi|le-error|
|00002580| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c | (byte-c|ode "..\|
|00002590| 6e 50 c3 c4 5c 6e 24 3f | 85 0f 00 5c 6e c5 50 87 |nP..\n$?|...\n.P.|
|000025a0| 22 20 5b 64 69 72 65 64 | 2d 63 68 65 63 6b 2d 70 |" [dired|-check-p|
|000025b0| 72 6f 63 65 73 73 20 22 | 43 6f 6d 70 72 65 73 73 |rocess "|Compress|
|000025c0| 69 6e 67 20 22 20 66 69 | 6c 65 20 22 63 6f 6d 70 |ing " fi|le "comp|
|000025d0| 72 65 73 73 22 20 22 2d | 66 22 20 22 2e 5a 22 5d |ress" "-|f" ".Z"]|
|000025e0| 20 35 29 29 29 5d 20 35 | 5d 20 64 69 72 65 64 2d | 5)))] 5|] dired-|
|000025f0| 6d 61 72 6b 2d 63 6f 6e | 66 69 72 6d 20 23 5b 28 |mark-con|firm #[(|
|00002600| 6f 70 2d 73 79 6d 62 6f | 6c 20 61 72 67 29 20 22 |op-symbo|l arg) "|
|00002610| 08 09 3e 86 2f 00 c2 c3 | 0c 5c 22 08 c5 3d 83 14 |..>./...|.\"..=..|
|00002620| 00 c6 82 19 00 c7 c8 08 | 21 21 1e 09 1e 5c 6e cb |........|!!...\n.|
|00002630| cc 08 0e 5c 6e cd 0e 09 | ce cf 0c 0e 5c 6e 5c 22 |...\n...|....\n\"|
|00002640| d0 52 25 2a 87 22 20 5b | 6f 70 2d 73 79 6d 62 6f |.R%*." [|op-symbo|
|00002650| 6c 20 64 69 72 65 64 2d | 6e 6f 2d 63 6f 6e 66 69 |l dired-|no-confi|
|00002660| 72 6d 20 64 69 72 65 64 | 2d 67 65 74 2d 6d 61 72 |rm dired|-get-mar|
|00002670| 6b 65 64 2d 66 69 6c 65 | 73 20 74 20 61 72 67 20 |ked-file|s t arg |
|00002680| 63 6f 6d 70 72 65 73 73 | 20 22 43 6f 6d 70 72 65 |compress| "Compre|
|00002690| 73 73 20 6f 72 20 75 6e | 63 6f 6d 70 72 65 73 73 |ss or un|compress|
|000026a0| 22 20 63 61 70 69 74 61 | 6c 69 7a 65 20 73 79 6d |" capita|lize sym|
|000026b0| 62 6f 6c 2d 6e 61 6d 65 | 20 73 74 72 69 6e 67 20 |bol-name| string |
|000026c0| 66 69 6c 65 73 20 64 69 | 72 65 64 2d 6d 61 72 6b |files di|red-mark|
|000026d0| 2d 70 6f 70 2d 75 70 20 | 6e 69 6c 20 79 2d 6f 72 |-pop-up |nil y-or|
|000026e0| 2d 6e 2d 70 20 22 20 22 | 20 64 69 72 65 64 2d 6d |-n-p " "| dired-m|
|000026f0| 61 72 6b 2d 70 72 6f 6d | 70 74 20 22 3f 20 22 5d |ark-prom|pt "? "]|
|00002700| 20 31 30 5d 20 64 69 72 | 65 64 2d 6d 61 70 2d 6f | 10] dir|ed-map-o|
|00002710| 76 65 72 2d 6d 61 72 6b | 73 2d 63 68 65 63 6b 20 |ver-mark|s-check |
|00002720| 23 5b 28 66 75 6e 20 61 | 72 67 20 6f 70 2d 73 79 |#[(fun a|rg op-sy|
|00002730| 6d 62 6f 6c 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |mbol &op|tional s|
|00002740| 68 6f 77 2d 70 72 6f 67 | 72 65 73 73 29 20 22 c0 |how-prog|ress) ".|
|00002750| 09 5c 6e 5c 22 85 e1 00 | c3 89 89 89 1c 1d 1e 06 |.\n\"...|........|
|00002760| 1e 07 5c 6e 83 35 00 5c | 6e a8 83 2e 00 c8 5c 6e |..\n.5.\|n.....\n|
|00002770| c9 5c 22 88 5c 6e ca 57 | 83 2a 00 0c 9f 82 95 00 |.\".\n.W|.*......|
|00002780| 0c 82 95 00 0e 0b 20 43 | 82 95 00 cc 20 c3 1e 0d |...... C|.... ...|
|00002790| 1e 0e 8a 65 62 88 cf 0e | 0e c3 d0 23 85 4b 00 d1 |...eb...|...#.K..|
|000027a0| 20 89 16 0d 3f 3f 15 0e | 0d 83 87 00 0e 0d 62 88 | ...??..|......b.|
|000027b0| 0e 12 83 63 00 d3 ca 21 | 88 0e 0b 20 0c 42 14 0e |...c...!|... .B..|
|000027c0| 0d 62 88 d4 79 88 0e 0d | c3 89 93 88 cf 0e 0e c3 |.b..y...|........|
|000027d0| d0 23 85 81 00 d1 20 89 | 16 0d 84 56 00 29 0d 83 |.#.... .|...V.)..|
|000027e0| 90 00 0c 82 94 00 0e 0b | 20 43 2a 2c d5 20 88 89 |........| C*,. ..|
|000027f0| 1e 16 47 1e 17 d8 c3 0e | 16 5c 22 89 1e 19 47 1e |..G.....|.\"...G.|
|00002800| 1a 09 db 3d 83 b4 00 dc | 82 b9 00 dd de 09 21 21 |...=....|......!!|
|00002810| 1e 1f 0e 19 84 ce 00 e0 | e1 0e 1f 0e 17 e2 0e 17 |........|........|
|00002820| 21 24 82 e0 00 e3 e4 e5 | 0e 1f 97 0e 1a 0e 17 e2 |!$......|........|
|00002830| 0e 17 21 25 0e 19 5c 22 | 2d 87 22 20 5b 64 69 72 |..!%..\"|-." [dir|
|00002840| 65 64 2d 6d 61 72 6b 2d | 63 6f 6e 66 69 72 6d 20 |ed-mark-|confirm |
|00002850| 6f 70 2d 73 79 6d 62 6f | 6c 20 61 72 67 20 6e 69 |op-symbo|l arg ni|
|00002860| 6c 20 72 65 73 75 6c 74 | 73 20 66 6f 75 6e 64 20 |l result|s found |
|00002870| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00002880| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00002890| 79 20 64 69 72 65 64 2d | 72 65 70 65 61 74 2d 6f |y dired-|repeat-o|
|000028a0| 76 65 72 2d 6c 69 6e 65 | 73 20 23 5b 6e 69 6c 20 |ver-line|s #[nil |
|000028b0| 22 08 83 08 00 c1 c2 21 | 88 0b 20 0c 42 89 14 87 |"......!|.. .B...|
|000028c0| 22 20 5b 73 68 6f 77 2d | 70 72 6f 67 72 65 73 73 |" [show-|progress|
|000028d0| 20 73 69 74 2d 66 6f 72 | 20 30 20 66 75 6e 20 72 | sit-for| 0 fun r|
|000028e0| 65 73 75 6c 74 73 5d 20 | 32 5d 20 30 20 66 75 6e |esults] |2] 0 fun|
|000028f0| 20 64 69 72 65 64 2d 6d | 61 72 6b 65 72 2d 72 65 | dired-m|arker-re|
|00002900| 67 65 78 70 20 6e 65 78 | 74 2d 70 6f 73 69 74 69 |gexp nex|t-positi|
|00002910| 6f 6e 20 72 65 67 65 78 | 70 20 72 65 2d 73 65 61 |on regex|p re-sea|
|00002920| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 20 70 6f |rch-forw|ard t po|
|00002930| 69 6e 74 2d 6d 61 72 6b | 65 72 20 73 68 6f 77 2d |int-mark|er show-|
|00002940| 70 72 6f 67 72 65 73 73 | 20 73 69 74 2d 66 6f 72 |progress| sit-for|
|00002950| 20 31 20 64 69 72 65 64 | 2d 6d 6f 76 65 2d 74 6f | 1 dired|-move-to|
|00002960| 2d 66 69 6c 65 6e 61 6d | 65 20 74 6f 74 61 6c 2d |-filenam|e total-|
|00002970| 6c 69 73 74 20 74 6f 74 | 61 6c 20 64 65 6c 71 20 |list tot|al delq |
|00002980| 66 61 69 6c 75 72 65 73 | 20 63 6f 75 6e 74 20 63 |failures| count c|
|00002990| 6f 6d 70 72 65 73 73 20 | 22 43 6f 6d 70 72 65 73 |ompress |"Compres|
|000029a0| 73 20 6f 72 20 75 6e 63 | 6f 6d 70 72 65 73 73 22 |s or unc|ompress"|
|000029b0| 20 63 61 70 69 74 61 6c | 69 7a 65 20 73 79 6d 62 | capital|ize symb|
|000029c0| 6f 6c 2d 6e 61 6d 65 20 | 73 74 72 69 6e 67 20 6d |ol-name |string m|
|000029d0| 65 73 73 61 67 65 20 22 | 25 73 3a 20 25 64 20 66 |essage "|%s: %d f|
|000029e0| 69 6c 65 25 73 2e 22 20 | 64 69 72 65 64 2d 70 6c |ile%s." |dired-pl|
|000029f0| 75 72 61 6c 2d 73 20 64 | 69 72 65 64 2d 6c 6f 67 |ural-s d|ired-log|
|00002a00| 2d 73 75 6d 6d 61 72 79 | 20 66 6f 72 6d 61 74 20 |-summary| format |
|00002a10| 22 46 61 69 6c 65 64 20 | 74 6f 20 25 73 20 25 64 |"Failed |to %s %d|
|00002a20| 20 6f 66 20 25 64 20 66 | 69 6c 65 25 73 22 5d 20 | of %d f|ile%s"] |
|00002a30| 39 5d 20 62 6f 75 6e 64 | 70 20 64 69 72 65 64 2d |9] bound|p dired-|
|00002a40| 71 75 65 72 79 2d 61 6c | 69 73 74 20 28 28 31 32 |query-al|ist ((12|
|00002a50| 31 20 2e 20 79 29 20 28 | 33 32 20 2e 20 79 29 20 |1 . y) (|32 . y) |
|00002a60| 28 31 31 30 20 2e 20 6e | 29 20 28 31 32 37 20 2e |(110 . n|) (127 .|
|00002a70| 20 6e 29 20 28 33 33 20 | 2e 20 79 65 73 29 20 28 | n) (33 |. yes) (|
|00002a80| 31 31 33 20 2e 20 6e 6f | 29 20 28 32 37 20 2e 20 |113 . no|) (27 . |
|00002a90| 6e 6f 29 29 20 64 69 72 | 65 64 2d 71 75 65 72 79 |no)) dir|ed-query|
|00002aa0| 20 23 5b 28 71 73 2d 76 | 61 72 20 71 73 2d 70 72 | #[(qs-v|ar qs-pr|
|00002ab0| 6f 6d 70 74 20 26 72 65 | 73 74 20 71 73 2d 61 72 |ompt &re|st qs-ar|
|00002ac0| 67 73 29 20 22 08 4a 19 | c2 09 0b 5c 22 41 89 1c |gs) ".J.|...\"A..|
|00002ad0| c5 3d 83 13 00 c6 82 74 | 00 0c c7 3d 83 1d 00 c8 |.=.....t|...=....|
|00002ae0| 82 74 00 0e 09 0e 5c 6e | 83 30 00 cb cc cd ce 0e |.t....\n|.0......|
|00002af0| 0f 21 21 5c 22 82 31 00 | d0 50 c8 89 1e 11 1e 12 |.!!\".1.|.P......|
|00002b00| 1e 13 d4 d5 0e 13 0e 16 | 23 88 08 d7 20 4c 11 c2 |........|#... L..|
|00002b10| 09 0b 5c 22 89 16 11 84 | 6e 00 d5 d8 0e 0f 5c 22 |..\"....|n.....\"|
|00002b20| 88 d9 20 88 da db 21 88 | d4 d5 0e 13 0e 16 23 88 |.. ...!.|......#.|
|00002b30| 08 d7 20 4c 11 82 47 00 | 0e 11 41 dc 3e 2b 2a 87 |.. L..G.|..A.>+*.|
|00002b40| 22 20 5b 71 73 2d 76 61 | 72 20 63 68 61 72 20 61 |" [qs-va|r char a|
|00002b50| 73 73 6f 63 20 64 69 72 | 65 64 2d 71 75 65 72 79 |ssoc dir|ed-query|
|00002b60| 2d 61 6c 69 73 74 20 61 | 63 74 69 6f 6e 20 79 65 |-alist a|ction ye|
|00002b70| 73 20 74 20 6e 6f 20 6e | 69 6c 20 71 73 2d 70 72 |s t no n|il qs-pr|
|00002b80| 6f 6d 70 74 20 68 65 6c | 70 2d 66 6f 72 6d 20 66 |ompt hel|p-form f|
|00002b90| 6f 72 6d 61 74 20 22 20 | 5b 54 79 70 65 20 79 6e |ormat " |[Type yn|
|00002ba0| 21 71 20 6f 72 20 25 73 | 5d 20 22 20 6b 65 79 2d |!q or %s|] " key-|
|00002bb0| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 63 68 61 72 |descript|ion char|
|00002bc0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 68 65 6c 70 2d |-to-stri|ng help-|
|00002bd0| 63 68 61 72 20 22 20 5b | 54 79 70 65 20 79 2c 20 |char " [|Type y, |
|00002be0| 6e 2c 20 71 20 6f 72 20 | 21 5d 20 22 20 65 6c 74 |n, q or |!] " elt|
|00002bf0| 20 72 65 73 75 6c 74 20 | 71 70 72 6f 6d 70 74 20 | result |qprompt |
|00002c00| 61 70 70 6c 79 20 6d 65 | 73 73 61 67 65 20 71 73 |apply me|ssage qs|
|00002c10| 2d 61 72 67 73 20 72 65 | 61 64 2d 63 68 61 72 20 |-args re|ad-char |
|00002c20| 22 49 6e 76 61 6c 69 64 | 20 63 68 61 72 20 2d 20 |"Invalid| char - |
|00002c30| 74 79 70 65 20 25 63 20 | 66 6f 72 20 68 65 6c 70 |type %c |for help|
|00002c40| 2e 22 20 64 69 6e 67 20 | 73 69 74 2d 66 6f 72 20 |." ding |sit-for |
|00002c50| 31 20 28 74 20 79 20 79 | 65 73 29 5d 20 37 5d 5d |1 (t y y|es)] 7]]|
|00002c60| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 | 3).(def|alias 'd|
|00002c70| 69 72 65 64 2d 64 6f 2d | 63 6f 6d 70 72 65 73 73 |ired-do-|compress|
|00002c80| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00002c90| 67 29 20 22 c0 c1 5c 6e | c3 c4 24 87 22 20 5b 64 |g) "..\n|..$." [d|
|00002ca0| 69 72 65 64 2d 6d 61 70 | 2d 6f 76 65 72 2d 6d 61 |ired-map|-over-ma|
|00002cb0| 72 6b 73 2d 63 68 65 63 | 6b 20 64 69 72 65 64 2d |rks-chec|k dired-|
|00002cc0| 63 6f 6d 70 72 65 73 73 | 20 61 72 67 20 63 6f 6d |compress| arg com|
|00002cd0| 70 72 65 73 73 20 74 5d | 20 35 20 22 5c 0a 43 6f |press t]| 5 "\.Co|
|00002ce0| 6d 70 72 65 73 73 20 6f | 72 20 75 6e 63 6f 6d 70 |mpress o|r uncomp|
|00002cf0| 72 65 73 73 20 6d 61 72 | 6b 65 64 20 28 6f 72 20 |ress mar|ked (or |
|00002d00| 6e 65 78 74 20 41 52 47 | 29 20 66 69 6c 65 73 2e |next ARG|) files.|
|00002d10| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00002d20| 73 20 28 71 75 6f 74 65 | 20 64 69 72 65 64 2d 62 |s (quote| dired-b|
|00002d30| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 29 20 23 5b 6e |yte-comp|ile) #[n|
|00002d40| 69 6c 20 22 c0 20 19 5c | 6e c3 3d 83 15 00 09 c4 |il ". .\|n.=.....|
|00002d50| c5 c6 09 5c 22 4f c7 50 | 82 18 00 09 c7 50 1e 08 |...\"O.P|.....P..|
|00002d60| c9 1e 5c 6e c9 1e 0b cc | cd ce 8f 88 0e 0b 83 37 |..\n....|.......7|
|00002d70| 00 cf d0 09 0e 0b 23 88 | d1 09 21 82 45 00 d2 0e |......#.|..!.E...|
|00002d80| 08 21 88 c9 79 88 d3 0e | 08 21 88 c9 2c 87 22 20 |.!..y...|.!..,." |
|00002d90| 5b 64 69 72 65 64 2d 67 | 65 74 2d 66 69 6c 65 6e |[dired-g|et-filen|
|00002da0| 61 6d 65 20 66 69 6c 65 | 6e 61 6d 65 20 73 79 73 |ame file|name sys|
|00002db0| 74 65 6d 2d 74 79 70 65 | 20 76 61 78 2d 76 6d 73 |tem-type| vax-vms|
|00002dc0| 20 30 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 | 0 strin|g-match |
|00002dd0| 22 3b 22 20 22 63 22 20 | 65 6c 63 2d 66 69 6c 65 |";" "c" |elc-file|
|00002de0| 20 6e 69 6c 20 62 75 66 | 66 65 72 2d 72 65 61 64 | nil buf|fer-read|
|00002df0| 2d 6f 6e 6c 79 20 66 61 | 69 6c 75 72 65 20 65 72 |-only fa|ilure er|
|00002e00| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 |r (byte-|code "..|
|00002e10| 09 21 88 29 c0 87 22 20 | 5b 62 79 74 65 2d 63 6f |.!.).." |[byte-co|
|00002e20| 6d 70 69 6c 65 2d 66 69 | 6c 65 20 66 69 6c 65 6e |mpile-fi|le filen|
|00002e30| 61 6d 65 5d 20 32 29 20 | 28 28 65 72 72 6f 72 20 |ame] 2) |((error |
|00002e40| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 11 c2 87 |(byte-co|de "....|
|00002e50| 22 20 5b 65 72 72 20 66 | 61 69 6c 75 72 65 20 6e |" [err f|ailure n|
|00002e60| 69 6c 5d 20 31 29 29 29 | 20 64 69 72 65 64 2d 6c |il] 1)))| dired-l|
|00002e70| 6f 67 20 22 42 79 74 65 | 20 63 6f 6d 70 69 6c 65 |og "Byte| compile|
|00002e80| 20 65 72 72 6f 72 20 66 | 6f 72 20 25 73 3a 5c 6e | error f|or %s:\n|
|00002e90| 25 73 5c 6e 22 20 64 69 | 72 65 64 2d 6d 61 6b 65 |%s\n" di|red-make|
|00002ea0| 2d 72 65 6c 61 74 69 76 | 65 20 64 69 72 65 64 2d |-relativ|e dired-|
|00002eb0| 72 65 6d 6f 76 65 2d 66 | 69 6c 65 20 64 69 72 65 |remove-f|ile dire|
|00002ec0| 64 2d 61 64 64 2d 66 69 | 6c 65 5d 20 35 5d 29 0a |d-add-fi|le] 5]).|
|00002ed0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 72 65 64 |(defalia|s 'dired|
|00002ee0| 2d 64 6f 2d 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |-do-byte|-compile|
|00002ef0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00002f00| 67 29 20 22 c0 c1 5c 6e | c3 c4 24 87 22 20 5b 64 |g) "..\n|..$." [d|
|00002f10| 69 72 65 64 2d 6d 61 70 | 2d 6f 76 65 72 2d 6d 61 |ired-map|-over-ma|
|00002f20| 72 6b 73 2d 63 68 65 63 | 6b 20 64 69 72 65 64 2d |rks-chec|k dired-|
|00002f30| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 20 61 72 67 |byte-com|pile arg|
|00002f40| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 20 74 5d | byte-co|mpile t]|
|00002f50| 20 35 20 22 5c 0a 42 79 | 74 65 20 63 6f 6d 70 69 | 5 "\.By|te compi|
|00002f60| 6c 65 20 6d 61 72 6b 65 | 64 20 28 6f 72 20 6e 65 |le marke|d (or ne|
|00002f70| 78 74 20 41 52 47 29 20 | 45 6d 61 63 73 20 4c 69 |xt ARG) |Emacs Li|
|00002f80| 73 70 20 66 69 6c 65 73 | 2e 22 20 22 50 22 5d 29 |sp files|." "P"])|
|00002f90| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00002fa0| 65 20 64 69 72 65 64 2d | 6c 6f 61 64 29 20 23 5b |e dired-|load) #[|
|00002fb0| 6e 69 6c 20 22 c0 20 c1 | 1a 1b c4 c5 c6 8f 88 5c |nil ". .|.......\|
|00002fc0| 6e 3f 3f 85 19 00 c7 c8 | 0b 5c 6e 23 88 c9 0b 21 |n??.....|.\n#...!|
|00002fd0| 2a 87 22 20 5b 64 69 72 | 65 64 2d 67 65 74 2d 66 |*." [dir|ed-get-f|
|00002fe0| 69 6c 65 6e 61 6d 65 20 | 6e 69 6c 20 66 61 69 6c |ilename |nil fail|
|00002ff0| 75 72 65 20 66 69 6c 65 | 20 65 72 72 20 28 62 79 |ure file| err (by|
|00003000| 74 65 2d 63 6f 64 65 20 | 22 c0 09 c2 89 c3 24 87 |te-code |".....$.|
|00003010| 22 20 5b 6c 6f 61 64 20 | 66 69 6c 65 20 6e 69 6c |" [load |file nil|
|00003020| 20 74 5d 20 35 29 20 28 | 28 65 72 72 6f 72 20 28 | t] 5) (|(error (|
|00003030| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 11 c2 87 22 |byte-cod|e "...."|
|00003040| 20 5b 65 72 72 20 66 61 | 69 6c 75 72 65 20 6e 69 | [err fa|ilure ni|
|00003050| 6c 5d 20 31 29 29 29 20 | 64 69 72 65 64 2d 6c 6f |l] 1))) |dired-lo|
|00003060| 67 20 22 4c 6f 61 64 20 | 65 72 72 6f 72 20 66 6f |g "Load |error fo|
|00003070| 72 20 25 73 3a 5c 6e 25 | 73 5c 6e 22 20 64 69 72 |r %s:\n%|s\n" dir|
|00003080| 65 64 2d 6d 61 6b 65 2d | 72 65 6c 61 74 69 76 65 |ed-make-|relative|
|00003090| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|000030a0| 27 64 69 72 65 64 2d 64 | 6f 2d 6c 6f 61 64 20 23 |'dired-d|o-load #|
|000030b0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|000030c0| 20 22 c0 c1 5c 6e c3 c4 | 24 87 22 20 5b 64 69 72 | "..\n..|$." [dir|
|000030d0| 65 64 2d 6d 61 70 2d 6f | 76 65 72 2d 6d 61 72 6b |ed-map-o|ver-mark|
|000030e0| 73 2d 63 68 65 63 6b 20 | 64 69 72 65 64 2d 6c 6f |s-check |dired-lo|
|000030f0| 61 64 20 61 72 67 20 6c | 6f 61 64 20 74 5d 20 35 |ad arg l|oad t] 5|
|00003100| 20 22 5c 0a 4c 6f 61 64 | 20 74 68 65 20 6d 61 72 | "\.Load| the mar|
|00003110| 6b 65 64 20 28 6f 72 20 | 6e 65 78 74 20 41 52 47 |ked (or |next ARG|
|00003120| 29 20 45 6d 61 63 73 20 | 4c 69 73 70 20 66 69 6c |) Emacs |Lisp fil|
|00003130| 65 73 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |es." "P"|]).(defa|
|00003140| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 72 |lias 'di|red-do-r|
|00003150| 65 64 69 73 70 6c 61 79 | 20 23 5b 28 26 6f 70 74 |edisplay| #[(&opt|
|00003160| 69 6f 6e 61 6c 20 61 72 | 67 20 74 65 73 74 2d 66 |ional ar|g test-f|
|00003170| 6f 72 2d 73 75 62 64 69 | 72 29 20 22 08 83 17 00 |or-subdi|r) "....|
|00003180| c1 20 83 17 00 c2 c1 20 | 0b 85 15 00 c4 c5 0e 06 |. ..... |........|
|00003190| 5c 22 5c 22 87 c7 c8 21 | 88 c9 89 89 89 1e 5c 6e |\"\"...!|......\n|
|000031a0| 1e 0b 1e 0c 1e 0d 0b 83 | 55 00 0b a8 83 42 00 ce |........|U....B..|
|000031b0| 0b cf 5c 22 88 0b d0 57 | 83 c4 00 0e 5c 6e 9f 88 |..\"...W|....\n..|
|000031c0| 82 c4 00 d1 20 1e 12 c7 | d3 0e 12 5c 22 88 d4 0e |.... ...|...\"...|
|000031d0| 12 21 88 29 82 c4 00 d5 | 20 c9 1e 16 1e 17 8a 65 |.!.)....| ......e|
|000031e0| 62 88 d8 0e 17 c9 d9 23 | 85 6b 00 da 20 89 16 16 |b......#|.k.. ...|
|000031f0| 3f 3f 16 0b 0e 16 83 ad | 00 0e 16 62 88 d1 20 1e |??......|...b.. .|
|00003200| 12 c7 d3 0e 12 5c 22 88 | d4 0e 12 21 29 0e 5c 6e |.....\".|...!).\n|
|00003210| 42 16 5c 6e 0e 16 62 88 | db 79 88 0e 16 c9 89 93 |B.\n..b.|.y......|
|00003220| 88 d8 0e 17 c9 d9 23 85 | a7 00 da 20 89 16 16 84 |......#.|... ....|
|00003230| 77 00 29 0e 0b 84 c3 00 | d1 20 1e 12 c7 d3 0e 12 |w.).....|. ......|
|00003240| 5c 22 88 d4 0e 12 21 88 | 29 2a 2c dc 20 88 dc 20 |\"....!.|)*,. .. |
|00003250| 88 c7 dd 21 87 22 20 5b | 74 65 73 74 2d 66 6f 72 |...!." [|test-for|
|00003260| 2d 73 75 62 64 69 72 20 | 64 69 72 65 64 2d 67 65 |-subdir |dired-ge|
|00003270| 74 2d 73 75 62 64 69 72 | 20 64 69 72 65 64 2d 69 |t-subdir| dired-i|
|00003280| 6e 73 65 72 74 2d 73 75 | 62 64 69 72 20 61 72 67 |nsert-su|bdir arg|
|00003290| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 53 77 | read-st|ring "Sw|
|000032a0| 69 74 63 68 65 73 20 66 | 6f 72 20 6c 69 73 74 69 |itches f|or listi|
|000032b0| 6e 67 3a 20 22 20 64 69 | 72 65 64 2d 61 63 74 75 |ng: " di|red-actu|
|000032c0| 61 6c 2d 73 77 69 74 63 | 68 65 73 20 6d 65 73 73 |al-switc|hes mess|
|000032d0| 61 67 65 20 22 52 65 64 | 69 73 70 6c 61 79 69 6e |age "Red|isplayin|
|000032e0| 67 2e 2e 2e 22 20 6e 69 | 6c 20 72 65 73 75 6c 74 |g..." ni|l result|
|000032f0| 73 20 66 6f 75 6e 64 20 | 63 61 73 65 2d 66 6f 6c |s found |case-fol|
|00003300| 64 2d 73 65 61 72 63 68 | 20 62 75 66 66 65 72 2d |d-search| buffer-|
|00003310| 72 65 61 64 2d 6f 6e 6c | 79 20 64 69 72 65 64 2d |read-onl|y dired-|
|00003320| 72 65 70 65 61 74 2d 6f | 76 65 72 2d 6c 69 6e 65 |repeat-o|ver-line|
|00003330| 73 20 23 5b 6e 69 6c 20 | 22 c0 20 19 c2 c3 09 5c |s #[nil |". ....\|
|00003340| 22 88 c4 09 21 29 0d 42 | 89 15 87 22 20 5b 64 69 |"...!).B|..." [di|
|00003350| 72 65 64 2d 67 65 74 2d | 66 69 6c 65 6e 61 6d 65 |red-get-|filename|
|00003360| 20 66 6e 61 6d 65 20 6d | 65 73 73 61 67 65 20 22 | fname m|essage "|
|00003370| 52 65 64 69 73 70 6c 61 | 79 69 6e 67 2e 2e 2e 20 |Redispla|ying... |
|00003380| 25 73 22 20 64 69 72 65 | 64 2d 75 70 64 61 74 65 |%s" dire|d-update|
|00003390| 2d 66 69 6c 65 2d 6c 69 | 6e 65 20 72 65 73 75 6c |-file-li|ne resul|
|000033a0| 74 73 5d 20 33 5d 20 30 | 20 64 69 72 65 64 2d 67 |ts] 3] 0| dired-g|
|000033b0| 65 74 2d 66 69 6c 65 6e | 61 6d 65 20 66 6e 61 6d |et-filen|ame fnam|
|000033c0| 65 20 22 52 65 64 69 73 | 70 6c 61 79 69 6e 67 2e |e "Redis|playing.|
|000033d0| 2e 2e 20 25 73 22 20 64 | 69 72 65 64 2d 75 70 64 |.. %s" d|ired-upd|
|000033e0| 61 74 65 2d 66 69 6c 65 | 2d 6c 69 6e 65 20 64 69 |ate-file|-line di|
|000033f0| 72 65 64 2d 6d 61 72 6b | 65 72 2d 72 65 67 65 78 |red-mark|er-regex|
|00003400| 70 20 6e 65 78 74 2d 70 | 6f 73 69 74 69 6f 6e 20 |p next-p|osition |
|00003410| 72 65 67 65 78 70 20 72 | 65 2d 73 65 61 72 63 68 |regexp r|e-search|
|00003420| 2d 66 6f 72 77 61 72 64 | 20 74 20 70 6f 69 6e 74 |-forward| t point|
|00003430| 2d 6d 61 72 6b 65 72 20 | 31 20 64 69 72 65 64 2d |-marker |1 dired-|
|00003440| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00003450| 20 22 52 65 64 69 73 70 | 6c 61 79 69 6e 67 2e 2e | "Redisp|laying..|
|00003460| 2e 64 6f 6e 65 22 5d 20 | 36 20 22 5c 0a 52 65 64 |.done"] |6 "\.Red|
|00003470| 69 73 70 6c 61 79 20 61 | 6c 6c 20 6d 61 72 6b 65 |isplay a|ll marke|
|00003480| 64 20 28 6f 72 20 6e 65 | 78 74 20 41 52 47 29 20 |d (or ne|xt ARG) |
|00003490| 66 69 6c 65 73 2e 0a 49 | 66 20 6f 6e 20 61 20 73 |files..I|f on a s|
|000034a0| 75 62 64 69 72 20 6c 69 | 6e 65 2c 20 72 65 64 69 |ubdir li|ne, redi|
|000034b0| 73 70 6c 61 79 20 74 68 | 61 74 20 73 75 62 64 69 |splay th|at subdi|
|000034c0| 72 65 63 74 6f 72 79 2e | 20 20 49 6e 20 74 68 61 |rectory.| In tha|
|000034d0| 74 20 63 61 73 65 2c 0a | 61 20 70 72 65 66 69 78 |t case,.|a prefix|
|000034e0| 20 61 72 67 20 6c 65 74 | 73 20 79 6f 75 20 65 64 | arg let|s you ed|
|000034f0| 69 74 20 74 68 65 20 60 | 6c 73 27 20 73 77 69 74 |it the `|ls' swit|
|00003500| 63 68 65 73 20 75 73 65 | 64 20 66 6f 72 20 74 68 |ches use|d for th|
|00003510| 65 20 6e 65 77 20 6c 69 | 73 74 69 6e 67 2e 22 20 |e new li|sting." |
|00003520| 22 50 5c 6e 70 22 5d 29 | 0a 28 62 79 74 65 2d 63 |"P\np"])|.(byte-c|
|00003530| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00003540| 88 c0 c5 c6 5c 22 88 c0 | c7 c8 5c 22 88 c0 c9 ca |....\"..|..\"....|
|00003550| 5c 22 88 c0 cb cc 5c 22 | 88 c0 cd ce 5c 22 88 c0 |\"....\"|....\"..|
|00003560| cf d0 5c 22 88 c0 d1 d2 | 5c 22 88 c0 d3 d4 5c 22 |..\"....|\"....\"|
|00003570| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 64 69 72 |." [defa|lias dir|
|00003580| 65 64 2d 75 70 64 61 74 | 65 2d 66 69 6c 65 2d 6c |ed-updat|e-file-l|
|00003590| 69 6e 65 20 23 5b 28 66 | 69 6c 65 29 20 22 c0 79 |ine #[(f|ile) ".y|
|000035a0| 88 67 60 c1 1a 1b 1c 60 | c5 79 88 60 7c 88 0e 06 |.g`....`|.y.`|...|
|000035b0| 83 5c 22 00 c7 0e 06 21 | 88 c8 0b 89 54 c9 0c 24 |.\"....!|....T..$|
|000035c0| 88 2b ca 20 87 22 20 5b | 30 20 6e 69 6c 20 62 75 |.+. ." [|0 nil bu|
|000035d0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 6f |ffer-rea|d-only o|
|000035e0| 70 6f 69 6e 74 20 63 68 | 61 72 20 31 20 66 69 6c |point ch|ar 1 fil|
|000035f0| 65 20 64 69 72 65 64 2d | 61 64 64 2d 65 6e 74 72 |e dired-|add-entr|
|00003600| 79 20 73 75 62 73 74 2d | 63 68 61 72 2d 69 6e 2d |y subst-|char-in-|
|00003610| 72 65 67 69 6f 6e 20 33 | 32 20 64 69 72 65 64 2d |region 3|2 dired-|
|00003620| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00003630| 5d 20 35 5d 20 64 69 72 | 65 64 2d 66 75 6e 2d 69 |] 5] dir|ed-fun-i|
|00003640| 6e 2d 61 6c 6c 2d 62 75 | 66 66 65 72 73 20 23 5b |n-all-bu|ffers #[|
|00003650| 28 64 69 72 65 63 74 6f | 72 79 20 66 75 6e 20 26 |(directo|ry fun &|
|00003660| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 09 21 70 |rest arg|s) "..!p|
|00003670| c2 89 1b 1c 1d 1e 06 0e | 06 83 31 00 0e 06 40 14 |........|..1...@.|
|00003680| 0e 06 41 16 06 c7 8e 0c | 71 88 c8 0e 09 0e 5c 6e |..A.....|q.....\n|
|00003690| 5c 22 83 2d 00 cb 0c 21 | 0b 42 13 29 82 0b 00 0b |\".-...!|.B.)....|
|000036a0| 2c 87 22 20 5b 64 69 72 | 65 64 2d 62 75 66 66 65 |,." [dir|ed-buffe|
|000036b0| 72 73 2d 66 6f 72 2d 64 | 69 72 20 64 69 72 65 63 |rs-for-d|ir direc|
|000036c0| 74 6f 72 79 20 6e 69 6c | 20 73 75 63 63 65 73 73 |tory nil| success|
|000036d0| 2d 6c 69 73 74 20 62 75 | 66 20 6f 62 75 66 20 62 |-list bu|f obuf b|
|000036e0| 75 66 2d 6c 69 73 74 20 | 28 28 73 65 74 2d 62 75 |uf-list |((set-bu|
|000036f0| 66 66 65 72 20 6f 62 75 | 66 29 29 20 61 70 70 6c |ffer obu|f)) appl|
|00003700| 79 20 66 75 6e 20 61 72 | 67 73 20 62 75 66 66 65 |y fun ar|gs buffe|
|00003710| 72 2d 6e 61 6d 65 5d 20 | 34 5d 20 64 69 72 65 64 |r-name] |4] dired|
|00003720| 2d 61 64 64 2d 66 69 6c | 65 20 23 5b 28 66 69 6c |-add-fil|e #[(fil|
|00003730| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00003740| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 22 c0 c1 |marker-c|har) "..|
|00003750| 5c 6e 21 c3 5c 6e 0c 24 | 87 22 20 5b 64 69 72 65 |\n!.\n.$|." [dire|
|00003760| 64 2d 66 75 6e 2d 69 6e | 2d 61 6c 6c 2d 62 75 66 |d-fun-in|-all-buf|
|00003770| 66 65 72 73 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |fers fil|e-name-d|
|00003780| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 6e 61 6d |irectory| filenam|
|00003790| 65 20 64 69 72 65 64 2d | 61 64 64 2d 65 6e 74 72 |e dired-|add-entr|
|000037a0| 79 20 6d 61 72 6b 65 72 | 2d 63 68 61 72 5d 20 35 |y marker|-char] 5|
|000037b0| 5d 20 64 69 72 65 64 2d | 61 64 64 2d 65 6e 74 72 |] dired-|add-entr|
|000037c0| 79 20 23 5b 28 66 69 6c | 65 6e 61 6d 65 20 26 6f |y #[(fil|ename &o|
|000037d0| 70 74 69 6f 6e 61 6c 20 | 6d 61 72 6b 65 72 2d 63 |ptional |marker-c|
|000037e0| 68 61 72 29 20 22 c0 09 | 21 11 60 c2 20 c3 09 21 |har) "..|!.`. ..!|
|000037f0| c4 1d 1e 06 1e 07 1e 08 | c9 09 21 11 ca cb 8d 89 |........|..!.....|
|00003800| 15 83 5c 22 00 0e 08 62 | 88 0d 2c 3f 87 22 20 5b |..\"...b|..,?." [|
|00003810| 64 69 72 65 63 74 6f 72 | 79 2d 66 69 6c 65 2d 6e |director|y-file-n|
|00003820| 61 6d 65 20 66 69 6c 65 | 6e 61 6d 65 20 64 69 72 |ame file|name dir|
|00003830| 65 64 2d 63 75 72 72 65 | 6e 74 2d 64 69 72 65 63 |ed-curre|nt-direc|
|00003840| 74 6f 72 79 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |tory fil|e-name-d|
|00003850| 69 72 65 63 74 6f 72 79 | 20 6e 69 6c 20 72 65 61 |irectory| nil rea|
|00003860| 73 6f 6e 20 64 69 72 65 | 63 74 6f 72 79 20 63 75 |son dire|ctory cu|
|00003870| 72 2d 64 69 72 20 6f 70 | 6f 69 6e 74 20 66 69 6c |r-dir op|oint fil|
|00003880| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|00003890| 6f 72 79 20 6e 6f 74 2d | 66 6f 75 6e 64 20 28 62 |ory not-|found (b|
|000038a0| 79 74 65 2d 63 6f 64 65 | 20 22 08 09 98 83 27 00 |yte-code| "....'.|
|000038b0| c2 c3 77 88 67 c4 3d 83 | 13 00 c5 20 88 c6 09 21 |..w.g.=.|... ...!|
|000038c0| 1e 07 60 0e 07 57 83 23 | 00 0e 07 62 88 29 82 41 |..`..W.#|...b.).A|
|000038d0| 00 c8 08 21 83 3c 00 c9 | ca 21 83 36 00 c5 20 88 |...!.<..|.!.6.. .|
|000038e0| cb 20 88 82 41 00 cc cd | ce 5c 22 88 c3 1e 0f d0 |. ..A...|.\".....|
|000038f0| 79 88 d1 0e 12 21 88 d3 | d4 0e 15 08 5c 22 0e 16 |y....!..|....\"..|
|00003900| d7 50 5c 22 88 d8 79 88 | d9 da 21 1e 1b dc 20 1e |.P\"..y.|..!... .|
|00003910| 1d 0e 1b 0e 1d 7b 16 15 | 0e 1b 0e 1d 7c 88 de 0e |.....{..|....|...|
|00003920| 15 21 63 88 2a 0e 1f 83 | 90 00 8a 8c d0 79 88 60 |.!c.*...|.....y.`|
|00003930| 8a e0 79 88 60 29 7d 88 | e1 df 21 88 2a d9 20 88 |..y.`)}.|..!.*. .|
|00003940| 29 c3 87 22 20 5b 64 69 | 72 65 63 74 6f 72 79 20 |).." [di|rectory |
|00003950| 63 75 72 2d 64 69 72 20 | 22 5e 0d 5c 6e 22 20 6e |cur-dir |"^.\n" n|
|00003960| 69 6c 20 31 33 20 64 69 | 72 65 64 2d 75 6e 68 69 |il 13 di|red-unhi|
|00003970| 64 65 2d 73 75 62 64 69 | 72 20 64 69 72 65 64 2d |de-subdi|r dired-|
|00003980| 61 66 74 65 72 2d 73 75 | 62 64 69 72 2d 67 61 72 |after-su|bdir-gar|
|00003990| 62 61 67 65 20 70 20 64 | 69 72 65 64 2d 67 6f 74 |bage p d|ired-got|
|000039a0| 6f 2d 73 75 62 64 69 72 | 20 6c 6f 6f 6b 69 6e 67 |o-subdir| looking|
|000039b0| 2d 61 74 20 22 0d 22 20 | 64 69 72 65 64 2d 67 6f |-at "." |dired-go|
|000039c0| 74 6f 2d 6e 65 78 74 2d | 6e 6f 6e 74 72 69 76 69 |to-next-|nontrivi|
|000039d0| 61 6c 2d 66 69 6c 65 20 | 74 68 72 6f 77 20 6e 6f |al-file |throw no|
|000039e0| 74 2d 66 6f 75 6e 64 20 | 22 53 75 62 64 69 72 20 |t-found |"Subdir |
|000039f0| 6e 6f 74 20 66 6f 75 6e | 64 22 20 62 75 66 66 65 |not foun|d" buffe|
|00003a00| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 30 20 64 69 |r-read-o|nly 0 di|
|00003a10| 72 65 64 2d 61 64 64 2d | 65 6e 74 72 79 2d 64 6f |red-add-|entry-do|
|00003a20| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6d 61 72 |-indenta|tion mar|
|00003a30| 6b 65 72 2d 63 68 61 72 | 20 69 6e 73 65 72 74 2d |ker-char| insert-|
|00003a40| 64 69 72 65 63 74 6f 72 | 79 20 64 69 72 65 64 2d |director|y dired-|
|00003a50| 6d 61 6b 65 2d 61 62 73 | 6f 6c 75 74 65 20 66 69 |make-abs|olute fi|
|00003a60| 6c 65 6e 61 6d 65 20 64 | 69 72 65 64 2d 61 63 74 |lename d|ired-act|
|00003a70| 75 61 6c 2d 73 77 69 74 | 63 68 65 73 20 22 64 22 |ual-swit|ches "d"|
|00003a80| 20 2d 31 20 64 69 72 65 | 64 2d 6d 6f 76 65 2d 74 | -1 dire|d-move-t|
|00003a90| 6f 2d 66 69 6c 65 6e 61 | 6d 65 20 74 20 62 65 67 |o-filena|me t beg|
|00003aa0| 20 64 69 72 65 64 2d 6d | 6f 76 65 2d 74 6f 2d 65 | dired-m|ove-to-e|
|00003ab0| 6e 64 2d 6f 66 2d 66 69 | 6c 65 6e 61 6d 65 20 65 |nd-of-fi|lename e|
|00003ac0| 6e 64 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |nd file-|name-non|
|00003ad0| 64 69 72 65 63 74 6f 72 | 79 20 64 69 72 65 64 2d |director|y dired-|
|00003ae0| 61 66 74 65 72 2d 72 65 | 61 64 69 6e 2d 68 6f 6f |after-re|adin-hoo|
|00003af0| 6b 20 31 20 72 75 6e 2d | 68 6f 6f 6b 73 5d 20 34 |k 1 run-|hooks] 4|
|00003b00| 29 5d 20 35 5d 20 64 69 | 72 65 64 2d 61 64 64 2d |)] 5] di|red-add-|
|00003b10| 65 6e 74 72 79 2d 64 6f | 2d 69 6e 64 65 6e 74 61 |entry-do|-indenta|
|00003b20| 74 69 6f 6e 20 23 5b 28 | 6d 61 72 6b 65 72 2d 63 |tion #[(|marker-c|
|00003b30| 68 61 72 29 20 22 08 83 | 11 00 08 a8 83 0d 00 08 |har) "..|........|
|00003b40| 82 12 00 09 82 12 00 c2 | c2 b1 02 87 22 20 5b 6d |........|...." [m|
|00003b50| 61 72 6b 65 72 2d 63 68 | 61 72 20 64 69 72 65 64 |arker-ch|ar dired|
|00003b60| 2d 6d 61 72 6b 65 72 2d | 63 68 61 72 20 33 32 5d |-marker-|char 32]|
|00003b70| 20 32 5d 20 64 69 72 65 | 64 2d 61 66 74 65 72 2d | 2] dire|d-after-|
|00003b80| 73 75 62 64 69 72 2d 67 | 61 72 62 61 67 65 20 23 |subdir-g|arbage #|
|00003b90| 5b 28 64 69 72 29 20 22 | 8a c0 09 21 84 0b 00 c2 |[(dir) "|...!....|
|00003ba0| c3 21 88 c4 79 88 6c 84 | 1d 00 c5 20 84 1d 00 c4 |.!..y.l.|... ....|
|00003bb0| 79 88 82 0e 00 60 29 87 | 22 20 5b 64 69 72 65 64 |y....`).|" [dired|
|00003bc0| 2d 67 6f 74 6f 2d 73 75 | 62 64 69 72 20 64 69 72 |-goto-su|bdir dir|
|00003bd0| 20 65 72 72 6f 72 20 22 | 54 68 69 73 20 63 61 6e | error "|This can|
|00003be0| 6e 6f 74 20 68 61 70 70 | 65 6e 22 20 31 20 64 69 |not happ|en" 1 di|
|00003bf0| 72 65 64 2d 6d 6f 76 65 | 2d 74 6f 2d 66 69 6c 65 |red-move|-to-file|
|00003c00| 6e 61 6d 65 5d 20 32 5d | 20 64 69 72 65 64 2d 72 |name] 2]| dired-r|
|00003c10| 65 6d 6f 76 65 2d 66 69 | 6c 65 20 23 5b 28 66 69 |emove-fi|le #[(fi|
|00003c20| 6c 65 29 20 22 c0 c1 5c | 6e 21 c3 5c 6e 23 87 22 |le) "..\|n!.\n#."|
|00003c30| 20 5b 64 69 72 65 64 2d | 66 75 6e 2d 69 6e 2d 61 | [dired-|fun-in-a|
|00003c40| 6c 6c 2d 62 75 66 66 65 | 72 73 20 66 69 6c 65 2d |ll-buffe|rs file-|
|00003c50| 6e 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 66 |name-dir|ectory f|
|00003c60| 69 6c 65 20 64 69 72 65 | 64 2d 72 65 6d 6f 76 65 |ile dire|d-remove|
|00003c70| 2d 65 6e 74 72 79 5d 20 | 34 5d 20 64 69 72 65 64 |-entry] |4] dired|
|00003c80| 2d 72 65 6d 6f 76 65 2d | 65 6e 74 72 79 20 23 5b |-remove-|entry #[|
|00003c90| 28 66 69 6c 65 29 20 22 | 8a c0 09 21 85 15 00 c2 |(file) "|...!....|
|00003ca0| 1b c4 79 88 60 8a c5 79 | 88 60 29 7c 29 29 87 22 |..y.`..y|.`)|))."|
|00003cb0| 20 5b 64 69 72 65 64 2d | 67 6f 74 6f 2d 66 69 6c | [dired-|goto-fil|
|00003cc0| 65 20 66 69 6c 65 20 6e | 69 6c 20 62 75 66 66 65 |e file n|il buffe|
|00003cd0| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 30 20 31 5d |r-read-o|nly 0 1]|
|00003ce0| 20 32 5d 20 64 69 72 65 | 64 2d 72 65 6c 69 73 74 | 2] dire|d-relist|
|00003cf0| 2d 66 69 6c 65 20 23 5b | 28 66 69 6c 65 29 20 22 |-file #[|(file) "|
|00003d00| c0 c1 5c 6e 21 c3 5c 6e | 23 87 22 20 5b 64 69 72 |..\n!.\n|#." [dir|
|00003d10| 65 64 2d 66 75 6e 2d 69 | 6e 2d 61 6c 6c 2d 62 75 |ed-fun-i|n-all-bu|
|00003d20| 66 66 65 72 73 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |ffers fi|le-name-|
|00003d30| 64 69 72 65 63 74 6f 72 | 79 20 66 69 6c 65 20 64 |director|y file d|
|00003d40| 69 72 65 64 2d 72 65 6c | 69 73 74 2d 65 6e 74 72 |ired-rel|ist-entr|
|00003d50| 79 5d 20 34 5d 20 64 69 | 72 65 64 2d 72 65 6c 69 |y] 4] di|red-reli|
|00003d60| 73 74 2d 65 6e 74 72 79 | 20 23 5b 28 66 69 6c 65 |st-entry| #[(file|
|00003d70| 29 20 22 c0 89 19 1a 8a | c3 0c 21 83 19 00 c5 79 |) ".....|..!....y|
|00003d80| 88 67 11 60 8a c6 79 88 | 60 29 7c 88 c7 0c 21 14 |.g.`..y.|`)|...!.|
|00003d90| c8 0c 09 c9 3d 3f 85 27 | 00 09 5c 22 2b 87 22 20 |....=?.'|..\"+." |
|00003da0| 5b 6e 69 6c 20 6d 61 72 | 6b 65 72 20 62 75 66 66 |[nil mar|ker buff|
|00003db0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 64 69 72 |er-read-|only dir|
|00003dc0| 65 64 2d 67 6f 74 6f 2d | 66 69 6c 65 20 66 69 6c |ed-goto-|file fil|
|00003dd0| 65 20 30 20 31 20 64 69 | 72 65 63 74 6f 72 79 2d |e 0 1 di|rectory-|
|00003de0| 66 69 6c 65 2d 6e 61 6d | 65 20 64 69 72 65 64 2d |file-nam|e dired-|
|00003df0| 61 64 64 2d 65 6e 74 72 | 79 20 33 32 5d 20 34 5d |add-entr|y 32] 4]|
|00003e00| 5d 20 33 29 0a 28 64 65 | 66 76 61 72 20 64 69 72 |] 3).(de|fvar dir|
|00003e10| 65 64 2d 62 61 63 6b 75 | 70 2d 6f 76 65 72 77 72 |ed-backu|p-overwr|
|00003e20| 69 74 65 20 6e 69 6c 20 | 22 5c 0a 2a 4e 6f 6e 2d |ite nil |"\.*Non-|
|00003e30| 6e 69 6c 20 69 66 20 44 | 69 72 65 64 20 73 68 6f |nil if D|ired sho|
|00003e40| 75 6c 64 20 61 73 6b 20 | 61 62 6f 75 74 20 6d 61 |uld ask |about ma|
|00003e50| 6b 69 6e 67 20 62 61 63 | 6b 75 70 73 20 62 65 66 |king bac|kups bef|
|00003e60| 6f 72 65 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 |ore over|writing |
|00003e70| 66 69 6c 65 73 2e 0a 53 | 70 65 63 69 61 6c 20 76 |files..S|pecial v|
|00003e80| 61 6c 75 65 20 60 61 6c | 77 61 79 73 27 20 73 75 |alue `al|ways' su|
|00003e90| 70 70 72 65 73 73 65 73 | 20 63 6f 6e 66 69 72 6d |ppresses| confirm|
|00003ea0| 61 74 69 6f 6e 2e 22 29 | 0a 28 62 79 74 65 2d 63 |ation.")|.(byte-c|
|00003eb0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00003ec0| 88 c0 c5 c6 5c 22 88 c0 | c7 c8 5c 22 88 c0 c9 ca |....\"..|..\"....|
|00003ed0| 5c 22 88 c0 cb cc 5c 22 | 87 22 20 5b 64 65 66 61 |\"....\"|." [defa|
|00003ee0| 6c 69 61 73 20 64 69 72 | 65 64 2d 68 61 6e 64 6c |lias dir|ed-handl|
|00003ef0| 65 2d 6f 76 65 72 77 72 | 69 74 65 20 23 5b 28 74 |e-overwr|ite #[(t|
|00003f00| 6f 29 20 22 08 85 2d 00 | 09 85 2d 00 08 c2 3d 84 |o) "..-.|..-...=.|
|00003f10| 19 00 c3 c4 c5 c6 0e 07 | 5c 22 5c 22 85 2d 00 c8 |........|\"\".-..|
|00003f20| 0e 07 21 40 1e 09 ca 0e | 07 0e 09 cb 23 88 cc 0e |..!@....|....#...|
|00003f30| 09 21 29 87 22 20 5b 64 | 69 72 65 64 2d 62 61 63 |.!)." [d|ired-bac|
|00003f40| 6b 75 70 2d 6f 76 65 72 | 77 72 69 74 65 20 64 69 |kup-over|write di|
|00003f50| 72 65 64 2d 6f 76 65 72 | 77 72 69 74 65 2d 63 6f |red-over|write-co|
|00003f60| 6e 66 69 72 6d 65 64 20 | 61 6c 77 61 79 73 20 64 |nfirmed |always d|
|00003f70| 69 72 65 64 2d 71 75 65 | 72 79 20 6f 76 65 72 77 |ired-que|ry overw|
|00003f80| 72 69 74 65 2d 62 61 63 | 6b 75 70 2d 71 75 65 72 |rite-bac|kup-quer|
|00003f90| 79 20 66 6f 72 6d 61 74 | 20 22 4d 61 6b 65 20 62 |y format| "Make b|
|00003fa0| 61 63 6b 75 70 20 66 6f | 72 20 65 78 69 73 74 69 |ackup fo|r existi|
|00003fb0| 6e 67 20 66 69 6c 65 20 | 60 25 73 27 3f 20 22 20 |ng file |`%s'? " |
|00003fc0| 74 6f 20 66 69 6e 64 2d | 62 61 63 6b 75 70 2d 66 |to find-|backup-f|
|00003fd0| 69 6c 65 2d 6e 61 6d 65 | 20 62 61 63 6b 75 70 20 |ile-name| backup |
|00003fe0| 72 65 6e 61 6d 65 2d 66 | 69 6c 65 20 30 20 64 69 |rename-f|ile 0 di|
|00003ff0| 72 65 64 2d 72 65 6c 69 | 73 74 2d 65 6e 74 72 79 |red-reli|st-entry|
|00004000| 5d 20 35 5d 20 64 69 72 | 65 64 2d 63 6f 70 79 2d |] 5] dir|ed-copy-|
|00004010| 66 69 6c 65 20 23 5b 28 | 66 72 6f 6d 20 74 6f 20 |file #[(|from to |
|00004020| 6f 6b 2d 66 6c 61 67 29 | 20 22 c0 09 21 88 c2 0b |ok-flag)| "..!...|
|00004030| 09 0c 0d 24 87 22 20 5b | 64 69 72 65 64 2d 68 61 |...$." [|dired-ha|
|00004040| 6e 64 6c 65 2d 6f 76 65 | 72 77 72 69 74 65 20 74 |ndle-ove|rwrite t|
|00004050| 6f 20 63 6f 70 79 2d 66 | 69 6c 65 20 66 72 6f 6d |o copy-f|ile from|
|00004060| 20 6f 6b 2d 66 6c 61 67 | 20 64 69 72 65 64 2d 63 | ok-flag| dired-c|
|00004070| 6f 70 79 2d 70 72 65 73 | 65 72 76 65 2d 74 69 6d |opy-pres|erve-tim|
|00004080| 65 5d 20 35 5d 20 64 69 | 72 65 64 2d 72 65 6e 61 |e] 5] di|red-rena|
|00004090| 6d 65 2d 66 69 6c 65 20 | 23 5b 28 66 72 6f 6d 20 |me-file |#[(from |
|000040a0| 74 6f 20 6f 6b 2d 66 6c | 61 67 29 20 22 c0 09 21 |to ok-fl|ag) "..!|
|000040b0| 88 c2 0b 09 0c 23 88 c5 | 0b 21 83 24 00 8a c5 0b |.....#..|.!.$....|
|000040c0| 21 71 88 c6 20 1e 07 c8 | 09 21 88 c9 0e 07 21 88 |!q.. ...|.!....!.|
|000040d0| 2a ca 0b 21 88 cb 0b 09 | 5c 22 87 22 20 5b 64 69 |*..!....|\"." [di|
|000040e0| 72 65 64 2d 68 61 6e 64 | 6c 65 2d 6f 76 65 72 77 |red-hand|le-overw|
|000040f0| 72 69 74 65 20 74 6f 20 | 72 65 6e 61 6d 65 2d 66 |rite to |rename-f|
|00004100| 69 6c 65 20 66 72 6f 6d | 20 6f 6b 2d 66 6c 61 67 |ile from| ok-flag|
|00004110| 20 67 65 74 2d 66 69 6c | 65 2d 62 75 66 66 65 72 | get-fil|e-buffer|
|00004120| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00004130| 2d 70 20 6d 6f 64 66 6c | 61 67 20 73 65 74 2d 76 |-p modfl|ag set-v|
|00004140| 69 73 69 74 65 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |isited-f|ile-name|
|00004150| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00004160| 66 69 65 64 2d 70 20 64 | 69 72 65 64 2d 72 65 6d |fied-p d|ired-rem|
|00004170| 6f 76 65 2d 66 69 6c 65 | 20 64 69 72 65 64 2d 72 |ove-file| dired-r|
|00004180| 65 6e 61 6d 65 2d 73 75 | 62 64 69 72 5d 20 34 5d |ename-su|bdir] 4]|
|00004190| 20 64 69 72 65 64 2d 72 | 65 6e 61 6d 65 2d 73 75 | dired-r|ename-su|
|000041a0| 62 64 69 72 20 23 5b 28 | 66 72 6f 6d 2d 64 69 72 |bdir #[(|from-dir|
|000041b0| 20 74 6f 2d 64 69 72 29 | 20 22 c0 09 21 11 c0 5c | to-dir)| "..!..\|
|000041c0| 6e 21 12 c3 09 c4 09 5c | 6e 24 88 c5 20 89 1e 06 |n!.....\|n$.. ...|
|000041d0| 85 50 00 8a 0e 06 40 71 | 88 0e 07 83 45 00 c8 0e |.P....@q|....E...|
|000041e0| 07 09 5c 22 83 45 00 c9 | 20 ca cb cc 09 21 50 5c |..\".E..| ....!P\|
|000041f0| 6e 0e 07 23 1e 0d 1e 0e | cf 0e 0d 21 88 d0 0e 0e |n..#....|...!....|
|00004200| 21 88 2a 29 0e 06 41 89 | 16 06 84 17 00 d1 29 87 |!.*)..A.|......).|
|00004210| 22 20 5b 66 69 6c 65 2d | 6e 61 6d 65 2d 61 73 2d |" [file-|name-as-|
|00004220| 64 69 72 65 63 74 6f 72 | 79 20 66 72 6f 6d 2d 64 |director|y from-d|
|00004230| 69 72 20 74 6f 2d 64 69 | 72 20 64 69 72 65 64 2d |ir to-di|r dired-|
|00004240| 66 75 6e 2d 69 6e 2d 61 | 6c 6c 2d 62 75 66 66 65 |fun-in-a|ll-buffe|
|00004250| 72 73 20 64 69 72 65 64 | 2d 72 65 6e 61 6d 65 2d |rs dired|-rename-|
|00004260| 73 75 62 64 69 72 2d 31 | 20 62 75 66 66 65 72 2d |subdir-1| buffer-|
|00004270| 6c 69 73 74 20 62 6c 69 | 73 74 20 62 75 66 66 65 |list bli|st buffe|
|00004280| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 64 69 72 65 |r-file-n|ame dire|
|00004290| 64 2d 69 6e 2d 74 68 69 | 73 2d 74 72 65 65 20 62 |d-in-thi|s-tree b|
|000042a0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000042b0| 20 64 69 72 65 64 2d 72 | 65 70 6c 61 63 65 2d 69 | dired-r|eplace-i|
|000042c0| 6e 2d 73 74 72 69 6e 67 | 20 22 5e 22 20 72 65 67 |n-string| "^" reg|
|000042d0| 65 78 70 2d 71 75 6f 74 | 65 20 74 6f 2d 66 69 6c |exp-quot|e to-fil|
|000042e0| 65 20 6d 6f 64 66 6c 61 | 67 20 73 65 74 2d 76 69 |e modfla|g set-vi|
|000042f0| 73 69 74 65 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |sited-fi|le-name |
|00004300| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00004310| 69 65 64 2d 70 20 6e 69 | 6c 5d 20 36 5d 20 64 69 |ied-p ni|l] 6] di|
|00004320| 72 65 64 2d 72 65 6e 61 | 6d 65 2d 73 75 62 64 69 |red-rena|me-subdi|
|00004330| 72 2d 31 20 23 5b 28 64 | 69 72 20 74 6f 29 20 22 |r-1 #[(d|ir to) "|
|00004340| 08 c1 1a 1b 0b 83 20 00 | 0b 40 12 0b 41 13 c4 5c |...... .|.@..A..\|
|00004350| 6e 40 0d 5c 22 83 04 00 | c6 5c 6e 0d 0e 07 23 88 |n@.\"...|.\n...#.|
|00004360| 82 04 00 0d 0e 08 9a 85 | 50 00 c9 0d 21 88 0e 07 |........|P...!...|
|00004370| 16 08 ca cb 0e 0c 21 0e | 07 5c 22 16 0c cb cd 0e |......!.|.\".....|
|00004380| 0c 21 21 1e 0e cf 0e 0e | 21 84 4d 00 d0 0e 0e 21 |.!!.....|!.M....!|
|00004390| 88 29 d1 20 2a 87 22 20 | 5b 64 69 72 65 64 2d 73 |.). *." |[dired-s|
|000043a0| 75 62 64 69 72 2d 61 6c | 69 73 74 20 6e 69 6c 20 |ubdir-al|ist nil |
|000043b0| 65 6c 74 20 61 6c 69 73 | 74 20 64 69 72 65 64 2d |elt alis|t dired-|
|000043c0| 69 6e 2d 74 68 69 73 2d | 74 72 65 65 20 64 69 72 |in-this-|tree dir|
|000043d0| 20 64 69 72 65 64 2d 72 | 65 6e 61 6d 65 2d 73 75 | dired-r|ename-su|
|000043e0| 62 64 69 72 2d 32 20 74 | 6f 20 64 65 66 61 75 6c |bdir-2 t|o defaul|
|000043f0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 65 |t-direct|ory dire|
|00004400| 64 2d 75 6e 61 64 76 65 | 72 74 69 73 65 20 65 78 |d-unadve|rtise ex|
|00004410| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|00004420| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00004430| 63 74 6f 72 79 20 64 69 | 72 65 64 2d 64 69 72 65 |ctory di|red-dire|
|00004440| 63 74 6f 72 79 20 64 69 | 72 65 63 74 6f 72 79 2d |ctory di|rectory-|
|00004450| 66 69 6c 65 2d 6e 61 6d | 65 20 6e 65 77 2d 6e 61 |file-nam|e new-na|
|00004460| 6d 65 20 67 65 74 2d 62 | 75 66 66 65 72 20 72 65 |me get-b|uffer re|
|00004470| 6e 61 6d 65 2d 62 75 66 | 66 65 72 20 64 69 72 65 |name-buf|fer dire|
|00004480| 64 2d 61 64 76 65 72 74 | 69 73 65 5d 20 34 5d 20 |d-advert|ise] 4] |
|00004490| 64 69 72 65 64 2d 72 65 | 6e 61 6d 65 2d 73 75 62 |dired-re|name-sub|
|000044a0| 64 69 72 2d 32 20 23 5b | 28 65 6c 74 20 64 69 72 |dir-2 #[|(elt dir|
|000044b0| 20 74 6f 29 20 22 8a c0 | c1 5c 6e 21 21 c1 0b 21 | to) "..|.\n!!..!|
|000044c0| c4 1d 1e 06 1e 07 c8 0e | 09 21 62 88 ca 0e 0b 21 |........|.!b....!|
|000044d0| 84 24 00 cc cd 5c 6e 5c | 22 88 82 44 00 ce 94 62 |.$...\n\|"..D...b|
|000044e0| 88 cf 0e 07 ce 95 d0 23 | 83 3c 00 d1 0e 06 d0 89 |.......#|.<......|
|000044f0| 23 88 82 44 00 cc d2 5c | 6e 0e 09 40 23 88 0e 09 |#..D...\|n..@#...|
|00004500| d3 d4 0e 07 0e 06 0e 09 | 40 23 21 a0 2c 87 22 20 |........|@#!.,." |
|00004510| 5b 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 64 69 |[regexp-|quote di|
|00004520| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 2d 6e 61 6d |rectory-|file-nam|
|00004530| 65 20 64 69 72 20 74 6f | 20 6e 69 6c 20 62 75 66 |e dir to| nil buf|
|00004540| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 6e 65 |fer-read|-only ne|
|00004550| 77 74 65 78 74 20 72 65 | 67 65 78 70 20 64 69 72 |wtext re|gexp dir|
|00004560| 65 64 2d 67 65 74 2d 73 | 75 62 64 69 72 2d 6d 69 |ed-get-s|ubdir-mi|
|00004570| 6e 20 65 6c 74 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |n elt lo|oking-at|
|00004580| 20 64 69 72 65 64 2d 73 | 75 62 64 69 72 2d 72 65 | dired-s|ubdir-re|
|00004590| 67 65 78 70 20 65 72 72 | 6f 72 20 22 25 73 20 6e |gexp err|or "%s n|
|000045a0| 6f 74 20 66 6f 75 6e 64 | 20 77 68 65 72 65 20 65 |ot found| where e|
|000045b0| 78 70 65 63 74 65 64 20 | 2d 20 64 69 72 65 64 2d |xpected |- dired-|
|000045c0| 73 75 62 64 69 72 2d 61 | 6c 69 73 74 20 62 72 6f |subdir-a|list bro|
|000045d0| 6b 65 6e 3f 22 20 31 20 | 72 65 2d 73 65 61 72 63 |ken?" 1 |re-searc|
|000045e0| 68 2d 66 6f 72 77 61 72 | 64 20 74 20 72 65 70 6c |h-forwar|d t repl|
|000045f0| 61 63 65 2d 6d 61 74 63 | 68 20 22 45 78 70 65 63 |ace-matc|h "Expec|
|00004600| 74 65 64 20 74 6f 20 66 | 69 6e 64 20 60 25 73 27 |ted to f|ind `%s'|
|00004610| 20 69 6e 20 68 65 61 64 | 65 72 6c 69 6e 65 20 6f | in head|erline o|
|00004620| 66 20 25 73 22 20 64 69 | 72 65 64 2d 6e 6f 72 6d |f %s" di|red-norm|
|00004630| 61 6c 69 7a 65 2d 73 75 | 62 64 69 72 20 64 69 72 |alize-su|bdir dir|
|00004640| 65 64 2d 72 65 70 6c 61 | 63 65 2d 69 6e 2d 73 74 |ed-repla|ce-in-st|
|00004650| 72 69 6e 67 5d 20 36 5d | 5d 20 33 29 0a 28 64 65 |ring] 6]|] 3).(de|
|00004660| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 73 74 |falias '|dired-st|
|00004670| 72 69 6e 67 2d 72 65 70 | 6c 61 63 65 2d 6d 61 74 |ring-rep|lace-mat|
|00004680| 63 68 20 23 5b 28 72 65 | 67 65 78 70 20 73 74 72 |ch #[(re|gexp str|
|00004690| 69 6e 67 20 6e 65 77 74 | 65 78 74 20 26 6f 70 74 |ing newt|ext &opt|
|000046a0| 69 6f 6e 61 6c 20 6c 69 | 74 65 72 61 6c 20 67 6c |ional li|teral gl|
|000046b0| 6f 62 61 6c 29 20 22 08 | 83 4f 00 c1 c2 c3 89 1c |obal) ".|.O......|
|000046c0| 1d 1e 06 1e 07 c8 0e 09 | 0e 5c 6e 0e 06 23 83 40 |........|.\n..#.@|
|000046d0| 00 c2 94 15 c2 95 14 0e | 07 0e 5c 6e 0e 06 0d 4f |........|..\n...O|
|000046e0| 0e 0b 83 31 00 0e 0c 82 | 37 00 cd 0e 5c 6e 0e 0c |...1....|7...\n..|
|000046f0| 5c 22 51 16 07 0c 16 06 | 82 0e 00 0d 85 4d 00 0e |\"Q.....|.....M..|
|00004700| 07 0e 5c 6e 0e 06 c3 4f | 50 2c 87 c8 0e 09 0e 5c |..\n...O|P,.....\|
|00004710| 6e c2 23 3f 3f 85 78 00 | 0e 5c 6e c2 89 94 4f 0e |n.#??.x.|.\n...O.|
|00004720| 0b 83 6b 00 0e 0c 82 71 | 00 cd 0e 5c 6e 0e 0c 5c |..k....q|...\n..\|
|00004730| 22 0e 5c 6e c2 95 c3 4f | 51 87 22 20 5b 67 6c 6f |".\n...O|Q." [glo|
|00004740| 62 61 6c 20 22 22 20 30 | 20 6e 69 6c 20 6d 65 20 |bal "" 0| nil me |
|00004750| 6d 62 20 73 74 61 72 74 | 20 72 65 73 75 6c 74 20 |mb start| result |
|00004760| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 72 65 67 |string-m|atch reg|
|00004770| 65 78 70 20 73 74 72 69 | 6e 67 20 6c 69 74 65 72 |exp stri|ng liter|
|00004780| 61 6c 20 6e 65 77 74 65 | 78 74 20 64 69 72 65 64 |al newte|xt dired|
|00004790| 2d 65 78 70 61 6e 64 2d | 6e 65 77 74 65 78 74 5d |-expand-|newtext]|
|000047a0| 20 35 20 22 5c 0a 52 65 | 70 6c 61 63 65 20 66 69 | 5 "\.Re|place fi|
|000047b0| 72 73 74 20 6d 61 74 63 | 68 20 6f 66 20 52 45 47 |rst matc|h of REG|
|000047c0| 45 58 50 20 69 6e 20 53 | 54 52 49 4e 47 20 77 69 |EXP in S|TRING wi|
|000047d0| 74 68 20 4e 45 57 54 45 | 58 54 2e 0a 49 66 20 69 |th NEWTE|XT..If i|
|000047e0| 74 20 64 6f 65 73 20 6e | 6f 74 20 6d 61 74 63 68 |t does n|ot match|
|000047f0| 2c 20 6e 69 6c 20 69 73 | 20 72 65 74 75 72 6e 65 |, nil is| returne|
|00004800| 64 20 69 6e 73 74 65 61 | 64 20 6f 66 20 74 68 65 |d instea|d of the|
|00004810| 20 6e 65 77 20 73 74 72 | 69 6e 67 2e 0a 4f 70 74 | new str|ing..Opt|
|00004820| 69 6f 6e 61 6c 20 61 72 | 67 20 4c 49 54 45 52 41 |ional ar|g LITERA|
|00004830| 4c 20 6d 65 61 6e 73 20 | 74 6f 20 74 61 6b 65 20 |L means |to take |
|00004840| 4e 45 57 54 45 58 54 20 | 6c 69 74 65 72 61 6c 6c |NEWTEXT |literall|
|00004850| 79 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 20 |y..Optio|nal arg |
|00004860| 47 4c 4f 42 41 4c 20 6d | 65 61 6e 73 20 74 6f 20 |GLOBAL m|eans to |
|00004870| 72 65 70 6c 61 63 65 20 | 61 6c 6c 20 6d 61 74 63 |replace |all matc|
|00004880| 68 65 73 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |hes."]).|(byte-co|
|00004890| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|000048a0| c0 c5 c6 5c 22 88 c0 c7 | c8 5c 22 88 c0 c9 ca 5c |...\"...|.\"....\|
|000048b0| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 64 69 |"." [def|alias di|
|000048c0| 72 65 64 2d 65 78 70 61 | 6e 64 2d 6e 65 77 74 65 |red-expa|nd-newte|
|000048d0| 78 74 20 23 5b 28 73 74 | 72 69 6e 67 20 6e 65 77 |xt #[(st|ring new|
|000048e0| 74 65 78 74 29 20 22 c0 | 09 47 c2 1b 1c 89 1d 0c |text) ".|.G......|
|000048f0| 57 83 70 00 0b 09 0d 48 | 89 1e 06 c7 55 83 62 00 |W.p....H|....U.b.|
|00004900| 09 0d 54 89 15 48 89 16 | 06 c8 55 83 31 00 0e 09 |..T..H..|..U.1...|
|00004910| c0 94 c0 95 4f 82 66 00 | 0e 06 ca 59 83 5b 00 0e |....O.f.|...Y.[..|
|00004920| 06 cb 58 83 5b 00 0e 06 | cc 5a 89 1e 0d 94 83 56 |..X.[...|.Z.....V|
|00004930| 00 0e 09 0e 0d 94 0e 0d | 95 4f 82 57 00 c2 29 82 |........|.O.W..).|
|00004940| 66 00 ce 0e 06 21 82 66 | 00 ce 0e 06 21 29 50 13 |f....!.f|....!)P.|
|00004950| 0d 54 89 15 82 08 00 0b | 2b 87 22 20 5b 30 20 6e |.T......|+." [0 n|
|00004960| 65 77 74 65 78 74 20 22 | 22 20 65 78 70 61 6e 64 |ewtext "|" expand|
|00004970| 65 64 2d 6e 65 77 74 65 | 78 74 20 6c 65 6e 20 70 |ed-newte|xt len p|
|00004980| 6f 73 20 63 20 39 32 20 | 33 38 20 73 74 72 69 6e |os c 92 |38 strin|
|00004990| 67 20 34 39 20 35 37 20 | 34 38 20 6e 20 63 68 61 |g 49 57 |48 n cha|
|000049a0| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 5d 20 35 5d 20 |r-to-str|ing] 5] |
|000049b0| 64 69 72 65 64 2d 63 72 | 65 61 74 65 2d 66 69 6c |dired-cr|eate-fil|
|000049c0| 65 73 20 23 5b 28 66 69 | 6c 65 2d 63 72 65 61 74 |es #[(fi|le-creat|
|000049d0| 6f 72 20 6f 70 65 72 61 | 74 69 6f 6e 20 66 6e 2d |or opera|tion fn-|
|000049e0| 6c 69 73 74 20 6e 61 6d | 65 2d 63 6f 6e 73 74 72 |list nam|e-constr|
|000049f0| 75 63 74 6f 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |uctor &o|ptional |
|00004a00| 6d 61 72 6b 65 72 2d 63 | 68 61 72 29 20 22 c0 89 |marker-c|har) "..|
|00004a10| c1 5c 6e 47 1b 1c 1d 1e | 06 c0 89 89 1e 07 1e 08 |.\nG....|........|
|00004a20| 1e 09 ca cb 5c 6e 5c 22 | 88 2b 0e 06 83 32 00 cc |....\n\"|.+...2..|
|00004a30| cd ce 0e 0f 0e 06 47 0b | d0 0b 21 25 0e 06 5c 22 |......G.|..!%..\"|
|00004a40| 88 82 52 00 0d 83 48 00 | cc cd d1 0e 0f 0d 47 0b |..R...H.|......G.|
|00004a50| d0 0b 21 25 0d 5c 22 88 | 82 52 00 d2 d3 0e 0f 0c |..!%.\".|.R......|
|00004a60| d0 0c 21 24 88 2c d4 20 | 87 22 20 5b 6e 69 6c 20 |..!$.,. |." [nil |
|00004a70| 30 20 66 6e 2d 6c 69 73 | 74 20 74 6f 74 61 6c 20 |0 fn-lis|t total |
|00004a80| 73 75 63 63 65 73 73 2d | 63 6f 75 6e 74 20 73 6b |success-|count sk|
|00004a90| 69 70 70 65 64 20 66 61 | 69 6c 75 72 65 73 20 6f |ipped fa|ilures o|
|00004aa0| 76 65 72 77 72 69 74 65 | 2d 62 61 63 6b 75 70 2d |verwrite|-backup-|
|00004ab0| 71 75 65 72 79 20 6f 76 | 65 72 77 72 69 74 65 2d |query ov|erwrite-|
|00004ac0| 71 75 65 72 79 20 74 6f | 20 6d 61 70 63 61 72 20 |query to| mapcar |
|00004ad0| 23 5b 28 66 72 6f 6d 29 | 20 22 08 09 21 89 12 09 |#[(from)| "..!...|
|00004ae0| 9a 83 14 00 c3 12 c4 c5 | 0e 06 97 09 23 88 5c 6e |........|....#.\n|
|00004af0| 84 5c 22 00 c7 09 21 0e | 08 42 89 16 08 87 c9 5c |.\"...!.|.B.....\|
|00004b00| 6e 21 89 1e 5c 6e 85 34 | 00 cb 1e 0c cd ce cf 5c |n!..\n.4|.......\|
|00004b10| 6e 23 29 1e 10 0e 11 a8 | 83 41 00 0e 11 82 4d 00 |n#).....|.A....M.|
|00004b20| 0e 11 83 4c 00 d2 09 21 | 82 4d 00 c3 1e 13 d4 d5 |...L...!|.M......|
|00004b30| d6 8f 2b 87 22 20 5b 6e | 61 6d 65 2d 63 6f 6e 73 |..+." [n|ame-cons|
|00004b40| 74 72 75 63 74 6f 72 20 | 66 72 6f 6d 20 74 6f 20 |tructor |from to |
|00004b50| 6e 69 6c 20 64 69 72 65 | 64 2d 6c 6f 67 20 22 43 |nil dire|d-log "C|
|00004b60| 61 6e 6e 6f 74 20 25 73 | 20 74 6f 20 73 61 6d 65 |annot %s| to same|
|00004b70| 20 66 69 6c 65 3a 20 25 | 73 5c 6e 22 20 6f 70 65 | file: %|s\n" ope|
|00004b80| 72 61 74 69 6f 6e 20 64 | 69 72 65 64 2d 6d 61 6b |ration d|ired-mak|
|00004b90| 65 2d 72 65 6c 61 74 69 | 76 65 20 73 6b 69 70 70 |e-relati|ve skipp|
|00004ba0| 65 64 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |ed file-|exists-p|
|00004bb0| 20 6f 76 65 72 77 72 69 | 74 65 20 28 66 6f 72 6d | overwri|te (form|
|00004bc0| 61 74 20 22 54 79 70 65 | 20 53 50 43 20 6f 72 20 |at "Type| SPC or |
|00004bd0| 60 79 27 20 74 6f 20 6f | 76 65 72 77 72 69 74 65 |`y' to o|verwrite|
|00004be0| 20 66 69 6c 65 20 60 25 | 73 27 2c 5c 6e 44 45 4c | file `%|s',\nDEL|
|00004bf0| 20 6f 72 20 60 6e 27 20 | 74 6f 20 73 6b 69 70 20 | or `n' |to skip |
|00004c00| 74 6f 20 6e 65 78 74 2c | 5c 6e 45 53 43 20 6f 72 |to next,|\nESC or|
|00004c10| 20 60 71 27 20 74 6f 20 | 6e 6f 74 20 6f 76 65 72 | `q' to |not over|
|00004c20| 77 72 69 74 65 20 61 6e | 79 20 6f 66 20 74 68 65 |write an|y of the|
|00004c30| 20 72 65 6d 61 69 6e 69 | 6e 67 20 66 69 6c 65 73 | remaini|ng files|
|00004c40| 2c 5c 6e 60 21 27 20 74 | 6f 20 6f 76 65 72 77 72 |,\n`!' t|o overwr|
|00004c50| 69 74 65 20 61 6c 6c 20 | 72 65 6d 61 69 6e 69 6e |ite all |remainin|
|00004c60| 67 20 66 69 6c 65 73 20 | 77 69 74 68 20 6e 6f 20 |g files |with no |
|00004c70| 6d 6f 72 65 20 71 75 65 | 73 74 69 6f 6e 73 2e 22 |more que|stions."|
|00004c80| 20 74 6f 29 20 68 65 6c | 70 2d 66 6f 72 6d 20 64 | to) hel|p-form d|
|00004c90| 69 72 65 64 2d 71 75 65 | 72 79 20 6f 76 65 72 77 |ired-que|ry overw|
|00004ca0| 72 69 74 65 2d 71 75 65 | 72 79 20 22 4f 76 65 72 |rite-que|ry "Over|
|00004cb0| 77 72 69 74 65 20 60 25 | 73 27 3f 22 20 64 69 72 |write `%|s'?" dir|
|00004cc0| 65 64 2d 6f 76 65 72 77 | 72 69 74 65 2d 63 6f 6e |ed-overw|rite-con|
|00004cd0| 66 69 72 6d 65 64 20 6d | 61 72 6b 65 72 2d 63 68 |firmed m|arker-ch|
|00004ce0| 61 72 20 64 69 72 65 64 | 2d 66 69 6c 65 2d 6d 61 |ar dired|-file-ma|
|00004cf0| 72 6b 65 72 20 61 63 74 | 75 61 6c 2d 6d 61 72 6b |rker act|ual-mark|
|00004d00| 65 72 2d 63 68 61 72 20 | 65 72 72 20 28 62 79 74 |er-char |err (byt|
|00004d10| 65 2d 63 6f 64 65 20 22 | 08 09 5c 6e 0b 23 88 0c |e-code "|..\n.#..|
|00004d20| 83 0e 00 c5 5c 6e 21 88 | 0e 06 54 16 06 c7 c8 0e |....\n!.|..T.....|
|00004d30| 09 0e 06 0e 5c 6e 24 88 | cb 5c 6e 0e 0c 5c 22 87 |....\n$.|.\n..\".|
|00004d40| 22 20 5b 66 69 6c 65 2d | 63 72 65 61 74 6f 72 20 |" [file-|creator |
|00004d50| 66 72 6f 6d 20 74 6f 20 | 64 69 72 65 64 2d 6f 76 |from to |dired-ov|
|00004d60| 65 72 77 72 69 74 65 2d | 63 6f 6e 66 69 72 6d 65 |erwrite-|confirme|
|00004d70| 64 20 6f 76 65 72 77 72 | 69 74 65 20 64 69 72 65 |d overwr|ite dire|
|00004d80| 64 2d 72 65 6d 6f 76 65 | 2d 66 69 6c 65 20 73 75 |d-remove|-file su|
|00004d90| 63 63 65 73 73 2d 63 6f | 75 6e 74 20 6d 65 73 73 |ccess-co|unt mess|
|00004da0| 61 67 65 20 22 25 73 3a | 20 25 64 20 6f 66 20 25 |age "%s:| %d of %|
|00004db0| 64 22 20 6f 70 65 72 61 | 74 69 6f 6e 20 74 6f 74 |d" opera|tion tot|
|00004dc0| 61 6c 20 64 69 72 65 64 | 2d 61 64 64 2d 66 69 6c |al dired|-add-fil|
|00004dd0| 65 20 61 63 74 75 61 6c | 2d 6d 61 72 6b 65 72 2d |e actual|-marker-|
|00004de0| 63 68 61 72 5d 20 35 29 | 20 28 28 66 69 6c 65 2d |char] 5)| ((file-|
|00004df0| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|00004e00| 20 22 c0 09 21 5c 6e 42 | 12 c3 c4 0d 09 0e 06 0e | "..!\nB|........|
|00004e10| 07 25 87 22 20 5b 64 69 | 72 65 64 2d 6d 61 6b 65 |.%." [di|red-make|
|00004e20| 2d 72 65 6c 61 74 69 76 | 65 20 66 72 6f 6d 20 66 |-relativ|e from f|
|00004e30| 61 69 6c 75 72 65 73 20 | 64 69 72 65 64 2d 6c 6f |ailures |dired-lo|
|00004e40| 67 20 22 25 73 20 60 25 | 73 27 20 74 6f 20 60 25 |g "%s `%|s' to `%|
|00004e50| 73 27 20 66 61 69 6c 65 | 64 3a 5c 6e 25 73 5c 6e |s' faile|d:\n%s\n|
|00004e60| 22 20 6f 70 65 72 61 74 | 69 6f 6e 20 74 6f 20 65 |" operat|ion to e|
|00004e70| 72 72 5d 20 36 29 29 29 | 5d 20 35 5d 20 64 69 72 |rr] 6)))|] 5] dir|
|00004e80| 65 64 2d 6c 6f 67 2d 73 | 75 6d 6d 61 72 79 20 66 |ed-log-s|ummary f|
|00004e90| 6f 72 6d 61 74 20 22 25 | 73 20 66 61 69 6c 65 64 |ormat "%|s failed|
|00004ea0| 20 66 6f 72 20 25 64 20 | 6f 66 20 25 64 20 66 69 | for %d |of %d fi|
|00004eb0| 6c 65 25 73 22 20 6f 70 | 65 72 61 74 69 6f 6e 20 |le%s" op|eration |
|00004ec0| 64 69 72 65 64 2d 70 6c | 75 72 61 6c 2d 73 20 22 |dired-pl|ural-s "|
|00004ed0| 25 73 3a 20 25 64 20 6f | 66 20 25 64 20 66 69 6c |%s: %d o|f %d fil|
|00004ee0| 65 25 73 20 73 6b 69 70 | 70 65 64 22 20 6d 65 73 |e%s skip|ped" mes|
|00004ef0| 73 61 67 65 20 22 25 73 | 3a 20 25 73 20 66 69 6c |sage "%s|: %s fil|
|00004f00| 65 25 73 22 20 64 69 72 | 65 64 2d 6d 6f 76 65 2d |e%s" dir|ed-move-|
|00004f10| 74 6f 2d 66 69 6c 65 6e | 61 6d 65 5d 20 38 5d 20 |to-filen|ame] 8] |
|00004f20| 64 69 72 65 64 2d 64 6f | 2d 63 72 65 61 74 65 2d |dired-do|-create-|
|00004f30| 66 69 6c 65 73 20 23 5b | 28 6f 70 2d 73 79 6d 62 |files #[|(op-symb|
|00004f40| 6f 6c 20 66 69 6c 65 2d | 63 72 65 61 74 6f 72 20 |ol file-|creator |
|00004f50| 6f 70 65 72 61 74 69 6f | 6e 20 61 72 67 20 26 6f |operatio|n arg &o|
|00004f60| 70 74 69 6f 6e 61 6c 20 | 6d 61 72 6b 65 72 2d 63 |ptional |marker-c|
|00004f70| 68 61 72 20 6f 70 31 20 | 68 6f 77 2d 74 6f 29 20 |har op1 |how-to) |
|00004f80| 22 08 84 06 00 09 10 c2 | c3 0c 5c 22 89 1d 47 1e |".......|..\"..G.|
|00004f90| 06 c7 c8 0e 06 c9 55 83 | 1c 00 08 82 1d 00 09 ca |......U.|........|
|00004fa0| 50 cb 20 0e 0c 0c cd ce | 0d 5c 22 25 21 1e 0f 0e |P. .....|.\"%!...|
|00004fb0| 10 84 38 00 d1 0e 0f 21 | 82 48 00 0e 10 d2 3d 83 |..8....!|.H....=.|
|00004fc0| 43 00 c3 82 48 00 0e 10 | 0e 0f 21 1e 13 0e 06 c9 |C...H...|..!.....|
|00004fd0| 56 83 5d 00 0e 13 84 5d | 00 d4 d5 09 0e 0f 23 88 |V.]....]|......#.|
|00004fe0| 0e 13 84 68 00 d6 0e 0f | 21 16 0f d7 0e 18 09 0d |...h....|!.......|
|00004ff0| 0e 13 83 76 00 d9 82 77 | 00 da 0e 1b 25 2c 87 22 |...v...w|....%,."|
|00005000| 20 5b 6f 70 31 20 6f 70 | 65 72 61 74 69 6f 6e 20 | [op1 op|eration |
|00005010| 64 69 72 65 64 2d 67 65 | 74 2d 6d 61 72 6b 65 64 |dired-ge|t-marked|
|00005020| 2d 66 69 6c 65 73 20 6e | 69 6c 20 61 72 67 20 66 |-files n|il arg f|
|00005030| 6e 2d 6c 69 73 74 20 66 | 6e 2d 63 6f 75 6e 74 20 |n-list f|n-count |
|00005040| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00005050| 20 64 69 72 65 64 2d 6d | 61 72 6b 2d 72 65 61 64 | dired-m|ark-read|
|00005060| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 31 20 22 20 25 |-file-na|me 1 " %|
|00005070| 73 20 74 6f 3a 20 22 20 | 64 69 72 65 64 2d 64 77 |s to: " |dired-dw|
|00005080| 69 6d 2d 74 61 72 67 65 | 74 2d 64 69 72 65 63 74 |im-targe|t-direct|
|00005090| 6f 72 79 20 6f 70 2d 73 | 79 6d 62 6f 6c 20 6d 61 |ory op-s|ymbol ma|
|000050a0| 70 63 61 72 20 64 69 72 | 65 64 2d 6d 61 6b 65 2d |pcar dir|ed-make-|
|000050b0| 72 65 6c 61 74 69 76 65 | 20 74 61 72 67 65 74 20 |relative| target |
|000050c0| 68 6f 77 2d 74 6f 20 66 | 69 6c 65 2d 64 69 72 65 |how-to f|ile-dire|
|000050d0| 63 74 6f 72 79 2d 70 20 | 74 20 69 6e 74 6f 2d 64 |ctory-p |t into-d|
|000050e0| 69 72 20 65 72 72 6f 72 | 20 22 4d 61 72 6b 65 64 |ir error| "Marked|
|000050f0| 20 25 73 3a 20 74 61 72 | 67 65 74 20 6d 75 73 74 | %s: tar|get must|
|00005100| 20 62 65 20 61 20 64 69 | 72 65 63 74 6f 72 79 3a | be a di|rectory:|
|00005110| 20 25 73 22 20 64 69 72 | 65 63 74 6f 72 79 2d 66 | %s" dir|ectory-f|
|00005120| 69 6c 65 2d 6e 61 6d 65 | 20 64 69 72 65 64 2d 63 |ile-name| dired-c|
|00005130| 72 65 61 74 65 2d 66 69 | 6c 65 73 20 66 69 6c 65 |reate-fi|les file|
|00005140| 2d 63 72 65 61 74 6f 72 | 20 23 5b 28 66 72 6f 6d |-creator| #[(from|
|00005150| 29 20 22 c0 c1 5c 6e 21 | 0b 5c 22 87 22 20 5b 65 |) "..\n!|.\"." [e|
|00005160| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00005170| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|00005180| 65 63 74 6f 72 79 20 66 | 72 6f 6d 20 74 61 72 67 |ectory f|rom targ|
|00005190| 65 74 5d 20 33 5d 20 28 | 6c 61 6d 62 64 61 20 28 |et] 3] (|lambda (|
|000051a0| 66 72 6f 6d 29 20 74 61 | 72 67 65 74 29 20 6d 61 |from) ta|rget) ma|
|000051b0| 72 6b 65 72 2d 63 68 61 | 72 5d 20 31 30 5d 20 64 |rker-cha|r] 10] d|
|000051c0| 69 72 65 64 2d 6d 61 72 | 6b 2d 72 65 61 64 2d 66 |ired-mar|k-read-f|
|000051d0| 69 6c 65 2d 6e 61 6d 65 | 20 23 5b 28 70 72 6f 6d |ile-name| #[(prom|
|000051e0| 70 74 20 64 69 72 20 6f | 70 2d 73 79 6d 62 6f 6c |pt dir o|p-symbol|
|000051f0| 20 61 72 67 20 66 69 6c | 65 73 29 20 22 c0 c1 5c | arg fil|es) "..\|
|00005200| 6e 0b c4 c5 0e 06 c7 0e | 08 0b 5c 22 5c 22 0e 09 |n.......|..\"\"..|
|00005210| 26 06 87 22 20 5b 64 69 | 72 65 64 2d 6d 61 72 6b |&.." [di|red-mark|
|00005220| 2d 70 6f 70 2d 75 70 20 | 6e 69 6c 20 6f 70 2d 73 |-pop-up |nil op-s|
|00005230| 79 6d 62 6f 6c 20 66 69 | 6c 65 73 20 72 65 61 64 |ymbol fi|les read|
|00005240| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 6f 72 6d 61 |-file-na|me forma|
|00005250| 74 20 70 72 6f 6d 70 74 | 20 64 69 72 65 64 2d 6d |t prompt| dired-m|
|00005260| 61 72 6b 2d 70 72 6f 6d | 70 74 20 61 72 67 20 64 |ark-prom|pt arg d|
|00005270| 69 72 5d 20 31 30 5d 20 | 64 69 72 65 64 2d 64 77 |ir] 10] |dired-dw|
|00005280| 69 6d 2d 74 61 72 67 65 | 74 2d 64 69 72 65 63 74 |im-targe|t-direct|
|00005290| 6f 72 79 20 23 5b 6e 69 | 6c 20 22 08 c1 3d 85 08 |ory #[ni|l "..=..|
|000052a0| 00 c2 20 1b 0c 83 2c 00 | c5 c6 20 21 1e 07 8a 0e |.. ...,.|.. !....|
|000052b0| 07 71 88 08 c1 3d 85 20 | 00 c2 20 29 89 1e 08 86 |.q...=. |.. )....|
|000052c0| 28 00 0b 2a 82 2d 00 0b | 29 87 22 20 5b 6d 61 6a |(..*.-..|)." [maj|
|000052d0| 6f 72 2d 6d 6f 64 65 20 | 64 69 72 65 64 2d 6d 6f |or-mode |dired-mo|
|000052e0| 64 65 20 64 69 72 65 64 | 2d 63 75 72 72 65 6e 74 |de dired|-current|
|000052f0| 2d 64 69 72 65 63 74 6f | 72 79 20 74 68 69 73 2d |-directo|ry this-|
|00005300| 64 69 72 20 64 69 72 65 | 64 2d 64 77 69 6d 2d 74 |dir dire|d-dwim-t|
|00005310| 61 72 67 65 74 20 77 69 | 6e 64 6f 77 2d 62 75 66 |arget wi|ndow-buf|
|00005320| 66 65 72 20 6e 65 78 74 | 2d 77 69 6e 64 6f 77 20 |fer next|-window |
|00005330| 6f 74 68 65 72 2d 62 75 | 66 20 6f 74 68 65 72 2d |other-bu|f other-|
|00005340| 64 69 72 5d 20 33 5d 5d | 20 33 29 0a 28 64 65 66 |dir] 3]]| 3).(def|
|00005350| 61 6c 69 61 73 20 27 64 | 69 72 65 64 2d 63 72 65 |alias 'd|ired-cre|
|00005360| 61 74 65 2d 64 69 72 65 | 63 74 6f 72 79 20 23 5b |ate-dire|ctory #[|
|00005370| 28 64 69 72 65 63 74 6f | 72 79 29 20 22 c0 c1 5c |(directo|ry) "..\|
|00005380| 6e 21 21 1b c4 0b 21 88 | c5 0b 21 88 c6 20 29 87 |n!!...!.|..!.. ).|
|00005390| 22 20 5b 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |" [direc|tory-fil|
|000053a0| 65 2d 6e 61 6d 65 20 65 | 78 70 61 6e 64 2d 66 69 |e-name e|xpand-fi|
|000053b0| 6c 65 2d 6e 61 6d 65 20 | 64 69 72 65 63 74 6f 72 |le-name |director|
|000053c0| 79 20 65 78 70 61 6e 64 | 65 64 20 6d 61 6b 65 2d |y expand|ed make-|
|000053d0| 64 69 72 65 63 74 6f 72 | 79 20 64 69 72 65 64 2d |director|y dired-|
|000053e0| 61 64 64 2d 66 69 6c 65 | 20 64 69 72 65 64 2d 6d |add-file| dired-m|
|000053f0| 6f 76 65 2d 74 6f 2d 66 | 69 6c 65 6e 61 6d 65 5d |ove-to-f|ilename]|
|00005400| 20 33 20 22 5c 0a 43 72 | 65 61 74 65 20 61 20 64 | 3 "\.Cr|eate a d|
|00005410| 69 72 65 63 74 6f 72 79 | 20 63 61 6c 6c 65 64 20 |irectory| called |
|00005420| 44 49 52 45 43 54 4f 52 | 59 2e 22 20 28 6c 69 73 |DIRECTOR|Y." (lis|
|00005430| 74 20 28 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |t (read-|file-nam|
|00005440| 65 20 22 43 72 65 61 74 | 65 20 64 69 72 65 63 74 |e "Creat|e direct|
|00005450| 6f 72 79 3a 20 22 20 28 | 64 69 72 65 64 2d 63 75 |ory: " (|dired-cu|
|00005460| 72 72 65 6e 74 2d 64 69 | 72 65 63 74 6f 72 79 29 |rrent-di|rectory)|
|00005470| 29 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |))]).(de|falias (|
|00005480| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 69 6e 74 6f |quote di|red-into|
|00005490| 2d 64 69 72 2d 77 69 74 | 68 2d 73 79 6d 6c 69 6e |-dir-wit|h-symlin|
|000054a0| 6b 73 29 20 23 5b 28 74 | 61 72 67 65 74 29 20 22 |ks) #[(t|arget) "|
|000054b0| c0 09 21 85 5c 6e 00 c2 | 09 21 3f 87 22 20 5b 66 |..!.\n..|.!?." [f|
|000054c0| 69 6c 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 70 20 |ile-dire|ctory-p |
|000054d0| 74 61 72 67 65 74 20 66 | 69 6c 65 2d 73 79 6d 6c |target f|ile-syml|
|000054e0| 69 6e 6b 2d 70 5d 20 32 | 5d 29 0a 28 64 65 66 61 |ink-p] 2|]).(defa|
|000054f0| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 64 6f 2d 63 |lias 'di|red-do-c|
|00005500| 6f 70 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |opy #[(&|optional|
|00005510| 20 61 72 67 29 20 22 c0 | c1 c2 0b 83 0b 00 c4 82 | arg) ".|........|
|00005520| 0c 00 c5 0e 06 0e 07 25 | 87 22 20 5b 64 69 72 65 |.......%|." [dire|
|00005530| 64 2d 64 6f 2d 63 72 65 | 61 74 65 2d 66 69 6c 65 |d-do-cre|ate-file|
|00005540| 73 20 63 6f 70 79 20 64 | 69 72 65 64 2d 63 6f 70 |s copy d|ired-cop|
|00005550| 79 2d 66 69 6c 65 20 64 | 69 72 65 64 2d 63 6f 70 |y-file d|ired-cop|
|00005560| 79 2d 70 72 65 73 65 72 | 76 65 2d 74 69 6d 65 20 |y-preser|ve-time |
|00005570| 22 43 6f 70 79 20 5b 2d | 70 5d 22 20 22 43 6f 70 |"Copy [-|p]" "Cop|
|00005580| 79 22 20 61 72 67 20 64 | 69 72 65 64 2d 6b 65 65 |y" arg d|ired-kee|
|00005590| 70 2d 6d 61 72 6b 65 72 | 2d 63 6f 70 79 5d 20 36 |p-marker|-copy] 6|
|000055a0| 20 22 5c 0a 43 6f 70 79 | 20 61 6c 6c 20 6d 61 72 | "\.Copy| all mar|
|000055b0| 6b 65 64 20 28 6f 72 20 | 6e 65 78 74 20 41 52 47 |ked (or |next ARG|
|000055c0| 29 20 66 69 6c 65 73 2c | 20 6f 72 20 63 6f 70 79 |) files,| or copy|
|000055d0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 69 6c | the cur|rent fil|
|000055e0| 65 2e 0a 54 68 69 73 20 | 6e 6f 72 6d 61 6c 6c 79 |e..This |normally|
|000055f0| 20 70 72 65 73 65 72 76 | 65 73 20 74 68 65 20 6c | preserv|es the l|
|00005600| 61 73 74 2d 6d 6f 64 69 | 66 69 65 64 20 64 61 74 |ast-modi|fied dat|
|00005610| 65 20 77 68 65 6e 20 63 | 6f 70 79 69 6e 67 2e 0a |e when c|opying..|
|00005620| 57 68 65 6e 20 6f 70 65 | 72 61 74 69 6e 67 20 6f |When ope|rating o|
|00005630| 6e 20 6a 75 73 74 20 74 | 68 65 20 63 75 72 72 65 |n just t|he curre|
|00005640| 6e 74 20 66 69 6c 65 2c | 20 79 6f 75 20 73 70 65 |nt file,| you spe|
|00005650| 63 69 66 79 20 74 68 65 | 20 6e 65 77 20 6e 61 6d |cify the| new nam|
|00005660| 65 2e 0a 57 68 65 6e 20 | 6f 70 65 72 61 74 69 6e |e..When |operatin|
|00005670| 67 20 6f 6e 20 6d 75 6c | 74 69 70 6c 65 20 6f 72 |g on mul|tiple or|
|00005680| 20 6d 61 72 6b 65 64 20 | 66 69 6c 65 73 2c 20 79 | marked |files, y|
|00005690| 6f 75 20 73 70 65 63 69 | 66 79 20 61 20 64 69 72 |ou speci|fy a dir|
|000056a0| 65 63 74 6f 72 79 0a 61 | 6e 64 20 6e 65 77 20 73 |ectory.a|nd new s|
|000056b0| 79 6d 62 6f 6c 69 63 20 | 6c 69 6e 6b 73 20 61 72 |ymbolic |links ar|
|000056c0| 65 20 6d 61 64 65 20 69 | 6e 20 74 68 61 74 20 64 |e made i|n that d|
|000056d0| 69 72 65 63 74 6f 72 79 | 0a 77 69 74 68 20 74 68 |irectory|.with th|
|000056e0| 65 20 73 61 6d 65 20 6e | 61 6d 65 73 20 74 68 61 |e same n|ames tha|
|000056f0| 74 20 74 68 65 20 66 69 | 6c 65 73 20 63 75 72 72 |t the fi|les curr|
|00005700| 65 6e 74 6c 79 20 68 61 | 76 65 2e 22 20 22 50 22 |ently ha|ve." "P"|
|00005710| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |]).(defa|lias 'di|
|00005720| 72 65 64 2d 64 6f 2d 73 | 79 6d 6c 69 6e 6b 20 23 |red-do-s|ymlink #|
|00005730| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00005740| 20 22 c0 c1 c2 c3 0c 0d | 25 87 22 20 5b 64 69 72 | "......|%." [dir|
|00005750| 65 64 2d 64 6f 2d 63 72 | 65 61 74 65 2d 66 69 6c |ed-do-cr|eate-fil|
|00005760| 65 73 20 73 79 6d 6c 69 | 6e 6b 20 6d 61 6b 65 2d |es symli|nk make-|
|00005770| 73 79 6d 62 6f 6c 69 63 | 2d 6c 69 6e 6b 20 22 53 |symbolic|-link "S|
|00005780| 79 6d 6c 69 6e 6b 22 20 | 61 72 67 20 64 69 72 65 |ymlink" |arg dire|
|00005790| 64 2d 6b 65 65 70 2d 6d | 61 72 6b 65 72 2d 73 79 |d-keep-m|arker-sy|
|000057a0| 6d 6c 69 6e 6b 5d 20 36 | 20 22 5c 0a 4d 61 6b 65 |mlink] 6| "\.Make|
|000057b0| 20 73 79 6d 62 6f 6c 69 | 63 20 6c 69 6e 6b 73 20 | symboli|c links |
|000057c0| 74 6f 20 63 75 72 72 65 | 6e 74 20 66 69 6c 65 20 |to curre|nt file |
|000057d0| 6f 72 20 61 6c 6c 20 6d | 61 72 6b 65 64 20 28 6f |or all m|arked (o|
|000057e0| 72 20 6e 65 78 74 20 41 | 52 47 29 20 66 69 6c 65 |r next A|RG) file|
|000057f0| 73 2e 0a 57 68 65 6e 20 | 6f 70 65 72 61 74 69 6e |s..When |operatin|
|00005800| 67 20 6f 6e 20 6a 75 73 | 74 20 74 68 65 20 63 75 |g on jus|t the cu|
|00005810| 72 72 65 6e 74 20 66 69 | 6c 65 2c 20 79 6f 75 20 |rrent fi|le, you |
|00005820| 73 70 65 63 69 66 79 20 | 74 68 65 20 6e 65 77 20 |specify |the new |
|00005830| 6e 61 6d 65 2e 0a 57 68 | 65 6e 20 6f 70 65 72 61 |name..Wh|en opera|
|00005840| 74 69 6e 67 20 6f 6e 20 | 6d 75 6c 74 69 70 6c 65 |ting on |multiple|
|00005850| 20 6f 72 20 6d 61 72 6b | 65 64 20 66 69 6c 65 73 | or mark|ed files|
|00005860| 2c 20 79 6f 75 20 73 70 | 65 63 69 66 79 20 61 20 |, you sp|ecify a |
|00005870| 64 69 72 65 63 74 6f 72 | 79 0a 61 6e 64 20 6e 65 |director|y.and ne|
|00005880| 77 20 73 79 6d 62 6f 6c | 69 63 20 6c 69 6e 6b 73 |w symbol|ic links|
|00005890| 20 61 72 65 20 6d 61 64 | 65 20 69 6e 20 74 68 61 | are mad|e in tha|
|000058a0| 74 20 64 69 72 65 63 74 | 6f 72 79 0a 77 69 74 68 |t direct|ory.with|
|000058b0| 20 74 68 65 20 73 61 6d | 65 20 6e 61 6d 65 73 20 | the sam|e names |
|000058c0| 74 68 61 74 20 74 68 65 | 20 66 69 6c 65 73 20 63 |that the| files c|
|000058d0| 75 72 72 65 6e 74 6c 79 | 20 68 61 76 65 2e 22 20 |urrently| have." |
|000058e0| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|000058f0| 27 64 69 72 65 64 2d 64 | 6f 2d 68 61 72 64 6c 69 |'dired-d|o-hardli|
|00005900| 6e 6b 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |nk #[(&o|ptional |
|00005910| 61 72 67 29 20 22 c0 c1 | c2 c3 0c 0d 25 87 22 20 |arg) "..|....%." |
|00005920| 5b 64 69 72 65 64 2d 64 | 6f 2d 63 72 65 61 74 65 |[dired-d|o-create|
|00005930| 2d 66 69 6c 65 73 20 68 | 61 72 64 6c 69 6e 6b 20 |-files h|ardlink |
|00005940| 61 64 64 2d 6e 61 6d 65 | 2d 74 6f 2d 66 69 6c 65 |add-name|-to-file|
|00005950| 20 22 48 61 72 64 6c 69 | 6e 6b 22 20 61 72 67 20 | "Hardli|nk" arg |
|00005960| 64 69 72 65 64 2d 6b 65 | 65 70 2d 6d 61 72 6b 65 |dired-ke|ep-marke|
|00005970| 72 2d 68 61 72 64 6c 69 | 6e 6b 5d 20 36 20 22 5c |r-hardli|nk] 6 "\|
|00005980| 0a 41 64 64 20 6e 61 6d | 65 73 20 28 68 61 72 64 |.Add nam|es (hard|
|00005990| 20 6c 69 6e 6b 73 29 20 | 63 75 72 72 65 6e 74 20 | links) |current |
|000059a0| 66 69 6c 65 20 6f 72 20 | 61 6c 6c 20 6d 61 72 6b |file or |all mark|
|000059b0| 65 64 20 28 6f 72 20 6e | 65 78 74 20 41 52 47 29 |ed (or n|ext ARG)|
|000059c0| 20 66 69 6c 65 73 2e 0a | 57 68 65 6e 20 6f 70 65 | files..|When ope|
|000059d0| 72 61 74 69 6e 67 20 6f | 6e 20 6a 75 73 74 20 74 |rating o|n just t|
|000059e0| 68 65 20 63 75 72 72 65 | 6e 74 20 66 69 6c 65 2c |he curre|nt file,|
|000059f0| 20 79 6f 75 20 73 70 65 | 63 69 66 79 20 74 68 65 | you spe|cify the|
|00005a00| 20 6e 65 77 20 6e 61 6d | 65 2e 0a 57 68 65 6e 20 | new nam|e..When |
|00005a10| 6f 70 65 72 61 74 69 6e | 67 20 6f 6e 20 6d 75 6c |operatin|g on mul|
|00005a20| 74 69 70 6c 65 20 6f 72 | 20 6d 61 72 6b 65 64 20 |tiple or| marked |
|00005a30| 66 69 6c 65 73 2c 20 79 | 6f 75 20 73 70 65 63 69 |files, y|ou speci|
|00005a40| 66 79 20 61 20 64 69 72 | 65 63 74 6f 72 79 0a 61 |fy a dir|ectory.a|
|00005a50| 6e 64 20 6e 65 77 20 68 | 61 72 64 20 6c 69 6e 6b |nd new h|ard link|
|00005a60| 73 20 61 72 65 20 6d 61 | 64 65 20 69 6e 20 74 68 |s are ma|de in th|
|00005a70| 61 74 20 64 69 72 65 63 | 74 6f 72 79 0a 77 69 74 |at direc|tory.wit|
|00005a80| 68 20 74 68 65 20 73 61 | 6d 65 20 6e 61 6d 65 73 |h the sa|me names|
|00005a90| 20 74 68 61 74 20 74 68 | 65 20 66 69 6c 65 73 20 | that th|e files |
|00005aa0| 63 75 72 72 65 6e 74 6c | 79 20 68 61 76 65 2e 22 |currentl|y have."|
|00005ab0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00005ac0| 20 27 64 69 72 65 64 2d | 64 6f 2d 72 65 6e 61 6d | 'dired-|do-renam|
|00005ad0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |e #[(&op|tional a|
|00005ae0| 72 67 29 20 22 c0 c1 c2 | c3 0c 0d c6 26 06 87 22 |rg) "...|....&.."|
|00005af0| 20 5b 64 69 72 65 64 2d | 64 6f 2d 63 72 65 61 74 | [dired-|do-creat|
|00005b00| 65 2d 66 69 6c 65 73 20 | 6d 6f 76 65 20 64 69 72 |e-files |move dir|
|00005b10| 65 64 2d 72 65 6e 61 6d | 65 2d 66 69 6c 65 20 22 |ed-renam|e-file "|
|00005b20| 4d 6f 76 65 22 20 61 72 | 67 20 64 69 72 65 64 2d |Move" ar|g dired-|
|00005b30| 6b 65 65 70 2d 6d 61 72 | 6b 65 72 2d 72 65 6e 61 |keep-mar|ker-rena|
|00005b40| 6d 65 20 22 52 65 6e 61 | 6d 65 22 5d 20 37 20 22 |me "Rena|me"] 7 "|
|00005b50| 5c 0a 52 65 6e 61 6d 65 | 20 63 75 72 72 65 6e 74 |\.Rename| current|
|00005b60| 20 66 69 6c 65 20 6f 72 | 20 61 6c 6c 20 6d 61 72 | file or| all mar|
|00005b70| 6b 65 64 20 28 6f 72 20 | 6e 65 78 74 20 41 52 47 |ked (or |next ARG|
|00005b80| 29 20 66 69 6c 65 73 2e | 0a 57 68 65 6e 20 72 65 |) files.|.When re|
|00005b90| 6e 61 6d 69 6e 67 20 6a | 75 73 74 20 74 68 65 20 |naming j|ust the |
|00005ba0| 63 75 72 72 65 6e 74 20 | 66 69 6c 65 2c 20 79 6f |current |file, yo|
|00005bb0| 75 20 73 70 65 63 69 66 | 79 20 74 68 65 20 6e 65 |u specif|y the ne|
|00005bc0| 77 20 6e 61 6d 65 2e 0a | 57 68 65 6e 20 72 65 6e |w name..|When ren|
|00005bd0| 61 6d 69 6e 67 20 6d 75 | 6c 74 69 70 6c 65 20 6f |aming mu|ltiple o|
|00005be0| 72 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 2c 20 |r marked| files, |
|00005bf0| 79 6f 75 20 73 70 65 63 | 69 66 79 20 61 20 64 69 |you spec|ify a di|
|00005c00| 72 65 63 74 6f 72 79 2e | 22 20 22 50 22 5d 29 0a |rectory.|" "P"]).|
|00005c10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00005c20| 22 88 c0 c3 c4 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|00005c30| 69 61 73 20 64 69 72 65 | 64 2d 64 6f 2d 63 72 65 |ias dire|d-do-cre|
|00005c40| 61 74 65 2d 66 69 6c 65 | 73 2d 72 65 67 65 78 70 |ate-file|s-regexp|
|00005c50| 20 23 5b 28 66 69 6c 65 | 2d 63 72 65 61 74 6f 72 | #[(file|-creator|
|00005c60| 20 6f 70 65 72 61 74 69 | 6f 6e 20 61 72 67 20 72 | operati|on arg r|
|00005c70| 65 67 65 78 70 20 6e 65 | 77 6e 61 6d 65 20 26 6f |egexp ne|wname &o|
|00005c80| 70 74 69 6f 6e 61 6c 20 | 77 68 6f 6c 65 2d 70 61 |ptional |whole-pa|
|00005c90| 74 68 20 6d 61 72 6b 65 | 72 2d 63 68 61 72 29 20 |th marke|r-char) |
|00005ca0| 22 c0 c1 5c 6e 5c 22 89 | 1b 47 1c 0d c6 50 1e 07 |"..\n\".|.G...P..|
|00005cb0| c8 c9 0d 97 0d 97 23 1e | 5c 6e 0e 0b 83 1f 00 cc |......#.|\n......|
|00005cc0| 82 20 00 cd 1e 0e c1 1e | 0f d0 0e 11 0d 0b 0e 0e |. ......|........|
|00005cd0| 0e 12 25 2e 06 87 22 20 | 5b 64 69 72 65 64 2d 67 |..%..." |[dired-g|
|00005ce0| 65 74 2d 6d 61 72 6b 65 | 64 2d 66 69 6c 65 73 20 |et-marke|d-files |
|00005cf0| 6e 69 6c 20 61 72 67 20 | 66 6e 2d 6c 69 73 74 20 |nil arg |fn-list |
|00005d00| 66 6e 2d 63 6f 75 6e 74 | 20 6f 70 65 72 61 74 69 |fn-count| operati|
|00005d10| 6f 6e 20 22 20 60 25 73 | 27 20 74 6f 20 60 25 73 |on " `%s|' to `%s|
|00005d20| 27 3f 22 20 6f 70 65 72 | 61 74 69 6f 6e 2d 70 72 |'?" oper|ation-pr|
|00005d30| 6f 6d 70 74 20 66 6f 72 | 6d 61 74 20 22 54 79 70 |ompt for|mat "Typ|
|00005d40| 65 20 53 50 43 20 6f 72 | 20 60 79 27 20 74 6f 20 |e SPC or| `y' to |
|00005d50| 25 73 20 6f 6e 65 20 6d | 61 74 63 68 2c 20 44 45 |%s one m|atch, DE|
|00005d60| 4c 20 6f 72 20 60 6e 27 | 20 74 6f 20 73 6b 69 70 |L or `n'| to skip|
|00005d70| 20 74 6f 20 6e 65 78 74 | 2c 5c 6e 60 21 27 20 74 | to next|,\n`!' t|
|00005d80| 6f 20 25 73 20 61 6c 6c | 20 72 65 6d 61 69 6e 69 |o %s all| remaini|
|00005d90| 6e 67 20 6d 61 74 63 68 | 65 73 20 77 69 74 68 20 |ng match|es with |
|00005da0| 6e 6f 20 6d 6f 72 65 20 | 71 75 65 73 74 69 6f 6e |no more |question|
|00005db0| 73 2e 22 20 72 65 6e 61 | 6d 65 2d 72 65 67 65 78 |s." rena|me-regex|
|00005dc0| 70 2d 68 65 6c 70 2d 66 | 6f 72 6d 20 77 68 6f 6c |p-help-f|orm whol|
|00005dd0| 65 2d 70 61 74 68 20 23 | 5b 28 66 72 6f 6d 29 20 |e-path #|[(from) |
|00005de0| 22 c0 09 5c 6e 0b 23 0c | 1d 89 1e 06 83 1d 00 c7 |"..\n.#.|........|
|00005df0| c8 0e 09 5c 6e 0e 06 24 | 85 24 00 0e 06 82 24 00 |...\n..$|.$....$.|
|00005e00| ca cb 0e 0c 5c 6e 09 24 | 2a 87 22 20 5b 64 69 72 |....\n.$|*." [dir|
|00005e10| 65 64 2d 73 74 72 69 6e | 67 2d 72 65 70 6c 61 63 |ed-strin|g-replac|
|00005e20| 65 2d 6d 61 74 63 68 20 | 72 65 67 65 78 70 20 66 |e-match |regexp f|
|00005e30| 72 6f 6d 20 6e 65 77 6e | 61 6d 65 20 72 65 6e 61 |rom newn|ame rena|
|00005e40| 6d 65 2d 72 65 67 65 78 | 70 2d 68 65 6c 70 2d 66 |me-regex|p-help-f|
|00005e50| 6f 72 6d 20 68 65 6c 70 | 2d 66 6f 72 6d 20 74 6f |orm help|-form to|
|00005e60| 20 64 69 72 65 64 2d 71 | 75 65 72 79 20 72 65 6e | dired-q|uery ren|
|00005e70| 61 6d 65 2d 72 65 67 65 | 78 70 2d 71 75 65 72 79 |ame-rege|xp-query|
|00005e80| 20 6f 70 65 72 61 74 69 | 6f 6e 2d 70 72 6f 6d 70 | operati|on-promp|
|00005e90| 74 20 64 69 72 65 64 2d | 6c 6f 67 20 22 25 73 3a |t dired-|log "%s:|
|00005ea0| 20 25 73 20 64 69 64 20 | 6e 6f 74 20 6d 61 74 63 | %s did |not matc|
|00005eb0| 68 20 72 65 67 65 78 70 | 20 25 73 5c 6e 22 20 6f |h regexp| %s\n" o|
|00005ec0| 70 65 72 61 74 69 6f 6e | 5d 20 36 5d 20 23 5b 28 |peration|] 6] #[(|
|00005ed0| 66 72 6f 6d 29 20 22 c0 | 09 c2 0b 21 0c 23 89 1d |from) ".|...!.#..|
|00005ee0| 85 12 00 c6 0d c7 0b 21 | 5c 22 1e 08 0e 09 1e 5c |.......!|\".....\|
|00005ef0| 6e 0e 08 83 31 00 cb cc | 0e 0d ce 0b 21 ce 0e 08 |n...1...|....!...|
|00005f00| 21 24 85 3a 00 0e 08 82 | 3a 00 cf d0 0e 11 c2 0b |!$.:....|:.......|
|00005f10| 21 09 24 2b 87 22 20 5b | 64 69 72 65 64 2d 73 74 |!.$+." [|dired-st|
|00005f20| 72 69 6e 67 2d 72 65 70 | 6c 61 63 65 2d 6d 61 74 |ring-rep|lace-mat|
|00005f30| 63 68 20 72 65 67 65 78 | 70 20 66 69 6c 65 2d 6e |ch regex|p file-n|
|00005f40| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00005f50| 20 66 72 6f 6d 20 6e 65 | 77 6e 61 6d 65 20 6e 65 | from ne|wname ne|
|00005f60| 77 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |w expand|-file-na|
|00005f70| 6d 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |me file-|name-dir|
|00005f80| 65 63 74 6f 72 79 20 74 | 6f 20 72 65 6e 61 6d 65 |ectory t|o rename|
|00005f90| 2d 72 65 67 65 78 70 2d | 68 65 6c 70 2d 66 6f 72 |-regexp-|help-for|
|00005fa0| 6d 20 68 65 6c 70 2d 66 | 6f 72 6d 20 64 69 72 65 |m help-f|orm dire|
|00005fb0| 64 2d 71 75 65 72 79 20 | 72 65 6e 61 6d 65 2d 72 |d-query |rename-r|
|00005fc0| 65 67 65 78 70 2d 71 75 | 65 72 79 20 6f 70 65 72 |egexp-qu|ery oper|
|00005fd0| 61 74 69 6f 6e 2d 70 72 | 6f 6d 70 74 20 64 69 72 |ation-pr|ompt dir|
|00005fe0| 65 64 2d 6d 61 6b 65 2d | 72 65 6c 61 74 69 76 65 |ed-make-|relative|
|00005ff0| 20 64 69 72 65 64 2d 6c | 6f 67 20 22 25 73 3a 20 | dired-l|og "%s: |
|00006000| 25 73 20 64 69 64 20 6e | 6f 74 20 6d 61 74 63 68 |%s did n|ot match|
|00006010| 20 72 65 67 65 78 70 20 | 25 73 5c 6e 22 20 6f 70 | regexp |%s\n" op|
|00006020| 65 72 61 74 69 6f 6e 5d | 20 37 5d 20 72 65 67 65 |eration]| 7] rege|
|00006030| 78 70 2d 6e 61 6d 65 2d | 63 6f 6e 73 74 72 75 63 |xp-name-|construc|
|00006040| 74 6f 72 20 72 65 6e 61 | 6d 65 2d 72 65 67 65 78 |tor rena|me-regex|
|00006050| 70 2d 71 75 65 72 79 20 | 64 69 72 65 64 2d 63 72 |p-query |dired-cr|
|00006060| 65 61 74 65 2d 66 69 6c | 65 73 20 66 69 6c 65 2d |eate-fil|es file-|
|00006070| 63 72 65 61 74 6f 72 20 | 6d 61 72 6b 65 72 2d 63 |creator |marker-c|
|00006080| 68 61 72 5d 20 37 5d 20 | 64 69 72 65 64 2d 6d 61 |har] 7] |dired-ma|
|00006090| 72 6b 2d 72 65 61 64 2d | 72 65 67 65 78 70 20 23 |rk-read-|regexp #|
|000060a0| 5b 28 6f 70 65 72 61 74 | 69 6f 6e 29 20 22 c0 09 |[(operat|ion) "..|
|000060b0| 21 c2 9a 89 1b 3f 85 0c | 00 09 1c c5 0b 83 16 00 |!....?..|........|
|000060c0| c6 82 17 00 c7 0e 08 c9 | 51 21 1e 5c 6e cb 0b 83 |........|Q!.\n...|
|000060d0| 27 00 c6 82 28 00 c7 0e | 08 cc 0e 5c 6e cd b0 05 |'...(...|...\n...|
|000060e0| 21 1e 0e 0e 5c 6e 0e 0e | 0c 0b 46 2c 87 22 20 5b |!...\n..|..F,." [|
|000060f0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00006100| 61 6c 75 65 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |alue cur|rent-pre|
|00006110| 66 69 78 2d 61 72 67 20 | 30 20 77 68 6f 6c 65 2d |fix-arg |0 whole-|
|00006120| 70 61 74 68 20 61 72 67 | 20 64 69 72 65 64 2d 72 |path arg| dired-r|
|00006130| 65 61 64 2d 72 65 67 65 | 78 70 20 22 50 61 74 68 |ead-rege|xp "Path|
|00006140| 20 22 20 22 22 20 6f 70 | 65 72 61 74 69 6f 6e 20 | " "" op|eration |
|00006150| 22 20 66 72 6f 6d 20 28 | 72 65 67 65 78 70 29 3a |" from (|regexp):|
|00006160| 20 22 20 72 65 67 65 78 | 70 20 72 65 61 64 2d 73 | " regex|p read-s|
|00006170| 74 72 69 6e 67 20 22 20 | 22 20 22 20 74 6f 3a 20 |tring " |" " to: |
|00006180| 22 20 6e 65 77 6e 61 6d | 65 5d 20 37 5d 5d 20 33 |" newnam|e] 7]] 3|
|00006190| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|000061a0| 65 64 2d 64 6f 2d 72 65 | 6e 61 6d 65 2d 72 65 67 |ed-do-re|name-reg|
|000061b0| 65 78 70 20 23 5b 28 72 | 65 67 65 78 70 20 6e 65 |exp #[(r|egexp ne|
|000061c0| 77 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |wname &o|ptional |
|000061d0| 61 72 67 20 77 68 6f 6c | 65 2d 70 61 74 68 29 20 |arg whol|e-path) |
|000061e0| 22 c0 c1 c2 0b 0c 0d 0e | 06 0e 07 26 07 87 22 20 |".......|...&.." |
|000061f0| 5b 64 69 72 65 64 2d 64 | 6f 2d 63 72 65 61 74 65 |[dired-d|o-create|
|00006200| 2d 66 69 6c 65 73 2d 72 | 65 67 65 78 70 20 64 69 |-files-r|egexp di|
|00006210| 72 65 64 2d 72 65 6e 61 | 6d 65 2d 66 69 6c 65 20 |red-rena|me-file |
|00006220| 22 52 65 6e 61 6d 65 22 | 20 61 72 67 20 72 65 67 |"Rename"| arg reg|
|00006230| 65 78 70 20 6e 65 77 6e | 61 6d 65 20 77 68 6f 6c |exp newn|ame whol|
|00006240| 65 2d 70 61 74 68 20 64 | 69 72 65 64 2d 6b 65 65 |e-path d|ired-kee|
|00006250| 70 2d 6d 61 72 6b 65 72 | 2d 72 65 6e 61 6d 65 5d |p-marker|-rename]|
|00006260| 20 38 20 22 5c 0a 52 65 | 6e 61 6d 65 20 6d 61 72 | 8 "\.Re|name mar|
|00006270| 6b 65 64 20 66 69 6c 65 | 73 20 63 6f 6e 74 61 69 |ked file|s contai|
|00006280| 6e 69 6e 67 20 52 45 47 | 45 58 50 20 74 6f 20 4e |ning REG|EXP to N|
|00006290| 45 57 4e 41 4d 45 2e 0a | 41 73 20 65 61 63 68 20 |EWNAME..|As each |
|000062a0| 6d 61 74 63 68 20 69 73 | 20 66 6f 75 6e 64 2c 20 |match is| found, |
|000062b0| 74 68 65 20 75 73 65 72 | 20 6d 75 73 74 20 74 79 |the user| must ty|
|000062c0| 70 65 20 61 20 63 68 61 | 72 61 63 74 65 72 20 73 |pe a cha|racter s|
|000062d0| 61 79 69 6e 67 0a 20 20 | 77 68 61 74 20 74 6f 20 |aying. |what to |
|000062e0| 64 6f 20 77 69 74 68 20 | 69 74 2e 20 20 46 6f 72 |do with |it. For|
|000062f0| 20 64 69 72 65 63 74 69 | 6f 6e 73 2c 20 74 79 70 | directi|ons, typ|
|00006300| 65 20 5c 5c 5b 68 65 6c | 70 2d 63 6f 6d 6d 61 6e |e \\[hel|p-comman|
|00006310| 64 5d 20 61 74 20 74 68 | 61 74 20 74 69 6d 65 2e |d] at th|at time.|
|00006320| 0a 4e 45 57 4e 41 4d 45 | 20 6d 61 79 20 63 6f 6e |.NEWNAME| may con|
|00006330| 74 61 69 6e 20 5c 5c 3d | 5c 5c 3c 6e 3e 20 6f 72 |tain \\=|\\<n> or|
|00006340| 20 5c 5c 26 20 61 73 20 | 69 6e 20 60 71 75 65 72 | \\& as |in `quer|
|00006350| 79 2d 72 65 70 6c 61 63 | 65 2d 72 65 67 65 78 70 |y-replac|e-regexp|
|00006360| 27 2e 0a 52 45 47 45 58 | 50 20 64 65 66 61 75 6c |'..REGEX|P defaul|
|00006370| 74 73 20 74 6f 20 74 68 | 65 20 6c 61 73 74 20 72 |ts to th|e last r|
|00006380| 65 67 65 78 70 20 75 73 | 65 64 2e 0a 57 69 74 68 |egexp us|ed..With|
|00006390| 20 61 20 7a 65 72 6f 20 | 70 72 65 66 69 78 20 61 | a zero |prefix a|
|000063a0| 72 67 2c 20 72 65 6e 61 | 6d 69 6e 67 20 62 79 20 |rg, rena|ming by |
|000063b0| 72 65 67 65 78 70 20 61 | 66 66 65 63 74 73 20 74 |regexp a|ffects t|
|000063c0| 68 65 20 63 6f 6d 70 6c | 65 74 65 0a 20 20 70 61 |he compl|ete. pa|
|000063d0| 74 68 6e 61 6d 65 20 2d | 20 75 73 75 61 6c 6c 79 |thname -| usually|
|000063e0| 20 6f 6e 6c 79 20 74 68 | 65 20 6e 6f 6e 2d 64 69 | only th|e non-di|
|000063f0| 72 65 63 74 6f 72 79 20 | 70 61 72 74 20 6f 66 20 |rectory |part of |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
