/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / cmushell.patch

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 75 74 6b | 63 73 32 21 65 6d 6f 72 |From utk|cs2!emor|
|00000010| 79 21 73 77 72 69 6e 64 | 65 21 63 73 2e 75 74 65 |y!swrind|e!cs.ute|
|00000020| 78 61 73 2e 65 64 75 21 | 74 75 74 2e 63 69 73 2e |xas.edu!|tut.cis.|
|00000030| 6f 68 69 6f 2d 73 74 61 | 74 65 2e 65 64 75 21 73 |ohio-sta|te.edu!s|
|00000040| 6e 6f 72 6b 65 6c 77 61 | 63 6b 65 72 21 70 61 70 |norkelwa|cker!pap|
|00000050| 65 72 62 6f 79 21 6d 65 | 69 73 73 6e 65 72 20 46 |erboy!me|issner F|
|00000060| 72 69 20 4a 75 6e 20 31 | 35 20 31 33 3a 35 35 3a |ri Jun 1|5 13:55:|
|00000070| 32 32 20 45 44 54 20 31 | 39 39 30 0a 41 72 74 69 |22 EDT 1|990.Arti|
|00000080| 63 6c 65 20 32 39 36 37 | 20 6f 66 20 67 6e 75 2e |cle 2967| of gnu.|
|00000090| 65 6d 61 63 73 3a 0a 58 | 72 65 66 3a 20 75 74 6b |emacs:.X|ref: utk|
|000000a0| 63 73 32 20 63 6f 6d 70 | 2e 65 6d 61 63 73 3a 34 |cs2 comp|.emacs:4|
|000000b0| 34 34 31 20 67 6e 75 2e | 65 6d 61 63 73 3a 32 39 |441 gnu.|emacs:29|
|000000c0| 36 37 0a 50 61 74 68 3a | 20 75 74 6b 63 73 32 21 |67.Path:| utkcs2!|
|000000d0| 65 6d 6f 72 79 21 73 77 | 72 69 6e 64 65 21 63 73 |emory!sw|rinde!cs|
|000000e0| 2e 75 74 65 78 61 73 2e | 65 64 75 21 74 75 74 2e |.utexas.|edu!tut.|
|000000f0| 63 69 73 2e 6f 68 69 6f | 2d 73 74 61 74 65 2e 65 |cis.ohio|-state.e|
|00000100| 64 75 21 73 6e 6f 72 6b | 65 6c 77 61 63 6b 65 72 |du!snork|elwacker|
|00000110| 21 70 61 70 65 72 62 6f | 79 21 6d 65 69 73 73 6e |!paperbo|y!meissn|
|00000120| 65 72 0a 3e 46 72 6f 6d | 3a 20 6d 65 69 73 73 6e |er.>From|: meissn|
|00000130| 65 72 40 6f 73 66 2e 6f | 72 67 20 28 4d 69 63 68 |er@osf.o|rg (Mich|
|00000140| 61 65 6c 20 4d 65 69 73 | 73 6e 65 72 29 0a 4e 65 |ael Meis|sner).Ne|
|00000150| 77 73 67 72 6f 75 70 73 | 3a 20 63 6f 6d 70 2e 65 |wsgroups|: comp.e|
|00000160| 6d 61 63 73 2c 67 6e 75 | 2e 65 6d 61 63 73 0a 53 |macs,gnu|.emacs.S|
|00000170| 75 62 6a 65 63 74 3a 20 | 52 65 3a 20 52 65 6c 65 |ubject: |Re: Rele|
|00000180| 61 73 65 20 74 77 6f 20 | 6f 66 20 43 4d 55 20 70 |ase two |of CMU p|
|00000190| 72 6f 63 65 73 73 20 6d | 6f 64 65 73 20 20 28 62 |rocess m|odes  (b|
|000001a0| 61 63 6b 67 72 6f 75 6e | 64 2e 65 6c 29 0a 4d 65 |ackgroun|d.el).Me|
|000001b0| 73 73 61 67 65 2d 49 44 | 3a 20 3c 4d 45 49 53 53 |ssage-ID|: <MEISS|
|000001c0| 4e 45 52 2e 39 30 4a 75 | 6e 31 33 31 38 31 37 30 |NER.90Ju|n1318170|
|000001d0| 38 40 63 75 72 6c 65 79 | 2e 6f 73 66 2e 6f 72 67 |8@curley|.osf.org|
|000001e0| 3e 0a 44 61 74 65 3a 20 | 31 33 20 4a 75 6e 20 39 |>.Date: |13 Jun 9|
|000001f0| 30 20 32 32 3a 31 37 3a | 30 38 20 47 4d 54 0a 52 |0 22:17:|08 GMT.R|
|00000200| 65 66 65 72 65 6e 63 65 | 73 3a 20 3c 39 36 30 31 |eference|s: <9601|
|00000210| 40 70 74 2e 63 73 2e 63 | 6d 75 2e 65 64 75 3e 20 |@pt.cs.c|mu.edu> |
|00000220| 3c 4a 56 2e 39 30 4a 75 | 6e 31 33 31 34 33 37 30 |<JV.90Ju|n1314370|
|00000230| 32 40 73 71 75 69 72 72 | 65 6c 2e 6d 68 2e 6e 6c |2@squirr|el.mh.nl|
|00000240| 3e 0a 53 65 6e 64 65 72 | 3a 20 6e 65 77 73 40 4f |>.Sender|: news@O|
|00000250| 53 46 2e 4f 52 47 0a 4f | 72 67 61 6e 69 7a 61 74 |SF.ORG.O|rganizat|
|00000260| 69 6f 6e 3a 20 4f 70 65 | 6e 20 53 6f 66 74 77 61 |ion: Ope|n Softwa|
|00000270| 72 65 20 46 6f 75 6e 64 | 61 74 69 6f 6e 0a 4c 69 |re Found|ation.Li|
|00000280| 6e 65 73 3a 20 31 31 39 | 0a 49 6e 2d 72 65 70 6c |nes: 119|.In-repl|
|00000290| 79 2d 74 6f 3a 20 6a 76 | 40 6d 68 2e 6e 6c 27 73 |y-to: jv|@mh.nl's|
|000002a0| 20 6d 65 73 73 61 67 65 | 20 6f 66 20 31 33 20 4a | message| of 13 J|
|000002b0| 75 6e 20 39 30 20 32 30 | 3a 33 37 3a 30 32 20 47 |un 90 20|:37:02 G|
|000002c0| 4d 54 0a 0a 49 6e 20 74 | 68 65 20 73 61 6d 65 20 |MT..In t|he same |
|000002d0| 76 65 69 6e 20 6f 66 20 | 63 6f 6d 69 6e 74 2f 63 |vein of |comint/c|
|000002e0| 6d 75 73 68 65 6c 6c 20 | 68 61 63 6b 73 2c 20 49 |mushell |hacks, I|
|000002f0| 27 76 65 20 62 65 65 6e | 20 65 78 70 65 72 69 6d |'ve been| experim|
|00000300| 65 6e 74 69 6e 67 0a 77 | 69 74 68 20 73 65 74 74 |enting.w|ith sett|
|00000310| 69 6e 67 20 6d 79 20 6f | 77 6e 20 70 65 72 73 6f |ing my o|wn perso|
|00000320| 6e 61 6c 20 70 72 6f 63 | 65 73 73 20 66 69 6c 74 |nal proc|ess filt|
|00000330| 65 72 73 2c 20 61 6e 64 | 20 6d 75 6e 67 69 6e 67 |ers, and| munging|
|00000340| 20 74 68 65 0a 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 | the.env|ironment|
|00000350| 2e 20 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |.  The f|ollowing|
|00000360| 20 70 61 74 63 68 20 61 | 64 64 73 20 68 6f 6f 6b | patch a|dds hook|
|00000370| 73 20 74 6f 20 61 6c 6c | 6f 77 20 74 68 69 73 20 |s to all|ow this |
|00000380| 74 6f 20 68 61 70 70 65 | 6e 2c 0a 61 6e 64 20 69 |to happe|n,.and i|
|00000390| 74 20 61 6c 73 6f 20 64 | 65 6c 65 74 65 73 20 74 |t also d|eletes t|
|000003a0| 68 65 20 66 69 72 73 74 | 20 64 65 66 69 6e 69 74 |he first| definit|
|000003b0| 69 6f 6e 20 66 6f 72 20 | 63 6f 6d 69 6e 74 2d 75 |ion for |comint-u|
|000003c0| 70 64 61 74 65 2d 65 6e | 76 20 28 32 20 77 65 72 |pdate-en|v (2 wer|
|000003d0| 65 0a 73 68 69 70 70 65 | 64 29 3a 0a 0a 2a 2a 2a |e.shippe|d):..***|
|000003e0| 20 63 6f 6d 69 6e 74 2e | 65 6c 2e 7e 31 7e 09 54 | comint.|el.~1~.T|
|000003f0| 75 65 20 4a 75 6e 20 31 | 32 20 31 34 3a 30 33 3a |ue Jun 1|2 14:03:|
|00000400| 31 38 20 31 39 39 30 0a | 2d 2d 2d 20 63 6f 6d 69 |18 1990.|--- comi|
|00000410| 6e 74 2e 65 6c 09 57 65 | 64 20 4a 75 6e 20 31 33 |nt.el.We|d Jun 13|
|00000420| 20 31 30 3a 31 30 3a 34 | 35 20 31 39 39 30 0a 2a | 10:10:4|5 1990.*|
|00000430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2a |********|******.*|
|00000440| 2a 2a 20 38 38 2c 39 33 | 20 2a 2a 2a 2a 0a 2d 2d |** 88,93| ****.--|
|00000450| 2d 20 38 38 2c 39 35 20 | 2d 2d 2d 2d 0a 20 20 0a |- 88,95 |----.  .|
|00000460| 20 20 3b 3b 3b 20 63 6f | 6d 69 6e 74 2d 6d 6f 64 |  ;;; co|mint-mod|
|00000470| 65 2d 68 6f 6f 6b 20 69 | 73 20 74 68 65 20 63 6f |e-hook i|s the co|
|00000480| 6d 69 6e 74 20 6d 6f 64 | 65 20 68 6f 6f 6b 2e 20 |mint mod|e hook. |
|00000490| 42 61 73 69 63 61 6c 6c | 79 20 66 6f 72 20 79 6f |Basicall|y for yo|
|000004a0| 75 72 20 6b 65 79 62 69 | 6e 64 69 6e 67 73 2e 0a |ur keybi|ndings..|
|000004b0| 20 20 3b 3b 3b 20 63 6f | 6d 69 6e 74 2d 6c 6f 61 |  ;;; co|mint-loa|
|000004c0| 64 2d 68 6f 6f 6b 20 69 | 73 20 72 75 6e 20 61 66 |d-hook i|s run af|
|000004d0| 74 65 72 20 6c 6f 61 64 | 69 6e 67 20 69 6e 20 74 |ter load|ing in t|
|000004e0| 68 69 73 20 70 61 63 6b | 61 67 65 2e 0a 2b 20 3b |his pack|age..+ ;|
|000004f0| 3b 3b 20 63 6f 6d 69 6e | 74 2d 65 78 65 63 2d 68 |;; comin|t-exec-h|
|00000500| 6f 6f 6b 20 69 73 20 72 | 75 6e 20 61 66 74 65 72 |ook is r|un after|
|00000510| 20 74 68 65 20 70 72 6f | 63 65 73 73 20 69 73 20 | the pro|cess is |
|00000520| 73 74 61 72 74 65 64 2e | 0a 2b 20 3b 3b 3b 20 63 |started.|.+ ;;; c|
|00000530| 6f 6d 69 6e 74 2d 65 6e | 76 2d 68 6f 6f 6b 20 69 |omint-en|v-hook i|
|00000540| 73 20 72 75 6e 20 6a 75 | 73 74 20 62 65 66 6f 72 |s run ju|st befor|
|00000550| 65 20 74 68 65 20 70 72 | 6f 63 65 73 73 20 69 73 |e the pr|ocess is|
|00000560| 20 73 74 61 72 74 65 64 | 20 74 6f 20 63 68 61 6e | started| to chan|
|00000570| 67 65 20 65 6e 76 2e 0a | 20 20 0a 20 20 0c 0a 20 |ge env..|  .  .. |
|00000580| 20 3b 3b 3b 20 42 75 66 | 66 65 72 20 4c 6f 63 61 | ;;; Buf|fer Loca|
|00000590| 6c 20 56 61 72 69 61 62 | 6c 65 73 3a 0a 2a 2a 2a |l Variab|les:.***|
|000005a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|000005b0| 20 31 35 34 2c 31 35 39 | 20 2a 2a 2a 2a 0a 2d 2d | 154,159| ****.--|
|000005c0| 2d 20 31 35 36 2c 31 36 | 38 20 2d 2d 2d 2d 0a 20 |- 156,16|8 ----. |
|000005d0| 20 28 64 65 66 76 61 72 | 20 63 6f 6d 69 6e 74 2d | (defvar| comint-|
|000005e0| 6d 6f 64 65 2d 68 6f 6f | 6b 20 27 28 29 0a 20 20 |mode-hoo|k '().  |
|000005f0| 20 20 22 43 61 6c 6c 65 | 64 20 75 70 6f 6e 20 65 |  "Calle|d upon e|
|00000600| 6e 74 72 79 20 69 6e 74 | 6f 20 63 6f 6d 69 6e 74 |ntry int|o comint|
|00000610| 2d 6d 6f 64 65 22 29 0a | 20 20 0a 2b 20 28 64 65 |-mode").|  .+ (de|
|00000620| 66 76 61 72 20 63 6f 6d | 69 6e 74 2d 65 78 65 63 |fvar com|int-exec|
|00000630| 2d 68 6f 6f 6b 20 27 28 | 29 0a 2b 20 20 20 22 43 |-hook '(|).+   "C|
|00000640| 61 6c 6c 65 64 20 77 68 | 65 6e 20 74 68 65 20 63 |alled wh|en the c|
|00000650| 6f 6d 69 6e 74 20 70 72 | 6f 63 65 73 73 20 69 73 |omint pr|ocess is|
|00000660| 20 73 74 61 72 74 65 64 | 22 29 0a 2b 20 0a 2b 20 | started|").+ .+ |
|00000670| 28 64 65 66 76 61 72 20 | 63 6f 6d 69 6e 74 2d 65 |(defvar |comint-e|
|00000680| 6e 76 2d 68 6f 6f 6b 20 | 27 28 29 0a 2b 20 20 20 |nv-hook |'().+   |
|00000690| 22 43 61 6c 6c 65 64 20 | 6a 75 73 74 20 62 65 66 |"Called |just bef|
|000006a0| 6f 72 65 20 74 68 65 20 | 63 6f 6d 69 6e 74 20 70 |ore the |comint p|
|000006b0| 72 6f 63 65 73 73 20 69 | 73 20 73 74 61 72 74 65 |rocess i|s starte|
|000006c0| 64 20 74 6f 20 63 68 61 | 6e 67 65 20 74 68 65 20 |d to cha|nge the |
|000006d0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2c 0a 2b 20 77 |environm|ent,.+ w|
|000006e0| 68 69 63 68 20 69 73 20 | 69 6e 20 74 68 65 20 6c |hich is |in the l|
|000006f0| 6f 63 61 6c 20 76 61 72 | 69 61 62 6c 65 20 70 72 |ocal var|iable pr|
|00000700| 6f 63 65 73 73 2d 65 6e | 76 69 72 6f 6e 6d 65 6e |ocess-en|vironmen|
|00000710| 74 22 29 0a 2b 20 0a 20 | 20 28 64 65 66 76 61 72 |t").+ . | (defvar|
|00000720| 20 63 6f 6d 69 6e 74 2d | 6d 6f 64 65 2d 6d 61 70 | comint-|mode-map|
|00000730| 20 6e 69 6c 29 0a 20 20 | 0a 20 20 28 64 65 66 75 | nil).  |.  (defu|
|00000740| 6e 20 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 20 28 29 |n comint|-mode ()|
|00000750| 0a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000760| 0a 2a 2a 2a 20 32 38 31 | 2c 32 38 37 20 2a 2a 2a |.*** 281|,287 ***|
|00000770| 2a 0a 20 20 20 20 22 46 | 69 72 65 73 20 75 70 20 |*.    "F|ires up |
|00000780| 61 20 70 72 6f 63 65 73 | 73 20 69 6e 20 62 75 66 |a proces|s in buf|
|00000790| 66 65 72 20 66 6f 72 20 | 63 6f 6d 69 6e 74 20 6d |fer for |comint m|
|000007a0| 6f 64 65 73 2e 0a 20 20 | 42 6c 61 73 74 73 20 61 |odes..  |Blasts a|
|000007b0| 6e 79 20 6f 6c 64 20 70 | 72 6f 63 65 73 73 20 72 |ny old p|rocess r|
|000007c0| 75 6e 6e 69 6e 67 20 69 | 6e 20 74 68 65 20 62 75 |unning i|n the bu|
|000007d0| 66 66 65 72 2e 20 44 6f | 65 73 6e 27 74 20 73 65 |ffer. Do|esn't se|
|000007e0| 74 20 74 68 65 20 62 75 | 66 66 65 72 20 6d 6f 64 |t the bu|ffer mod|
|000007f0| 65 2e 0a 20 20 59 6f 75 | 20 63 61 6e 20 75 73 65 |e..  You| can use|
|00000800| 20 74 68 69 73 20 74 6f | 20 63 68 65 61 70 6c 79 | this to| cheaply|
|00000810| 20 72 75 6e 20 61 20 73 | 65 72 69 65 73 20 6f 66 | run a s|eries of|
|00000820| 20 70 72 6f 63 65 73 73 | 65 73 20 69 6e 20 74 68 | process|es in th|
|00000830| 65 20 73 61 6d 65 20 63 | 6f 6d 69 6e 74 0a 21 20 |e same c|omint.! |
|00000840| 62 75 66 66 65 72 2e 22 | 0a 20 20 20 20 28 73 61 |buffer."|.    (sa|
|00000850| 76 65 2d 65 78 63 75 72 | 73 69 6f 6e 0a 20 20 20 |ve-excur|sion.   |
|00000860| 20 20 20 28 73 65 74 2d | 62 75 66 66 65 72 20 62 |   (set-|buffer b|
|00000870| 75 66 66 65 72 29 0a 20 | 20 20 20 20 20 28 6c 65 |uffer). |     (le|
|00000880| 74 20 28 28 70 72 6f 63 | 20 28 67 65 74 2d 62 75 |t ((proc| (get-bu|
|00000890| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 62 75 66 |ffer-pro|cess buf|
|000008a0| 66 65 72 29 29 29 09 3b | 20 42 6c 61 73 74 20 61 |fer))).;| Blast a|
|000008b0| 6e 79 20 6f 6c 64 20 70 | 72 6f 63 65 73 73 2e 0a |ny old p|rocess..|
|000008c0| 2d 2d 2d 20 32 39 30 2c | 33 30 32 20 2d 2d 2d 2d |--- 290,|302 ----|
|000008d0| 0a 20 20 20 20 22 46 69 | 72 65 73 20 75 70 20 61 |.    "Fi|res up a|
|000008e0| 20 70 72 6f 63 65 73 73 | 20 69 6e 20 62 75 66 66 | process| in buff|
|000008f0| 65 72 20 66 6f 72 20 63 | 6f 6d 69 6e 74 20 6d 6f |er for c|omint mo|
|00000900| 64 65 73 2e 0a 20 20 42 | 6c 61 73 74 73 20 61 6e |des..  B|lasts an|
|00000910| 79 20 6f 6c 64 20 70 72 | 6f 63 65 73 73 20 72 75 |y old pr|ocess ru|
|00000920| 6e 6e 69 6e 67 20 69 6e | 20 74 68 65 20 62 75 66 |nning in| the buf|
|00000930| 66 65 72 2e 20 44 6f 65 | 73 6e 27 74 20 73 65 74 |fer. Doe|sn't set|
|00000940| 20 74 68 65 20 62 75 66 | 66 65 72 20 6d 6f 64 65 | the buf|fer mode|
|00000950| 2e 0a 20 20 59 6f 75 20 | 63 61 6e 20 75 73 65 20 |..  You |can use |
|00000960| 74 68 69 73 20 74 6f 20 | 63 68 65 61 70 6c 79 20 |this to |cheaply |
|00000970| 72 75 6e 20 61 20 73 65 | 72 69 65 73 20 6f 66 20 |run a se|ries of |
|00000980| 70 72 6f 63 65 73 73 65 | 73 20 69 6e 20 74 68 65 |processe|s in the|
|00000990| 20 73 61 6d 65 20 63 6f | 6d 69 6e 74 0a 21 20 62 | same co|mint.! b|
|000009a0| 75 66 66 65 72 2e 0a 21 | 20 0a 21 20 55 70 6f 6e |uffer..!| .! Upon|
|000009b0| 20 65 6e 74 72 79 2c 20 | 63 6f 6d 69 6e 74 2d 65 | entry, |comint-e|
|000009c0| 78 65 63 2d 68 6f 6f 6b | 20 69 73 20 72 75 6e 20 |xec-hook| is run |
|000009d0| 6a 75 73 74 20 61 66 74 | 65 72 20 63 72 65 61 74 |just aft|er creat|
|000009e0| 69 6e 67 20 74 68 65 20 | 70 72 6f 63 65 73 73 20 |ing the |process |
|000009f0| 28 74 6f 0a 21 20 61 6c | 6c 6f 77 20 74 68 65 20 |(to.! al|low the |
|00000a00| 65 73 74 61 62 6c 69 73 | 68 6d 65 6e 74 20 6f 66 |establis|hment of|
|00000a10| 20 61 20 70 72 6f 63 65 | 73 73 20 66 69 6c 74 65 | a proce|ss filte|
|00000a20| 72 29 2c 20 61 6e 64 20 | 63 6f 6d 69 6e 74 2d 65 |r), and |comint-e|
|00000a30| 6e 76 2d 68 6f 6f 6b 20 | 69 73 20 72 75 6e 0a 21 |nv-hook |is run.!|
|00000a40| 20 6a 75 73 74 20 62 65 | 66 6f 72 65 20 63 72 65 | just be|fore cre|
|00000a50| 61 74 69 6e 67 20 74 68 | 65 20 70 72 6f 63 65 73 |ating th|e proces|
|00000a60| 73 2c 20 74 6f 20 61 6c | 6c 6f 77 20 6d 75 6e 67 |s, to al|low mung|
|00000a70| 69 6e 67 20 74 68 65 20 | 65 6e 76 69 72 6f 6e 6d |ing the |environm|
|00000a80| 65 6e 74 20 70 61 73 73 | 65 64 0a 21 20 74 6f 20 |ent pass|ed.! to |
|00000a90| 74 68 65 20 63 68 69 6c | 64 20 70 72 6f 63 65 73 |the chil|d proces|
|00000aa0| 73 2e 22 0a 21 20 0a 20 | 20 20 20 28 73 61 76 65 |s.".! . |   (save|
|00000ab0| 2d 65 78 63 75 72 73 69 | 6f 6e 0a 20 20 20 20 20 |-excursi|on.     |
|00000ac0| 20 28 73 65 74 2d 62 75 | 66 66 65 72 20 62 75 66 | (set-bu|ffer buf|
|00000ad0| 66 65 72 29 0a 20 20 20 | 20 20 20 28 6c 65 74 20 |fer).   |   (let |
|00000ae0| 28 28 70 72 6f 63 20 28 | 67 65 74 2d 62 75 66 66 |((proc (|get-buff|
|00000af0| 65 72 2d 70 72 6f 63 65 | 73 73 20 62 75 66 66 65 |er-proce|ss buffe|
|00000b00| 72 29 29 29 09 3b 20 42 | 6c 61 73 74 20 61 6e 79 |r))).; B|last any|
|00000b10| 20 6f 6c 64 20 70 72 6f | 63 65 73 73 2e 0a 2a 2a | old pro|cess..**|
|00000b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00000b30| 2a 20 32 39 33 2c 33 30 | 31 20 2a 2a 2a 2a 0a 20 |* 293,30|1 ****. |
|00000b40| 20 09 09 09 09 20 20 20 | 20 20 20 20 28 73 63 72 | ....   |    (scr|
|00000b50| 65 65 6e 2d 77 69 64 74 | 68 29 29 0a 20 20 09 09 |een-widt|h)).  ..|
|00000b60| 09 20 20 20 20 20 20 20 | 22 54 45 52 4d 3d 65 6d |.       |"TERM=em|
|00000b70| 61 63 73 22 0a 20 20 09 | 09 09 20 20 20 20 20 20 |acs".  .|..      |
|00000b80| 20 22 45 4d 41 43 53 3d | 74 22 29 29 29 0a 21 20 | "EMACS=|t"))).! |
|00000b90| 09 20 20 20 28 70 72 6f | 63 20 28 61 70 70 6c 79 |.   (pro|c (apply|
|00000ba0| 20 27 73 74 61 72 74 2d | 70 72 6f 63 65 73 73 20 | 'start-|process |
|00000bb0| 6e 61 6d 65 20 62 75 66 | 66 65 72 20 63 6f 6d 6d |name buf|fer comm|
|00000bc0| 61 6e 64 20 73 77 69 74 | 63 68 65 73 29 29 29 0a |and swit|ches))).|
|00000bd0| 20 20 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 76 61 |        |(make-va|
|00000be0| 72 69 61 62 6c 65 2d 62 | 75 66 66 65 72 2d 6c 6f |riable-b|uffer-lo|
|00000bf0| 63 61 6c 20 27 63 6f 6d | 69 6e 74 2d 70 74 79 70 |cal 'com|int-ptyp|
|00000c00| 29 0a 20 20 20 20 20 20 | 20 20 28 73 65 74 71 20 |).      |  (setq |
|00000c10| 63 6f 6d 69 6e 74 2d 70 | 74 79 70 20 70 72 6f 63 |comint-p|typ proc|
|00000c20| 65 73 73 2d 63 6f 6e 6e | 65 63 74 69 6f 6e 2d 74 |ess-conn|ection-t|
|00000c30| 79 70 65 29 20 3b 20 54 | 20 69 66 20 70 74 79 2c |ype) ; T| if pty,|
|00000c40| 20 4e 49 4c 20 69 66 20 | 70 69 70 65 2e 0a 20 20 | NIL if |pipe..  |
|00000c50| 20 20 20 20 20 20 3b 3b | 20 4a 75 6d 70 20 74 6f |      ;;| Jump to|
|00000c60| 20 74 68 65 20 65 6e 64 | 2c 20 61 6e 64 20 73 65 | the end|, and se|
|00000c70| 74 20 74 68 65 20 70 72 | 6f 63 65 73 73 20 6d 61 |t the pr|ocess ma|
|00000c80| 72 6b 2e 0a 20 20 20 20 | 20 20 20 20 28 67 6f 74 |rk..    |    (got|
|00000c90| 6f 2d 63 68 61 72 20 28 | 70 6f 69 6e 74 2d 6d 61 |o-char (|point-ma|
|00000ca0| 78 29 29 0a 20 20 20 20 | 20 20 20 20 28 73 65 74 |x)).    |    (set|
|00000cb0| 2d 6d 61 72 6b 65 72 20 | 28 70 72 6f 63 65 73 73 |-marker |(process|
|00000cc0| 2d 6d 61 72 6b 20 70 72 | 6f 63 29 20 28 70 6f 69 |-mark pr|oc) (poi|
|00000cd0| 6e 74 29 29 29 0a 2d 2d | 2d 20 33 30 38 2c 33 32 |nt))).--|- 308,32|
|00000ce0| 30 20 2d 2d 2d 2d 0a 20 | 20 09 09 09 09 20 20 20 |0 ----. | ....   |
|00000cf0| 20 20 20 20 28 73 63 72 | 65 65 6e 2d 77 69 64 74 |    (scr|een-widt|
|00000d00| 68 29 29 0a 20 20 09 09 | 09 20 20 20 20 20 20 20 |h)).  ..|.       |
|00000d10| 22 54 45 52 4d 3d 65 6d | 61 63 73 22 0a 20 20 09 |"TERM=em|acs".  .|
|00000d20| 09 09 20 20 20 20 20 20 | 20 22 45 4d 41 43 53 3d |..      | "EMACS=|
|00000d30| 74 22 29 29 29 0a 21 20 | 09 20 20 20 70 72 6f 63 |t"))).! |.   proc|
|00000d40| 29 0a 21 20 0a 21 20 20 | 20 20 20 20 20 28 72 75 |).! .!  |     (ru|
|00000d50| 6e 2d 68 6f 6f 6b 73 20 | 27 63 6f 6d 69 6e 74 2d |n-hooks |'comint-|
|00000d60| 65 6e 76 2d 68 6f 6f 6b | 29 0a 21 20 20 20 20 20 |env-hook|).!     |
|00000d70| 20 20 28 73 65 74 71 20 | 70 72 6f 63 20 28 61 70 |  (setq |proc (ap|
|00000d80| 70 6c 79 20 27 73 74 61 | 72 74 2d 70 72 6f 63 65 |ply 'sta|rt-proce|
|00000d90| 73 73 20 6e 61 6d 65 20 | 62 75 66 66 65 72 20 63 |ss name |buffer c|
|00000da0| 6f 6d 6d 61 6e 64 20 73 | 77 69 74 63 68 65 73 29 |ommand s|witches)|
|00000db0| 29 0a 20 20 20 20 20 20 | 20 20 28 6d 61 6b 65 2d |).      |  (make-|
|00000dc0| 76 61 72 69 61 62 6c 65 | 2d 62 75 66 66 65 72 2d |variable|-buffer-|
|00000dd0| 6c 6f 63 61 6c 20 27 63 | 6f 6d 69 6e 74 2d 70 74 |local 'c|omint-pt|
|00000de0| 79 70 29 0a 20 20 20 20 | 20 20 20 20 28 73 65 74 |yp).    |    (set|
|00000df0| 71 20 63 6f 6d 69 6e 74 | 2d 70 74 79 70 20 70 72 |q comint|-ptyp pr|
|00000e00| 6f 63 65 73 73 2d 63 6f | 6e 6e 65 63 74 69 6f 6e |ocess-co|nnection|
|00000e10| 2d 74 79 70 65 29 20 3b | 20 54 20 69 66 20 70 74 |-type) ;| T if pt|
|00000e20| 79 2c 20 4e 49 4c 20 69 | 66 20 70 69 70 65 2e 0a |y, NIL i|f pipe..|
|00000e30| 2b 20 20 20 20 20 20 20 | 28 72 75 6e 2d 68 6f 6f |+       |(run-hoo|
|00000e40| 6b 73 20 27 63 6f 6d 69 | 6e 74 2d 65 78 65 63 2d |ks 'comi|nt-exec-|
|00000e50| 68 6f 6f 6b 29 0a 20 20 | 20 20 20 20 20 20 3b 3b |hook).  |      ;;|
|00000e60| 20 4a 75 6d 70 20 74 6f | 20 74 68 65 20 65 6e 64 | Jump to| the end|
|00000e70| 2c 20 61 6e 64 20 73 65 | 74 20 74 68 65 20 70 72 |, and se|t the pr|
|00000e80| 6f 63 65 73 73 20 6d 61 | 72 6b 2e 0a 20 20 20 20 |ocess ma|rk..    |
|00000e90| 20 20 20 20 28 67 6f 74 | 6f 2d 63 68 61 72 20 28 |    (got|o-char (|
|00000ea0| 70 6f 69 6e 74 2d 6d 61 | 78 29 29 0a 20 20 20 20 |point-ma|x)).    |
|00000eb0| 20 20 20 20 28 73 65 74 | 2d 6d 61 72 6b 65 72 20 |    (set|-marker |
|00000ec0| 28 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 70 72 |(process|-mark pr|
|00000ed0| 6f 63 29 20 28 70 6f 69 | 6e 74 29 29 29 0a 2a 2a |oc) (poi|nt))).**|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00000ef0| 2a 20 33 31 36 2c 33 34 | 33 20 2a 2a 2a 2a 0a 20 |* 316,34|3 ****. |
|00000f00| 20 0a 20 20 3b 3b 20 54 | 68 69 73 20 69 73 20 6a | .  ;; T|his is j|
|00000f10| 75 73 74 20 28 61 70 70 | 65 6e 64 20 6e 65 77 20 |ust (app|end new |
|00000f20| 6f 6c 64 2d 65 6e 76 29 | 20 74 68 61 74 20 63 6f |old-env)| that co|
|00000f30| 6d 70 72 65 73 73 65 73 | 20 6f 75 74 20 73 68 61 |mpresses| out sha|
|00000f40| 64 6f 77 65 64 20 65 6e | 74 72 69 65 73 2e 0a 20 |dowed en|tries.. |
|00000f50| 20 3b 3b 20 49 74 27 73 | 20 61 6c 73 6f 20 70 72 | ;; It's| also pr|
|00000f60| 65 74 74 79 20 75 67 6c | 79 2c 20 6d 6f 73 74 6c |etty ugl|y, mostl|
|00000f70| 79 20 64 75 65 20 74 6f | 20 65 6c 69 73 70 27 73 |y due to| elisp's|
|00000f80| 20 68 6f 72 72 69 62 6c | 65 20 69 74 65 72 61 74 | horribl|e iterat|
|00000f90| 69 6f 6e 20 73 74 72 75 | 63 74 75 72 65 73 2e 0a |ion stru|ctures..|
|00000fa0| 2d 20 28 64 65 66 75 6e | 20 63 6f 6d 69 6e 74 2d |- (defun| comint-|
|00000fb0| 75 70 64 61 74 65 2d 65 | 6e 76 20 28 6f 6c 64 2d |update-e|nv (old-|
|00000fc0| 65 6e 76 20 6e 65 77 29 | 0a 2d 20 20 20 28 6c 65 |env new)|.-   (le|
|00000fd0| 74 20 28 28 61 6e 73 20 | 28 72 65 76 65 72 73 65 |t ((ans |(reverse|
|00000fe0| 20 6e 65 77 29 29 0a 2d | 20 09 28 76 61 72 73 20 | new)).-| .(vars |
|00000ff0| 28 6d 61 70 63 61 72 20 | 28 66 75 6e 63 74 69 6f |(mapcar |(functio|
|00001000| 6e 20 28 6c 61 6d 62 64 | 61 20 28 76 76 29 0a 2d |n (lambd|a (vv).-|
|00001010| 20 09 09 09 28 61 6e 64 | 20 28 73 74 72 69 6e 67 | ...(and| (string|
|00001020| 2d 6d 61 74 63 68 20 22 | 5e 5b 5e 3d 5d 2a 3d 22 |-match "|^[^=]*="|
|00001030| 20 76 76 29 0a 2d 20 09 | 09 09 20 20 20 20 20 28 | vv).- .|..     (|
|00001040| 73 75 62 73 74 72 69 6e | 67 20 76 76 20 30 20 28 |substrin|g vv 0 (|
|00001050| 6d 61 74 63 68 2d 65 6e | 64 20 30 29 29 29 29 29 |match-en|d 0)))))|
|00001060| 0a 2d 20 09 09 20 20 20 | 20 20 20 6e 65 77 29 29 |.- ..   |   new))|
|00001070| 29 0a 2d 20 20 20 20 20 | 28 77 68 69 6c 65 20 6f |).-     |(while o|
|00001080| 6c 64 2d 65 6e 76 0a 2d | 20 20 20 20 20 20 20 28 |ld-env.-|       (|
|00001090| 6c 65 74 2a 20 28 28 76 | 76 20 28 63 61 72 20 6f |let* ((v|v (car o|
|000010a0| 6c 64 2d 65 6e 76 29 29 | 20 3b 20 76 76 20 69 73 |ld-env))| ; vv is|
|000010b0| 20 76 61 72 3d 76 61 6c | 75 65 0a 2d 20 09 20 20 | var=val|ue.- .  |
|000010c0| 20 20 20 28 76 61 72 20 | 28 61 6e 64 20 28 73 74 |   (var |(and (st|
|000010d0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 5b 5e 3d |ring-mat|ch "^[^=|
|000010e0| 5d 2a 3d 22 20 76 76 29 | 0a 2d 20 09 09 20 20 20 |]*=" vv)|.- ..   |
|000010f0| 20 20 20 20 28 73 75 62 | 73 74 72 69 6e 67 20 76 |    (sub|string v|
|00001100| 76 20 30 20 28 6d 61 74 | 63 68 2d 65 6e 64 20 30 |v 0 (mat|ch-end 0|
|00001110| 29 29 29 29 29 0a 2d 20 | 09 28 73 65 74 71 20 6f |))))).- |.(setq o|
|00001120| 6c 64 2d 65 6e 76 20 28 | 63 64 72 20 6f 6c 64 2d |ld-env (|cdr old-|
|00001130| 65 6e 76 29 29 0a 2d 20 | 09 28 63 61 74 63 68 20 |env)).- |.(catch |
|00001140| 27 61 6c 72 65 61 64 79 | 0a 2d 20 09 20 20 28 69 |'already|.- .  (i|
|00001150| 66 20 76 61 72 0a 2d 20 | 09 20 20 20 20 20 20 28 |f var.- |.      (|
|00001160| 6c 65 74 20 28 28 76 61 | 72 73 20 76 61 72 73 29 |let ((va|rs vars)|
|00001170| 29 0a 2d 20 09 09 28 77 | 68 69 6c 65 20 76 61 72 |).- ..(w|hile var|
|00001180| 73 0a 2d 20 09 09 20 20 | 28 6c 65 74 20 28 28 6e |s.- ..  |(let ((n|
|00001190| 76 61 72 20 28 63 61 72 | 20 76 61 72 73 29 29 29 |var (car| vars)))|
|000011a0| 0a 2d 20 09 09 20 20 20 | 20 28 73 65 74 71 20 76 |.- ..   | (setq v|
|000011b0| 61 72 73 20 28 63 64 72 | 20 76 61 72 73 29 29 0a |ars (cdr| vars)).|
|000011c0| 2d 20 09 09 20 20 20 20 | 28 69 66 20 28 61 6e 64 |- ..    |(if (and|
|000011d0| 20 6e 76 61 72 20 28 73 | 74 72 69 6e 67 3d 20 76 | nvar (s|tring= v|
|000011e0| 61 72 20 6e 76 61 72 29 | 29 20 28 74 68 72 6f 77 |ar nvar)|) (throw|
|000011f0| 20 27 61 6c 72 65 61 64 | 79 20 6e 69 6c 29 29 29 | 'alread|y nil)))|
|00001200| 29 29 29 0a 2d 20 09 20 | 20 28 73 65 74 71 20 76 |))).- . | (setq v|
|00001210| 61 72 73 20 28 63 6f 6e | 73 20 76 61 72 20 76 61 |ars (con|s var va|
|00001220| 72 73 29 29 0a 2d 20 09 | 20 20 28 73 65 74 71 20 |rs)).- .|  (setq |
|00001230| 61 6e 73 20 28 63 6f 6e | 73 20 76 76 20 61 6e 73 |ans (con|s vv ans|
|00001240| 29 29 29 29 29 0a 2d 20 | 20 20 20 20 28 6e 72 65 |))))).- |    (nre|
|00001250| 76 65 72 73 65 20 61 6e | 73 29 29 29 0a 2d 20 0a |verse an|s))).- .|
|00001260| 20 20 28 64 65 66 75 6e | 20 63 6f 6d 69 6e 74 2d |  (defun| comint-|
|00001270| 75 70 64 61 74 65 2d 65 | 6e 76 20 28 6f 6c 64 2d |update-e|nv (old-|
|00001280| 65 6e 76 20 6e 65 77 29 | 0a 20 20 20 20 28 6c 65 |env new)|.    (le|
|00001290| 74 20 28 28 61 6e 73 20 | 28 72 65 76 65 72 73 65 |t ((ans |(reverse|
|000012a0| 20 6e 65 77 29 29 0a 20 | 20 09 28 76 61 72 73 20 | new)). | .(vars |
|000012b0| 28 6d 61 70 63 61 72 20 | 28 66 75 6e 63 74 69 6f |(mapcar |(functio|
|000012c0| 6e 20 28 6c 61 6d 62 64 | 61 20 28 76 76 29 0a 2d |n (lambd|a (vv).-|
|000012d0| 2d 2d 20 33 33 35 2c 33 | 34 30 20 2d 2d 2d 2d 0a |-- 335,3|40 ----.|
|000012e0| 2d 2d 0a 4d 69 63 68 61 | 65 6c 20 4d 65 69 73 73 |--.Micha|el Meiss|
|000012f0| 6e 65 72 09 65 6d 61 69 | 6c 3a 20 6d 65 69 73 73 |ner.emai|l: meiss|
|00001300| 6e 65 72 40 6f 73 66 2e | 6f 72 67 09 09 70 68 6f |ner@osf.|org..pho|
|00001310| 6e 65 3a 20 36 31 37 2d | 36 32 31 2d 38 38 36 31 |ne: 617-|621-8861|
|00001320| 0a 4f 70 65 6e 20 53 6f | 66 74 77 61 72 65 20 46 |.Open So|ftware F|
|00001330| 6f 75 6e 64 61 74 69 6f | 6e 2c 20 31 31 20 43 61 |oundatio|n, 11 Ca|
|00001340| 6d 62 72 69 64 67 65 20 | 43 65 6e 74 65 72 2c 20 |mbridge |Center, |
|00001350| 43 61 6d 62 72 69 64 67 | 65 2c 20 4d 41 0a 0a 43 |Cambridg|e, MA..C|
|00001360| 61 74 70 72 6f 6f 66 20 | 69 73 20 61 6e 20 6f 78 |atproof |is an ox|
|00001370| 79 6d 6f 72 6f 6e 2c 20 | 43 68 69 6c 64 70 72 6f |ymoron, |Childpro|
|00001380| 6f 66 20 69 73 20 6e 65 | 61 72 6c 79 20 73 6f 0a |of is ne|arly so.|
|00001390| 0a 0a                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+