/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / vms-patch.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 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 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 32 32 3a 32 | 37 20 31 39 39 33 0a 3b | 00:22: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 76 6d 73 | 2d 70 61 74 63 68 2e 65 |lisp/vms|-patch.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 63 72 |)..(defa|lias 'cr|
|000001d0| 65 61 74 65 2d 66 69 6c | 65 2d 62 75 66 66 65 72 |eate-fil|e-buffer|
|000001e0| 20 23 5b 28 66 69 6c 65 | 6e 61 6d 65 29 20 22 c0 | #[(file|name) ".|
|000001f0| c1 5c 6e 21 97 21 87 22 | 20 5b 67 65 6e 65 72 61 |.\n!.!."| [genera|
|00000200| 74 65 2d 6e 65 77 2d 62 | 75 66 66 65 72 20 66 69 |te-new-b|uffer fi|
|00000210| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00000220| 74 6f 72 79 20 66 69 6c | 65 6e 61 6d 65 5d 20 33 |tory fil|ename] 3|
|00000230| 20 22 5c 0a 43 72 65 61 | 74 65 20 61 20 73 75 69 | "\.Crea|te a sui|
|00000240| 74 61 62 6c 79 20 6e 61 | 6d 65 64 20 62 75 66 66 |tably na|med buff|
|00000250| 65 72 20 66 6f 72 20 76 | 69 73 69 74 69 6e 67 20 |er for v|isiting |
|00000260| 46 49 4c 45 4e 41 4d 45 | 2c 20 61 6e 64 20 72 65 |FILENAME|, and re|
|00000270| 74 75 72 6e 20 69 74 2e | 0a 46 49 4c 45 4e 41 4d |turn it.|.FILENAM|
|00000280| 45 20 28 73 61 6e 73 20 | 64 69 72 65 63 74 6f 72 |E (sans |director|
|00000290| 79 29 20 69 73 20 75 73 | 65 64 20 75 6e 63 68 61 |y) is us|ed uncha|
|000002a0| 6e 67 65 64 20 69 66 20 | 74 68 61 74 20 6e 61 6d |nged if |that nam|
|000002b0| 65 20 69 73 20 66 72 65 | 65 3b 0a 6f 74 68 65 72 |e is fre|e;.other|
|000002c0| 77 69 73 65 20 61 20 73 | 74 72 69 6e 67 20 3c 32 |wise a s|tring <2|
|000002d0| 3e 20 6f 72 20 3c 33 3e | 20 6f 72 20 2e 2e 2e 20 |> or <3>| or ... |
|000002e0| 69 73 20 61 70 70 65 6e | 64 65 64 20 74 6f 20 67 |is appen|ded to g|
|000002f0| 65 74 20 61 6e 20 75 6e | 75 73 65 64 20 6e 61 6d |et an un|used nam|
|00000300| 65 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |e."]).(d|efalias |
|00000310| 28 71 75 6f 74 65 20 6d | 61 6b 65 2d 6c 65 67 61 |(quote m|ake-lega|
|00000320| 6c 2d 66 69 6c 65 2d 6e | 61 6d 65 29 20 23 5b 28 |l-file-n|ame) #[(|
|00000330| 66 6e 29 20 22 c0 09 21 | 11 c2 c3 09 47 c2 1c 1d |fn) "..!|....G...|
|00000340| 1e 06 1e 07 0e 06 0d 57 | 83 81 00 09 0e 06 48 89 |.......W|......H.|
|00000350| 14 c8 3d 83 35 00 0e 07 | 83 2f 00 09 0e 06 c9 49 |..=.5...|./.....I|
|00000360| 88 82 78 00 ca 16 07 82 | 78 00 0c cb 59 83 41 00 |..x.....|x...Y.A.|
|00000370| 0c cc 58 84 78 00 0c cd | 59 83 4d 00 0c ce 58 84 |..X.x...|Y.M...X.|
|00000380| 78 00 0c cf 59 83 59 00 | 0c d0 58 84 78 00 0c d1 |x...Y.Y.|..X.x...|
|00000390| 3d 84 78 00 0c c9 3d 84 | 78 00 0c d2 3d 83 72 00 |=.x...=.|x...=.r.|
|000003a0| 0e 06 c3 56 84 78 00 09 | 0e 06 c9 49 88 0e 06 54 |...V.x..|...I...T|
|000003b0| 89 16 06 82 11 00 2c 09 | 87 22 20 5b 63 6f 70 79 |......,.|." [copy|
|000003c0| 2d 73 65 71 75 65 6e 63 | 65 20 66 6e 20 6e 69 6c |-sequenc|e fn nil|
|000003d0| 20 30 20 63 68 72 20 6c | 65 6e 20 69 6e 64 78 20 | 0 chr l|en indx |
|000003e0| 64 6f 74 20 34 36 20 39 | 35 20 74 20 39 37 20 31 |dot 46 9|5 t 97 1|
|000003f0| 32 32 20 36 35 20 39 30 | 20 34 38 20 35 37 20 33 |22 65 90| 48 57 3|
|00000400| 36 20 34 35 5d 20 35 5d | 29 0a 28 64 65 66 61 6c |6 45] 5]|).(defal|
|00000410| 69 61 73 20 27 6d 61 6b | 65 2d 61 75 74 6f 2d 73 |ias 'mak|e-auto-s|
|00000420| 61 76 65 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 23 5b |ave-file|-name #[|
|00000430| 6e 69 6c 20 22 08 83 0e | 00 c1 08 21 c2 c3 08 21 |nil "...|...!...!|
|00000440| c4 52 87 c5 c6 c7 c8 20 | 21 c4 51 21 87 22 20 5b |.R..... |!.Q!." [|
|00000450| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000460| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00000470| 74 6f 72 79 20 22 5f 24 | 22 20 66 69 6c 65 2d 6e |tory "_$|" file-n|
|00000480| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00000490| 20 22 24 22 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 | "$" exp|and-file|
|000004a0| 2d 6e 61 6d 65 20 22 5f | 24 5f 22 20 6d 61 6b 65 |-name "_|$_" make|
|000004b0| 2d 6c 65 67 61 6c 2d 66 | 69 6c 65 2d 6e 61 6d 65 |-legal-f|ile-name|
|000004c0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 5d 20 34 20 | buffer-|name] 4 |
|000004d0| 22 5c 0a 52 65 74 75 72 | 6e 20 66 69 6c 65 20 6e |"\.Retur|n file n|
|000004e0| 61 6d 65 20 74 6f 20 75 | 73 65 20 66 6f 72 20 61 |ame to u|se for a|
|000004f0| 75 74 6f 2d 73 61 76 65 | 73 20 6f 66 20 63 75 72 |uto-save|s of cur|
|00000500| 72 65 6e 74 20 62 75 66 | 66 65 72 2e 0a 44 6f 65 |rent buf|fer..Doe|
|00000510| 73 20 6e 6f 74 20 63 6f | 6e 73 69 64 65 72 20 61 |s not co|nsider a|
|00000520| 75 74 6f 2d 73 61 76 65 | 2d 76 69 73 69 74 65 64 |uto-save|-visited|
|00000530| 2d 66 69 6c 65 2d 6e 61 | 6d 65 3b 20 74 68 61 74 |-file-na|me; that|
|00000540| 20 69 73 20 63 68 65 63 | 6b 65 64 0a 62 65 66 6f | is chec|ked.befo|
|00000550| 72 65 20 63 61 6c 6c 69 | 6e 67 20 74 68 69 73 20 |re calli|ng this |
|00000560| 66 75 6e 63 74 69 6f 6e | 2e 0a 54 68 69 73 20 69 |function|..This i|
|00000570| 73 20 61 20 73 65 70 61 | 72 61 74 65 20 66 75 6e |s a sepa|rate fun|
|00000580| 63 74 69 6f 6e 20 73 6f | 20 79 6f 75 72 20 2e 65 |ction so| your .e|
|00000590| 6d 61 63 73 20 66 69 6c | 65 20 6f 72 20 73 69 74 |macs fil|e or sit|
|000005a0| 65 2d 69 6e 69 74 2e 65 | 6c 20 63 61 6e 20 72 65 |e-init.e|l can re|
|000005b0| 64 65 66 69 6e 65 20 69 | 74 2e 0a 53 65 65 20 61 |define i|t..See a|
|000005c0| 6c 73 6f 20 61 75 74 6f | 2d 73 61 76 65 2d 66 69 |lso auto|-save-fi|
|000005d0| 6c 65 2d 6e 61 6d 65 2d | 70 2e 22 5d 29 0a 28 64 |le-name-|p."]).(d|
|000005e0| 65 66 61 6c 69 61 73 20 | 27 61 75 74 6f 2d 73 61 |efalias |'auto-sa|
|000005f0| 76 65 2d 66 69 6c 65 2d | 6e 61 6d 65 2d 70 20 23 |ve-file-|name-p #|
|00000600| 5b 28 66 69 6c 65 6e 61 | 6d 65 29 20 22 c0 c1 5c |[(filena|me) "..\|
|00000610| 6e 5c 22 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |n\"." [s|tring-ma|
|00000620| 74 63 68 20 22 5e 5f 5c | 5c 24 2e 2a 5c 5c 24 22 |tch "^_\|\$.*\\$"|
|00000630| 20 66 69 6c 65 6e 61 6d | 65 5d 20 33 20 22 5c 0a | filenam|e] 3 "\.|
|00000640| 52 65 74 75 72 6e 20 74 | 20 69 66 20 46 49 4c 45 |Return t| if FILE|
|00000650| 4e 41 4d 45 20 63 61 6e | 20 62 65 20 79 69 65 6c |NAME can| be yiel|
|00000660| 64 65 64 20 62 79 20 6d | 61 6b 65 2d 61 75 74 6f |ded by m|ake-auto|
|00000670| 2d 73 61 76 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 2e |-save-fi|le-name.|
|00000680| 0a 46 49 4c 45 4e 41 4d | 45 20 73 68 6f 75 6c 64 |.FILENAM|E should|
|00000690| 20 6c 61 63 6b 20 73 6c | 61 73 68 65 73 2e 0a 54 | lack sl|ashes..T|
|000006a0| 68 69 73 20 69 73 20 61 | 20 73 65 70 61 72 61 74 |his is a| separat|
|000006b0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 73 6f 20 79 6f |e functi|on so yo|
|000006c0| 75 72 20 2e 65 6d 61 63 | 73 20 66 69 6c 65 20 6f |ur .emac|s file o|
|000006d0| 72 20 73 69 74 65 2d 69 | 6e 69 74 2e 65 6c 20 63 |r site-i|nit.el c|
|000006e0| 61 6e 20 72 65 64 65 66 | 69 6e 65 20 69 74 2e 22 |an redef|ine it."|
|000006f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 6d |]).(defa|lias 'vm|
|00000700| 73 2d 73 75 73 70 65 6e | 64 2d 72 65 73 75 6d 65 |s-suspen|d-resume|
|00000710| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 c0 c1 c2 |-hook #[|nil "...|
|00000720| 5c 22 c0 c1 c3 5c 22 c0 | c1 c4 5c 22 1d 1e 06 1e |\"...\".|..\"....|
|00000730| 07 0e 06 84 2c 00 0e 07 | 85 35 00 c8 0e 07 21 88 |....,...|.5....!.|
|00000740| 0d 85 35 00 c9 ca 0d 21 | 21 82 35 00 cb cc 0e 07 |..5....!|!.5.....|
|00000750| 21 21 88 cd 20 2b 87 22 | 20 5b 76 6d 73 2d 73 79 |!!.. +."| [vms-sy|
|00000760| 73 74 65 6d 2d 69 6e 66 | 6f 20 22 4c 4f 47 49 43 |stem-inf|o "LOGIC|
|00000770| 41 4c 22 20 22 45 4d 41 | 43 53 5f 46 49 4c 45 5f |AL" "EMA|CS_FILE_|
|00000780| 4e 41 4d 45 22 20 22 45 | 4d 41 43 53 5f 43 4f 4d |NAME" "E|MACS_COM|
|00000790| 4d 41 4e 44 5f 41 52 47 | 53 22 20 22 45 4d 41 43 |MAND_ARG|S" "EMAC|
|000007a0| 53 5f 46 49 4c 45 5f 4c | 49 4e 45 22 20 6c 69 6e |S_FILE_L|INE" lin|
|000007b0| 65 20 61 72 67 73 20 66 | 69 6c 65 20 66 69 6e 64 |e args f|ile find|
|000007c0| 2d 66 69 6c 65 20 67 6f | 74 6f 2d 6c 69 6e 65 20 |-file go|to-line |
|000007d0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 63 64 |string-t|o-int cd|
|000007e0| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|000007f0| 74 6f 72 79 20 76 6d 73 | 2d 63 6f 6d 6d 61 6e 64 |tory vms|-command|
|00000800| 2d 6c 69 6e 65 2d 61 67 | 61 69 6e 5d 20 35 20 22 |-line-ag|ain] 5 "|
|00000810| 5c 0a 57 68 65 6e 20 72 | 65 73 75 6d 69 6e 67 20 |\.When r|esuming |
|00000820| 73 75 73 70 65 6e 64 65 | 64 20 45 6d 61 63 73 2c |suspende|d Emacs,|
|00000830| 20 63 68 65 63 6b 20 66 | 6f 72 20 66 69 6c 65 20 | check f|or file |
|00000840| 74 6f 20 62 65 20 66 6f | 75 6e 64 2e 0a 49 66 20 |to be fo|und..If |
|00000850| 74 68 65 20 6c 6f 67 69 | 63 61 6c 20 6e 61 6d 65 |the logi|cal name|
|00000860| 20 60 45 4d 41 43 53 5f | 46 49 4c 45 5f 4e 41 4d | `EMACS_|FILE_NAM|
|00000870| 45 27 20 69 73 20 64 65 | 66 69 6e 65 64 2c 20 60 |E' is de|fined, `|
|00000880| 66 69 6e 64 2d 66 69 6c | 65 27 20 74 68 61 74 20 |find-fil|e' that |
|00000890| 66 69 6c 65 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |file."])|.(byte-c|
|000008a0| 6f 64 65 20 22 c0 11 c0 | 87 22 20 5b 76 6d 73 2d |ode "...|." [vms-|
|000008b0| 73 75 73 70 65 6e 64 2d | 72 65 73 75 6d 65 2d 68 |suspend-|resume-h|
|000008c0| 6f 6f 6b 20 73 75 73 70 | 65 6e 64 2d 72 65 73 75 |ook susp|end-resu|
|000008d0| 6d 65 2d 68 6f 6f 6b 5d | 20 31 29 0a 28 64 65 66 |me-hook]| 1).(def|
|000008e0| 61 6c 69 61 73 20 27 76 | 6d 73 2d 73 75 73 70 65 |alias 'v|ms-suspe|
|000008f0| 6e 64 2d 68 6f 6f 6b 20 | 23 5b 6e 69 6c 20 22 c0 |nd-hook |#[nil ".|
|00000900| c1 c2 5c 22 83 0b 00 c3 | c4 21 88 c5 87 22 20 5b |..\"....|.!..." [|
|00000910| 76 6d 73 2d 73 79 73 74 | 65 6d 2d 69 6e 66 6f 20 |vms-syst|em-info |
|00000920| 22 4c 4f 47 49 43 41 4c | 22 20 22 44 4f 4e 54 5f |"LOGICAL|" "DONT_|
|00000930| 53 55 53 50 45 4e 44 5f | 45 4d 41 43 53 22 20 65 |SUSPEND_|EMACS" e|
|00000940| 72 72 6f 72 20 22 43 61 | 6e 27 74 20 73 75 73 70 |rror "Ca|n't susp|
|00000950| 65 6e 64 20 74 68 69 73 | 20 65 6d 61 63 73 22 20 |end this| emacs" |
|00000960| 6e 69 6c 5d 20 33 20 22 | 5c 0a 44 6f 6e 27 74 20 |nil] 3 "|\.Don't |
|00000970| 61 6c 6c 6f 77 20 73 75 | 73 70 65 6e 64 69 6e 67 |allow su|spending|
|00000980| 20 69 66 20 6c 6f 67 69 | 63 61 6c 20 6e 61 6d 65 | if logi|cal name|
|00000990| 20 60 44 4f 4e 54 5f 53 | 55 53 50 45 4e 44 5f 45 | `DONT_S|USPEND_E|
|000009a0| 4d 41 43 53 27 20 69 73 | 20 64 65 66 69 6e 65 64 |MACS' is| defined|
|000009b0| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|000009c0| 22 c0 11 c0 87 22 20 5b | 76 6d 73 2d 73 75 73 70 |"...." [|vms-susp|
|000009d0| 65 6e 64 2d 68 6f 6f 6b | 20 73 75 73 70 65 6e 64 |end-hook| suspend|
|000009e0| 2d 68 6f 6f 6b 5d 20 31 | 29 0a 28 64 65 66 61 6c |-hook] 1|).(defal|
|000009f0| 69 61 73 20 27 76 6d 73 | 2d 63 6f 6d 6d 61 6e 64 |ias 'vms|-command|
|00000a00| 2d 6c 69 6e 65 2d 61 67 | 61 69 6e 20 23 5b 6e 69 |-line-ag|ain #[ni|
|00000a10| 6c 20 22 c0 c1 c2 5c 22 | 97 1b c4 43 1d c6 1e 07 |l "...\"|...C....|
|00000a20| c6 1e 08 0b 47 1e 09 ca | 1e 0b 0b 85 cd 00 0e 07 |....G...|........|
|00000a30| 0b 47 57 83 44 00 cc 0b | 0e 07 48 89 16 0b 56 84 |.GW.D...|..H...V.|
|00000a40| 35 00 cd 0e 0b 57 83 3b | 00 0b 0e 07 ce 49 88 0e |5....W.;|.....I..|
|00000a50| 07 54 89 16 07 82 1c 00 | 0b 47 53 16 07 0b 0e 07 |.T......|.GS.....|
|00000a60| 48 ce 55 83 5a 00 0e 07 | 53 16 07 82 49 00 0b c6 |H.U.Z...|S...I...|
|00000a70| 0e 07 54 4f 13 c6 16 07 | c6 0b 47 57 83 cb 00 0e |..TO....|..GW....|
|00000a80| 07 0b 47 57 83 8f 00 cc | 0b 0e 07 48 89 16 0b 56 |..GW....|...H...V|
|00000a90| 84 86 00 cd 0e 0b 57 83 | 8f 00 0e 07 54 89 16 07 |......W.|....T...|
|00000aa0| 84 6b 00 0e 07 54 89 16 | 08 0b 47 57 83 b7 00 ce |.k...T..|..GW....|
|00000ab0| 0b 0e 08 48 89 16 0b 57 | 83 b7 00 cd 0e 0b 56 83 |...H...W|......V.|
|00000ac0| b7 00 0e 08 54 89 16 08 | 82 95 00 cf 0d 0b 0e 07 |....T...|........|
|00000ad0| 0e 08 4f 43 5c 22 15 0e | 08 54 89 16 07 82 65 00 |..OC\"..|.T....e.|
|00000ae0| d0 20 2e 06 87 22 20 5b | 76 6d 73 2d 73 79 73 74 |. ..." [|vms-syst|
|00000af0| 65 6d 2d 69 6e 66 6f 20 | 22 4c 4f 47 49 43 41 4c |em-info |"LOGICAL|
|00000b00| 22 20 22 45 4d 41 43 53 | 5f 43 4f 4d 4d 41 4e 44 |" "EMACS|_COMMAND|
|00000b10| 5f 41 52 47 53 22 20 61 | 72 67 73 20 22 65 6d 61 |_ARGS" a|rgs "ema|
|00000b20| 63 73 22 20 63 6f 6d 6d | 61 6e 64 2d 6c 69 6e 65 |cs" comm|and-line|
|00000b30| 2d 61 72 67 73 20 30 20 | 62 65 67 20 65 6e 64 20 |-args 0 |beg end |
|00000b40| 6c 65 6e 20 6e 69 6c 20 | 74 68 69 73 2d 63 68 61 |len nil |this-cha|
|00000b50| 72 20 33 33 20 31 32 37 | 20 33 32 20 61 70 70 65 |r 33 127| 32 appe|
|00000b60| 6e 64 20 63 6f 6d 6d 61 | 6e 64 2d 6c 69 6e 65 5d |nd comma|nd-line]|
|00000b70| 20 36 20 22 5c 0a 52 65 | 70 72 6f 63 65 73 73 20 | 6 "\.Re|process |
|00000b80| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 20 61 72 67 |command |line arg|
|00000b90| 75 6d 65 6e 74 73 2e 20 | 20 56 4d 53 20 73 70 65 |uments. | VMS spe|
|00000ba0| 63 69 66 69 63 2e 0a 43 | 6f 6d 6d 61 6e 64 20 6c |cific..C|ommand l|
|00000bb0| 69 6e 65 20 61 72 67 75 | 6d 65 6e 74 73 20 61 72 |ine argu|ments ar|
|00000bc0| 65 20 69 6e 69 74 69 61 | 6c 69 7a 65 64 20 66 72 |e initia|lized fr|
|00000bd0| 6f 6d 20 74 68 65 20 6c | 6f 67 69 63 61 6c 20 45 |om the l|ogical E|
|00000be0| 4d 41 43 53 5f 43 4f 4d | 4d 41 4e 44 5f 41 52 47 |MACS_COM|MAND_ARG|
|00000bf0| 53 0a 77 68 69 63 68 20 | 69 73 20 64 65 66 69 6e |S.which |is defin|
|00000c00| 65 64 20 62 79 20 6b 65 | 70 74 65 64 69 74 6f 72 |ed by ke|pteditor|
|00000c10| 2e 63 6f 6d 2e 20 20 4f | 6e 20 56 4d 53 20 74 68 |.com.  O|n VMS th|
|00000c20| 69 73 20 61 6c 6c 6f 77 | 73 20 61 74 74 61 63 68 |is allow|s attach|
|00000c30| 69 6e 67 20 74 6f 20 61 | 0a 73 70 61 77 6e 65 64 |ing to a|.spawned|
|00000c40| 20 45 6d 61 63 73 20 61 | 6e 64 20 64 6f 69 6e 67 | Emacs a|nd doing|
|00000c50| 20 74 68 69 6e 67 73 20 | 6c 69 6b 65 20 5c 22 65 | things |like \"e|
|00000c60| 6d 61 63 73 20 2d 6c 20 | 6d 79 66 69 6c 65 2e 65 |macs -l |myfile.e|
|00000c70| 6c 20 2d 66 20 64 6f 69 | 74 5c 22 22 5d 29 0a 28 |l -f doi|t\""]).(|
|00000c80| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00000c90| 88 c3 14 c5 16 06 c0 87 | 22 20 5b 64 65 66 61 6c |........|" [defal|
|00000ca0| 69 61 73 20 76 6d 73 2d | 72 65 61 64 2d 64 69 72 |ias vms-|read-dir|
|00000cb0| 65 63 74 6f 72 79 20 23 | 5b 28 64 69 72 6e 61 6d |ectory #|[(dirnam|
|00000cc0| 65 20 73 77 69 74 63 68 | 65 73 20 62 75 66 66 65 |e switch|es buffe|
|00000cd0| 72 29 20 22 8a 08 71 88 | c1 c2 0b c4 0d 52 08 5c |r) "..q.|.....R.\|
|00000ce0| 22 88 65 62 88 c6 c7 21 | 83 1f 00 c8 75 88 c9 20 |".eb...!|....u.. |
|00000cf0| 88 82 10 00 65 62 29 87 | 22 20 5b 62 75 66 66 65 |....eb).|" [buffe|
|00000d00| 72 20 73 75 62 70 72 6f | 63 65 73 73 2d 63 6f 6d |r subpro|cess-com|
|00000d10| 6d 61 6e 64 2d 74 6f 2d | 62 75 66 66 65 72 20 22 |mand-to-|buffer "|
|00000d20| 44 49 52 45 43 54 4f 52 | 59 20 22 20 73 77 69 74 |DIRECTOR|Y " swit|
|00000d30| 63 68 65 73 20 22 20 22 | 20 64 69 72 6e 61 6d 65 |ches " "| dirname|
|00000d40| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00000d50| 22 20 5c 6e 22 20 2d 31 | 20 64 65 6c 65 74 65 2d |" \n" -1| delete-|
|00000d60| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 70 61 63 65 |horizont|al-space|
|00000d70| 5d 20 35 5d 20 22 2f 53 | 49 5a 45 2f 44 41 54 45 |] 5] "/S|IZE/DATE|
|00000d80| 2f 4f 57 4e 45 52 2f 57 | 49 44 54 48 3d 28 46 49 |/OWNER/W|IDTH=(FI|
|00000d90| 4c 45 4e 41 4d 45 3d 33 | 32 2c 53 49 5a 45 3d 35 |LENAME=3|2,SIZE=5|
|00000da0| 29 22 20 64 69 72 65 64 | 2d 6c 69 73 74 69 6e 67 |)" dired|-listing|
|00000db0| 2d 73 77 69 74 63 68 65 | 73 20 28 6c 61 6d 62 64 |-switche|s (lambd|
|00000dc0| 61 20 28 73 74 61 72 74 | 20 65 6e 64 20 63 6f 6d |a (start| end com|
|00000dd0| 6d 61 6e 64 20 69 67 6e | 31 20 69 67 6e 32 20 69 |mand ign|1 ign2 i|
|00000de0| 67 6e 33 20 26 72 65 73 | 74 20 73 77 69 74 63 68 |gn3 &res|t switch|
|00000df0| 65 73 29 20 28 77 72 69 | 74 65 2d 72 65 67 69 6f |es) (wri|te-regio|
|00000e00| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 22 73 79 73 |n start |end "sys|
|00000e10| 24 6c 6f 67 69 6e 3a 64 | 65 6c 65 74 65 2d 6d 65 |$login:d|elete-me|
|00000e20| 2e 74 78 74 22 29 20 28 | 73 65 6e 64 2d 63 6f 6d |.txt") (|send-com|
|00000e30| 6d 61 6e 64 2d 74 6f 2d | 73 75 62 70 72 6f 63 65 |mand-to-|subproce|
|00000e40| 73 73 20 31 20 28 63 6f | 6e 63 61 74 20 63 6f 6d |ss 1 (co|ncat com|
|00000e50| 6d 61 6e 64 20 22 20 73 | 79 73 24 6c 6f 67 69 6e |mand " s|ys$login|
|00000e60| 3a 64 65 6c 65 74 65 2d | 6d 65 2e 74 78 74 2f 6e |:delete-|me.txt/n|
|00000e70| 61 6d 65 3d 5c 22 47 4e | 55 70 72 69 6e 74 62 75 |ame=\"GN|Uprintbu|
|00000e80| 66 66 65 72 5c 22 20 22 | 20 28 6d 61 70 63 6f 6e |ffer\" "| (mapcon|
|00000e90| 63 61 74 20 28 71 75 6f | 74 65 20 69 64 65 6e 74 |cat (quo|te ident|
|00000ea0| 69 74 79 29 20 73 77 69 | 74 63 68 65 73 20 22 20 |ity) swi|tches " |
|00000eb0| 22 29 29 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 29 |")) nil |nil nil)|
|00000ec0| 29 20 70 72 69 6e 74 2d | 72 65 67 69 6f 6e 2d 66 |) print-|region-f|
|00000ed0| 75 6e 63 74 69 6f 6e 5d | 20 33 29 0a 28 61 75 74 |unction]| 3).(aut|
|00000ee0| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 76 6d 73 |oload (q|uote vms|
|00000ef0| 2d 70 6d 61 69 6c 2d 73 | 65 74 75 70 29 20 22 76 |-pmail-s|etup) "v|
|00000f00| 6d 73 2d 70 6d 61 69 6c | 22 20 22 5c 0a 53 65 74 |ms-pmail|" "\.Set|
|00000f10| 20 75 70 20 66 69 6c 65 | 20 61 73 73 75 6d 69 6e | up file| assumin|
|00000f20| 67 20 75 73 65 20 62 79 | 20 56 4d 53 20 4d 61 69 |g use by| VMS Mai|
|00000f30| 6c 20 75 74 69 6c 69 74 | 79 2e 0a 54 68 65 20 62 |l utilit|y..The b|
|00000f40| 75 66 66 65 72 20 69 73 | 20 70 75 74 20 69 6e 74 |uffer is| put int|
|00000f50| 6f 20 74 65 78 74 2d 6d | 6f 64 65 2c 20 61 75 74 |o text-m|ode, aut|
|00000f60| 6f 2d 73 61 76 65 20 69 | 73 20 74 75 72 6e 65 64 |o-save i|s turned|
|00000f70| 20 6f 66 66 20 61 6e 64 | 20 74 68 65 0a 66 6f 6c | off and| the.fol|
|00000f80| 6c 6f 77 69 6e 67 20 62 | 69 6e 64 69 6e 67 73 20 |lowing b|indings |
|00000f90| 61 72 65 20 65 73 74 61 | 62 6c 69 73 68 65 64 2e |are esta|blished.|
|00000fa0| 0a 0a 5c 5c 5b 76 6d 73 | 2d 70 6d 61 69 6c 2d 73 |..\\[vms|-pmail-s|
|00000fb0| 61 76 65 2d 61 6e 64 2d | 65 78 69 74 5d 09 76 6d |ave-and-|exit].vm|
|00000fc0| 73 2d 70 6d 61 69 6c 2d | 73 61 76 65 2d 61 6e 64 |s-pmail-|save-and|
|00000fd0| 2d 65 78 69 74 0a 5c 5c | 5b 76 6d 73 2d 70 6d 61 |-exit.\\|[vms-pma|
|00000fe0| 69 6c 2d 61 62 6f 72 74 | 5d 09 76 6d 73 2d 70 6d |il-abort|].vms-pm|
|00000ff0| 61 69 6c 2d 61 62 6f 72 | 74 0a 0a 41 6c 6c 20 6f |ail-abor|t..All o|
|00001000| 74 68 65 72 20 45 6d 61 | 63 73 20 63 6f 6d 6d 61 |ther Ema|cs comma|
|00001010| 6e 64 73 20 61 72 65 20 | 73 74 69 6c 6c 20 61 76 |nds are |still av|
|00001020| 61 69 6c 61 62 6c 65 2e | 22 20 74 29 0a          |ailable.|" t).   |
+--------+-------------------------+-------------------------+--------+--------+