home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 4.1 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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 33 39 3a 34 39 20 |Feb 1 1|8:39:49 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 64 69 72 | 65 64 2f 64 69 72 65 64 |lisp/dir|ed/dired|
|00000080| 2d 63 64 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |-cd.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 34 2e 31 33 | version| 19.4.13|
|000000a0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 31 |comp ver|sion 2.1|
|000000c0| 30 3b 20 20 31 2d 66 65 | 62 2d 39 33 2e 0a 3b 3b |0; 1-fe|b-93..;;|
|000000d0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000e0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000f0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000100| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000110| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 31 38 2e 0a |ist in E|macs18..|
|00000120| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000130| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000140| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000150| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000160| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000170| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|00000180| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000190| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001a0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001b0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001c0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 31 39 2e 22 |ed for E|macs19."|
|000001d0| 29 29 0a 0a 28 64 65 66 | 76 61 72 20 64 69 72 65 |))..(def|var dire|
|000001e0| 64 2d 63 64 2d 73 61 6d | 65 2d 73 75 62 64 69 72 |d-cd-sam|e-subdir|
|000001f0| 20 6e 69 6c 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d | nil "\.|*If non-|
|00000200| 6e 69 6c 2c 20 61 6e 64 | 20 73 65 6c 65 63 74 65 |nil, and| selecte|
|00000210| 64 20 66 69 6c 65 28 73 | 29 20 28 62 79 20 6d 61 |d file(s|) (by ma|
|00000220| 72 6b 73 2c 20 6e 75 6d | 65 72 69 63 20 61 72 67 |rks, num|eric arg|
|00000230| 2c 20 5c 5c 5b 75 6e 69 | 76 65 72 73 61 6c 2d 61 |, \\[uni|versal-a|
|00000240| 72 67 75 6d 65 6e 74 5d | 29 20 61 72 65 20 69 6e |rgument]|) are in|
|00000250| 20 73 61 6d 65 0a 73 75 | 62 64 69 72 2c 20 63 61 | same.su|bdir, ca|
|00000260| 75 73 65 73 20 64 69 72 | 65 64 20 73 68 65 6c 6c |uses dir|ed shell|
|00000270| 20 63 6f 6d 6d 61 6e 64 | 20 74 6f 20 72 75 6e 20 | command| to run |
|00000280| 69 6e 20 74 68 61 74 20 | 73 75 62 64 69 72 2e 20 |in that |subdir. |
|00000290| 20 46 69 6c 65 6e 61 6d | 65 73 20 70 72 6f 76 69 | Filenam|es provi|
|000002a0| 64 65 64 0a 74 6f 20 73 | 68 65 6c 6c 20 63 6f 6d |ded.to s|hell com|
|000002b0| 6d 61 6e 64 73 20 61 72 | 65 20 73 74 72 69 70 70 |mands ar|e stripp|
|000002c0| 65 64 20 6f 66 20 74 68 | 65 69 72 20 64 69 72 65 |ed of th|eir dire|
|000002d0| 63 74 6f 72 79 20 63 6f | 6d 70 6f 6e 65 6e 74 73 |ctory co|mponents|
|000002e0| 2e 20 20 44 6f 65 73 20 | 6e 6f 74 0a 61 66 66 65 |. Does |not.affe|
|000002f0| 63 74 20 62 65 68 61 76 | 69 6f 72 20 6f 66 20 6f |ct behav|ior of o|
|00000300| 6e 2d 65 61 63 68 2c 20 | 66 6f 72 20 74 68 61 74 |n-each, |for that|
|00000310| 20 73 65 65 20 76 61 72 | 69 61 62 6c 65 20 64 69 | see var|iable di|
|00000320| 72 65 64 2d 63 64 2d 6f | 6e 2d 65 61 63 68 2e 22 |red-cd-o|n-each."|
|00000330| 29 0a 28 64 65 66 76 61 | 72 20 64 69 72 65 64 2d |).(defva|r dired-|
|00000340| 63 64 2d 6f 6e 2d 65 61 | 63 68 20 6e 69 6c 20 22 |cd-on-ea|ch nil "|
|00000350| 5c 0a 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 6f |\.*If no|n-nil, o|
|00000360| 6e 2d 65 61 63 68 20 63 | 61 75 73 65 73 20 65 61 |n-each c|auses ea|
|00000370| 63 68 20 64 69 72 65 64 | 20 73 68 65 6c 6c 20 63 |ch dired| shell c|
|00000380| 6f 6d 6d 61 6e 64 20 74 | 6f 20 72 75 6e 20 69 6e |ommand t|o run in|
|00000390| 20 74 68 65 20 0a 66 69 | 6c 65 27 73 20 64 69 72 | the .fi|le's dir|
|000003a0| 65 63 74 6f 72 79 2e 20 | 20 46 69 6c 65 6e 61 6d |ectory. | Filenam|
|000003b0| 65 73 20 70 72 6f 76 69 | 64 65 64 20 74 6f 20 73 |es provi|ded to s|
|000003c0| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 73 20 61 72 |hell com|mands ar|
|000003d0| 65 20 73 74 72 69 70 70 | 65 64 20 6f 66 20 0a 74 |e stripp|ed of .t|
|000003e0| 68 65 69 72 20 64 69 72 | 65 63 74 6f 72 79 20 63 |heir dir|ectory c|
|000003f0| 6f 6d 70 6f 6e 65 6e 74 | 73 2e 20 20 41 6c 73 6f |omponent|s. Also|
|00000400| 20 73 65 65 20 76 61 72 | 69 61 62 6c 65 20 64 69 | see var|iable di|
|00000410| 72 65 64 2d 63 64 2d 73 | 61 6d 65 2d 73 75 62 64 |red-cd-s|ame-subd|
|00000420| 69 72 2e 22 29 0a 28 66 | 73 65 74 20 27 64 69 72 |ir.").(f|set 'dir|
|00000430| 65 64 2d 64 6f 2d 73 68 | 65 6c 6c 2d 63 6f 6d 6d |ed-do-sh|ell-comm|
|00000440| 61 6e 64 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |and #[(&|optional|
|00000450| 20 61 72 67 20 69 6e 2d | 62 61 63 6b 67 72 6f 75 | arg in-|backgrou|
|00000460| 6e 64 29 20 22 08 c1 9a | 1a c3 c4 5c 6e 3f ad 81 |nd) "...|...\n?..|
|00000470| 08 5c 22 1d 0e 06 ab 83 | c7 aa 81 c8 5c 6e ab 84 |.\".....|....\n..|
|00000480| 0e 09 ac 8c 0e 5c 6e ab | 8b 5c 6e ac 88 cb 0d 21 |.....\n.|.\n....!|
|00000490| ab 83 cc aa 81 cd ce 5c | 6e ab 83 cf aa 81 cd d0 |.......\|n.......|
|000004a0| b0 05 1e 11 d2 0e 11 5c | 6e 3f ad 81 08 0d 23 1e |.......\|n?....#.|
|000004b0| 13 d4 0e 13 0d 5c 6e 08 | 24 1e 15 d6 0e 15 0e 06 |.....\n.|$.......|
|000004c0| 5c 22 2d 87 22 20 5b 61 | 72 67 20 30 20 6f 6e 2d |\"-." [a|rg 0 on-|
|000004d0| 65 61 63 68 20 64 69 72 | 65 64 2d 6d 61 72 6b 2d |each dir|ed-mark-|
|000004e0| 67 65 74 2d 66 69 6c 65 | 73 20 74 20 66 69 6c 65 |get-file|s t file|
|000004f0| 2d 6c 69 73 74 20 69 6e | 2d 62 61 63 6b 67 72 6f |-list in|-backgro|
|00000500| 75 6e 64 20 22 26 20 22 | 20 22 21 20 22 20 64 69 |und "& "| "! " di|
|00000510| 72 65 64 2d 63 64 2d 6f | 6e 2d 65 61 63 68 20 64 |red-cd-o|n-each d|
|00000520| 69 72 65 64 2d 63 64 2d | 73 61 6d 65 2d 73 75 62 |ired-cd-|same-sub|
|00000530| 64 69 72 20 64 69 72 65 | 64 2d 66 69 6c 65 73 2d |dir dire|d-files-|
|00000540| 73 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 22 |same-dir|ectory "|
|00000550| 63 64 20 3c 64 69 72 3e | 3b 20 22 20 22 22 20 22 |cd <dir>|; " "" "|
|00000560| 6f 6e 20 22 20 22 65 61 | 63 68 20 22 20 22 25 73 |on " "ea|ch " "%s|
|00000570| 3a 20 22 20 70 72 6f 6d | 70 74 20 64 69 72 65 64 |: " prom|pt dired|
|00000580| 2d 72 65 61 64 2d 73 68 | 65 6c 6c 2d 63 6f 6d 6d |-read-sh|ell-comm|
|00000590| 61 6e 64 20 63 6f 6d 6d | 61 6e 64 20 64 69 72 65 |and comm|and dire|
|000005a0| 64 2d 63 64 2d 77 72 61 | 70 2d 69 74 20 72 65 73 |d-cd-wra|p-it res|
|000005b0| 75 6c 74 20 64 69 72 65 | 64 2d 72 75 6e 2d 73 68 |ult dire|d-run-sh|
|000005c0| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 5d 20 35 20 22 |ell-comm|and] 5 "|
|000005d0| 5c 0a 52 75 6e 20 61 20 | 73 68 65 6c 6c 20 63 6f |\.Run a |shell co|
|000005e0| 6d 6d 61 6e 64 20 6f 6e | 20 74 68 65 20 6d 61 72 |mmand on| the mar|
|000005f0| 6b 65 64 20 66 69 6c 65 | 73 2e 0a 49 66 20 74 68 |ked file|s..If th|
|00000600| 65 72 65 20 69 73 20 6f | 75 74 70 75 74 2c 20 69 |ere is o|utput, i|
|00000610| 74 20 67 6f 65 73 20 74 | 6f 20 61 20 73 65 70 61 |t goes t|o a sepa|
|00000620| 72 61 74 65 20 62 75 66 | 66 65 72 2e 0a 54 68 65 |rate buf|fer..The|
|00000630| 20 6c 69 73 74 20 6f 66 | 20 6d 61 72 6b 65 64 20 | list of| marked |
|00000640| 66 69 6c 65 73 20 69 73 | 20 61 70 70 65 6e 64 65 |files is| appende|
|00000650| 64 20 74 6f 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |d to the| command|
|00000660| 20 73 74 72 69 6e 67 20 | 75 6e 6c 65 73 73 20 61 | string |unless a|
|00000670| 73 74 65 72 69 73 6b 73 | 0a 20 20 60 2a 27 20 69 |sterisks|. `*' i|
|00000680| 6e 64 69 63 61 74 65 20 | 74 68 65 20 70 6c 61 63 |ndicate |the plac|
|00000690| 65 28 73 29 20 77 68 65 | 72 65 20 74 68 65 20 6c |e(s) whe|re the l|
|000006a0| 69 73 74 20 73 68 6f 75 | 6c 64 20 67 6f 2e 0a 49 |ist shou|ld go..I|
|000006b0| 66 20 6e 6f 20 66 69 6c | 65 73 20 61 72 65 20 6d |f no fil|es are m|
|000006c0| 61 72 6b 65 64 20 6f 72 | 20 61 20 73 70 65 63 69 |arked or| a speci|
|000006d0| 66 69 63 20 6e 75 6d 65 | 72 69 63 20 70 72 65 66 |fic nume|ric pref|
|000006e0| 69 78 20 61 72 67 20 69 | 73 20 67 69 76 65 6e 2c |ix arg i|s given,|
|000006f0| 20 75 73 65 73 0a 20 20 | 6e 65 78 74 20 41 52 47 | uses. |next ARG|
|00000700| 20 66 69 6c 65 73 2e 20 | 20 57 69 74 68 20 61 20 | files. | With a |
|00000710| 7a 65 72 6f 20 61 72 67 | 75 6d 65 6e 74 2c 20 72 |zero arg|ument, r|
|00000720| 75 6e 20 63 6f 6d 6d 61 | 6e 64 20 6f 6e 20 65 61 |un comma|nd on ea|
|00000730| 63 68 20 6d 61 72 6b 65 | 64 20 66 69 6c 65 0a 20 |ch marke|d file. |
|00000740| 20 73 65 70 61 72 61 74 | 65 6c 79 3a 20 60 63 6d | separat|ely: `cm|
|00000750| 64 20 2a 20 66 6f 6f 27 | 20 72 65 73 75 6c 74 73 |d * foo'| results|
|00000760| 20 69 6e 20 60 63 6d 64 | 20 46 31 20 66 6f 6f 3b | in `cmd| F1 foo;|
|00000770| 20 2e 2e 2e 3b 20 63 6d | 64 20 46 6e 20 66 6f 6f | ...; cm|d Fn foo|
|00000780| 27 2e 0a 20 20 41 73 20 | 61 6c 77 61 79 73 2c 20 |'.. As |always, |
|00000790| 61 20 72 61 77 20 61 72 | 67 20 28 5c 5c 5b 75 6e |a raw ar|g (\\[un|
|000007a0| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|000007b0| 5d 29 20 6d 65 61 6e 73 | 20 74 68 65 20 63 75 72 |]) means| the cur|
|000007c0| 72 65 6e 74 20 66 69 6c | 65 2e 0a 54 68 65 20 6f |rent fil|e..The o|
|000007d0| 70 74 69 6f 6e 20 76 61 | 72 69 61 62 6c 65 73 20 |ption va|riables |
|000007e0| 64 69 72 65 64 2d 63 64 | 2d 73 61 6d 65 2d 73 75 |dired-cd|-same-su|
|000007f0| 62 64 69 72 20 61 6e 64 | 20 64 69 72 65 64 2d 63 |bdir and| dired-c|
|00000800| 64 2d 6f 6e 2d 65 61 63 | 68 0a 20 20 70 65 72 6d |d-on-eac|h. perm|
|00000810| 69 74 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 28 73 |it the c|ommand(s|
|00000820| 29 20 74 6f 20 72 75 6e | 20 69 6e 20 74 68 65 20 |) to run| in the |
|00000830| 66 69 6c 65 73 27 20 64 | 69 72 65 63 74 6f 72 69 |files' d|irectori|
|00000840| 65 73 20 69 66 20 61 70 | 70 72 6f 70 72 69 61 74 |es if ap|propriat|
|00000850| 65 2c 0a 20 20 61 6e 64 | 20 74 68 75 73 20 64 65 |e,. and| thus de|
|00000860| 74 65 72 6d 69 6e 65 20 | 77 68 65 72 65 20 6f 75 |termine |where ou|
|00000870| 74 70 75 74 20 66 69 6c | 65 73 20 61 72 65 20 63 |tput fil|es are c|
|00000880| 72 65 61 74 65 64 2e 20 | 20 44 65 66 61 75 6c 74 |reated. | Default|
|00000890| 20 69 73 20 74 6f 70 0a | 20 20 64 69 72 65 63 74 | is top.| direct|
|000008a0| 6f 72 79 2e 20 20 54 68 | 65 20 70 72 6f 6d 70 74 |ory. Th|e prompt|
|000008b0| 20 6d 65 6e 74 69 6f 6e | 73 20 74 68 65 20 66 69 | mention|s the fi|
|000008c0| 6c 65 28 73 29 20 6f 72 | 20 74 68 65 20 6d 61 72 |le(s) or| the mar|
|000008d0| 6b 65 72 2c 20 74 68 65 | 20 63 64 20 73 75 62 64 |ker, the| cd subd|
|000008e0| 69 72 2c 0a 20 20 61 6e | 64 20 74 68 65 20 6f 6e |ir,. an|d the on|
|000008f0| 2d 65 61 63 68 20 66 6c | 61 67 73 20 77 68 65 6e |-each fl|ags when|
|00000900| 20 74 68 65 79 20 61 70 | 70 6c 79 2e 0a 4e 6f 20 | they ap|ply..No |
|00000910| 61 75 74 6f 6d 61 74 69 | 63 20 72 65 64 69 73 70 |automati|c redisp|
|00000920| 6c 61 79 20 69 73 20 61 | 74 74 65 6d 70 74 65 64 |lay is a|ttempted|
|00000930| 2c 20 61 73 20 74 68 65 | 20 66 69 6c 65 20 6e 61 |, as the| file na|
|00000940| 6d 65 73 20 6d 61 79 20 | 68 61 76 65 0a 20 20 63 |mes may |have. c|
|00000950| 68 61 6e 67 65 64 2e 20 | 20 54 79 70 65 20 5c 5c |hanged. | Type \\|
|00000960| 5b 64 69 72 65 64 2d 64 | 6f 2d 72 65 64 69 73 70 |[dired-d|o-redisp|
|00000970| 6c 61 79 5d 20 74 6f 20 | 72 65 64 69 73 70 6c 61 |lay] to |redispla|
|00000980| 79 20 74 68 65 20 6d 61 | 72 6b 65 64 20 66 69 6c |y the ma|rked fil|
|00000990| 65 73 2e 22 20 22 50 22 | 5d 29 0a 28 66 73 65 74 |es." "P"|]).(fset|
|000009a0| 20 27 64 69 72 65 64 2d | 63 64 2d 77 72 61 70 2d | 'dired-|cd-wrap-|
|000009b0| 69 74 20 23 5b 28 63 6f | 6d 6d 61 6e 64 20 66 69 |it #[(co|mmand fi|
|000009c0| 6c 65 73 20 6f 6e 2d 65 | 61 63 68 20 26 6f 70 74 |les on-e|ach &opt|
|000009d0| 69 6f 6e 61 6c 20 72 61 | 77 29 20 22 08 ab 99 c1 |ional ra|w) "....|
|000009e0| 1a c3 1c c5 c6 0e 07 c8 | 23 1e 09 0c ab 86 0e 09 |........|#.......|
|000009f0| ca 50 aa 82 0e 09 2b 87 | 0e 0b ad 85 cc 0e 07 c3 |.P....+.|........|
|00000a00| 5c 22 c1 1e 0d 89 1e 0e | ab 96 0e 0e c1 9a ac 90 |\"......|........|
|00000a10| cf d0 0e 07 5c 22 16 07 | d1 d2 0e 0e 21 c8 51 16 |....\"..|....!.Q.|
|00000a20| 0d 0e 0d d3 0e 14 0e 07 | 08 0e 15 24 50 2a 87 22 |........|...$P*."|
|00000a30| 20 5b 6f 6e 2d 65 61 63 | 68 20 22 22 20 63 77 64 | [on-eac|h "" cwd|
|00000a40| 20 6e 69 6c 20 69 6e 2d | 73 75 62 73 68 65 6c 6c | nil in-|subshell|
|00000a50| 20 6d 61 70 63 6f 6e 63 | 61 74 20 23 5b 28 66 69 | mapconc|at #[(fi|
|00000a60| 6c 65 29 20 22 c0 c1 1a | 1b 0c ab ac c5 c6 0e 07 |le) "...|........|
|00000a70| 21 ae 81 c0 21 12 c8 0e | 07 21 16 07 5c 6e 0e 09 |!...!...|.!..\n..|
|00000a80| 98 ac 96 5c 6e 16 09 0e | 5c 6e ab 83 cb aa 81 c0 |...\n...|\n......|
|00000a90| cc cd 0e 09 21 ce 52 13 | cf 16 5c 6e 0b d0 0e 11 |....!.R.|..\n....|
|00000aa0| 0e 07 43 0e 12 0e 13 24 | 50 2a 87 22 20 5b 22 22 |..C....$|P*." [""|
|00000ab0| 20 6e 69 6c 20 64 20 63 | 64 20 64 69 72 65 64 2d | nil d c|d dired-|
|00000ac0| 63 64 2d 6f 6e 2d 65 61 | 63 68 20 64 69 72 65 63 |cd-on-ea|ch direc|
|00000ad0| 74 6f 72 79 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |tory-fil|e-name f|
|00000ae0| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|00000af0| 72 79 20 66 69 6c 65 20 | 66 69 6c 65 2d 6e 61 6d |ry file |file-nam|
|00000b00| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 63 |e-nondir|ectory c|
|00000b10| 77 64 20 69 6e 2d 73 75 | 62 73 68 65 6c 6c 20 22 |wd in-su|bshell "|
|00000b20| 29 3b 20 22 20 22 28 63 | 64 20 22 20 73 68 65 6c |); " "(c|d " shel|
|00000b30| 6c 2d 71 75 6f 74 65 20 | 22 3b 20 22 20 74 20 64 |l-quote |"; " t d|
|00000b40| 69 72 65 64 2d 73 68 65 | 6c 6c 2d 73 74 75 66 66 |ired-she|ll-stuff|
|00000b50| 2d 69 74 20 63 6f 6d 6d | 61 6e 64 20 6f 6e 2d 65 |-it comm|and on-e|
|00000b60| 61 63 68 20 72 61 77 5d | 20 36 5d 20 66 69 6c 65 |ach raw]| 6] file|
|00000b70| 73 20 22 3b 20 22 20 63 | 6d 64 20 22 29 22 20 64 |s "; " c|md ")" d|
|00000b80| 69 72 65 64 2d 63 64 2d | 73 61 6d 65 2d 73 75 62 |ired-cd-|same-sub|
|00000b90| 64 69 72 20 64 69 72 65 | 64 2d 66 69 6c 65 73 2d |dir dire|d-files-|
|00000ba0| 73 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 63 |same-dir|ectory c|
|00000bb0| 64 20 73 61 6d 65 2d 64 | 69 72 20 6d 61 70 63 61 |d same-d|ir mapca|
|00000bc0| 72 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |r file-n|ame-nond|
|00000bd0| 69 72 65 63 74 6f 72 79 | 20 22 63 64 20 22 20 73 |irectory| "cd " s|
|00000be0| 68 65 6c 6c 2d 71 75 6f | 74 65 20 64 69 72 65 64 |hell-quo|te dired|
|00000bf0| 2d 73 68 65 6c 6c 2d 73 | 74 75 66 66 2d 69 74 20 |-shell-s|tuff-it |
|00000c00| 63 6f 6d 6d 61 6e 64 20 | 72 61 77 5d 20 37 20 22 |command |raw] 7 "|
|00000c10| 5c 0a 41 72 67 73 20 43 | 4f 4d 4d 41 4e 44 20 46 |\.Args C|OMMAND F|
|00000c20| 49 4c 45 53 20 4f 4e 2d | 45 41 43 48 20 26 6f 70 |ILES ON-|EACH &op|
|00000c30| 74 69 6f 6e 61 6c 20 52 | 41 57 2d 41 52 47 2c 20 |tional R|AW-ARG, |
|00000c40| 6c 69 6b 65 20 64 69 72 | 65 64 2d 73 68 65 6c 6c |like dir|ed-shell|
|00000c50| 2d 73 74 75 66 66 2d 69 | 74 2e 0a 43 61 6c 6c 73 |-stuff-i|t..Calls|
|00000c60| 20 64 69 72 65 64 2d 73 | 68 65 6c 6c 2d 73 74 75 | dired-s|hell-stu|
|00000c70| 66 66 2d 69 74 2c 20 62 | 75 74 20 77 72 61 70 73 |ff-it, b|ut wraps|
|00000c80| 20 74 68 65 20 72 65 73 | 75 6c 74 69 6e 67 20 63 | the res|ulting c|
|00000c90| 6f 6d 6d 61 6e 64 28 73 | 29 0a 77 69 74 68 20 5c |ommand(s|).with \|
|00000ca0| 22 63 64 20 3c 64 69 72 | 3e 5c 22 20 63 6f 6d 6d |"cd <dir|>\" comm|
|00000cb0| 61 6e 64 73 20 77 68 65 | 6e 20 61 70 70 72 6f 70 |ands whe|n approp|
|00000cc0| 72 69 61 74 65 2e 20 20 | 4e 6f 74 65 3a 20 77 68 |riate. |Note: wh|
|00000cd0| 65 6e 20 4f 4e 2d 45 41 | 43 48 20 69 73 20 6e 6f |en ON-EA|CH is no|
|00000ce0| 6e 2d 6e 69 6c 2c 20 0a | 64 69 72 65 64 2d 73 68 |n-nil, .|dired-sh|
|00000cf0| 65 6c 6c 2d 73 74 75 66 | 66 2d 69 74 20 69 73 20 |ell-stuf|f-it is |
|00000d00| 63 61 6c 6c 65 64 20 6f | 6e 63 65 20 66 6f 72 20 |called o|nce for |
|00000d10| 65 61 63 68 20 66 69 6c | 65 20 69 6e 20 46 49 4c |each fil|e in FIL|
|00000d20| 45 53 2e 0a 53 65 65 20 | 64 6f 63 75 6d 65 6e 74 |ES..See |document|
|00000d30| 61 74 69 6f 6e 20 6f 66 | 20 76 61 72 69 61 62 6c |ation of| variabl|
|00000d40| 65 73 20 64 69 72 65 64 | 2d 63 64 2d 73 61 6d 65 |es dired|-cd-same|
|00000d50| 2d 73 75 62 64 69 72 20 | 61 6e 64 20 64 69 72 65 |-subdir |and dire|
|00000d60| 64 2d 63 64 2d 6f 6e 2d | 65 61 63 68 20 0a 66 6f |d-cd-on-|each .fo|
|00000d70| 72 20 77 72 61 70 20 63 | 6f 6e 64 69 74 69 6f 6e |r wrap c|ondition|
|00000d80| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 64 69 72 |s."]).(f|set 'dir|
|00000d90| 65 64 2d 66 69 6c 65 73 | 2d 73 61 6d 65 2d 64 69 |ed-files|-same-di|
|00000da0| 72 65 63 74 6f 72 79 20 | 23 5b 28 66 69 6c 65 2d |rectory |#[(file-|
|00000db0| 6c 69 73 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |list &op|tional a|
|00000dc0| 62 73 6f 6c 75 74 65 29 | 20 22 c0 09 40 21 1a c3 |bsolute)| "..@!..|
|00000dd0| c4 c5 09 5c 22 3e 3f ad | 98 c6 0e 07 ab 88 5c 6e |...\">?.|......\n|
|00000de0| ab 8b c8 5c 6e 21 ab 86 | 5c 6e ae 87 c9 aa 84 0e |...\n!..|\n......|
|00000df0| 5c 6e 5c 6e 50 21 29 87 | 22 20 5b 66 69 6c 65 2d |\n\nP!).|" [file-|
|00000e00| 6e 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 66 |name-dir|ectory f|
|00000e10| 69 6c 65 2d 6c 69 73 74 | 20 64 69 72 20 6e 69 6c |ile-list| dir nil|
|00000e20| 20 6d 61 70 63 61 72 20 | 23 5b 28 66 69 6c 65 29 | mapcar |#[(file)|
|00000e30| 20 22 08 c1 5c 6e 21 98 | 87 22 20 5b 64 69 72 20 | "..\n!.|." [dir |
|00000e40| 66 69 6c 65 2d 6e 61 6d | 65 2d 64 69 72 65 63 74 |file-nam|e-direct|
|00000e50| 6f 72 79 20 66 69 6c 65 | 5d 20 33 5d 20 64 69 72 |ory file|] 3] dir|
|00000e60| 65 63 74 6f 72 79 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ectory-f|ile-name|
|00000e70| 20 61 62 73 6f 6c 75 74 | 65 20 66 69 6c 65 2d 6e | absolut|e file-n|
|00000e80| 61 6d 65 2d 61 62 73 6f | 6c 75 74 65 2d 70 20 22 |ame-abso|lute-p "|
|00000e90| 22 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |" defaul|t-direct|
|00000ea0| 6f 72 79 5d 20 34 20 22 | 5c 0a 49 66 20 61 6c 6c |ory] 4 "|\.If all|
|00000eb0| 20 66 69 6c 65 73 20 69 | 6e 20 4c 49 53 54 20 61 | files i|n LIST a|
|00000ec0| 72 65 20 69 6e 20 74 68 | 65 20 73 61 6d 65 20 64 |re in th|e same d|
|00000ed0| 69 72 65 63 74 6f 72 79 | 20 72 65 74 75 72 6e 20 |irectory| return |
|00000ee0| 69 74 2c 20 6f 74 68 65 | 72 77 69 73 65 20 6e 69 |it, othe|rwise ni|
|00000ef0| 6c 2e 0a 52 65 74 75 72 | 6e 65 64 20 6e 61 6d 65 |l..Retur|ned name|
|00000f00| 20 68 61 73 20 6e 6f 20 | 74 72 61 69 6c 69 6e 67 | has no |trailing|
|00000f10| 20 73 6c 61 73 68 2e 20 | 20 5c 22 53 61 6d 65 5c | slash. | \"Same\|
|00000f20| 22 20 6d 65 61 6e 73 20 | 66 69 6c 65 2d 6e 61 6d |" means |file-nam|
|00000f30| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 6f 66 0a 74 |e-direct|ory of.t|
|00000f40| 68 65 20 66 69 6c 65 73 | 20 61 72 65 20 73 74 72 |he files| are str|
|00000f50| 69 6e 67 3d 2e 20 20 46 | 69 6c 65 20 6e 61 6d 65 |ing=. F|ile name|
|00000f60| 73 20 69 6e 20 4c 49 53 | 54 20 6d 75 73 74 20 61 |s in LIS|T must a|
|00000f70| 6c 6c 20 62 65 20 61 62 | 73 6f 6c 75 74 65 20 6f |ll be ab|solute o|
|00000f80| 72 20 61 6c 6c 20 62 65 | 0a 72 65 6c 61 74 69 76 |r all be|.relativ|
|00000f90| 65 2e 20 20 49 6d 70 6c | 69 63 69 74 6c 79 2c 20 |e. Impl|icitly, |
|00000fa0| 72 65 6c 61 74 69 76 65 | 20 66 69 6c 65 20 6e 61 |relative| file na|
|00000fb0| 6d 65 73 20 61 72 65 20 | 69 6e 20 64 65 66 61 75 |mes are |in defau|
|00000fc0| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 2e 20 20 49 |lt-direc|tory. I|
|00000fd0| 66 0a 6f 70 74 69 6f 6e | 61 6c 20 41 42 53 20 69 |f.option|al ABS i|
|00000fe0| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 72 |s non-ni|l, the r|
|00000ff0| 65 74 75 72 6e 65 64 20 | 6e 61 6d 65 20 77 69 6c |eturned |name wil|
|00001000| 6c 20 62 65 20 61 62 73 | 6f 6c 75 74 65 2c 20 6f |l be abs|olute, o|
|00001010| 74 68 65 72 77 69 73 65 | 20 74 68 65 0a 72 65 74 |therwise| the.ret|
|00001020| 75 72 6e 65 64 20 6e 61 | 6d 65 20 77 69 6c 6c 20 |urned na|me will |
|00001030| 62 65 20 61 62 73 6f 6c | 75 74 65 20 6f 72 20 72 |be absol|ute or r|
|00001040| 65 6c 61 74 69 76 65 20 | 61 73 20 70 65 72 20 74 |elative |as per t|
|00001050| 68 65 20 66 69 6c 65 73 | 20 69 6e 20 4c 49 53 54 |he files| in LIST|
|00001060| 2e 22 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 27 64 |."]).(pr|ovide 'd|
|00001070| 69 72 65 64 2d 63 64 29 | 0a |ired-cd)|. |
+--------+-------------------------+-------------------------+--------+--------+
