/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / dired / dired-vms.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 35 3a 34 | 38 20 31 39 39 35 0a 3b | 13:55:4|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 64 69 | 72 65 64 2f 64 69 72 65 |/lisp/di|red/dire|
|00000090| 64 2d 76 6d 73 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |d-vms.el|.;;; ema|
|000000a0| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 31 33 |cs versi|on 19.13|
|000000b0| 20 58 45 6d 61 63 73 20 | 4c 75 63 69 64 2e 0a 3b | XEmacs |Lucid..;|
|000000c0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000d0| 69 6f 6e 20 32 2e 32 35 | 3b 20 31 2d 53 65 70 2d |ion 2.25|; 1-Sep-|
|000000e0| 39 34 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |94..;;; |optimiza|
|000000f0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000100| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000110| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000120| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000130| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000170| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000180| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion)..  |
|00000190| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 |   (stri|ng-lessp|
|000001a0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001b0| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). |   (erro|
|000001c0| 72 20 22 54 68 69 73 20 | 66 69 6c 65 20 77 61 73 |r "This |file was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 2e 22 | 29 29 0a 0a 28 62 79 74 |acs 19."|))..(byt|
|000001f0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 14 |e-code "|...\"...|
|00000200| c0 87 22 20 5b 61 75 74 | 6f 6c 6f 61 64 20 73 75 |.." [aut|oload su|
|00000210| 62 70 72 6f 63 65 73 73 | 2d 63 6f 6d 6d 61 6e 64 |bprocess|-command|
|00000220| 2d 74 6f 2d 62 75 66 66 | 65 72 20 22 76 6d 73 70 |-to-buff|er "vmsp|
|00000230| 72 6f 63 22 20 22 5e 20 | 2a 44 69 72 65 63 74 6f |roc" "^ |*Directo|
|00000240| 72 79 20 5c 5c 28 5b 5d | 5b 3a 2e 41 2d 5a 2d 30 |ry \\([]|[:.A-Z-0|
|00000250| 2d 39 5f 24 3b 3c 3e 5d | 2b 5c 5c 29 5c 5c 28 5c |-9_$;<>]|+\\)\\(\|
|00000260| 5c 29 5b 5c 6e 0d 5d 22 | 20 64 69 72 65 64 2d 73 |\)[\n.]"| dired-s|
|00000270| 75 62 64 69 72 2d 72 65 | 67 65 78 70 5d 20 33 29 |ubdir-re|gexp] 3)|
|00000280| 0a 28 64 65 66 63 6f 6e | 73 74 20 64 69 72 65 64 |.(defcon|st dired|
|00000290| 2d 76 6d 73 2d 66 69 6c | 65 6e 61 6d 65 2d 72 65 |-vms-fil|ename-re|
|000002a0| 67 65 78 70 20 22 5c 5c | 28 5c 5c 28 5b 5f 41 2d |gexp "\\|(\\([_A-|
|000002b0| 5a 30 2d 39 24 5d 3f 5c | 5c 7c 5b 5f 41 2d 5a 30 |Z0-9$]?\|\|[_A-Z0|
|000002c0| 2d 39 24 5d 5b 5f 41 2d | 5a 30 2d 39 24 2d 2d 2d |-9$][_A-|Z0-9$---|
|000002d0| 5d 2a 5c 5c 29 5c 5c 2e | 5b 5f 41 2d 5a 30 2d 39 |]*\\)\\.|[_A-Z0-9|
|000002e0| 24 2d 2d 2d 5d 2a 3b 2b | 5b 30 2d 39 5d 2a 5c 5c |$---]*;+|[0-9]*\\|
|000002f0| 29 22 20 22 5c 0a 52 65 | 67 75 6c 61 72 20 65 78 |)" "\.Re|gular ex|
|00000300| 70 72 65 73 73 69 6f 6e | 20 74 6f 20 6d 61 74 63 |pression| to matc|
|00000310| 68 20 66 6f 72 20 61 20 | 76 61 6c 69 64 20 56 4d |h for a |valid VM|
|00000320| 53 20 66 69 6c 65 20 6e | 61 6d 65 20 69 6e 20 44 |S file n|ame in D|
|00000330| 69 72 65 64 20 62 75 66 | 66 65 72 2e 0a 53 74 75 |ired buf|fer..Stu|
|00000340| 70 69 64 20 66 72 65 61 | 6b 69 6e 67 20 62 75 67 |pid frea|king bug|
|00000350| 21 20 50 6f 73 69 74 69 | 6f 6e 20 6f 66 20 5f 20 |! Positi|on of _ |
|00000360| 61 6e 64 20 24 20 73 68 | 6f 75 6c 64 6e 27 74 20 |and $ sh|ouldn't |
|00000370| 6d 61 74 74 65 72 20 62 | 75 74 20 74 68 65 79 20 |matter b|ut they |
|00000380| 64 6f 2e 0a 48 61 76 69 | 6e 67 20 5b 41 2d 5a 30 |do..Havi|ng [A-Z0|
|00000390| 2d 39 24 5f 5d 20 62 6f | 6d 62 73 20 6f 6e 20 66 |-9$_] bo|mbs on f|
|000003a0| 69 6c 65 6e 61 6d 65 20 | 5f 24 24 43 48 41 4e 47 |ilename |_$$CHANG|
|000003b0| 45 5f 4c 4f 47 24 2e 54 | 58 54 24 20 61 6e 64 20 |E_LOG$.T|XT$ and |
|000003c0| 24 43 48 41 4e 47 45 5f | 4c 4f 47 24 2e 54 58 0a |$CHANGE_|LOG$.TX.|
|000003d0| 4f 74 68 65 72 20 6f 72 | 64 65 72 73 20 6f 66 20 |Other or|ders of |
|000003e0| 24 20 61 6e 64 20 5f 20 | 73 65 65 6d 20 74 6f 20 |$ and _ |seem to |
|000003f0| 61 6c 6c 20 77 6f 72 6b | 20 6a 75 73 74 20 66 69 |all work| just fi|
|00000400| 6e 65 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ne.").(b|yte-code|
|00000410| 20 22 c0 11 c2 87 22 20 | 5b 22 5e 5b 5e 20 5c 6e | "...." |["^[^ \n|
|00000420| 09 5d 22 20 64 69 72 65 | 64 2d 72 65 2d 6d 61 72 |.]" dire|d-re-mar|
|00000430| 6b 20 6e 69 6c 5d 20 31 | 29 0a 28 64 65 66 76 61 |k nil] 1|).(defva|
|00000440| 72 20 64 69 72 65 64 2d | 64 69 72 65 63 74 6f 72 |r dired-|director|
|00000450| 79 2d 63 6f 6d 6d 61 6e | 64 20 22 44 49 52 45 43 |y-comman|d "DIREC|
|00000460| 54 4f 52 59 2f 53 49 5a | 45 2f 44 41 54 45 2f 50 |TORY/SIZ|E/DATE/P|
|00000470| 52 4f 54 22 20 22 5c 0a | 44 69 72 65 63 74 6f 72 |ROT" "\.|Director|
|00000480| 79 20 63 6f 6d 6d 61 6e | 64 20 66 6f 72 20 64 69 |y comman|d for di|
|00000490| 72 65 64 20 75 6e 64 65 | 72 20 56 4d 53 2e 22 29 |red unde|r VMS.")|
|000004a0| 0a 28 66 73 65 74 20 27 | 64 69 72 65 64 2d 6c 73 |.(fset '|dired-ls|
|000004b0| 20 23 5b 28 66 69 6c 65 | 20 73 77 69 74 63 68 65 | #[(file| switche|
|000004c0| 73 20 26 6f 70 74 69 6f | 6e 61 6c 20 77 69 6c 64 |s &optio|nal wild|
|000004d0| 63 61 72 64 20 66 75 6c | 6c 2d 64 69 72 65 63 74 |card ful|l-direct|
|000004e0| 6f 72 79 2d 70 29 20 22 | 8c 60 60 7d 88 c0 09 c2 |ory-p) "|.``}....|
|000004f0| 0b 51 70 5c 22 88 0c ab | 84 64 62 aa a0 65 62 88 |.Qp\"...|.db..eb.|
|00000500| c5 1e 06 c7 0e 08 21 88 | c7 c9 0e 5c 6e 50 21 88 |......!.|...\nP!.|
|00000510| 29 cb 79 88 65 60 7c 88 | cc 79 88 60 64 7c 29 87 |).y.e`|.|.y.`d|).|
|00000520| 22 20 5b 73 75 62 70 72 | 6f 63 65 73 73 2d 63 6f |" [subpr|ocess-co|
|00000530| 6d 6d 61 6e 64 2d 74 6f | 2d 62 75 66 66 65 72 20 |mmand-to|-buffer |
|00000540| 64 69 72 65 64 2d 64 69 | 72 65 63 74 6f 72 79 2d |dired-di|rectory-|
|00000550| 63 6f 6d 6d 61 6e 64 20 | 22 20 22 20 66 69 6c 65 |command |" " file|
|00000560| 20 66 75 6c 6c 2d 64 69 | 72 65 63 74 6f 72 79 2d | full-di|rectory-|
|00000570| 70 20 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d |p nil ca|se-fold-|
|00000580| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|00000590| 2d 66 6f 72 77 61 72 64 | 20 64 69 72 65 64 2d 73 |-forward| dired-s|
|000005a0| 75 62 64 69 72 2d 72 65 | 67 65 78 70 20 22 5e 22 |ubdir-re|gexp "^"|
|000005b0| 20 64 69 72 65 64 2d 76 | 6d 73 2d 66 69 6c 65 6e | dired-v|ms-filen|
|000005c0| 61 6d 65 2d 72 65 67 65 | 78 70 20 30 20 31 5d 20 |ame-rege|xp 0 1] |
|000005d0| 34 20 22 5c 0a 49 6e 73 | 65 72 74 20 6c 73 20 6f |4 "\.Ins|ert ls o|
|000005e0| 75 74 70 75 74 20 6f 66 | 20 46 49 4c 45 2c 66 6f |utput of| FILE,fo|
|000005f0| 72 6d 61 74 74 65 64 20 | 61 63 63 6f 72 64 69 6e |rmatted |accordin|
|00000600| 67 20 74 6f 20 53 57 49 | 54 43 48 45 53 2e 0a 4f |g to SWI|TCHES..O|
|00000610| 70 74 69 6f 6e 61 6c 20 | 74 68 69 72 64 20 61 72 |ptional |third ar|
|00000620| 67 20 57 49 4c 44 43 41 | 52 44 20 6d 65 61 6e 73 |g WILDCA|RD means|
|00000630| 20 74 72 65 61 74 20 46 | 49 4c 45 20 61 73 20 73 | treat F|ILE as s|
|00000640| 68 65 6c 6c 20 77 69 6c | 64 63 61 72 64 2e 0a 4f |hell wil|dcard..O|
|00000650| 70 74 69 6f 6e 61 6c 20 | 66 6f 75 72 74 68 20 61 |ptional |fourth a|
|00000660| 72 67 20 46 55 4c 4c 2d | 44 49 52 45 43 54 4f 52 |rg FULL-|DIRECTOR|
|00000670| 59 2d 50 20 6d 65 61 6e | 73 20 66 69 6c 65 20 69 |Y-P mean|s file i|
|00000680| 73 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 61 6e |s a dire|ctory an|
|00000690| 64 0a 73 77 69 74 63 68 | 65 73 20 64 6f 20 6e 6f |d.switch|es do no|
|000006a0| 74 20 63 6f 6e 74 61 69 | 6e 20 60 64 27 2e 0a 0a |t contai|n `d'...|
|000006b0| 53 57 49 54 43 48 45 53 | 20 64 65 66 61 75 6c 74 |SWITCHES| default|
|000006c0| 20 74 6f 20 64 69 72 65 | 64 2d 6c 69 73 74 69 6e | to dire|d-listin|
|000006d0| 67 2d 73 77 69 74 63 68 | 65 73 2e 0a 0a 54 68 69 |g-switch|es...Thi|
|000006e0| 73 20 69 73 20 74 68 65 | 20 56 4d 53 20 76 65 72 |s is the| VMS ver|
|000006f0| 73 69 6f 6e 20 6f 66 20 | 74 68 69 73 20 55 4e 49 |sion of |this UNI|
|00000700| 58 20 63 6f 6d 6d 61 6e | 64 2e 0a 54 68 65 20 53 |X comman|d..The S|
|00000710| 57 49 54 43 48 45 53 20 | 61 6e 64 20 57 49 4c 44 |WITCHES |and WILD|
|00000720| 43 41 52 44 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |CARD arg|uments a|
|00000730| 72 65 20 69 67 6e 6f 72 | 65 64 2e 0a 55 73 65 73 |re ignor|ed..Uses|
|00000740| 20 64 69 72 65 64 2d 64 | 69 72 65 63 74 6f 72 79 | dired-d|irectory|
|00000750| 2d 63 6f 6d 6d 61 6e 64 | 2e 22 5d 29 0a 28 62 79 |-command|."]).(by|
|00000760| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00000770| 88 c4 c5 4d 88 c6 c7 4d | 88 c8 c9 4d 87 22 20 5b |...M...M|...M." [|
|00000780| 64 69 72 65 64 2d 69 6e | 73 65 72 74 2d 68 65 61 |dired-in|sert-hea|
|00000790| 64 65 72 6c 69 6e 65 20 | 23 5b 28 64 69 72 29 20 |derline |#[(dir) |
|000007a0| 22 c0 09 21 88 c2 95 62 | 87 22 20 5b 72 65 2d 73 |"..!...b|." [re-s|
|000007b0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 64 69 |earch-fo|rward di|
|000007c0| 72 65 64 2d 73 75 62 64 | 69 72 2d 72 65 67 65 78 |red-subd|ir-regex|
|000007d0| 70 20 31 5d 20 32 5d 20 | 64 69 72 65 64 2d 6d 61 |p 1] 2] |dired-ma|
|000007e0| 6b 65 2d 61 62 73 6f 6c | 75 74 65 20 23 5b 28 66 |ke-absol|ute #[(f|
|000007f0| 69 6c 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 64 69 |ile &opt|ional di|
|00000800| 72 29 20 22 08 ae 85 c1 | 20 ae 81 5c 6e 0b 50 87 |r) "....| ..\n.P.|
|00000810| 22 20 5b 64 69 72 20 64 | 69 72 65 64 2d 63 75 72 |" [dir d|ired-cur|
|00000820| 72 65 6e 74 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |rent-dir|ectory d|
|00000830| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00000840| 20 66 69 6c 65 5d 20 32 | 5d 20 64 69 72 65 64 2d | file] 2|] dired-|
|00000850| 6d 61 6b 65 2d 72 65 6c | 61 74 69 76 65 20 28 6c |make-rel|ative (l|
|00000860| 61 6d 62 64 61 20 28 66 | 69 6c 65 20 26 6f 70 74 |ambda (f|ile &opt|
|00000870| 69 6f 6e 61 6c 20 64 69 | 72 29 20 66 69 6c 65 29 |ional di|r) file)|
|00000880| 20 64 69 72 65 64 2d 69 | 6e 2d 74 68 69 73 2d 74 | dired-i|n-this-t|
|00000890| 72 65 65 20 23 5b 28 66 | 69 6c 65 20 64 69 72 29 |ree #[(f|ile dir)|
|000008a0| 20 22 08 c1 c2 4f c3 98 | ac 8d 08 c1 c2 4f c4 98 | "...O..|.....O..|
|000008b0| ac 85 c5 c6 08 5c 22 88 | c7 c8 c9 08 ca c1 4f 21 |.....\".|......O!|
|000008c0| 50 0e 0b 5c 22 87 22 20 | 5b 64 69 72 20 2d 31 20 |P..\"." |[dir -1 |
|000008d0| 6e 69 6c 20 22 5d 22 20 | 22 3a 22 20 65 72 72 6f |nil "]" |":" erro|
|000008e0| 72 20 22 4e 6f 74 20 61 | 20 64 69 72 65 63 74 6f |r "Not a| directo|
|000008f0| 72 79 3a 20 25 73 22 20 | 73 74 72 69 6e 67 2d 6d |ry: %s" |string-m|
|00000900| 61 74 63 68 20 22 5e 22 | 20 72 65 67 65 78 70 2d |atch "^"| regexp-|
|00000910| 71 75 6f 74 65 20 30 20 | 66 69 6c 65 5d 20 36 5d |quote 0 |file] 6]|
|00000920| 20 64 69 72 65 64 2d 76 | 6d 73 2d 73 70 6c 69 74 | dired-v|ms-split|
|00000930| 2d 66 69 6c 65 6e 61 6d | 65 20 23 5b 28 66 69 6c |-filenam|e #[(fil|
|00000940| 65 29 20 22 c0 c1 5c 6e | 5c 22 ad 84 c3 c4 c5 5c |e) "..\n|\".....\|
|00000950| 22 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |"." [str|ing-matc|
|00000960| 68 20 22 5e 5c 5c 28 5b | 2e 41 2d 5a 2d 30 2d 39 |h "^\\([|.A-Z-0-9|
|00000970| 5f 24 3b 5d 2a 5c 5c 29 | 3a 3f 5b 5b 3c 5d 5c 5c |_$;]*\\)|:?[[<]\\|
|00000980| 28 5b 2e 41 2d 5a 2d 30 | 2d 39 5f 24 3b 5d 2a 5c |([.A-Z-0|-9_$;]*\|
|00000990| 5c 29 5b 5d 3e 5d 5c 5c | 28 5b 2e 41 2d 5a 2d 30 |\)[]>]\\|([.A-Z-0|
|000009a0| 2d 39 5f 24 3b 5d 2a 5c | 5c 29 24 22 20 66 69 6c |-9_$;]*\|\)$" fil|
|000009b0| 65 20 6d 61 70 63 61 72 | 20 23 5b 28 78 29 20 22 |e mapcar| #[(x) "|
|000009c0| 08 09 94 09 95 4f 87 22 | 20 5b 66 69 6c 65 20 78 |.....O."| [file x|
|000009d0| 5d 20 33 5d 20 28 31 20 | 32 20 33 29 5d 20 33 5d |] 3] (1 |2 3)] 3]|
|000009e0| 5d 20 32 29 0a 28 66 73 | 65 74 20 27 64 69 72 65 |] 2).(fs|et 'dire|
|000009f0| 64 2d 6e 6f 73 65 6c 65 | 63 74 20 23 5b 28 64 69 |d-nosele|ct #[(di|
|00000a00| 72 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |rname &o|ptional |
|00000a10| 73 77 69 74 63 68 65 73 | 29 20 22 c0 09 21 11 c2 |switches|) "..!..|
|00000a20| 09 0b 5c 22 87 22 20 5b | 64 69 72 65 64 2d 66 69 |..\"." [|dired-fi|
|00000a30| 78 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 6e |x-direct|ory dirn|
|00000a40| 61 6d 65 20 64 69 72 65 | 64 2d 69 6e 74 65 72 6e |ame dire|d-intern|
|00000a50| 61 6c 2d 6e 6f 73 65 6c | 65 63 74 20 73 77 69 74 |al-nosel|ect swit|
|00000a60| 63 68 65 73 5d 20 33 20 | 22 5c 0a 4c 69 6b 65 20 |ches] 3 |"\.Like |
|00000a70| 4d 2d 78 20 64 69 72 65 | 64 20 62 75 74 20 72 65 |M-x dire|d but re|
|00000a80| 74 75 72 6e 73 20 74 68 | 65 20 64 69 72 65 64 20 |turns th|e dired |
|00000a90| 62 75 66 66 65 72 20 61 | 73 20 76 61 6c 75 65 2c |buffer a|s value,|
|00000aa0| 20 64 6f 65 73 20 6e 6f | 74 20 73 65 6c 65 63 74 | does no|t select|
|00000ab0| 20 69 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 64 | it."]).|(fset 'd|
|00000ac0| 69 72 65 64 2d 66 69 78 | 2d 64 69 72 65 63 74 6f |ired-fix|-directo|
|00000ad0| 72 79 20 23 5b 28 64 69 | 72 6e 61 6d 65 29 20 22 |ry #[(di|rname) "|
|00000ae0| c0 09 ae 83 5c 6e 89 11 | 21 89 11 47 53 c3 89 1c |....\n..|!..GS...|
|00000af0| 1d 1e 06 c7 c8 09 0e 06 | 9c 5c 22 ac 89 c7 c9 09 |........|.\".....|
|00000b00| 0e 06 9c 5c 22 ab 83 09 | aa d5 ca cb 09 5c 22 15 |...\"...|.....\".|
|00000b10| ca cc 09 5c 22 14 ca cd | 09 0d ae 81 0c 23 89 16 |...\"...|.....#..|
|00000b20| 06 ab a9 0d ab 88 09 ce | 0d 4f cf 50 aa 8d 0c ab |........|.O.P....|
|00000b30| 89 09 ce 0c 54 4f d0 50 | aa 81 d0 89 1e 11 09 0d |....TO.P|........|
|00000b40| ae 81 0c 54 0e 06 4f d2 | 51 29 aa 95 0d ab 87 09 |...T..O.|Q)......|
|00000b50| ce 0d 54 4f aa 8b 0c ab | 87 09 ce 0c 54 4f aa 81 |..TO....|....TO..|
|00000b60| 5c 6e 2b 87 22 20 5b 65 | 78 70 61 6e 64 2d 66 69 |\n+." [e|xpand-fi|
|00000b70| 6c 65 2d 6e 61 6d 65 20 | 64 69 72 6e 61 6d 65 20 |le-name |dirname |
|00000b80| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|00000b90| 79 20 6e 69 6c 20 63 6f | 6c 6f 6e 20 62 72 61 63 |y nil co|lon brac|
|00000ba0| 6b 65 74 20 65 6e 64 20 | 63 68 61 72 2d 65 71 75 |ket end |char-equ|
|00000bb0| 61 6c 20 39 33 20 35 38 | 20 73 74 72 69 6e 67 2d |al 93 58| string-|
|00000bc0| 6d 61 74 63 68 20 22 5c | 5c 5d 22 20 22 5c 5c 3a |match "\|\]" "\\:|
|00000bd0| 22 20 22 5c 5c 2e 44 49 | 52 22 20 30 20 22 2e 22 |" "\\.DI|R" 0 "."|
|00000be0| 20 22 5b 22 20 6e 65 77 | 64 69 72 20 22 5d 22 5d | "[" new|dir "]"]|
|00000bf0| 20 35 20 22 5c 0a 46 69 | 78 20 75 70 20 64 69 72 | 5 "\.Fi|x up dir|
|00000c00| 6e 61 6d 65 20 74 6f 20 | 62 65 20 61 20 76 61 6c |name to |be a val|
|00000c10| 69 64 20 64 69 72 65 63 | 74 6f 72 79 20 6e 61 6d |id direc|tory nam|
|00000c20| 65 20 61 6e 64 20 72 65 | 74 75 72 6e 20 69 74 22 |e and re|turn it"|
|00000c30| 5d 29 0a 28 66 73 65 74 | 20 27 64 69 72 65 64 2d |]).(fset| 'dired-|
|00000c40| 6d 6f 76 65 2d 74 6f 2d | 66 69 6c 65 6e 61 6d 65 |move-to-|filename|
|00000c50| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 72 61 | #[(&opt|ional ra|
|00000c60| 69 73 65 2d 65 72 72 6f | 72 20 65 6f 6c 29 20 22 |ise-erro|r eol) "|
|00000c70| 08 ac 85 c1 7f 88 60 10 | c2 79 88 c3 c4 0d 50 08 |......`.|.y....P.|
|00000c80| c6 23 ab 84 c7 94 62 87 | 0e 08 ad 83 c9 ca 21 87 |.#....b.|......!.|
|00000c90| 22 20 5b 65 6f 6c 20 6e | 69 6c 20 30 20 72 65 2d |" [eol n|il 0 re-|
|00000ca0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000cb0| 20 22 20 64 69 72 65 64 | 2d 76 6d 73 2d 66 69 6c | " dired|-vms-fil|
|00000cc0| 65 6e 61 6d 65 2d 72 65 | 67 65 78 70 20 74 20 31 |ename-re|gexp t 1|
|00000cd0| 20 72 61 69 73 65 2d 65 | 72 72 6f 72 20 65 72 72 | raise-e|rror err|
|00000ce0| 6f 72 20 22 4e 6f 20 66 | 69 6c 65 20 6f 6e 20 74 |or "No f|ile on t|
|00000cf0| 68 69 73 20 6c 69 6e 65 | 22 5d 20 34 20 22 5c 0a |his line|"] 4 "\.|
|00000d00| 49 6e 20 64 69 72 65 64 | 2c 20 6d 6f 76 65 20 74 |In dired|, move t|
|00000d10| 6f 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |o first |char of |
|00000d20| 66 69 6c 65 6e 61 6d 65 | 20 6f 6e 20 74 68 69 73 |filename| on this|
|00000d30| 20 6c 69 6e 65 2e 0a 52 | 65 74 75 72 6e 73 20 70 | line..R|eturns p|
|00000d40| 6f 73 69 74 69 6f 6e 20 | 28 70 6f 69 6e 74 29 20 |osition |(point) |
|00000d50| 6f 72 20 6e 69 6c 20 69 | 66 20 6e 6f 20 66 69 6c |or nil i|f no fil|
|00000d60| 65 6e 61 6d 65 20 6f 6e | 20 74 68 69 73 20 6c 69 |ename on| this li|
|00000d70| 6e 65 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ne."]).(|byte-cod|
|00000d80| 65 20 22 c0 c1 4d 88 c2 | c3 4d 88 c4 c5 4d 88 c6 |e "..M..|.M...M..|
|00000d90| c7 4d 88 c8 c9 4d 88 ca | cb 4d 87 22 20 5b 64 69 |.M...M..|.M." [di|
|00000da0| 72 65 64 2d 6d 6f 76 65 | 2d 74 6f 2d 65 6e 64 2d |red-move|-to-end-|
|00000db0| 6f 66 2d 66 69 6c 65 6e | 61 6d 65 20 23 5b 28 26 |of-filen|ame #[(&|
|00000dc0| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 2d 65 72 72 6f |optional| no-erro|
|00000dd0| 72 20 65 6f 6c 29 20 22 | c0 89 89 89 89 89 19 1a |r eol) "|........|
|00000de0| 1b 1c 1d 1e 06 60 16 06 | 0e 07 ac 88 8a c0 7f 88 |.....`..|........|
|00000df0| 60 29 16 07 0e 08 ad 88 | 8a c9 ca 0e 07 cb 23 29 |`)......|......#)|
|00000e00| 89 12 ac 88 cc 0e 0d 0e | 07 cb 23 88 0e 0e ac 92 |........|..#.....|
|00000e10| 0e 06 60 3d ab 8c cf 5c | 6e ab 85 d0 d1 21 aa 81 |..`=...\|n....!..|
|00000e20| d2 21 88 0e 06 60 3d 3f | ad 81 60 2e 06 87 22 20 |.!...`=?|..`..." |
|00000e30| 5b 6e 69 6c 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |[nil cas|e-fold-s|
|00000e40| 65 61 72 63 68 20 68 69 | 64 64 65 6e 20 73 79 6d |earch hi|dden sym|
|00000e50| 20 65 78 20 66 6c 61 67 | 20 6f 70 6f 69 6e 74 20 | ex flag| opoint |
|00000e60| 65 6f 6c 20 73 65 6c 65 | 63 74 69 76 65 2d 64 69 |eol sele|ctive-di|
|00000e70| 73 70 6c 61 79 20 73 65 | 61 72 63 68 2d 66 6f 72 |splay se|arch-for|
|00000e80| 77 61 72 64 20 22 0d 22 | 20 74 20 72 65 2d 73 65 |ward "."| t re-se|
|00000e90| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 64 69 72 |arch-for|ward dir|
|00000ea0| 65 64 2d 76 6d 73 2d 66 | 69 6c 65 6e 61 6d 65 2d |ed-vms-f|ilename-|
|00000eb0| 72 65 67 65 78 70 20 6e | 6f 2d 65 72 72 6f 72 20 |regexp n|o-error |
|00000ec0| 65 72 72 6f 72 20 73 75 | 62 73 74 69 74 75 74 65 |error su|bstitute|
|00000ed0| 2d 63 6f 6d 6d 61 6e 64 | 2d 6b 65 79 73 20 22 46 |-command|-keys "F|
|00000ee0| 69 6c 65 20 6c 69 6e 65 | 20 69 73 20 68 69 64 64 |ile line| is hidd|
|00000ef0| 65 6e 2c 20 74 79 70 65 | 20 5c 5c 5b 64 69 72 65 |en, type| \\[dire|
|00000f00| 64 2d 68 69 64 65 2d 73 | 75 62 64 69 72 5d 20 74 |d-hide-s|ubdir] t|
|00000f10| 6f 20 75 6e 68 69 64 65 | 22 20 22 4e 6f 20 66 69 |o unhide|" "No fi|
|00000f20| 6c 65 20 6f 6e 20 74 68 | 69 73 20 6c 69 6e 65 22 |le on th|is line"|
|00000f30| 5d 20 37 5d 20 64 69 72 | 65 64 2d 74 72 65 65 2d |] 7] dir|ed-tree-|
|00000f40| 6c 65 73 73 70 20 23 5b | 28 64 69 72 31 20 64 69 |lessp #[|(dir1 di|
|00000f50| 72 32 29 20 22 c0 09 21 | c2 c3 4f 11 c0 0c 21 c2 |r2) "..!|..O...!.|
|00000f60| c3 4f 14 c5 c6 09 5c 22 | c5 c6 0c 5c 22 1e 07 1e |.O....\"|...\"...|
|00000f70| 08 0e 08 ab 99 0e 07 ab | 95 0e 08 40 0e 07 40 9a |........|...@..@.|
|00000f80| ab 8c 0e 08 41 16 08 0e | 07 41 16 07 aa 63 0e 08 |....A...|.A...c..|
|00000f90| 40 0e 07 40 1e 09 89 1e | 5c 6e ab 8b 0e 09 ab 87 |@..@....|\n......|
|00000fa0| 0e 5c 6e 0e 09 99 aa 9c | 0e 5c 6e ac 87 0e 09 ac |.\n.....|.\n.....|
|00000fb0| 83 cb aa 91 0e 5c 6e ac | 83 cc aa 8a 0e 09 ac 83 |.....\n.|........|
|00000fc0| cb aa 83 cd ce 21 2c 87 | 22 20 5b 66 69 6c 65 2d |.....!,.|" [file-|
|00000fd0| 6e 61 6d 65 2d 61 73 2d | 64 69 72 65 63 74 6f 72 |name-as-|director|
|00000fe0| 79 20 64 69 72 31 20 30 | 20 2d 31 20 64 69 72 32 |y dir1 0| -1 dir2|
|00000ff0| 20 64 69 72 65 64 2d 73 | 70 6c 69 74 20 22 5b 3a | dired-s|plit "[:|
|00001000| 2e 5d 22 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 2d 32 |.]" comp|onents-2|
|00001010| 20 63 6f 6d 70 6f 6e 65 | 6e 74 73 2d 31 20 63 32 | compone|nts-1 c2|
|00001020| 20 63 31 20 6e 69 6c 20 | 74 20 65 72 72 6f 72 20 | c1 nil |t error |
|00001030| 22 54 68 69 73 20 63 61 | 6e 27 74 20 68 61 70 70 |"This ca|n't happ|
|00001040| 65 6e 22 5d 20 35 5d 20 | 64 69 72 65 64 2d 69 6e |en"] 5] |dired-in|
|00001050| 73 65 72 74 2d 73 75 62 | 64 69 72 2d 76 61 6c 69 |sert-sub|dir-vali|
|00001060| 64 61 74 65 20 23 5b 28 | 64 69 72 6e 61 6d 65 29 |date #[(|dirname)|
|00001070| 20 22 08 c1 89 1a 1b 1c | 0c ab 92 0b ac 8f 0c 40 | "......|.......@|
|00001080| 12 0c 41 14 c5 0e 06 5c | 6e 40 5c 22 13 aa 6b 0b |..A....\|n@\"..k.|
|00001090| 3f ad 85 c7 c8 0e 06 5c | 22 2b 87 22 20 5b 64 69 |?......\|"+." [di|
|000010a0| 72 65 64 2d 73 75 62 64 | 69 72 2d 61 6c 69 73 74 |red-subd|ir-alist|
|000010b0| 20 6e 69 6c 20 69 74 65 | 6d 20 66 6f 75 6e 64 20 | nil ite|m found |
|000010c0| 61 6c 69 73 74 20 64 69 | 72 65 64 2d 69 6e 2d 74 |alist di|red-in-t|
|000010d0| 68 69 73 2d 74 72 65 65 | 20 64 69 72 6e 61 6d 65 |his-tree| dirname|
|000010e0| 20 65 72 72 6f 72 20 22 | 25 73 3a 20 64 69 72 65 | error "|%s: dire|
|000010f0| 63 74 6f 72 79 20 6e 6f | 74 20 69 6e 20 74 68 69 |ctory no|t in thi|
|00001100| 73 20 62 75 66 66 65 72 | 22 5d 20 33 5d 20 64 69 |s buffer|"] 3] di|
|00001110| 72 65 64 2d 69 6e 73 65 | 72 74 2d 73 75 62 64 69 |red-inse|rt-subdi|
|00001120| 72 2d 6e 65 77 70 6f 73 | 20 23 5b 28 6e 65 77 2d |r-newpos| #[(new-|
|00001130| 64 69 72 29 20 22 c0 09 | 21 c2 89 89 89 89 1b 1c |dir) "..|!.......|
|00001140| 1d 1e 06 1e 07 1e 08 0e | 08 ab c1 0e 08 40 16 07 |........|.....@..|
|00001150| 0e 08 41 16 08 0e 07 40 | 16 06 c9 0e 07 21 15 0b |..A....@|.....!..|
|00001160| ab 8d ca 0e 06 0b 5c 22 | ac 94 c2 89 16 08 ac 8e |......\"|........|
|00001170| ca 0e 0b 0e 06 5c 22 ab | 50 0e 06 89 13 ab 4a cc |.....\".|P.....J.|
|00001180| 0e 06 0e 0b 5c 22 ab 42 | cd 0e 07 21 14 aa 3b 0c |....\".B|...!..;.|
|00001190| 62 88 2e 06 6d ac 83 ce | 79 88 cf 63 88 60 87 22 |b...m...|y..c.`."|
|000011a0| 20 5b 72 65 76 65 72 73 | 65 20 64 69 72 65 64 2d | [revers|e dired-|
|000011b0| 73 75 62 64 69 72 2d 61 | 6c 69 73 74 20 6e 69 6c |subdir-a|list nil|
|000011c0| 20 66 6f 75 6e 64 20 6e | 65 77 2d 70 6f 73 20 70 | found n|ew-pos p|
|000011d0| 6f 73 20 64 69 72 20 65 | 6c 74 20 61 6c 69 73 74 |os dir e|lt alist|
|000011e0| 20 64 69 72 65 64 2d 67 | 65 74 2d 73 75 62 64 69 | dired-g|et-subdi|
|000011f0| 72 2d 6d 69 6e 20 64 69 | 72 65 64 2d 69 6e 2d 74 |r-min di|red-in-t|
|00001200| 68 69 73 2d 74 72 65 65 | 20 6e 65 77 2d 64 69 72 |his-tree| new-dir|
|00001210| 20 64 69 72 65 64 2d 74 | 72 65 65 2d 6c 65 73 73 | dired-t|ree-less|
|00001220| 70 20 64 69 72 65 64 2d | 67 65 74 2d 73 75 62 64 |p dired-|get-subd|
|00001230| 69 72 2d 6d 61 78 20 2d | 31 20 22 5c 6e 22 5d 20 |ir-max -|1 "\n"] |
|00001240| 36 5d 20 64 69 72 65 64 | 2d 62 65 74 77 65 65 6e |6] dired|-between|
|00001250| 2d 66 69 6c 65 73 20 23 | 5b 6e 69 6c 20 22 8a c0 |-files #|[nil "..|
|00001260| 79 88 67 c1 9a ae 8b c2 | 75 88 c3 c4 21 ae 83 67 |y.g.....|u...!..g|
|00001270| c5 9a 29 87 22 20 5b 30 | 20 39 20 32 20 6c 6f 6f |..)." [0| 9 2 loo|
|00001280| 6b 69 6e 67 2d 61 74 20 | 22 54 6f 74 61 6c 20 6f |king-at |"Total o|
|00001290| 66 22 20 33 32 5d 20 32 | 5d 20 64 69 72 65 64 2d |f" 32] 2|] dired-|
|000012a0| 62 75 66 66 65 72 73 2d | 66 6f 72 2d 64 69 72 20 |buffers-|for-dir |
|000012b0| 23 5b 28 64 69 72 29 20 | 22 c0 09 21 11 5c 6e c3 |#[(dir) |"..!.\n.|
|000012c0| 89 1c 1d 89 1e 06 ab b0 | 0e 06 40 89 14 41 1e 07 |........|..@..A..|
|000012d0| c8 0e 07 21 ab 94 c9 09 | 8a 0e 07 71 88 0e 5c 6e |...!....|...q..\n|
|000012e0| 29 5c 22 ab 8c 0e 07 0d | 42 15 aa 85 cb 0c 5c 6e |)\".....|B.....\n|
|000012f0| 5c 22 12 29 0e 06 41 89 | 16 06 ac 50 0d 2b 87 22 |\".)..A.|...P.+."|
|00001300| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 2d 61 73 2d 64 | [file-n|ame-as-d|
|00001310| 69 72 65 63 74 6f 72 79 | 20 64 69 72 20 64 69 72 |irectory| dir dir|
|00001320| 65 64 2d 62 75 66 66 65 | 72 73 20 6e 69 6c 20 65 |ed-buffe|rs nil e|
|00001330| 6c 74 20 72 65 73 75 6c | 74 20 61 6c 69 73 74 20 |lt resul|t alist |
|00001340| 62 75 66 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |buf buff|er-name |
|00001350| 61 73 73 6f 63 20 64 69 | 72 65 64 2d 73 75 62 64 |assoc di|red-subd|
|00001360| 69 72 2d 61 6c 69 73 74 | 20 64 65 6c 71 5d 20 34 |ir-alist| delq] 4|
|00001370| 5d 5d 20 32 29 0a       |                         |]] 2).  |        |
+--------+-------------------------+-------------------------+--------+--------+