home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 21.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 32 3a 33 33 3a 31 | 35 20 31 39 39 33 0a 3b | 22:33:1|5 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 63 6f 6d | 69 6e 74 2e 65 6c 0a 3b |lisp/com|int.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))). |
|00000190| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c2 c3 |(byte-co|de "....|
|000001d0| 21 87 22 20 5b 22 32 2e | 30 33 22 20 63 6f 6d 69 |!." ["2.|03" comi|
|000001e0| 6e 74 2d 76 65 72 73 69 | 6f 6e 20 72 65 71 75 69 |nt-versi|on requi|
|000001f0| 72 65 20 72 69 6e 67 5d | 20 32 29 0a 28 64 65 66 |re ring]| 2).(def|
|00000200| 76 61 72 20 63 6f 6d 69 | 6e 74 2d 70 72 6f 6d 70 |var comi|nt-promp|
|00000210| 74 2d 72 65 67 65 78 70 | 20 22 5e 22 20 22 5c 0a |t-regexp| "^" "\.|
|00000220| 52 65 67 65 78 70 20 74 | 6f 20 72 65 63 6f 67 6e |Regexp t|o recogn|
|00000230| 69 73 65 20 70 72 6f 6d | 70 74 73 20 69 6e 20 74 |ise prom|pts in t|
|00000240| 68 65 20 69 6e 66 65 72 | 69 6f 72 20 70 72 6f 63 |he infer|ior proc|
|00000250| 65 73 73 2e 0a 44 65 66 | 61 75 6c 74 73 20 74 6f |ess..Def|aults to|
|00000260| 20 5c 22 5e 5c 22 2c 20 | 74 68 65 20 6e 75 6c 6c | \"^\", |the null|
|00000270| 20 73 74 72 69 6e 67 20 | 61 74 20 42 4f 4c 2e 0a | string |at BOL..|
|00000280| 0a 47 6f 6f 64 20 63 68 | 6f 69 63 65 73 3a 0a 20 |.Good ch|oices:. |
|00000290| 20 43 61 6e 6f 6e 69 63 | 61 6c 20 4c 69 73 70 3a | Canonic|al Lisp:|
|000002a0| 20 5c 22 5e 5b 5e 3e 20 | 5d 2a 3e 2b 3a 3f 20 2a | \"^[^> |]*>+:? *|
|000002b0| 5c 22 20 28 4c 75 63 69 | 64 2c 20 66 72 61 6e 7a |\" (Luci|d, franz|
|000002c0| 2c 20 6b 63 6c 2c 20 54 | 2c 20 63 73 63 68 65 6d |, kcl, T|, cschem|
|000002d0| 65 2c 20 6f 61 6b 6c 69 | 73 70 29 0a 20 20 4c 75 |e, oakli|sp). Lu|
|000002e0| 63 69 64 20 43 6f 6d 6d | 6f 6e 20 4c 69 73 70 3a |cid Comm|on Lisp:|
|000002f0| 20 5c 22 5e 5c 5c 5c 5c | 28 3e 5c 5c 5c 5c 7c 5c | \"^\\\\|(>\\\\|\|
|00000300| 5c 5c 5c 28 2d 3e 5c 5c | 5c 5c 29 2b 5c 5c 5c 5c |\\\(->\\|\\)+\\\\|
|00000310| 29 20 2a 5c 22 0a 20 20 | 66 72 61 6e 7a 3a 20 5c |) *\". |franz: \|
|00000320| 22 5e 5c 5c 5c 5c 28 2d | 3e 5c 5c 5c 5c 7c 3c 5b |"^\\\\(-|>\\\\|<[|
|00000330| 30 2d 39 5d 2a 3e 3a 5c | 5c 5c 5c 29 20 2a 5c 22 |0-9]*>:\|\\\) *\"|
|00000340| 0a 20 20 6b 63 6c 3a 20 | 5c 22 5e 3e 2b 20 2a 5c |. kcl: |\"^>+ *\|
|00000350| 22 0a 20 20 73 68 65 6c | 6c 3a 20 5c 22 5e 5b 5e |". shel|l: \"^[^|
|00000360| 23 24 25 3e 5d 2a 5b 23 | 24 25 3e 5d 20 2a 5c 22 |#$%>]*[#|$%>] *\"|
|00000370| 0a 20 20 54 3a 20 5c 22 | 5e 3e 2b 20 2a 5c 22 0a |. T: \"|^>+ *\".|
|00000380| 0a 54 68 69 73 20 69 73 | 20 61 20 67 6f 6f 64 20 |.This is| a good |
|00000390| 74 68 69 6e 67 20 74 6f | 20 73 65 74 20 69 6e 20 |thing to| set in |
|000003a0| 6d 6f 64 65 20 68 6f 6f | 6b 73 2e 22 29 0a 28 64 |mode hoo|ks.").(d|
|000003b0| 65 66 76 61 72 20 63 6f | 6d 69 6e 74 2d 69 6e 70 |efvar co|mint-inp|
|000003c0| 75 74 2d 72 69 6e 67 2d | 73 69 7a 65 20 33 30 20 |ut-ring-|size 30 |
|000003d0| 22 5c 0a 53 69 7a 65 20 | 6f 66 20 69 6e 70 75 74 |"\.Size |of input|
|000003e0| 20 68 69 73 74 6f 72 79 | 20 72 69 6e 67 2e 22 29 | history| ring.")|
|000003f0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 69 6e 74 2d |.(defvar| comint-|
|00000400| 70 72 6f 63 65 73 73 2d | 65 63 68 6f 65 73 20 6e |process-|echoes n|
|00000410| 69 6c 20 22 5c 0a 2a 49 | 66 20 6e 6f 6e 2d 6e 69 |il "\.*I|f non-ni|
|00000420| 6c 2c 20 61 73 73 75 6d | 65 20 74 68 61 74 20 74 |l, assum|e that t|
|00000430| 68 65 20 73 75 62 70 72 | 6f 63 65 73 73 20 65 63 |he subpr|ocess ec|
|00000440| 68 6f 65 73 20 61 6e 79 | 20 69 6e 70 75 74 2e 0a |hoes any| input..|
|00000450| 49 66 20 73 6f 2c 20 64 | 65 6c 65 74 65 20 6f 6e |If so, d|elete on|
|00000460| 65 20 63 6f 70 79 20 6f | 66 20 74 68 65 20 69 6e |e copy o|f the in|
|00000470| 70 75 74 20 73 6f 20 74 | 68 61 74 20 6f 6e 6c 79 |put so t|hat only|
|00000480| 20 6f 6e 65 20 63 6f 70 | 79 20 65 76 65 6e 74 75 | one cop|y eventu|
|00000490| 61 6c 6c 79 0a 61 70 70 | 65 61 72 73 20 69 6e 20 |ally.app|ears in |
|000004a0| 74 68 65 20 62 75 66 66 | 65 72 2e 20 0a 0a 54 68 |the buff|er. ..Th|
|000004b0| 69 73 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 62 |is varia|ble is b|
|000004c0| 75 66 66 65 72 2d 6c 6f | 63 61 6c 2e 22 29 0a 28 |uffer-lo|cal.").(|
|000004d0| 64 65 66 76 61 72 20 63 | 6f 6d 69 6e 74 2d 67 65 |defvar c|omint-ge|
|000004e0| 74 2d 6f 6c 64 2d 69 6e | 70 75 74 20 28 71 75 6f |t-old-in|put (quo|
|000004f0| 74 65 20 63 6f 6d 69 6e | 74 2d 67 65 74 2d 6f 6c |te comin|t-get-ol|
|00000500| 64 2d 69 6e 70 75 74 2d | 64 65 66 61 75 6c 74 29 |d-input-|default)|
|00000510| 20 22 5c 0a 46 75 6e 63 | 74 69 6f 6e 20 74 68 61 | "\.Func|tion tha|
|00000520| 74 20 73 75 62 6d 69 74 | 73 20 6f 6c 64 20 74 65 |t submit|s old te|
|00000530| 78 74 20 69 6e 20 63 6f | 6d 69 6e 74 20 6d 6f 64 |xt in co|mint mod|
|00000540| 65 2e 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |e..This |function|
|00000550| 20 69 73 20 63 61 6c 6c | 65 64 20 77 68 65 6e 20 | is call|ed when |
|00000560| 72 65 74 75 72 6e 20 69 | 73 20 74 79 70 65 64 20 |return i|s typed |
|00000570| 77 68 69 6c 65 20 74 68 | 65 20 70 6f 69 6e 74 20 |while th|e point |
|00000580| 69 73 20 69 6e 20 6f 6c | 64 20 74 65 78 74 2e 0a |is in ol|d text..|
|00000590| 49 74 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 74 |It retur|ns the t|
|000005a0| 65 78 74 20 74 6f 20 62 | 65 20 73 75 62 6d 69 74 |ext to b|e submit|
|000005b0| 74 65 64 20 61 73 20 70 | 72 6f 63 65 73 73 20 69 |ted as p|rocess i|
|000005c0| 6e 70 75 74 2e 20 20 54 | 68 65 20 64 65 66 61 75 |nput. T|he defau|
|000005d0| 6c 74 20 69 73 0a 60 63 | 6f 6d 69 6e 74 2d 67 65 |lt is.`c|omint-ge|
|000005e0| 74 2d 6f 6c 64 2d 69 6e | 70 75 74 2d 64 65 66 61 |t-old-in|put-defa|
|000005f0| 75 6c 74 27 2c 20 77 68 | 69 63 68 20 67 72 61 62 |ult', wh|ich grab|
|00000600| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |s the cu|rrent li|
|00000610| 6e 65 2c 20 61 6e 64 20 | 73 74 72 69 70 73 20 6f |ne, and |strips o|
|00000620| 66 66 0a 6c 65 61 64 69 | 6e 67 20 74 65 78 74 20 |ff.leadi|ng text |
|00000630| 6d 61 74 63 68 69 6e 67 | 20 60 63 6f 6d 69 6e 74 |matching| `comint|
|00000640| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 27 2e |-prompt-|regexp'.|
|00000650| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 69 6e |").(defv|ar comin|
|00000660| 74 2d 69 6e 70 75 74 2d | 73 65 6e 74 69 6e 65 6c |t-input-|sentinel|
|00000670| 20 28 71 75 6f 74 65 20 | 69 67 6e 6f 72 65 29 20 | (quote |ignore) |
|00000680| 22 5c 0a 43 61 6c 6c 65 | 64 20 6f 6e 20 65 61 63 |"\.Calle|d on eac|
|00000690| 68 20 69 6e 70 75 74 20 | 73 75 62 6d 69 74 74 65 |h input |submitte|
|000006a0| 64 20 74 6f 20 63 6f 6d | 69 6e 74 20 6d 6f 64 65 |d to com|int mode|
|000006b0| 20 70 72 6f 63 65 73 73 | 20 62 79 20 60 63 6f 6d | process| by `com|
|000006c0| 69 6e 74 2d 73 65 6e 64 | 2d 69 6e 70 75 74 27 2e |int-send|-input'.|
|000006d0| 0a 54 68 75 73 20 69 74 | 20 63 61 6e 2c 20 66 6f |.Thus it| can, fo|
|000006e0| 72 20 69 6e 73 74 61 6e | 63 65 2c 20 74 72 61 63 |r instan|ce, trac|
|000006f0| 6b 20 63 64 2f 70 75 73 | 68 64 2f 70 6f 70 64 20 |k cd/pus|hd/popd |
|00000700| 63 6f 6d 6d 61 6e 64 73 | 20 69 73 73 75 65 64 20 |commands| issued |
|00000710| 74 6f 20 74 68 65 20 63 | 73 68 2e 22 29 0a 28 64 |to the c|sh.").(d|
|00000720| 65 66 76 61 72 20 63 6f | 6d 69 6e 74 2d 69 6e 70 |efvar co|mint-inp|
|00000730| 75 74 2d 66 69 6c 74 65 | 72 20 23 5b 28 73 74 72 |ut-filte|r #[(str|
|00000740| 29 20 22 c0 c1 5c 6e 5c | 22 3f 87 22 20 5b 73 74 |) "..\n\|"?." [st|
|00000750| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 60 5c |ring-mat|ch "\\`\|
|00000760| 5c 73 20 2a 5c 5c 27 22 | 20 73 74 72 5d 20 33 5d |\s *\\'"| str] 3]|
|00000770| 20 22 5c 0a 50 72 65 64 | 69 63 61 74 65 20 66 6f | "\.Pred|icate fo|
|00000780| 72 20 66 69 6c 74 65 72 | 69 6e 67 20 61 64 64 69 |r filter|ing addi|
|00000790| 74 69 6f 6e 73 20 74 6f | 20 69 6e 70 75 74 20 68 |tions to| input h|
|000007a0| 69 73 74 6f 72 79 2e 0a | 4f 6e 6c 79 20 69 6e 70 |istory..|Only inp|
|000007b0| 75 74 73 20 61 6e 73 77 | 65 72 69 6e 67 20 74 72 |uts answ|ering tr|
|000007c0| 75 65 20 74 6f 20 74 68 | 69 73 20 66 75 6e 63 74 |ue to th|is funct|
|000007d0| 69 6f 6e 20 61 72 65 20 | 73 61 76 65 64 20 6f 6e |ion are |saved on|
|000007e0| 20 74 68 65 20 69 6e 70 | 75 74 0a 68 69 73 74 6f | the inp|ut.histo|
|000007f0| 72 79 20 6c 69 73 74 2e | 20 20 44 65 66 61 75 6c |ry list.| Defaul|
|00000800| 74 20 69 73 20 74 6f 20 | 73 61 76 65 20 61 6e 79 |t is to |save any|
|00000810| 74 68 69 6e 67 20 74 68 | 61 74 20 69 73 6e 27 74 |thing th|at isn't|
|00000820| 20 61 6c 6c 20 77 68 69 | 74 65 73 70 61 63 65 22 | all whi|tespace"|
|00000830| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 69 6e 74 |).(defva|r comint|
|00000840| 2d 69 6e 70 75 74 2d 73 | 65 6e 64 65 72 20 28 71 |-input-s|ender (q|
|00000850| 75 6f 74 65 20 63 6f 6d | 69 6e 74 2d 73 69 6d 70 |uote com|int-simp|
|00000860| 6c 65 2d 73 65 6e 64 29 | 20 22 5c 0a 46 75 6e 63 |le-send)| "\.Func|
|00000870| 74 69 6f 6e 20 74 6f 20 | 61 63 74 75 61 6c 6c 79 |tion to |actually|
|00000880| 20 73 65 6e 64 20 74 6f | 20 50 52 4f 43 45 53 53 | send to| PROCESS|
|00000890| 20 74 68 65 20 53 54 52 | 49 4e 47 20 73 75 62 6d | the STR|ING subm|
|000008a0| 69 74 74 65 64 20 62 79 | 20 75 73 65 72 2e 0a 55 |itted by| user..U|
|000008b0| 73 75 61 6c 6c 79 20 74 | 68 69 73 20 69 73 20 6a |sually t|his is j|
|000008c0| 75 73 74 20 60 63 6f 6d | 69 6e 74 2d 73 69 6d 70 |ust `com|int-simp|
|000008d0| 6c 65 2d 73 65 6e 64 27 | 2c 20 62 75 74 20 69 66 |le-send'|, but if|
|000008e0| 20 79 6f 75 72 20 6d 6f | 64 65 20 6e 65 65 64 73 | your mo|de needs|
|000008f0| 20 74 6f 20 0a 6d 61 73 | 73 61 67 65 20 74 68 65 | to .mas|sage the|
|00000900| 20 69 6e 70 75 74 20 73 | 74 72 69 6e 67 2c 20 70 | input s|tring, p|
|00000910| 75 74 20 61 20 64 69 66 | 66 65 72 65 6e 74 20 66 |ut a dif|ferent f|
|00000920| 75 6e 63 74 69 6f 6e 20 | 68 65 72 65 2e 0a 60 63 |unction |here..`c|
|00000930| 6f 6d 69 6e 74 2d 73 69 | 6d 70 6c 65 2d 73 65 6e |omint-si|mple-sen|
|00000940| 64 27 20 6a 75 73 74 20 | 73 65 6e 64 73 20 74 68 |d' just |sends th|
|00000950| 65 20 73 74 72 69 6e 67 | 20 70 6c 75 73 20 61 20 |e string| plus a |
|00000960| 6e 65 77 6c 69 6e 65 2e | 0a 54 68 69 73 20 69 73 |newline.|.This is|
|00000970| 20 63 61 6c 6c 65 64 20 | 66 72 6f 6d 20 74 68 65 | called |from the|
|00000980| 20 75 73 65 72 20 63 6f | 6d 6d 61 6e 64 20 60 63 | user co|mmand `c|
|00000990| 6f 6d 69 6e 74 2d 73 65 | 6e 64 2d 69 6e 70 75 74 |omint-se|nd-input|
|000009a0| 27 2e 22 29 0a 28 64 65 | 66 76 61 72 20 63 6f 6d |'.").(de|fvar com|
|000009b0| 69 6e 74 2d 65 6f 6c 2d | 6f 6e 2d 73 65 6e 64 20 |int-eol-|on-send |
|000009c0| 74 20 22 5c 0a 2a 4e 6f | 6e 2d 6e 69 6c 20 6d 65 |t "\.*No|n-nil me|
|000009d0| 61 6e 73 20 67 6f 20 74 | 6f 20 74 68 65 20 65 6e |ans go t|o the en|
|000009e0| 64 20 6f 66 20 74 68 65 | 20 6c 69 6e 65 20 62 65 |d of the| line be|
|000009f0| 66 6f 72 65 20 73 65 6e | 64 69 6e 67 20 69 6e 70 |fore sen|ding inp|
|00000a00| 75 74 20 74 6f 20 70 72 | 6f 63 65 73 73 2e 0a 53 |ut to pr|ocess..S|
|00000a10| 65 65 20 60 63 6f 6d 69 | 6e 74 2d 73 65 6e 64 2d |ee `comi|nt-send-|
|00000a20| 69 6e 70 75 74 27 2e 22 | 29 0a 28 64 65 66 76 61 |input'."|).(defva|
|00000a30| 72 20 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 2d 68 6f |r comint|-mode-ho|
|00000a40| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 43 61 6c 6c 65 64 |ok nil "|\.Called|
|00000a50| 20 75 70 6f 6e 20 65 6e | 74 72 79 20 69 6e 74 6f | upon en|try into|
|00000a60| 20 63 6f 6d 69 6e 74 2d | 6d 6f 64 65 0a 54 68 69 | comint-|mode.Thi|
|00000a70| 73 20 69 73 20 72 75 6e | 20 62 65 66 6f 72 65 20 |s is run| before |
|00000a80| 74 68 65 20 70 72 6f 63 | 65 73 73 20 69 73 20 63 |the proc|ess is c|
|00000a90| 72 61 6e 6b 65 64 20 75 | 70 2e 22 29 0a 28 64 65 |ranked u|p.").(de|
|00000aa0| 66 76 61 72 20 63 6f 6d | 69 6e 74 2d 65 78 65 63 |fvar com|int-exec|
|00000ab0| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 22 5c 0a 43 61 6c |-hook ni|l "\.Cal|
|00000ac0| 6c 65 64 20 65 61 63 68 | 20 74 69 6d 65 20 61 20 |led each| time a |
|00000ad0| 70 72 6f 63 65 73 73 20 | 69 73 20 65 78 65 63 27 |process |is exec'|
|00000ae0| 64 20 62 79 20 60 63 6f | 6d 69 6e 74 2d 65 78 65 |d by `co|mint-exe|
|00000af0| 63 27 2e 0a 54 68 69 73 | 20 69 73 20 63 61 6c 6c |c'..This| is call|
|00000b00| 65 64 20 61 66 74 65 72 | 20 74 68 65 20 70 72 6f |ed after| the pro|
|00000b10| 63 65 73 73 20 69 73 20 | 63 72 61 6e 6b 65 64 20 |cess is |cranked |
|00000b20| 75 70 2e 20 20 49 74 20 | 69 73 20 75 73 65 66 75 |up. It |is usefu|
|00000b30| 6c 20 66 6f 72 20 74 68 | 69 6e 67 73 20 74 68 61 |l for th|ings tha|
|00000b40| 74 0a 6d 75 73 74 20 62 | 65 20 64 6f 6e 65 20 65 |t.must b|e done e|
|00000b50| 61 63 68 20 74 69 6d 65 | 20 61 20 70 72 6f 63 65 |ach time| a proce|
|00000b60| 73 73 20 69 73 20 65 78 | 65 63 75 74 65 64 20 69 |ss is ex|ecuted i|
|00000b70| 6e 20 61 20 63 6f 6d 69 | 6e 74 20 6d 6f 64 65 20 |n a comi|nt mode |
|00000b80| 62 75 66 66 65 72 20 28 | 65 2e 67 2e 2c 0a 60 28 |buffer (|e.g.,.`(|
|00000b90| 70 72 6f 63 65 73 73 2d | 6b 69 6c 6c 2d 77 69 74 |process-|kill-wit|
|00000ba0| 68 6f 75 74 2d 71 75 65 | 72 79 29 27 29 2e 20 20 |hout-que|ry)'). |
|00000bb0| 49 6e 20 63 6f 6e 74 72 | 61 73 74 2c 20 74 68 65 |In contr|ast, the|
|00000bc0| 20 60 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 2d 68 6f | `comint|-mode-ho|
|00000bd0| 6f 6b 27 20 69 73 20 6f | 6e 6c 79 0a 65 78 65 63 |ok' is o|nly.exec|
|00000be0| 75 74 65 64 20 6f 6e 63 | 65 20 77 68 65 6e 20 74 |uted onc|e when t|
|00000bf0| 68 65 20 62 75 66 66 65 | 72 20 69 73 20 63 72 65 |he buffe|r is cre|
|00000c00| 61 74 65 64 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ated.").|(byte-co|
|00000c10| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 c2 87 22 20 |de "..!.|......" |
|00000c20| 5b 62 6f 75 6e 64 70 20 | 63 6f 6d 69 6e 74 2d 6d |[boundp |comint-m|
|00000c30| 6f 64 65 2d 6d 61 70 20 | 6e 69 6c 5d 20 32 29 0a |ode-map |nil] 2).|
|00000c40| 28 64 65 66 76 61 72 20 | 63 6f 6d 69 6e 74 2d 70 |(defvar |comint-p|
|00000c50| 74 79 70 20 74 20 22 5c | 0a 54 72 75 65 20 69 66 |typ t "\|.True if|
|00000c60| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 20 | communi|cations |
|00000c70| 76 69 61 20 70 74 79 3b | 20 66 61 6c 73 65 20 69 |via pty;| false i|
|00000c80| 66 20 62 79 20 70 69 70 | 65 2e 20 20 42 75 66 66 |f by pip|e. Buff|
|00000c90| 65 72 20 6c 6f 63 61 6c | 2e 0a 54 68 69 73 20 69 |er local|..This i|
|00000ca0| 73 20 74 6f 20 77 6f 72 | 6b 20 61 72 6f 75 6e 64 |s to wor|k around|
|00000cb0| 20 61 20 62 75 67 20 69 | 6e 20 45 6d 61 63 73 20 | a bug i|n Emacs |
|00000cc0| 70 72 6f 63 65 73 73 20 | 73 69 67 6e 61 6c 6c 69 |process |signalli|
|00000cd0| 6e 67 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ng.").(b|yte-code|
|00000ce0| 20 22 c0 c1 21 84 08 00 | c2 11 c3 c1 c4 c5 23 88 | "..!...|......#.|
|00000cf0| c3 c6 c4 c5 23 87 22 20 | 5b 62 6f 75 6e 64 70 20 |....#." |[boundp |
|00000d00| 63 6f 6d 69 6e 74 2d 69 | 6e 70 75 74 2d 72 69 6e |comint-i|nput-rin|
|00000d10| 67 20 6e 69 6c 20 70 75 | 74 20 70 65 72 6d 61 6e |g nil pu|t perman|
|00000d20| 65 6e 74 2d 6c 6f 63 61 | 6c 20 74 20 63 6f 6d 69 |ent-loca|l t comi|
|00000d30| 6e 74 2d 70 74 79 70 5d | 20 34 29 0a 28 64 65 66 |nt-ptyp]| 4).(def|
|00000d40| 61 6c 69 61 73 20 27 63 | 6f 6d 69 6e 74 2d 6d 6f |alias 'c|omint-mo|
|00000d50| 64 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 12 c3 |de #[nil| ". ....|
|00000d60| 14 c5 16 06 c7 0e 08 21 | 88 c9 ca 21 88 cb 20 16 |.......!|...!.. .|
|00000d70| 5c 6e c9 cc 21 88 cb 20 | 16 0c c9 cd 21 88 c9 ce |\n..!.. |....!...|
|00000d80| 21 88 c9 cf 21 88 c9 d0 | 21 88 d1 16 10 c9 d2 21 |!...!...|!......!|
|00000d90| 88 c9 d3 21 88 c9 d4 21 | 88 c9 d5 21 88 c9 d6 21 |...!...!|...!...!|
|00000da0| 88 c9 d7 21 88 c9 d8 21 | 88 c9 d9 21 88 da db 21 |...!...!|...!...!|
|00000db0| 88 0e 0f 86 62 00 dc 0e | 0e 21 89 16 0f 87 22 20 |....b...|.!...." |
|00000dc0| 5b 6b 69 6c 6c 2d 61 6c | 6c 2d 6c 6f 63 61 6c 2d |[kill-al|l-local-|
|00000dd0| 76 61 72 69 61 62 6c 65 | 73 20 63 6f 6d 69 6e 74 |variable|s comint|
|00000de0| 2d 6d 6f 64 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-mode ma|jor-mode|
|00000df0| 20 22 43 6f 6d 69 6e 74 | 22 20 6d 6f 64 65 2d 6e | "Comint|" mode-n|
|00000e00| 61 6d 65 20 28 22 3a 20 | 25 73 22 29 20 6d 6f 64 |ame (": |%s") mod|
|00000e10| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 20 75 |e-line-p|rocess u|
|00000e20| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 63 6f 6d |se-local|-map com|
|00000e30| 69 6e 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |int-mode|-map mak|
|00000e40| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|00000e50| 20 63 6f 6d 69 6e 74 2d | 6c 61 73 74 2d 69 6e 70 | comint-|last-inp|
|00000e60| 75 74 2d 73 74 61 72 74 | 20 6d 61 6b 65 2d 6d 61 |ut-start| make-ma|
|00000e70| 72 6b 65 72 20 63 6f 6d | 69 6e 74 2d 6c 61 73 74 |rker com|int-last|
|00000e80| 2d 69 6e 70 75 74 2d 65 | 6e 64 20 63 6f 6d 69 6e |-input-e|nd comin|
|00000e90| 74 2d 70 72 6f 6d 70 74 | 2d 72 65 67 65 78 70 20 |t-prompt|-regexp |
|00000ea0| 63 6f 6d 69 6e 74 2d 69 | 6e 70 75 74 2d 72 69 6e |comint-i|nput-rin|
|00000eb0| 67 2d 73 69 7a 65 20 63 | 6f 6d 69 6e 74 2d 69 6e |g-size c|omint-in|
|00000ec0| 70 75 74 2d 72 69 6e 67 | 20 63 6f 6d 69 6e 74 2d |put-ring| comint-|
|00000ed0| 69 6e 70 75 74 2d 72 69 | 6e 67 2d 69 6e 64 65 78 |input-ri|ng-index|
|00000ee0| 20 30 20 63 6f 6d 69 6e | 74 2d 67 65 74 2d 6f 6c | 0 comin|t-get-ol|
|00000ef0| 64 2d 69 6e 70 75 74 20 | 63 6f 6d 69 6e 74 2d 69 |d-input |comint-i|
|00000f00| 6e 70 75 74 2d 73 65 6e | 74 69 6e 65 6c 20 63 6f |nput-sen|tinel co|
|00000f10| 6d 69 6e 74 2d 69 6e 70 | 75 74 2d 66 69 6c 74 65 |mint-inp|ut-filte|
|00000f20| 72 20 63 6f 6d 69 6e 74 | 2d 69 6e 70 75 74 2d 73 |r comint|-input-s|
|00000f30| 65 6e 64 65 72 20 63 6f | 6d 69 6e 74 2d 65 6f 6c |ender co|mint-eol|
|00000f40| 2d 6f 6e 2d 73 65 6e 64 | 20 63 6f 6d 69 6e 74 2d |-on-send| comint-|
|00000f50| 70 74 79 70 20 63 6f 6d | 69 6e 74 2d 65 78 65 63 |ptyp com|int-exec|
|00000f60| 2d 68 6f 6f 6b 20 63 6f | 6d 69 6e 74 2d 70 72 6f |-hook co|mint-pro|
|00000f70| 63 65 73 73 2d 65 63 68 | 6f 65 73 20 72 75 6e 2d |cess-ech|oes run-|
|00000f80| 68 6f 6f 6b 73 20 63 6f | 6d 69 6e 74 2d 6d 6f 64 |hooks co|mint-mod|
|00000f90| 65 2d 68 6f 6f 6b 20 6d | 61 6b 65 2d 72 69 6e 67 |e-hook m|ake-ring|
|00000fa0| 5d 20 32 20 22 5c 0a 4d | 61 6a 6f 72 20 6d 6f 64 |] 2 "\.M|ajor mod|
|00000fb0| 65 20 66 6f 72 20 69 6e | 74 65 72 61 63 74 69 6e |e for in|teractin|
|00000fc0| 67 20 77 69 74 68 20 61 | 6e 20 69 6e 66 65 72 69 |g with a|n inferi|
|00000fd0| 6f 72 20 69 6e 74 65 72 | 70 72 65 74 65 72 2e 0a |or inter|preter..|
|00000fe0| 49 6e 74 65 72 70 72 65 | 74 65 72 20 6e 61 6d 65 |Interpre|ter name|
|00000ff0| 20 69 73 20 73 61 6d 65 | 20 61 73 20 62 75 66 66 | is same| as buff|
|00001000| 65 72 20 6e 61 6d 65 2c | 20 73 61 6e 73 20 74 68 |er name,| sans th|
|00001010| 65 20 61 73 74 65 72 69 | 73 6b 73 2e 0a 52 65 74 |e asteri|sks..Ret|
|00001020| 75 72 6e 20 61 74 20 65 | 6e 64 20 6f 66 20 62 75 |urn at e|nd of bu|
|00001030| 66 66 65 72 20 73 65 6e | 64 73 20 6c 69 6e 65 20 |ffer sen|ds line |
|00001040| 61 73 20 69 6e 70 75 74 | 2e 0a 52 65 74 75 72 6e |as input|..Return|
|00001050| 20 6e 6f 74 20 61 74 20 | 65 6e 64 20 63 6f 70 69 | not at |end copi|
|00001060| 65 73 20 72 65 73 74 20 | 6f 66 20 6c 69 6e 65 20 |es rest |of line |
|00001070| 74 6f 20 65 6e 64 20 61 | 6e 64 20 73 65 6e 64 73 |to end a|nd sends|
|00001080| 20 69 74 2e 0a 53 65 74 | 74 69 6e 67 20 76 61 72 | it..Set|ting var|
|00001090| 69 61 62 6c 65 20 60 63 | 6f 6d 69 6e 74 2d 65 6f |iable `c|omint-eo|
|000010a0| 6c 2d 6f 6e 2d 73 65 6e | 64 27 20 6d 65 61 6e 73 |l-on-sen|d' means|
|000010b0| 20 6a 75 6d 70 20 74 6f | 20 74 68 65 20 65 6e 64 | jump to| the end|
|000010c0| 20 6f 66 20 74 68 65 20 | 6c 69 6e 65 0a 62 65 66 | of the |line.bef|
|000010d0| 6f 72 65 20 73 75 62 6d | 69 74 74 69 6e 67 20 6e |ore subm|itting n|
|000010e0| 65 77 20 69 6e 70 75 74 | 2e 0a 0a 54 68 69 73 20 |ew input|...This |
|000010f0| 6d 6f 64 65 20 69 73 20 | 74 79 70 69 63 61 6c 6c |mode is |typicall|
|00001100| 79 20 63 75 73 74 6f 6d | 69 73 65 64 20 74 6f 20 |y custom|ised to |
|00001110| 63 72 65 61 74 65 20 49 | 6e 66 65 72 69 6f 72 20 |create I|nferior |
|00001120| 4c 69 73 70 20 6d 6f 64 | 65 2c 0a 53 68 65 6c 6c |Lisp mod|e,.Shell|
|00001130| 20 6d 6f 64 65 2c 20 65 | 74 63 2e 20 20 54 68 69 | mode, e|tc. Thi|
|00001140| 73 20 63 61 6e 20 62 65 | 20 64 6f 6e 65 20 62 79 |s can be| done by|
|00001150| 20 73 65 74 74 69 6e 67 | 20 74 68 65 20 68 6f 6f | setting| the hoo|
|00001160| 6b 73 0a 60 63 6f 6d 69 | 6e 74 2d 69 6e 70 75 74 |ks.`comi|nt-input|
|00001170| 2d 73 65 6e 74 69 6e 65 | 6c 27 2c 20 60 63 6f 6d |-sentine|l', `com|
|00001180| 69 6e 74 2d 69 6e 70 75 | 74 2d 66 69 6c 74 65 72 |int-inpu|t-filter|
|00001190| 27 2c 20 60 63 6f 6d 69 | 6e 74 2d 69 6e 70 75 74 |', `comi|nt-input|
|000011a0| 2d 73 65 6e 64 65 72 27 | 20 61 6e 64 0a 60 63 6f |-sender'| and.`co|
|000011b0| 6d 69 6e 74 2d 67 65 74 | 2d 6f 6c 64 2d 69 6e 70 |mint-get|-old-inp|
|000011c0| 75 74 27 20 74 6f 20 61 | 70 70 72 6f 70 72 69 61 |ut' to a|ppropria|
|000011d0| 74 65 20 66 75 6e 63 74 | 69 6f 6e 73 2c 20 61 6e |te funct|ions, an|
|000011e0| 64 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 0a 60 |d the va|riable.`|
|000011f0| 63 6f 6d 69 6e 74 2d 70 | 72 6f 6d 70 74 2d 72 65 |comint-p|rompt-re|
|00001200| 67 65 78 70 27 20 74 6f | 20 74 68 65 20 61 70 70 |gexp' to| the app|
|00001210| 72 6f 70 72 69 61 74 65 | 20 72 65 67 75 6c 61 72 |ropriate| regular|
|00001220| 20 65 78 70 72 65 73 73 | 69 6f 6e 2e 0a 0a 41 6e | express|ion...An|
|00001230| 20 69 6e 70 75 74 20 68 | 69 73 74 6f 72 79 20 69 | input h|istory i|
|00001240| 73 20 6d 61 69 6e 74 61 | 69 6e 65 64 20 6f 66 20 |s mainta|ined of |
|00001250| 73 69 7a 65 20 60 63 6f | 6d 69 6e 74 2d 69 6e 70 |size `co|mint-inp|
|00001260| 75 74 2d 72 69 6e 67 2d | 73 69 7a 65 27 2c 20 61 |ut-ring-|size', a|
|00001270| 6e 64 0a 63 61 6e 20 62 | 65 20 61 63 63 65 73 73 |nd.can b|e access|
|00001280| 65 64 20 77 69 74 68 20 | 74 68 65 20 63 6f 6d 6d |ed with |the comm|
|00001290| 61 6e 64 73 20 5c 5c 5b | 63 6f 6d 69 6e 74 2d 6e |ands \\[|comint-n|
|000012a0| 65 78 74 2d 69 6e 70 75 | 74 5d 20 61 6e 64 20 5c |ext-inpu|t] and \|
|000012b0| 5c 5b 63 6f 6d 69 6e 74 | 2d 70 72 65 76 69 6f 75 |\[comint|-previou|
|000012c0| 73 2d 69 6e 70 75 74 5d | 2e 0a 43 6f 6d 6d 61 6e |s-input]|..Comman|
|000012d0| 64 73 20 77 69 74 68 20 | 6e 6f 20 64 65 66 61 75 |ds with |no defau|
|000012e0| 6c 74 20 6b 65 79 20 62 | 69 6e 64 69 6e 67 73 20 |lt key b|indings |
|000012f0| 69 6e 63 6c 75 64 65 20 | 60 73 65 6e 64 2d 69 6e |include |`send-in|
|00001300| 76 69 73 69 62 6c 65 27 | 2c 0a 60 63 6f 6d 69 6e |visible'|,.`comin|
|00001310| 74 2d 64 79 6e 61 6d 69 | 63 2d 63 6f 6d 70 6c 65 |t-dynami|c-comple|
|00001320| 74 65 27 2c 20 61 6e 64 | 20 60 63 6f 6d 69 6e 74 |te', and| `comint|
|00001330| 2d 6c 69 73 74 2d 64 79 | 6e 61 6d 69 63 2d 63 6f |-list-dy|namic-co|
|00001340| 6d 70 6c 65 74 69 6f 6e | 73 27 2e 0a 0a 49 66 20 |mpletion|s'...If |
|00001350| 79 6f 75 20 61 63 63 69 | 64 65 6e 74 61 6c 6c 79 |you acci|dentally|
|00001360| 20 73 75 73 70 65 6e 64 | 20 79 6f 75 72 20 70 72 | suspend| your pr|
|00001370| 6f 63 65 73 73 2c 20 75 | 73 65 20 5c 5c 5b 63 6f |ocess, u|se \\[co|
|00001380| 6d 69 6e 74 2d 63 6f 6e | 74 69 6e 75 65 2d 73 75 |mint-con|tinue-su|
|00001390| 62 6a 6f 62 5d 0a 74 6f | 20 63 6f 6e 74 69 6e 75 |bjob].to| continu|
|000013a0| 65 20 69 74 2e 0a 0a 5c | 5c 7b 63 6f 6d 69 6e 74 |e it...\|\{comint|
|000013b0| 2d 6d 6f 64 65 2d 6d 61 | 70 7d 0a 0a 45 6e 74 72 |-mode-ma|p}..Entr|
|000013c0| 79 20 74 6f 20 74 68 69 | 73 20 6d 6f 64 65 20 72 |y to thi|s mode r|
|000013d0| 75 6e 73 20 74 68 65 20 | 68 6f 6f 6b 73 20 6f 6e |uns the |hooks on|
|000013e0| 20 63 6f 6d 69 6e 74 2d | 6d 6f 64 65 2d 68 6f 6f | comint-|mode-hoo|
|000013f0| 6b 22 20 6e 69 6c 5d 29 | 0a 28 62 79 74 65 2d 63 |k" nil])|.(byte-c|
|00001400| 6f 64 65 20 22 08 84 5b | 00 c1 20 10 c2 08 c3 c4 |ode "..[|.. .....|
|00001410| 23 88 c2 08 c5 c6 23 88 | c2 08 c7 c8 23 88 c2 08 |#.....#.|....#...|
|00001420| c9 ca 23 88 c2 08 cb cc | 23 88 c2 08 cd ce 23 88 |..#.....|#.....#.|
|00001430| c2 08 cf d0 23 88 c2 08 | d1 d2 23 88 c2 08 d3 d4 |....#...|..#.....|
|00001440| 23 88 c2 08 d5 d6 23 88 | c2 08 d7 d8 23 88 c2 08 |#.....#.|....#...|
|00001450| d9 da 23 88 c2 08 db dc | 23 88 c2 08 dd de 23 88 |..#.....|#.....#.|
|00001460| c1 87 22 20 5b 63 6f 6d | 69 6e 74 2d 6d 6f 64 65 |.." [com|int-mode|
|00001470| 2d 6d 61 70 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |-map mak|e-sparse|
|00001480| 2d 6b 65 79 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |-keymap |define-k|
|00001490| 65 79 20 22 1b 70 22 20 | 63 6f 6d 69 6e 74 2d 70 |ey ".p" |comint-p|
|000014a0| 72 65 76 69 6f 75 73 2d | 69 6e 70 75 74 20 22 1b |revious-|input ".|
|000014b0| 6e 22 20 63 6f 6d 69 6e | 74 2d 6e 65 78 74 2d 69 |n" comin|t-next-i|
|000014c0| 6e 70 75 74 20 22 1b 72 | 22 20 63 6f 6d 69 6e 74 |nput ".r|" comint|
|000014d0| 2d 70 72 65 76 69 6f 75 | 73 2d 6d 61 74 63 68 69 |-previou|s-matchi|
|000014e0| 6e 67 2d 69 6e 70 75 74 | 20 22 1b 73 22 20 63 6f |ng-input| ".s" co|
|000014f0| 6d 69 6e 74 2d 6e 65 78 | 74 2d 6d 61 74 63 68 69 |mint-nex|t-matchi|
|00001500| 6e 67 2d 69 6e 70 75 74 | 20 22 0d 22 20 63 6f 6d |ng-input| "." com|
|00001510| 69 6e 74 2d 73 65 6e 64 | 2d 69 6e 70 75 74 20 22 |int-send|-input "|
|00001520| 04 22 20 63 6f 6d 69 6e | 74 2d 64 65 6c 63 68 61 |." comin|t-delcha|
|00001530| 72 2d 6f 72 2d 6d 61 79 | 62 65 2d 65 6f 66 20 22 |r-or-may|be-eof "|
|00001540| 01 22 20 63 6f 6d 69 6e | 74 2d 62 6f 6c 20 22 03 |." comin|t-bol ".|
|00001550| 15 22 20 63 6f 6d 69 6e | 74 2d 6b 69 6c 6c 2d 69 |." comin|t-kill-i|
|00001560| 6e 70 75 74 20 22 03 17 | 22 20 62 61 63 6b 77 61 |nput "..|" backwa|
|00001570| 72 64 2d 6b 69 6c 6c 2d | 77 6f 72 64 20 22 03 03 |rd-kill-|word "..|
|00001580| 22 20 63 6f 6d 69 6e 74 | 2d 69 6e 74 65 72 72 75 |" comint|-interru|
|00001590| 70 74 2d 73 75 62 6a 6f | 62 20 22 03 1a 22 20 63 |pt-subjo|b ".." c|
|000015a0| 6f 6d 69 6e 74 2d 73 74 | 6f 70 2d 73 75 62 6a 6f |omint-st|op-subjo|
|000015b0| 62 20 22 03 1c 22 20 63 | 6f 6d 69 6e 74 2d 71 75 |b ".." c|omint-qu|
|000015c0| 69 74 2d 73 75 62 6a 6f | 62 20 22 03 0f 22 20 63 |it-subjo|b ".." c|
|000015d0| 6f 6d 69 6e 74 2d 6b 69 | 6c 6c 2d 6f 75 74 70 75 |omint-ki|ll-outpu|
|000015e0| 74 20 22 03 12 22 20 63 | 6f 6d 69 6e 74 2d 73 68 |t ".." c|omint-sh|
|000015f0| 6f 77 2d 6f 75 74 70 75 | 74 5d 20 34 29 0a 28 64 |ow-outpu|t] 4).(d|
|00001600| 65 66 61 6c 69 61 73 20 | 27 66 75 6c 6c 2d 63 6f |efalias |'full-co|
|00001610| 70 79 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |py-spars|e-keymap|
|00001620| 20 23 5b 28 6b 6d 29 20 | 22 08 3a 83 0f 00 c1 08 | #[(km) |".:.....|
|00001630| 40 21 c1 08 41 21 42 87 | 08 87 22 20 5b 6b 6d 20 |@!..A!B.|.." [km |
|00001640| 66 75 6c 6c 2d 63 6f 70 | 79 2d 73 70 61 72 73 65 |full-cop|y-sparse|
|00001650| 2d 6b 65 79 6d 61 70 5d | 20 33 20 22 5c 0a 52 65 |-keymap]| 3 "\.Re|
|00001660| 63 75 72 73 69 76 65 6c | 79 20 63 6f 70 79 20 74 |cursivel|y copy t|
|00001670| 68 65 20 73 70 61 72 73 | 65 20 6b 65 79 6d 61 70 |he spars|e keymap|
|00001680| 20 4b 4d 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 | KM."]).|(defalia|
|00001690| 73 20 27 63 6f 6d 69 6e | 74 2d 63 68 65 63 6b 2d |s 'comin|t-check-|
|000016a0| 70 72 6f 63 20 23 5b 28 | 62 75 66 66 65 72 29 20 |proc #[(|buffer) |
|000016b0| 22 c0 09 21 89 1a 85 0d | 00 c3 5c 6e 21 c4 3e 29 |"..!....|..\n!.>)|
|000016c0| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 2d 70 |." [get-|buffer-p|
|000016d0| 72 6f 63 65 73 73 20 62 | 75 66 66 65 72 20 70 72 |rocess b|uffer pr|
|000016e0| 6f 63 20 70 72 6f 63 65 | 73 73 2d 73 74 61 74 75 |oc proce|ss-statu|
|000016f0| 73 20 28 72 75 6e 20 73 | 74 6f 70 29 5d 20 33 20 |s (run s|top)] 3 |
|00001700| 22 5c 0a 54 72 75 65 20 | 69 66 20 74 68 65 72 65 |"\.True |if there|
|00001710| 20 69 73 20 61 20 6c 69 | 76 69 6e 67 20 70 72 6f | is a li|ving pro|
|00001720| 63 65 73 73 20 61 73 73 | 6f 63 69 61 74 65 64 20 |cess ass|ociated |
|00001730| 77 2f 62 75 66 66 65 72 | 20 42 55 46 46 45 52 2e |w/buffer| BUFFER.|
|00001740| 0a 4c 69 76 69 6e 67 20 | 6d 65 61 6e 73 20 74 68 |.Living |means th|
|00001750| 65 20 73 74 61 74 75 73 | 20 69 73 20 60 72 75 6e |e status| is `run|
|00001760| 27 20 6f 72 20 60 73 74 | 6f 70 27 2e 0a 42 55 46 |' or `st|op'..BUF|
|00001770| 46 45 52 20 63 61 6e 20 | 62 65 20 65 69 74 68 65 |FER can |be eithe|
|00001780| 72 20 61 20 62 75 66 66 | 65 72 20 6f 72 20 74 68 |r a buff|er or th|
|00001790| 65 20 6e 61 6d 65 20 6f | 66 20 6f 6e 65 2e 22 5d |e name o|f one."]|
|000017a0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 6b |).(defal|ias 'mak|
|000017b0| 65 2d 63 6f 6d 69 6e 74 | 20 23 5b 28 6e 61 6d 65 |e-comint| #[(name|
|000017c0| 20 70 72 6f 67 72 61 6d | 20 26 6f 70 74 69 6f 6e | program| &option|
|000017d0| 61 6c 20 73 74 61 72 74 | 66 69 6c 65 20 26 72 65 |al start|file &re|
|000017e0| 73 74 20 73 77 69 74 63 | 68 65 73 29 20 22 c0 c1 |st switc|hes) "..|
|000017f0| 5c 6e c1 51 21 1b c4 0b | 21 84 20 00 8a 0b 71 88 |\n.Q!...|!. ...q.|
|00001800| c5 20 88 29 c6 0b 5c 6e | 0e 07 0e 08 0e 09 25 88 |. .)..\n|......%.|
|00001810| 0b 29 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |.)." [ge|t-buffer|
|00001820| 2d 63 72 65 61 74 65 20 | 22 2a 22 20 6e 61 6d 65 |-create |"*" name|
|00001830| 20 62 75 66 66 65 72 20 | 63 6f 6d 69 6e 74 2d 63 | buffer |comint-c|
|00001840| 68 65 63 6b 2d 70 72 6f | 63 20 63 6f 6d 69 6e 74 |heck-pro|c comint|
|00001850| 2d 6d 6f 64 65 20 63 6f | 6d 69 6e 74 2d 65 78 65 |-mode co|mint-exe|
|00001860| 63 20 70 72 6f 67 72 61 | 6d 20 73 74 61 72 74 66 |c progra|m startf|
|00001870| 69 6c 65 20 73 77 69 74 | 63 68 65 73 5d 20 36 20 |ile swit|ches] 6 |
|00001880| 22 5c 0a 4d 61 6b 65 20 | 61 20 63 6f 6d 69 6e 74 |"\.Make |a comint|
|00001890| 20 70 72 6f 63 65 73 73 | 20 4e 41 4d 45 20 69 6e | process| NAME in|
|000018a0| 20 61 20 62 75 66 66 65 | 72 2c 20 72 75 6e 6e 69 | a buffe|r, runni|
|000018b0| 6e 67 20 50 52 4f 47 52 | 41 4d 2e 0a 54 68 65 20 |ng PROGR|AM..The |
|000018c0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 62 75 66 66 |name of |the buff|
|000018d0| 65 72 20 69 73 20 6d 61 | 64 65 20 62 79 20 73 75 |er is ma|de by su|
|000018e0| 72 72 6f 75 6e 64 69 6e | 67 20 4e 41 4d 45 20 77 |rroundin|g NAME w|
|000018f0| 69 74 68 20 60 2a 27 73 | 2e 0a 49 66 20 74 68 65 |ith `*'s|..If the|
|00001900| 72 65 20 69 73 20 61 6c | 72 65 61 64 79 20 61 20 |re is al|ready a |
|00001910| 72 75 6e 6e 69 6e 67 20 | 70 72 6f 63 65 73 73 20 |running |process |
|00001920| 69 6e 20 74 68 61 74 20 | 62 75 66 66 65 72 2c 20 |in that |buffer, |
|00001930| 69 74 20 69 73 20 6e 6f | 74 20 72 65 73 74 61 72 |it is no|t restar|
|00001940| 74 65 64 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 74 68 |ted..Opt|ional th|
|00001950| 69 72 64 20 61 72 67 20 | 53 54 41 52 54 46 49 4c |ird arg |STARTFIL|
|00001960| 45 20 69 73 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |E is the| name of|
|00001970| 20 61 20 66 69 6c 65 20 | 74 6f 20 73 65 6e 64 20 | a file |to send |
|00001980| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|00001990| 74 6f 20 0a 74 68 65 20 | 70 72 6f 63 65 73 73 2e |to .the |process.|
|000019a0| 20 20 41 6e 79 20 6d 6f | 72 65 20 61 72 67 73 20 | Any mo|re args |
|000019b0| 61 72 65 20 61 72 67 75 | 6d 65 6e 74 73 20 74 6f |are argu|ments to|
|000019c0| 20 50 52 4f 47 52 41 4d | 2e 22 5d 29 0a 28 64 65 | PROGRAM|."]).(de|
|000019d0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 65 |falias '|comint-e|
|000019e0| 78 65 63 20 23 5b 28 62 | 75 66 66 65 72 20 6e 61 |xec #[(b|uffer na|
|000019f0| 6d 65 20 63 6f 6d 6d 61 | 6e 64 20 73 74 61 72 74 |me comma|nd start|
|00001a00| 66 69 6c 65 20 73 77 69 | 74 63 68 65 73 29 20 22 |file swi|tches) "|
|00001a10| 8a 08 71 88 c1 08 21 89 | 1a 83 10 00 c3 5c 6e 21 |..q...!.|.....\n!|
|00001a20| 88 29 c4 0d 08 0e 06 0e | 07 24 1a c8 5c 6e c9 5c |.)......|.$..\n.\|
|00001a30| 22 88 ca cb 21 88 0e 0c | 16 0b 64 62 88 cd 5c 6e |"...!...|..db..\n|
|00001a40| 21 60 ce 93 88 0e 0f 83 | 51 00 d0 d1 21 88 64 62 |!`......|Q...!.db|
|00001a50| 88 d2 0e 0f 21 88 60 64 | 7b 16 0f 60 64 7c 88 d3 |....!.`d|{..`d|..|
|00001a60| 5c 6e 0e 0f 5c 22 88 d4 | d5 21 88 08 2a 87 22 20 |\n..\"..|.!..*." |
|00001a70| 5b 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |[buffer |get-buff|
|00001a80| 65 72 2d 70 72 6f 63 65 | 73 73 20 70 72 6f 63 20 |er-proce|ss proc |
|00001a90| 64 65 6c 65 74 65 2d 70 | 72 6f 63 65 73 73 20 63 |delete-p|rocess c|
|00001aa0| 6f 6d 69 6e 74 2d 65 78 | 65 63 2d 31 20 6e 61 6d |omint-ex|ec-1 nam|
|00001ab0| 65 20 63 6f 6d 6d 61 6e | 64 20 73 77 69 74 63 68 |e comman|d switch|
|00001ac0| 65 73 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 66 |es set-p|rocess-f|
|00001ad0| 69 6c 74 65 72 20 63 6f | 6d 69 6e 74 2d 66 69 6c |ilter co|mint-fil|
|00001ae0| 74 65 72 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ter make|-local-v|
|00001af0| 61 72 69 61 62 6c 65 20 | 63 6f 6d 69 6e 74 2d 70 |ariable |comint-p|
|00001b00| 74 79 70 20 70 72 6f 63 | 65 73 73 2d 63 6f 6e 6e |typ proc|ess-conn|
|00001b10| 65 63 74 69 6f 6e 2d 74 | 79 70 65 20 70 72 6f 63 |ection-t|ype proc|
|00001b20| 65 73 73 2d 6d 61 72 6b | 20 6e 69 6c 20 73 74 61 |ess-mark| nil sta|
|00001b30| 72 74 66 69 6c 65 20 73 | 6c 65 65 70 2d 66 6f 72 |rtfile s|leep-for|
|00001b40| 20 31 20 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 | 1 inser|t-file-c|
|00001b50| 6f 6e 74 65 6e 74 73 20 | 63 6f 6d 69 6e 74 2d 73 |ontents |comint-s|
|00001b60| 65 6e 64 2d 73 74 72 69 | 6e 67 20 72 75 6e 2d 68 |end-stri|ng run-h|
|00001b70| 6f 6f 6b 73 20 63 6f 6d | 69 6e 74 2d 65 78 65 63 |ooks com|int-exec|
|00001b80| 2d 68 6f 6f 6b 5d 20 36 | 20 22 5c 0a 53 74 61 72 |-hook] 6| "\.Star|
|00001b90| 74 20 75 70 20 61 20 70 | 72 6f 63 65 73 73 20 69 |t up a p|rocess i|
|00001ba0| 6e 20 62 75 66 66 65 72 | 20 42 55 46 46 45 52 20 |n buffer| BUFFER |
|00001bb0| 66 6f 72 20 63 6f 6d 69 | 6e 74 20 6d 6f 64 65 73 |for comi|nt modes|
|00001bc0| 2e 0a 42 6c 61 73 74 73 | 20 61 6e 79 20 6f 6c 64 |..Blasts| any old|
|00001bd0| 20 70 72 6f 63 65 73 73 | 20 72 75 6e 6e 69 6e 67 | process| running|
|00001be0| 20 69 6e 20 74 68 65 20 | 62 75 66 66 65 72 2e 20 | in the |buffer. |
|00001bf0| 20 44 6f 65 73 6e 27 74 | 20 73 65 74 20 74 68 65 | Doesn't| set the|
|00001c00| 20 62 75 66 66 65 72 20 | 6d 6f 64 65 2e 0a 59 6f | buffer |mode..Yo|
|00001c10| 75 20 63 61 6e 20 75 73 | 65 20 74 68 69 73 20 74 |u can us|e this t|
|00001c20| 6f 20 63 68 65 61 70 6c | 79 20 72 75 6e 20 61 20 |o cheapl|y run a |
|00001c30| 73 65 72 69 65 73 20 6f | 66 20 70 72 6f 63 65 73 |series o|f proces|
|00001c40| 73 65 73 20 69 6e 20 74 | 68 65 20 73 61 6d 65 20 |ses in t|he same |
|00001c50| 63 6f 6d 69 6e 74 0a 62 | 75 66 66 65 72 2e 20 20 |comint.b|uffer. |
|00001c60| 54 68 65 20 68 6f 6f 6b | 20 60 63 6f 6d 69 6e 74 |The hook| `comint|
|00001c70| 2d 65 78 65 63 2d 68 6f | 6f 6b 27 20 69 73 20 72 |-exec-ho|ok' is r|
|00001c80| 75 6e 20 61 66 74 65 72 | 20 65 61 63 68 20 65 78 |un after| each ex|
|00001c90| 65 63 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ec."]).(|byte-cod|
|00001ca0| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00001cb0| 20 5b 64 65 66 61 6c 69 | 61 73 20 63 6f 6d 69 6e | [defali|as comin|
|00001cc0| 74 2d 65 78 65 63 2d 31 | 20 23 5b 28 6e 61 6d 65 |t-exec-1| #[(name|
|00001cd0| 20 62 75 66 66 65 72 20 | 63 6f 6d 6d 61 6e 64 20 | buffer |command |
|00001ce0| 73 77 69 74 63 68 65 73 | 29 20 22 c0 09 c2 c3 c4 |switches|) ".....|
|00001cf0| 20 5c 22 c5 c6 45 5c 22 | 19 c7 c8 0e 09 0e 5c 6e | \"..E\"|......\n|
|00001d00| 0e 0b 0e 0c 25 29 87 22 | 20 5b 63 6f 6d 69 6e 74 |....%)."| [comint|
|00001d10| 2d 75 70 64 61 74 65 2d | 65 6e 76 20 70 72 6f 63 |-update-|env proc|
|00001d20| 65 73 73 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ess-envi|ronment |
|00001d30| 66 6f 72 6d 61 74 20 22 | 54 45 52 4d 43 41 50 3d |format "|TERMCAP=|
|00001d40| 65 6d 61 63 73 3a 63 6f | 23 25 64 3a 74 63 3d 75 |emacs:co|#%d:tc=u|
|00001d50| 6e 6b 6e 6f 77 6e 22 20 | 66 72 61 6d 65 2d 77 69 |nknown" |frame-wi|
|00001d60| 64 74 68 20 22 54 45 52 | 4d 3d 65 6d 61 63 73 22 |dth "TER|M=emacs"|
|00001d70| 20 22 45 4d 41 43 53 3d | 74 22 20 61 70 70 6c 79 | "EMACS=|t" apply|
|00001d80| 20 73 74 61 72 74 2d 70 | 72 6f 63 65 73 73 20 6e | start-p|rocess n|
|00001d90| 61 6d 65 20 62 75 66 66 | 65 72 20 63 6f 6d 6d 61 |ame buff|er comma|
|00001da0| 6e 64 20 73 77 69 74 63 | 68 65 73 5d 20 36 5d 20 |nd switc|hes] 6] |
|00001db0| 63 6f 6d 69 6e 74 2d 75 | 70 64 61 74 65 2d 65 6e |comint-u|pdate-en|
|00001dc0| 76 20 23 5b 28 6f 6c 64 | 2d 65 6e 76 20 6e 65 77 |v #[(old|-env new|
|00001dd0| 29 20 22 c0 09 21 c2 c3 | 09 5c 22 1c 1d 0e 06 83 |) "..!..|.\".....|
|00001de0| 48 00 0e 06 40 1e 07 c8 | c9 0e 07 5c 22 85 21 00 |H...@...|...\".!.|
|00001df0| 0e 07 ca 89 95 4f 1e 0b | 0e 06 41 16 06 0e 0b 83 |.....O..|..A.....|
|00001e00| 34 00 0e 0b 0c 9d 84 44 | 00 0e 0b 83 3f 00 0e 0b |4......D|....?...|
|00001e10| 0c 42 16 0b 0e 07 0d 42 | 15 2a 82 09 00 0d 9f 2a |.B.....B|.*.....*|
|00001e20| 87 22 20 5b 72 65 76 65 | 72 73 65 20 6e 65 77 20 |." [reve|rse new |
|00001e30| 6d 61 70 63 61 72 20 23 | 5b 28 76 76 29 20 22 c0 |mapcar #|[(vv) ".|
|00001e40| c1 5c 6e 5c 22 85 0c 00 | 5c 6e c3 89 95 4f 87 22 |.\n\"...|\n...O."|
|00001e50| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00001e60| 5e 5b 5e 3d 5d 2a 3d 22 | 20 76 76 20 30 5d 20 33 |^[^=]*="| vv 0] 3|
|00001e70| 5d 20 76 61 72 73 20 61 | 6e 73 20 6f 6c 64 2d 65 |] vars a|ns old-e|
|00001e80| 6e 76 20 76 76 20 73 74 | 72 69 6e 67 2d 6d 61 74 |nv vv st|ring-mat|
|00001e90| 63 68 20 22 5e 5b 5e 3d | 5d 2a 3d 22 20 30 20 76 |ch "^[^=|]*=" 0 v|
|00001ea0| 61 72 5d 20 34 5d 5d 20 | 33 29 0a 28 64 65 66 61 |ar] 4]] |3).(defa|
|00001eb0| 6c 69 61 73 20 27 63 6f | 6d 69 6e 74 2d 70 72 65 |lias 'co|mint-pre|
|00001ec0| 76 69 6f 75 73 2d 69 6e | 70 75 74 20 23 5b 28 61 |vious-in|put #[(a|
|00001ed0| 72 67 29 20 22 c0 09 21 | 89 1a c3 58 83 13 00 c4 |rg) "..!|...X....|
|00001ee0| c5 21 88 c6 20 82 5e 00 | c7 20 84 21 00 c4 c8 21 |.!.. .^.|. .!...!|
|00001ef0| 88 c6 20 82 5e 00 60 c9 | ca 70 21 21 7c 88 0e 0b |.. .^.`.|.p!!|...|
|00001f00| 84 47 00 0e 0c c3 56 83 | 39 00 cd 82 45 00 0e 0c |.G....V.|9...E...|
|00001f10| c3 57 83 44 00 ce 82 45 | 00 c3 16 0b cf 0e 0b 0e |.W.D...E|........|
|00001f20| 0c 5c 5c 5c 6e 5c 22 16 | 0b c4 d0 0e 0b 54 5c 22 |.\\\n\".|.....T\"|
|00001f30| 88 d1 09 0e 0b 5c 22 63 | 29 87 22 20 5b 72 69 6e |.....\"c|)." [rin|
|00001f40| 67 2d 6c 65 6e 67 74 68 | 20 63 6f 6d 69 6e 74 2d |g-length| comint-|
|00001f50| 69 6e 70 75 74 2d 72 69 | 6e 67 20 6c 65 6e 20 30 |input-ri|ng len 0|
|00001f60| 20 6d 65 73 73 61 67 65 | 20 22 45 6d 70 74 79 20 | message| "Empty |
|00001f70| 69 6e 70 75 74 20 72 69 | 6e 67 22 20 64 69 6e 67 |input ri|ng" ding|
|00001f80| 20 63 6f 6d 69 6e 74 2d | 61 66 74 65 72 2d 70 6d | comint-|after-pm|
|00001f90| 61 72 6b 2d 70 20 22 4e | 6f 74 20 61 66 74 65 72 |ark-p "N|ot after|
|00001fa0| 20 70 72 6f 63 65 73 73 | 20 6d 61 72 6b 22 20 70 | process| mark" p|
|00001fb0| 72 6f 63 65 73 73 2d 6d | 61 72 6b 20 67 65 74 2d |rocess-m|ark get-|
|00001fc0| 62 75 66 66 65 72 2d 70 | 72 6f 63 65 73 73 20 63 |buffer-p|rocess c|
|00001fd0| 6f 6d 69 6e 74 2d 69 6e | 70 75 74 2d 72 69 6e 67 |omint-in|put-ring|
|00001fe0| 2d 69 6e 64 65 78 20 61 | 72 67 20 2d 31 20 31 20 |-index a|rg -1 1 |
|00001ff0| 72 69 6e 67 2d 6d 6f 64 | 20 22 25 64 22 20 72 69 |ring-mod| "%d" ri|
|00002000| 6e 67 2d 72 65 66 5d 20 | 35 20 22 5c 0a 43 79 63 |ng-ref] |5 "\.Cyc|
|00002010| 6c 65 20 62 61 63 6b 77 | 61 72 64 73 20 74 68 72 |le backw|ards thr|
|00002020| 6f 75 67 68 20 69 6e 70 | 75 74 20 68 69 73 74 6f |ough inp|ut histo|
|00002030| 72 79 2e 22 20 22 2a 70 | 22 5d 29 0a 28 64 65 66 |ry." "*p|"]).(def|
|00002040| 61 6c 69 61 73 20 27 63 | 6f 6d 69 6e 74 2d 6e 65 |alias 'c|omint-ne|
|00002050| 78 74 2d 69 6e 70 75 74 | 20 23 5b 28 61 72 67 29 |xt-input| #[(arg)|
|00002060| 20 22 c0 09 5b 21 87 22 | 20 5b 63 6f 6d 69 6e 74 | "..[!."| [comint|
|00002070| 2d 70 72 65 76 69 6f 75 | 73 2d 69 6e 70 75 74 20 |-previou|s-input |
|00002080| 61 72 67 5d 20 32 20 22 | 5c 0a 43 79 63 6c 65 20 |arg] 2 "|\.Cycle |
|00002090| 66 6f 72 77 61 72 64 73 | 20 74 68 72 6f 75 67 68 |forwards| through|
|000020a0| 20 69 6e 70 75 74 20 68 | 69 73 74 6f 72 79 2e 22 | input h|istory."|
|000020b0| 20 22 2a 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 | "*p"]).|(defalia|
|000020c0| 73 20 27 63 6f 6d 69 6e | 74 2d 70 72 65 76 69 6f |s 'comin|t-previo|
|000020d0| 75 73 2d 6d 61 74 63 68 | 69 6e 67 2d 69 6e 70 75 |us-match|ing-inpu|
|000020e0| 74 20 23 5b 28 72 65 67 | 65 78 70 20 61 72 67 29 |t #[(reg|exp arg)|
|000020f0| 20 22 08 84 06 00 c1 10 | c2 0b 21 1c 0d c6 56 83 | "......|..!...V.|
|00002100| 14 00 c7 82 15 00 c1 1e | 08 08 1e 09 0d c6 55 84 |........|......U.|
|00002110| 6c 00 0e 09 1e 5c 6e cb | 0e 09 0e 08 5c 5c 0c 5c |l....\n.|....\\.\|
|00002120| 22 16 09 0e 09 0c 57 83 | 59 00 cc 0e 0d ce 0b 0e |".....W.|Y.......|
|00002130| 09 5c 22 5c 22 84 59 00 | cb 0e 09 0e 08 5c 5c 0c |.\"\".Y.|.....\\.|
|00002140| 5c 22 89 16 09 0e 5c 6e | 55 83 2e 00 cf d0 21 88 |\"....\n|U.....!.|
|00002150| 82 2e 00 29 0d c6 56 83 | 65 00 0d 53 82 67 00 0d |...)..V.|e..S.g..|
|00002160| 54 89 15 82 1b 00 d1 0e | 09 08 5a 21 2b 87 22 20 |T.......|..Z!+." |
|00002170| 5b 63 6f 6d 69 6e 74 2d | 69 6e 70 75 74 2d 72 69 |[comint-|input-ri|
|00002180| 6e 67 2d 69 6e 64 65 78 | 20 2d 31 20 72 69 6e 67 |ng-index| -1 ring|
|00002190| 2d 6c 65 6e 67 74 68 20 | 63 6f 6d 69 6e 74 2d 69 |-length |comint-i|
|000021a0| 6e 70 75 74 2d 72 69 6e | 67 20 6c 65 6e 20 61 72 |nput-rin|g len ar|
|000021b0| 67 20 30 20 31 20 6d 6f | 74 69 6f 6e 20 6e 20 70 |g 0 1 mo|tion n p|
|000021c0| 72 65 76 20 72 69 6e 67 | 2d 6d 6f 64 20 73 74 72 |rev ring|-mod str|
|000021d0| 69 6e 67 2d 6d 61 74 63 | 68 20 72 65 67 65 78 70 |ing-matc|h regexp|
|000021e0| 20 72 69 6e 67 2d 72 65 | 66 20 65 72 72 6f 72 20 | ring-re|f error |
|000021f0| 22 4e 6f 74 20 66 6f 75 | 6e 64 22 20 63 6f 6d 69 |"Not fou|nd" comi|
|00002200| 6e 74 2d 70 72 65 76 69 | 6f 75 73 2d 69 6e 70 75 |nt-previ|ous-inpu|
|00002210| 74 5d 20 36 20 22 5c 0a | 53 65 61 72 63 68 20 62 |t] 6 "\.|Search b|
|00002220| 61 63 6b 77 61 72 64 73 | 20 74 68 72 6f 75 67 68 |ackwards| through|
|00002230| 20 69 6e 70 75 74 20 68 | 69 73 74 6f 72 79 20 66 | input h|istory f|
|00002240| 6f 72 20 6d 61 74 63 68 | 20 66 6f 72 20 52 45 47 |or match| for REG|
|00002250| 45 58 50 2e 0a 28 50 72 | 65 76 69 6f 75 73 20 68 |EXP..(Pr|evious h|
|00002260| 69 73 74 6f 72 79 20 65 | 6c 65 6d 65 6e 74 73 20 |istory e|lements |
|00002270| 61 72 65 20 65 61 72 6c | 69 65 72 20 63 6f 6d 6d |are earl|ier comm|
|00002280| 61 6e 64 73 2e 29 0a 57 | 69 74 68 20 70 72 65 66 |ands.).W|ith pref|
|00002290| 69 78 20 61 72 67 75 6d | 65 6e 74 20 4e 2c 20 73 |ix argum|ent N, s|
|000022a0| 65 61 72 63 68 20 66 6f | 72 20 4e 74 68 20 70 72 |earch fo|r Nth pr|
|000022b0| 65 76 69 6f 75 73 20 6d | 61 74 63 68 2e 0a 49 66 |evious m|atch..If|
|000022c0| 20 4e 20 69 73 20 6e 65 | 67 61 74 69 76 65 2c 20 | N is ne|gative, |
|000022d0| 66 69 6e 64 20 74 68 65 | 20 6e 65 78 74 20 6f 72 |find the| next or|
|000022e0| 20 4e 74 68 20 6e 65 78 | 74 20 6d 61 74 63 68 2e | Nth nex|t match.|
|000022f0| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 19 |" (byte-|code "..|
|00002300| 5c 6e 1a c3 c4 c0 0d c0 | c6 25 89 1e 07 c8 98 83 |\n......|.%......|
|00002310| 1c 00 0e 06 89 41 40 a0 | 82 1e 00 0e 07 c9 0e 5c |.....A@.|.......\|
|00002320| 6e 21 2b 44 87 22 20 5b | 6e 69 6c 20 6d 69 6e 69 |n!+D." [|nil mini|
|00002330| 62 75 66 66 65 72 2d 68 | 69 73 74 6f 72 79 2d 73 |buffer-h|istory-s|
|00002340| 65 78 70 2d 66 6c 61 67 | 20 6c 61 73 74 2d 63 6f |exp-flag| last-co|
|00002350| 6d 6d 61 6e 64 20 72 65 | 61 64 2d 66 72 6f 6d 2d |mmand re|ad-from-|
|00002360| 6d 69 6e 69 62 75 66 66 | 65 72 20 22 50 72 65 76 |minibuff|er "Prev|
|00002370| 69 6f 75 73 20 69 6e 70 | 75 74 20 6d 61 74 63 68 |ious inp|ut match|
|00002380| 69 6e 67 20 28 72 65 67 | 65 78 70 29 3a 20 22 20 |ing (reg|exp): " |
|00002390| 6d 69 6e 69 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |minibuff|er-local|
|000023a0| 2d 6d 61 70 20 6d 69 6e | 69 62 75 66 66 65 72 2d |-map min|ibuffer-|
|000023b0| 68 69 73 74 6f 72 79 2d | 73 65 61 72 63 68 2d 68 |history-|search-h|
|000023c0| 69 73 74 6f 72 79 20 72 | 65 67 65 78 70 20 22 22 |istory r|egexp ""|
|000023d0| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|000023e0| 76 61 6c 75 65 20 63 75 | 72 72 65 6e 74 2d 70 72 |value cu|rrent-pr|
|000023f0| 65 66 69 78 2d 61 72 67 | 5d 20 37 29 5d 29 0a 28 |efix-arg|] 7)]).(|
|00002400| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 6d 69 6e 74 |defalias| 'comint|
|00002410| 2d 6e 65 78 74 2d 6d 61 | 74 63 68 69 6e 67 2d 69 |-next-ma|tching-i|
|00002420| 6e 70 75 74 20 23 5b 28 | 72 65 67 65 78 70 20 61 |nput #[(|regexp a|
|00002430| 72 67 29 20 22 c0 09 5c | 6e 5b 5c 22 87 22 20 5b |rg) "..\|n[\"." [|
|00002440| 63 6f 6d 69 6e 74 2d 70 | 72 65 76 69 6f 75 73 2d |comint-p|revious-|
|00002450| 6d 61 74 63 68 69 6e 67 | 2d 69 6e 70 75 74 20 72 |matching|-input r|
|00002460| 65 67 65 78 70 20 61 72 | 67 5d 20 33 20 22 5c 0a |egexp ar|g] 3 "\.|
|00002470| 53 65 61 72 63 68 20 66 | 6f 72 77 61 72 64 73 20 |Search f|orwards |
|00002480| 74 68 72 6f 75 67 68 20 | 69 6e 70 75 74 20 68 69 |through |input hi|
|00002490| 73 74 6f 72 79 20 66 6f | 72 20 6d 61 74 63 68 20 |story fo|r match |
|000024a0| 66 6f 72 20 52 45 47 45 | 58 50 2e 0a 28 4c 61 74 |for REGE|XP..(Lat|
|000024b0| 65 72 20 68 69 73 74 6f | 72 79 20 65 6c 65 6d 65 |er histo|ry eleme|
|000024c0| 6e 74 73 20 61 72 65 20 | 6d 6f 72 65 20 72 65 63 |nts are |more rec|
|000024d0| 65 6e 74 20 63 6f 6d 6d | 61 6e 64 73 2e 29 0a 57 |ent comm|ands.).W|
|000024e0| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|000024f0| 65 6e 74 20 4e 2c 20 73 | 65 61 72 63 68 20 66 6f |ent N, s|earch fo|
|00002500| 72 20 4e 74 68 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |r Nth fo|llowing |
|00002510| 6d 61 74 63 68 2e 0a 49 | 66 20 4e 20 69 73 20 6e |match..I|f N is n|
|00002520| 65 67 61 74 69 76 65 2c | 20 66 69 6e 64 20 74 68 |egative,| find th|
|00002530| 65 20 70 72 65 76 69 6f | 75 73 20 6f 72 20 4e 74 |e previo|us or Nt|
|00002540| 68 20 70 72 65 76 69 6f | 75 73 20 6d 61 74 63 68 |h previo|us match|
|00002550| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |." (byte|-code ".|
|00002560| 09 c2 c3 c0 0c c0 c5 25 | 1e 06 19 1e 07 0e 06 c8 |.......%|........|
|00002570| 98 83 1d 00 0d 89 41 40 | a0 82 1f 00 0e 06 c9 0e |......A@|........|
|00002580| 5c 6e 21 2b 44 87 22 20 | 5b 6e 69 6c 20 6c 61 73 |\n!+D." |[nil las|
|00002590| 74 2d 63 6f 6d 6d 61 6e | 64 20 72 65 61 64 2d 66 |t-comman|d read-f|
|000025a0| 72 6f 6d 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 22 |rom-mini|buffer "|
|000025b0| 50 72 65 76 69 6f 75 73 | 20 69 6e 70 75 74 20 6d |Previous| input m|
|000025c0| 61 74 63 68 69 6e 67 20 | 28 72 65 67 65 78 70 29 |atching |(regexp)|
|000025d0| 3a 20 22 20 6d 69 6e 69 | 62 75 66 66 65 72 2d 6c |: " mini|buffer-l|
|000025e0| 6f 63 61 6c 2d 6d 61 70 | 20 6d 69 6e 69 62 75 66 |ocal-map| minibuf|
|000025f0| 66 65 72 2d 68 69 73 74 | 6f 72 79 2d 73 65 61 72 |fer-hist|ory-sear|
|00002600| 63 68 2d 68 69 73 74 6f | 72 79 20 72 65 67 65 78 |ch-histo|ry regex|
|00002610| 70 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 68 69 73 |p minibu|ffer-his|
|00002620| 74 6f 72 79 2d 73 65 78 | 70 2d 66 6c 61 67 20 22 |tory-sex|p-flag "|
|00002630| 22 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |" prefix|-numeric|
|00002640| 2d 76 61 6c 75 65 20 63 | 75 72 72 65 6e 74 2d 70 |-value c|urrent-p|
|00002650| 72 65 66 69 78 2d 61 72 | 67 5d 20 38 29 5d 29 0a |refix-ar|g] 8)]).|
|00002660| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 6d 69 6e |(defalia|s 'comin|
|00002670| 74 2d 73 65 6e 64 2d 69 | 6e 70 75 74 20 23 5b 6e |t-send-i|nput #[n|
|00002680| 69 6c 20 22 c0 70 21 89 | 19 84 0e 00 c2 c3 21 82 |il ".p!.|......!.|
|00002690| 7e 00 c4 09 21 1d c6 0d | 21 1e 07 60 0e 07 59 83 |~...!...|!..`..Y.|
|000026a0| 2c 00 0e 08 83 26 00 c9 | 7f 88 0d 60 7b 82 3b 00 |,....&..|...`{.;.|
|000026b0| 0e 5c 6e 20 1e 0b 0d 62 | 88 0e 0b 63 88 0e 0b 29 |.\n ...b|...c...)|
|000026c0| 1e 0c 0e 0d 83 49 00 0d | 60 7c 88 82 4c 00 ce 63 |.....I..|`|..L..c|
|000026d0| 88 0e 0f 0e 0c 21 83 5b | 00 d0 0e 11 0e 0c 5c 22 |.....!.[|......\"|
|000026e0| 88 0e 12 0e 0c 21 88 0e | 13 09 0e 0c 5c 22 88 c9 |.....!..|....\"..|
|000026f0| 16 14 0e 15 0d c9 93 88 | 0e 16 60 c9 93 88 c4 09 |........|..`.....|
|00002700| 21 60 c9 93 2b 29 87 22 | 20 5b 67 65 74 2d 62 75 |!`..+)."| [get-bu|
|00002710| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 70 72 6f |ffer-pro|cess pro|
|00002720| 63 20 65 72 72 6f 72 20 | 22 43 75 72 72 65 6e 74 |c error |"Current|
|00002730| 20 62 75 66 66 65 72 20 | 68 61 73 20 6e 6f 20 70 | buffer |has no p|
|00002740| 72 6f 63 65 73 73 22 20 | 70 72 6f 63 65 73 73 2d |rocess" |process-|
|00002750| 6d 61 72 6b 20 70 6d 61 | 72 6b 20 6d 61 72 6b 65 |mark pma|rk marke|
|00002760| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 70 6d 61 72 6b |r-positi|on pmark|
|00002770| 2d 76 61 6c 20 63 6f 6d | 69 6e 74 2d 65 6f 6c 2d |-val com|int-eol-|
|00002780| 6f 6e 2d 73 65 6e 64 20 | 6e 69 6c 20 63 6f 6d 69 |on-send |nil comi|
|00002790| 6e 74 2d 67 65 74 2d 6f | 6c 64 2d 69 6e 70 75 74 |nt-get-o|ld-input|
|000027a0| 20 63 6f 70 79 20 69 6e | 70 75 74 20 63 6f 6d 69 | copy in|put comi|
|000027b0| 6e 74 2d 70 72 6f 63 65 | 73 73 2d 65 63 68 6f 65 |nt-proce|ss-echoe|
|000027c0| 73 20 31 30 20 63 6f 6d | 69 6e 74 2d 69 6e 70 75 |s 10 com|int-inpu|
|000027d0| 74 2d 66 69 6c 74 65 72 | 20 72 69 6e 67 2d 69 6e |t-filter| ring-in|
|000027e0| 73 65 72 74 20 63 6f 6d | 69 6e 74 2d 69 6e 70 75 |sert com|int-inpu|
|000027f0| 74 2d 72 69 6e 67 20 63 | 6f 6d 69 6e 74 2d 69 6e |t-ring c|omint-in|
|00002800| 70 75 74 2d 73 65 6e 74 | 69 6e 65 6c 20 63 6f 6d |put-sent|inel com|
|00002810| 69 6e 74 2d 69 6e 70 75 | 74 2d 73 65 6e 64 65 72 |int-inpu|t-sender|
|00002820| 20 63 6f 6d 69 6e 74 2d | 69 6e 70 75 74 2d 72 69 | comint-|input-ri|
|00002830| 6e 67 2d 69 6e 64 65 78 | 20 63 6f 6d 69 6e 74 2d |ng-index| comint-|
|00002840| 6c 61 73 74 2d 69 6e 70 | 75 74 2d 73 74 61 72 74 |last-inp|ut-start|
|00002850| 20 63 6f 6d 69 6e 74 2d | 6c 61 73 74 2d 69 6e 70 | comint-|last-inp|
|00002860| 75 74 2d 65 6e 64 5d 20 | 34 20 22 5c 0a 53 65 6e |ut-end] |4 "\.Sen|
|00002870| 64 20 69 6e 70 75 74 20 | 74 6f 20 70 72 6f 63 65 |d input |to proce|
|00002880| 73 73 2e 0a 41 66 74 65 | 72 20 74 68 65 20 70 72 |ss..Afte|r the pr|
|00002890| 6f 63 65 73 73 20 6f 75 | 74 70 75 74 20 6d 61 72 |ocess ou|tput mar|
|000028a0| 6b 2c 20 73 65 6e 64 73 | 20 61 6c 6c 20 74 65 78 |k, sends| all tex|
|000028b0| 74 20 66 72 6f 6d 20 74 | 68 65 20 70 72 6f 63 65 |t from t|he proce|
|000028c0| 73 73 20 6d 61 72 6b 20 | 74 6f 0a 70 6f 69 6e 74 |ss mark |to.point|
|000028d0| 20 61 73 20 69 6e 70 75 | 74 20 74 6f 20 74 68 65 | as inpu|t to the|
|000028e0| 20 70 72 6f 63 65 73 73 | 2e 20 20 42 65 66 6f 72 | process|. Befor|
|000028f0| 65 20 74 68 65 20 70 72 | 6f 63 65 73 73 20 6f 75 |e the pr|ocess ou|
|00002900| 74 70 75 74 20 6d 61 72 | 6b 2c 20 63 61 6c 6c 73 |tput mar|k, calls|
|00002910| 20 76 61 6c 75 65 0a 6f | 66 20 76 61 72 69 61 62 | value.o|f variab|
|00002920| 6c 65 20 60 63 6f 6d 69 | 6e 74 2d 67 65 74 2d 6f |le `comi|nt-get-o|
|00002930| 6c 64 2d 69 6e 70 75 74 | 27 20 74 6f 20 72 65 74 |ld-input|' to ret|
|00002940| 72 69 65 76 65 20 6f 6c | 64 20 69 6e 70 75 74 2c |rieve ol|d input,|
|00002950| 20 63 6f 70 69 65 73 20 | 69 74 20 74 6f 20 74 68 | copies |it to th|
|00002960| 65 0a 70 72 6f 63 65 73 | 73 20 6d 61 72 6b 2c 20 |e.proces|s mark, |
|00002970| 61 6e 64 20 73 65 6e 64 | 73 20 69 74 2e 20 20 49 |and send|s it. I|
|00002980| 66 20 76 61 72 69 61 62 | 6c 65 20 60 63 6f 6d 69 |f variab|le `comi|
|00002990| 6e 74 2d 70 72 6f 63 65 | 73 73 2d 65 63 68 6f 65 |nt-proce|ss-echoe|
|000029a0| 73 27 20 69 73 20 6e 69 | 6c 2c 0a 61 20 74 65 72 |s' is ni|l,.a ter|
|000029b0| 6d 69 6e 61 6c 20 6e 65 | 77 6c 69 6e 65 20 69 73 |minal ne|wline is|
|000029c0| 20 61 6c 73 6f 20 69 6e | 73 65 72 74 65 64 20 69 | also in|serted i|
|000029d0| 6e 74 6f 20 74 68 65 20 | 62 75 66 66 65 72 20 61 |nto the |buffer a|
|000029e0| 6e 64 20 73 65 6e 74 20 | 74 6f 20 74 68 65 20 70 |nd sent |to the p|
|000029f0| 72 6f 63 65 73 73 0a 28 | 69 66 20 69 74 20 69 73 |rocess.(|if it is|
|00002a00| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 61 6c 6c 20 74 65 | non-nil|, all te|
|00002a10| 78 74 20 66 72 6f 6d 20 | 74 68 65 20 70 72 6f 63 |xt from |the proc|
|00002a20| 65 73 73 20 6d 61 72 6b | 20 74 6f 20 70 6f 69 6e |ess mark| to poin|
|00002a30| 74 20 69 73 20 64 65 6c | 65 74 65 64 2c 0a 73 69 |t is del|eted,.si|
|00002a40| 6e 63 65 20 69 74 20 69 | 73 20 61 73 73 75 6d 65 |nce it i|s assume|
|00002a50| 64 20 74 68 65 20 72 65 | 6d 6f 74 65 20 70 72 6f |d the re|mote pro|
|00002a60| 63 65 73 73 20 77 69 6c | 6c 20 72 65 2d 65 63 68 |cess wil|l re-ech|
|00002a70| 6f 20 69 74 29 2e 0a 0a | 54 68 65 20 76 61 6c 75 |o it)...|The valu|
|00002a80| 65 20 6f 66 20 76 61 72 | 69 61 62 6c 65 20 60 63 |e of var|iable `c|
|00002a90| 6f 6d 69 6e 74 2d 69 6e | 70 75 74 2d 73 65 6e 74 |omint-in|put-sent|
|00002aa0| 69 6e 65 6c 27 20 69 73 | 20 63 61 6c 6c 65 64 20 |inel' is| called |
|00002ab0| 6f 6e 20 74 68 65 20 69 | 6e 70 75 74 0a 62 65 66 |on the i|nput.bef|
|00002ac0| 6f 72 65 20 73 65 6e 64 | 69 6e 67 20 69 74 2e 20 |ore send|ing it. |
|00002ad0| 20 54 68 65 20 69 6e 70 | 75 74 20 69 73 20 65 6e | The inp|ut is en|
|00002ae0| 74 65 72 65 64 20 69 6e | 74 6f 20 74 68 65 20 69 |tered in|to the i|
|00002af0| 6e 70 75 74 20 68 69 73 | 74 6f 72 79 20 72 69 6e |nput his|tory rin|
|00002b00| 67 2c 0a 69 66 20 74 68 | 65 20 76 61 6c 75 65 20 |g,.if th|e value |
|00002b10| 6f 66 20 76 61 72 69 61 | 62 6c 65 20 60 63 6f 6d |of varia|ble `com|
|00002b20| 69 6e 74 2d 69 6e 70 75 | 74 2d 66 69 6c 74 65 72 |int-inpu|t-filter|
|00002b30| 27 20 72 65 74 75 72 6e | 73 20 6e 6f 6e 2d 6e 69 |' return|s non-ni|
|00002b40| 6c 20 77 68 65 6e 0a 63 | 61 6c 6c 65 64 20 6f 6e |l when.c|alled on|
|00002b50| 20 74 68 65 20 69 6e 70 | 75 74 2e 0a 0a 49 66 20 | the inp|ut...If |
|00002b60| 76 61 72 69 61 62 6c 65 | 20 60 63 6f 6d 69 6e 74 |variable| `comint|
|00002b70| 2d 65 6f 6c 2d 6f 6e 2d | 73 65 6e 64 27 20 69 73 |-eol-on-|send' is|
|00002b80| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 74 68 65 6e 20 70 | non-nil|, then p|
|00002b90| 6f 69 6e 74 20 69 73 20 | 6d 6f 76 65 64 20 74 6f |oint is |moved to|
|00002ba0| 20 74 68 65 0a 65 6e 64 | 20 6f 66 20 6c 69 6e 65 | the.end| of line|
|00002bb0| 20 62 65 66 6f 72 65 20 | 73 65 6e 64 69 6e 67 20 | before |sending |
|00002bc0| 74 68 65 20 69 6e 70 75 | 74 2e 0a 0a 60 63 6f 6d |the inpu|t...`com|
|00002bd0| 69 6e 74 2d 67 65 74 2d | 6f 6c 64 2d 69 6e 70 75 |int-get-|old-inpu|
|00002be0| 74 27 2c 20 60 63 6f 6d | 69 6e 74 2d 69 6e 70 75 |t', `com|int-inpu|
|00002bf0| 74 2d 73 65 6e 74 69 6e | 65 6c 27 2c 20 61 6e 64 |t-sentin|el', and|
|00002c00| 20 60 63 6f 6d 69 6e 74 | 2d 69 6e 70 75 74 2d 66 | `comint|-input-f|
|00002c10| 69 6c 74 65 72 27 0a 61 | 72 65 20 63 68 6f 73 65 |ilter'.a|re chose|
|00002c20| 6e 20 61 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 74 |n accord|ing to t|
|00002c30| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 69 6e 74 65 72 |he comma|nd inter|
|00002c40| 70 72 65 74 65 72 20 72 | 75 6e 6e 69 6e 67 20 69 |preter r|unning i|
|00002c50| 6e 20 74 68 65 20 62 75 | 66 66 65 72 2e 20 20 45 |n the bu|ffer. E|
|00002c60| 2e 67 2e 2c 0a 49 66 20 | 74 68 65 20 69 6e 74 65 |.g.,.If |the inte|
|00002c70| 72 70 72 65 74 65 72 20 | 69 73 20 74 68 65 20 63 |rpreter |is the c|
|00002c80| 73 68 2c 0a 20 20 20 20 | 63 6f 6d 69 6e 74 2d 67 |sh,. |comint-g|
|00002c90| 65 74 2d 6f 6c 64 2d 69 | 6e 70 75 74 20 69 73 20 |et-old-i|nput is |
|00002ca0| 74 68 65 20 64 65 66 61 | 75 6c 74 3a 20 74 61 6b |the defa|ult: tak|
|00002cb0| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |e the cu|rrent li|
|00002cc0| 6e 65 2c 20 64 69 73 63 | 61 72 64 20 61 6e 79 0a |ne, disc|ard any.|
|00002cd0| 20 20 20 20 20 20 20 20 | 69 6e 69 74 69 61 6c 20 | |initial |
|00002ce0| 73 74 72 69 6e 67 20 6d | 61 74 63 68 69 6e 67 20 |string m|atching |
|00002cf0| 72 65 67 65 78 70 20 63 | 6f 6d 69 6e 74 2d 70 72 |regexp c|omint-pr|
|00002d00| 6f 6d 70 74 2d 72 65 67 | 65 78 70 2e 0a 20 20 20 |ompt-reg|exp.. |
|00002d10| 20 63 6f 6d 69 6e 74 2d | 69 6e 70 75 74 2d 73 65 | comint-|input-se|
|00002d20| 6e 74 69 6e 65 6c 20 6d | 6f 6e 69 74 6f 72 73 20 |ntinel m|onitors |
|00002d30| 69 6e 70 75 74 20 66 6f | 72 20 5c 22 63 64 5c 22 |input fo|r \"cd\"|
|00002d40| 2c 20 5c 22 70 75 73 68 | 64 5c 22 2c 20 61 6e 64 |, \"push|d\", and|
|00002d50| 20 5c 22 70 6f 70 64 5c | 22 20 0a 20 20 20 20 20 | \"popd\|" . |
|00002d60| 20 20 20 63 6f 6d 6d 61 | 6e 64 73 2e 20 57 68 65 | comma|nds. Whe|
|00002d70| 6e 20 69 74 20 73 65 65 | 73 20 6f 6e 65 2c 20 69 |n it see|s one, i|
|00002d80| 74 20 63 64 27 73 20 74 | 68 65 20 62 75 66 66 65 |t cd's t|he buffe|
|00002d90| 72 2e 0a 20 20 20 20 63 | 6f 6d 69 6e 74 2d 69 6e |r.. c|omint-in|
|00002da0| 70 75 74 2d 66 69 6c 74 | 65 72 20 69 73 20 74 68 |put-filt|er is th|
|00002db0| 65 20 64 65 66 61 75 6c | 74 3a 20 72 65 74 75 72 |e defaul|t: retur|
|00002dc0| 6e 73 20 54 20 69 66 20 | 74 68 65 20 69 6e 70 75 |ns T if |the inpu|
|00002dd0| 74 20 69 73 6e 27 74 20 | 61 6c 6c 20 77 68 69 74 |t isn't |all whit|
|00002de0| 65 0a 09 73 70 61 63 65 | 2e 0a 0a 49 66 20 74 68 |e..space|...If th|
|00002df0| 65 20 63 6f 6d 69 6e 74 | 20 69 73 20 4c 75 63 69 |e comint| is Luci|
|00002e00| 64 20 43 6f 6d 6d 6f 6e | 20 4c 69 73 70 2c 20 0a |d Common| Lisp, .|
|00002e10| 20 20 20 20 63 6f 6d 69 | 6e 74 2d 67 65 74 2d 6f | comi|nt-get-o|
|00002e20| 6c 64 2d 69 6e 70 75 74 | 20 73 6e 61 72 66 73 20 |ld-input| snarfs |
|00002e30| 74 68 65 20 73 65 78 70 | 20 65 6e 64 69 6e 67 20 |the sexp| ending |
|00002e40| 61 74 20 70 6f 69 6e 74 | 2e 0a 20 20 20 20 63 6f |at point|.. co|
|00002e50| 6d 69 6e 74 2d 69 6e 70 | 75 74 2d 73 65 6e 74 69 |mint-inp|ut-senti|
|00002e60| 6e 65 6c 20 64 6f 65 73 | 20 6e 6f 74 68 69 6e 67 |nel does| nothing|
|00002e70| 2e 0a 20 20 20 20 63 6f | 6d 69 6e 74 2d 69 6e 70 |.. co|mint-inp|
|00002e80| 75 74 2d 66 69 6c 74 65 | 72 20 72 65 74 75 72 6e |ut-filte|r return|
|00002e90| 73 20 4e 49 4c 20 69 66 | 20 74 68 65 20 69 6e 70 |s NIL if| the inp|
|00002ea0| 75 74 20 6d 61 74 63 68 | 65 73 20 69 6e 70 75 74 |ut match|es input|
|00002eb0| 2d 66 69 6c 74 65 72 2d | 72 65 67 65 78 70 2c 0a |-filter-|regexp,.|
|00002ec0| 20 20 20 20 20 20 20 20 | 77 68 69 63 68 20 6d 61 | |which ma|
|00002ed0| 74 63 68 65 73 20 28 31 | 29 20 61 6c 6c 20 77 68 |tches (1|) all wh|
|00002ee0| 69 74 65 73 70 61 63 65 | 20 28 32 29 20 3a 61 2c |itespace| (2) :a,|
|00002ef0| 20 3a 63 2c 20 65 74 63 | 2e 0a 0a 53 69 6d 69 6c | :c, etc|...Simil|
|00002f00| 61 72 6c 79 20 66 6f 72 | 20 53 6f 61 72 2c 20 53 |arly for| Soar, S|
|00002f10| 63 68 65 6d 65 2c 20 65 | 74 63 2e 22 20 6e 69 6c |cheme, e|tc." nil|
|00002f20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|00002f30| 6f 74 65 20 63 6f 6d 69 | 6e 74 2d 66 69 6c 74 65 |ote comi|nt-filte|
|00002f40| 72 29 20 23 5b 28 70 72 | 6f 63 65 73 73 20 73 74 |r) #[(pr|ocess st|
|00002f50| 72 69 6e 67 29 20 22 70 | c0 89 89 19 1a 1b 1c c5 |ring) "p|........|
|00002f60| 0e 06 21 71 88 60 13 65 | 12 64 11 c0 0e 07 47 1e |..!q.`.e|.d....G.|
|00002f70| 08 1e 09 7e 88 ca 0e 06 | 21 62 88 60 0b 58 83 2f |...~....|!b.`.X./|
|00002f80| 00 0b 0e 08 5c 5c 13 60 | 5c 6e 57 83 3a 00 5c 6e |....\\.`|\nW.:.\n|
|00002f90| 0e 08 5c 5c 12 60 09 58 | 83 45 00 09 0e 08 5c 5c |..\\.`.X|.E....\\|
|00002fa0| 11 cb 0e 07 21 88 cc cd | 20 21 60 55 83 5d 00 ce |....!...| !`U.]..|
|00002fb0| cd 20 60 0e 07 47 5a 5c | 22 88 0e 0f 83 79 00 d0 |. `..GZ\|"....y..|
|00002fc0| 0e 0f 21 83 79 00 60 0e | 0f 55 83 79 00 0e 0f 89 |..!.y.`.|.U.y....|
|00002fd0| 0e 08 5a c0 93 88 ca 0e | 06 21 60 c0 93 88 d1 20 |..Z.....|.!`.... |
|00002fe0| 88 2a 5c 6e 09 7d 88 0b | 62 88 0c 71 2c 87 22 20 |.*\n.}..|b..q,." |
|00002ff0| 5b 6e 69 6c 20 6f 65 6e | 64 20 6f 62 65 67 20 6f |[nil oen|d obeg o|
|00003000| 70 6f 69 6e 74 20 6f 62 | 75 66 20 70 72 6f 63 65 |point ob|uf proce|
|00003010| 73 73 2d 62 75 66 66 65 | 72 20 70 72 6f 63 65 73 |ss-buffe|r proces|
|00003020| 73 20 73 74 72 69 6e 67 | 20 6e 63 68 61 72 73 20 |s string| nchars |
|00003030| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00003040| 20 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 69 6e | process|-mark in|
|00003050| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00003060| 65 72 73 20 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |ers wind|ow-start|
|00003070| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|00003080| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 73 74 61 72 | set-win|dow-star|
|00003090| 74 20 63 6f 6d 69 6e 74 | 2d 6c 61 73 74 2d 69 6e |t comint|-last-in|
|000030a0| 70 75 74 2d 65 6e 64 20 | 6d 61 72 6b 65 72 2d 62 |put-end |marker-b|
|000030b0| 75 66 66 65 72 20 66 6f | 72 63 65 2d 6d 6f 64 65 |uffer fo|rce-mode|
|000030c0| 2d 6c 69 6e 65 2d 75 70 | 64 61 74 65 5d 20 34 5d |-line-up|date] 4]|
|000030d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |).(defal|ias 'com|
|000030e0| 69 6e 74 2d 67 65 74 2d | 6f 6c 64 2d 69 6e 70 75 |int-get-|old-inpu|
|000030f0| 74 2d 64 65 66 61 75 6c | 74 20 23 5b 6e 69 6c 20 |t-defaul|t #[nil |
|00003100| 22 8a c0 79 88 c1 20 88 | 60 1a c3 7f 88 5c 6e 60 |"..y.. .|`....\n`|
|00003110| 7b 2a 87 22 20 5b 30 20 | 63 6f 6d 69 6e 74 2d 73 |{*." [0 |comint-s|
|00003120| 6b 69 70 2d 70 72 6f 6d | 70 74 20 62 65 67 20 6e |kip-prom|pt beg n|
|00003130| 69 6c 5d 20 32 20 22 5c | 0a 44 65 66 61 75 6c 74 |il] 2 "\|.Default|
|00003140| 20 66 6f 72 20 60 63 6f | 6d 69 6e 74 2d 67 65 74 | for `co|mint-get|
|00003150| 2d 6f 6c 64 2d 69 6e 70 | 75 74 27 2e 0a 54 61 6b |-old-inp|ut'..Tak|
|00003160| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |e the cu|rrent li|
|00003170| 6e 65 2c 20 61 6e 64 20 | 64 69 73 63 61 72 64 20 |ne, and |discard |
|00003180| 61 6e 79 20 69 6e 69 74 | 69 61 6c 20 74 65 78 74 |any init|ial text|
|00003190| 20 6d 61 74 63 68 69 6e | 67 0a 60 63 6f 6d 69 6e | matchin|g.`comin|
|000031a0| 74 2d 70 72 6f 6d 70 74 | 2d 72 65 67 65 78 70 27 |t-prompt|-regexp'|
|000031b0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000031c0| 63 6f 6d 69 6e 74 2d 73 | 6b 69 70 2d 70 72 6f 6d |comint-s|kip-prom|
|000031d0| 70 74 20 23 5b 6e 69 6c | 20 22 8a c0 7f 88 60 29 |pt #[nil| "....`)|
|000031e0| 19 c2 0b 21 85 17 00 c4 | 95 09 58 85 17 00 c4 95 |...!....|..X.....|
|000031f0| 62 29 87 22 20 5b 6e 69 | 6c 20 65 6f 6c 20 6c 6f |b)." [ni|l eol lo|
|00003200| 6f 6b 69 6e 67 2d 61 74 | 20 63 6f 6d 69 6e 74 2d |oking-at| comint-|
|00003210| 70 72 6f 6d 70 74 2d 72 | 65 67 65 78 70 20 30 5d |prompt-r|egexp 0]|
|00003220| 20 32 20 22 5c 0a 53 6b | 69 70 20 70 61 73 74 20 | 2 "\.Sk|ip past |
|00003230| 74 68 65 20 74 65 78 74 | 20 6d 61 74 63 68 69 6e |the text| matchin|
|00003240| 67 20 72 65 67 65 78 70 | 20 60 63 6f 6d 69 6e 74 |g regexp| `comint|
|00003250| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 27 2e |-prompt-|regexp'.|
|00003260| 0a 49 66 20 74 68 69 73 | 20 74 61 6b 65 73 20 75 |.If this| takes u|
|00003270| 73 20 70 61 73 74 20 74 | 68 65 20 65 6e 64 20 6f |s past t|he end o|
|00003280| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |f the cu|rrent li|
|00003290| 6e 65 2c 20 64 6f 6e 27 | 74 20 73 6b 69 70 20 61 |ne, don'|t skip a|
|000032a0| 74 20 61 6c 6c 2e 22 5d | 29 0a 28 64 65 66 61 6c |t all."]|).(defal|
|000032b0| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 61 66 74 65 |ias 'com|int-afte|
|000032c0| 72 2d 70 6d 61 72 6b 2d | 70 20 23 5b 6e 69 6c 20 |r-pmark-|p #[nil |
|000032d0| 22 c0 c1 c2 70 21 21 21 | 89 1b 60 58 29 87 22 20 |"...p!!!|..`X)." |
|000032e0| 5b 6d 61 72 6b 65 72 2d | 70 6f 73 69 74 69 6f 6e |[marker-|position|
|000032f0| 20 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 67 65 | process|-mark ge|
|00003300| 74 2d 62 75 66 66 65 72 | 2d 70 72 6f 63 65 73 73 |t-buffer|-process|
|00003310| 20 70 72 6f 63 2d 70 6f | 73 5d 20 35 20 22 5c 0a | proc-po|s] 5 "\.|
|00003320| 49 73 20 70 6f 69 6e 74 | 20 61 66 74 65 72 20 74 |Is point| after t|
|00003330| 68 65 20 70 72 6f 63 65 | 73 73 20 6f 75 74 70 75 |he proce|ss outpu|
|00003340| 74 20 6d 61 72 6b 65 72 | 3f 22 5d 29 0a 28 64 65 |t marker|?"]).(de|
|00003350| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 73 |falias '|comint-s|
|00003360| 69 6d 70 6c 65 2d 73 65 | 6e 64 20 23 5b 28 70 72 |imple-se|nd #[(pr|
|00003370| 6f 63 20 73 74 72 69 6e | 67 29 20 22 c0 09 5c 6e |oc strin|g) "..\n|
|00003380| 5c 22 88 c0 09 c3 5c 22 | 87 22 20 5b 63 6f 6d 69 |\"....\"|." [comi|
|00003390| 6e 74 2d 73 65 6e 64 2d | 73 74 72 69 6e 67 20 70 |nt-send-|string p|
|000033a0| 72 6f 63 20 73 74 72 69 | 6e 67 20 22 5c 6e 22 5d |roc stri|ng "\n"]|
|000033b0| 20 33 20 22 5c 0a 44 65 | 66 61 75 6c 74 20 66 75 | 3 "\.De|fault fu|
|000033c0| 6e 63 74 69 6f 6e 20 66 | 6f 72 20 73 65 6e 64 69 |nction f|or sendi|
|000033d0| 6e 67 20 74 6f 20 50 52 | 4f 43 20 69 6e 70 75 74 |ng to PR|OC input|
|000033e0| 20 53 54 52 49 4e 47 2e | 0a 54 68 69 73 20 6a 75 | STRING.|.This ju|
|000033f0| 73 74 20 73 65 6e 64 73 | 20 53 54 52 49 4e 47 20 |st sends| STRING |
|00003400| 70 6c 75 73 20 61 20 6e | 65 77 6c 69 6e 65 2e 20 |plus a n|ewline. |
|00003410| 54 6f 20 6f 76 65 72 72 | 69 64 65 20 74 68 69 73 |To overr|ide this|
|00003420| 2c 0a 73 65 74 20 74 68 | 65 20 68 6f 6f 6b 20 60 |,.set th|e hook `|
|00003430| 63 6f 6d 69 6e 74 2d 69 | 6e 70 75 74 2d 73 65 6e |comint-i|nput-sen|
|00003440| 64 65 72 27 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |der'."])|.(defali|
|00003450| 61 73 20 27 63 6f 6d 69 | 6e 74 2d 62 6f 6c 20 23 |as 'comi|nt-bol #|
|00003460| 5b 28 61 72 67 29 20 22 | c0 79 88 09 3f 85 5c 6e |[(arg) "|.y..?.\n|
|00003470| 00 c2 20 87 22 20 5b 30 | 20 61 72 67 20 63 6f 6d |.. ." [0| arg com|
|00003480| 69 6e 74 2d 73 6b 69 70 | 2d 70 72 6f 6d 70 74 5d |int-skip|-prompt]|
|00003490| 20 31 20 22 5c 0a 47 6f | 65 73 20 74 6f 20 74 68 | 1 "\.Go|es to th|
|000034a0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 6c |e beginn|ing of l|
|000034b0| 69 6e 65 2c 20 74 68 65 | 6e 20 73 6b 69 70 73 20 |ine, the|n skips |
|000034c0| 70 61 73 74 20 74 68 65 | 20 70 72 6f 6d 70 74 2c |past the| prompt,|
|000034d0| 20 69 66 20 61 6e 79 2e | 0a 49 66 20 61 20 70 72 | if any.|.If a pr|
|000034e0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |efix arg|ument is|
|000034f0| 20 67 69 76 65 6e 20 28 | 5c 5c 5b 75 6e 69 76 65 | given (|\\[unive|
|00003500| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 5d 29 2c |rsal-arg|ument]),|
|00003510| 20 74 68 65 6e 20 6e 6f | 20 70 72 6f 6d 70 74 20 | then no| prompt |
|00003520| 73 6b 69 70 20 0a 2d 2d | 20 67 6f 20 73 74 72 61 |skip .--| go stra|
|00003530| 69 67 68 74 20 74 6f 20 | 63 6f 6c 75 6d 6e 20 30 |ight to |column 0|
|00003540| 2e 0a 0a 54 68 65 20 70 | 72 6f 6d 70 74 20 73 6b |...The p|rompt sk|
|00003550| 69 70 20 69 73 20 64 6f | 6e 65 20 62 79 20 73 6b |ip is do|ne by sk|
|00003560| 69 70 70 69 6e 67 20 74 | 65 78 74 20 6d 61 74 63 |ipping t|ext matc|
|00003570| 68 69 6e 67 20 74 68 65 | 20 72 65 67 75 6c 61 72 |hing the| regular|
|00003580| 20 65 78 70 72 65 73 73 | 69 6f 6e 0a 60 63 6f 6d | express|ion.`com|
|00003590| 69 6e 74 2d 70 72 6f 6d | 70 74 2d 72 65 67 65 78 |int-prom|pt-regex|
|000035a0| 70 27 2c 20 61 20 62 75 | 66 66 65 72 20 6c 6f 63 |p', a bu|ffer loc|
|000035b0| 61 6c 20 76 61 72 69 61 | 62 6c 65 2e 0a 0a 49 66 |al varia|ble...If|
|000035c0| 20 79 6f 75 20 64 6f 6e | 27 74 20 6c 69 6b 65 20 | you don|'t like |
|000035d0| 74 68 69 73 20 63 6f 6d | 6d 61 6e 64 2c 20 62 69 |this com|mand, bi|
|000035e0| 6e 64 20 43 2d 61 20 74 | 6f 20 60 62 65 67 69 6e |nd C-a t|o `begin|
|000035f0| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 27 20 0a 69 |ning-of-|line' .i|
|00003600| 6e 20 79 6f 75 72 20 68 | 6f 6f 6b 2c 20 60 63 6f |n your h|ook, `co|
|00003610| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 27 2e |mint-mod|e-hook'.|
|00003620| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00003630| 73 20 27 63 6f 6d 69 6e | 74 2d 72 65 61 64 2d 6e |s 'comin|t-read-n|
|00003640| 6f 65 63 68 6f 20 23 5b | 28 70 72 6f 6d 70 74 20 |oecho #[|(prompt |
|00003650| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 61 72 73 29 |&optiona|l stars)|
|00003660| 20 22 c0 c1 89 c2 c3 1c | 1d 1e 06 1e 07 1e 08 0c | "......|........|
|00003670| 84 91 00 0e 09 83 25 00 | ca cb 0e 0c cd 0e 08 47 |......%.|.......G|
|00003680| ce 5c 22 23 88 82 2a 00 | ca 0e 0c 21 88 cf 20 89 |.\"#..*.|...!.. .|
|00003690| 16 07 d0 55 83 3d 00 c2 | 16 11 c2 89 14 82 0e 00 |...U.=..|........|
|000036a0| 0e 07 d2 55 84 52 00 0e | 07 d3 55 84 52 00 0e 07 |...U.R..|..U.R...|
|000036b0| d4 55 83 58 00 c2 89 14 | 82 0e 00 0e 07 d5 55 83 |.U.X....|......U.|
|000036c0| 65 00 c0 16 08 82 0d 00 | 0e 07 d6 55 84 7f 00 0e |e.......|...U....|
|000036d0| 07 d7 55 84 7f 00 0e 08 | d8 0e 07 21 50 16 08 82 |..U.....|...!P...|
|000036e0| 0d 00 0e 08 47 c1 56 83 | 0d 00 0e 08 c1 d9 4f 16 |....G.V.|......O.|
|000036f0| 08 82 0d 00 0e 11 83 a5 | 00 c3 89 16 11 ca da 21 |........|.......!|
|00003700| 88 db c2 21 88 82 ab 00 | ca c0 21 88 0e 08 2d 87 |...!....|..!...-.|
|00003710| 22 20 5b 22 22 20 30 20 | 74 20 6e 69 6c 20 64 6f |" ["" 0 |t nil do|
|00003720| 6e 65 20 63 75 72 73 6f | 72 2d 69 6e 2d 65 63 68 |ne curso|r-in-ech|
|00003730| 6f 2d 61 72 65 61 20 65 | 63 68 6f 2d 6b 65 79 73 |o-area e|cho-keys|
|00003740| 74 72 6f 6b 65 73 20 63 | 20 61 6e 73 20 73 74 61 |trokes c| ans sta|
|00003750| 72 73 20 6d 65 73 73 61 | 67 65 20 22 25 73 25 73 |rs messa|ge "%s%s|
|00003760| 22 20 70 72 6f 6d 70 74 | 20 6d 61 6b 65 2d 73 74 |" prompt| make-st|
|00003770| 72 69 6e 67 20 34 32 20 | 72 65 61 64 2d 63 68 61 |ring 42 |read-cha|
|00003780| 72 20 37 20 71 75 69 74 | 2d 66 6c 61 67 20 31 33 |r 7 quit|-flag 13|
|00003790| 20 31 30 20 32 37 20 32 | 31 20 38 20 31 32 37 20 | 10 27 2|1 8 127 |
|000037a0| 63 68 61 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 2d |char-to-|string -|
|000037b0| 31 20 22 51 75 69 74 22 | 20 62 65 65 70 5d 20 37 |1 "Quit"| beep] 7|
|000037c0| 20 22 5c 0a 52 65 61 64 | 20 61 20 73 69 6e 67 6c | "\.Read| a singl|
|000037d0| 65 20 6c 69 6e 65 20 6f | 66 20 74 65 78 74 20 66 |e line o|f text f|
|000037e0| 72 6f 6d 20 75 73 65 72 | 20 77 69 74 68 6f 75 74 |rom user| without|
|000037f0| 20 65 63 68 6f 69 6e 67 | 2c 20 61 6e 64 20 72 65 | echoing|, and re|
|00003800| 74 75 72 6e 20 69 74 2e | 20 0a 50 72 6f 6d 70 74 |turn it.| .Prompt|
|00003810| 20 77 69 74 68 20 61 72 | 67 75 6d 65 6e 74 20 50 | with ar|gument P|
|00003820| 52 4f 4d 50 54 2c 20 61 | 20 73 74 72 69 6e 67 2e |ROMPT, a| string.|
|00003830| 20 20 4f 70 74 69 6f 6e | 61 6c 20 61 72 67 75 6d | Option|al argum|
|00003840| 65 6e 74 20 53 54 41 52 | 53 20 63 61 75 73 65 73 |ent STAR|S causes|
|00003850| 0a 69 6e 70 75 74 20 74 | 6f 20 62 65 20 65 63 68 |.input t|o be ech|
|00003860| 6f 65 64 20 77 69 74 68 | 20 27 2a 27 20 63 68 61 |oed with| '*' cha|
|00003870| 72 61 63 74 65 72 73 20 | 6f 6e 20 74 68 65 20 70 |racters |on the p|
|00003880| 72 6f 6d 70 74 20 6c 69 | 6e 65 2e 20 20 49 6e 70 |rompt li|ne. Inp|
|00003890| 75 74 20 65 6e 64 73 20 | 77 69 74 68 0a 52 45 54 |ut ends |with.RET|
|000038a0| 2c 20 4c 46 44 2c 20 6f | 72 20 45 53 43 2e 20 20 |, LFD, o|r ESC. |
|000038b0| 44 45 4c 20 6f 72 20 43 | 2d 68 20 72 75 62 73 20 |DEL or C|-h rubs |
|000038c0| 6f 75 74 2e 20 20 43 2d | 75 20 6b 69 6c 6c 73 20 |out. C-|u kills |
|000038d0| 6c 69 6e 65 2e 20 20 43 | 2d 67 20 61 62 6f 72 74 |line. C|-g abort|
|000038e0| 73 20 28 69 66 0a 60 69 | 6e 68 69 62 69 74 2d 71 |s (if.`i|nhibit-q|
|000038f0| 75 69 74 27 20 69 73 20 | 73 65 74 20 62 65 63 61 |uit' is |set beca|
|00003900| 75 73 65 20 65 2e 67 2e | 20 74 68 69 73 20 66 75 |use e.g.| this fu|
|00003910| 6e 63 74 69 6f 6e 20 77 | 61 73 20 63 61 6c 6c 65 |nction w|as calle|
|00003920| 64 20 66 72 6f 6d 20 61 | 20 70 72 6f 63 65 73 73 |d from a| process|
|00003930| 0a 66 69 6c 74 65 72 20 | 61 6e 64 20 43 2d 67 20 |.filter |and C-g |
|00003940| 69 73 20 70 72 65 73 73 | 65 64 2c 20 74 68 69 73 |is press|ed, this|
|00003950| 20 66 75 6e 63 74 69 6f | 6e 20 72 65 74 75 72 6e | functio|n return|
|00003960| 73 20 6e 69 6c 20 72 61 | 74 68 65 72 20 74 68 61 |s nil ra|ther tha|
|00003970| 6e 20 61 20 73 74 72 69 | 6e 67 29 2e 0a 0a 4e 6f |n a stri|ng)...No|
|00003980| 74 65 20 74 68 61 74 20 | 74 68 65 20 6b 65 79 73 |te that |the keys|
|00003990| 74 72 6f 6b 65 73 20 63 | 6f 6d 70 72 69 73 69 6e |trokes c|omprisin|
|000039a0| 67 20 74 68 65 20 74 65 | 78 74 20 63 61 6e 20 73 |g the te|xt can s|
|000039b0| 74 69 6c 6c 20 62 65 20 | 72 65 63 6f 76 65 72 65 |till be |recovere|
|000039c0| 64 0a 28 74 65 6d 70 6f | 72 61 72 69 6c 79 29 20 |d.(tempo|rarily) |
|000039d0| 77 69 74 68 20 5c 5c 5b | 76 69 65 77 2d 6c 6f 73 |with \\[|view-los|
|000039e0| 73 61 67 65 5d 2e 20 20 | 54 68 69 73 20 6d 61 79 |sage]. |This may|
|000039f0| 20 62 65 20 61 20 73 65 | 63 75 72 69 74 79 20 62 | be a se|curity b|
|00003a00| 75 67 20 66 6f 72 20 73 | 6f 6d 65 0a 61 70 70 6c |ug for s|ome.appl|
|00003a10| 69 63 61 74 69 6f 6e 73 | 2e 22 5d 29 0a 28 64 65 |ications|."]).(de|
|00003a20| 66 61 6c 69 61 73 20 27 | 73 65 6e 64 2d 69 6e 76 |falias '|send-inv|
|00003a30| 69 73 69 62 6c 65 20 23 | 5b 28 73 74 72 29 20 22 |isible #|[(str) "|
|00003a40| c0 70 21 89 19 84 0e 00 | c2 c3 21 82 23 00 c4 09 |.p!.....|..!.#...|
|00003a50| 0d 3b 83 19 00 0d 82 1d | 00 c6 c7 c8 5c 22 5c 22 |.;......|....\"\"|
|00003a60| 88 c4 09 c9 5c 22 29 87 | 22 20 5b 67 65 74 2d 62 |....\").|" [get-b|
|00003a70| 75 66 66 65 72 2d 70 72 | 6f 63 65 73 73 20 70 72 |uffer-pr|ocess pr|
|00003a80| 6f 63 20 65 72 72 6f 72 | 20 22 43 75 72 72 65 6e |oc error| "Curren|
|00003a90| 74 20 62 75 66 66 65 72 | 20 68 61 73 20 6e 6f 20 |t buffer| has no |
|00003aa0| 70 72 6f 63 65 73 73 22 | 20 63 6f 6d 69 6e 74 2d |process"| comint-|
|00003ab0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 73 74 72 20 |send-str|ing str |
|00003ac0| 63 6f 6d 69 6e 74 2d 72 | 65 61 64 2d 6e 6f 65 63 |comint-r|ead-noec|
|00003ad0| 68 6f 20 22 4e 6f 6e 2d | 65 63 68 6f 65 64 20 74 |ho "Non-|echoed t|
|00003ae0| 65 78 74 3a 20 22 20 74 | 20 22 5c 6e 22 5d 20 36 |ext: " t| "\n"] 6|
|00003af0| 20 22 5c 0a 52 65 61 64 | 20 61 20 73 74 72 69 6e | "\.Read| a strin|
|00003b00| 67 20 77 69 74 68 6f 75 | 74 20 65 63 68 6f 69 6e |g withou|t echoin|
|00003b10| 67 2e 0a 54 68 65 6e 20 | 73 65 6e 64 20 69 74 20 |g..Then |send it |
|00003b20| 74 6f 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 72 |to the p|rocess r|
|00003b30| 75 6e 6e 69 6e 67 20 69 | 6e 20 74 68 65 20 63 75 |unning i|n the cu|
|00003b40| 72 72 65 6e 74 20 62 75 | 66 66 65 72 2e 20 20 41 |rrent bu|ffer. A|
|00003b50| 20 6e 65 77 2d 6c 69 6e | 65 0a 69 73 20 61 64 64 | new-lin|e.is add|
|00003b60| 69 74 69 6f 6e 61 6c 6c | 79 20 73 65 6e 74 2e 20 |itionall|y sent. |
|00003b70| 20 53 74 72 69 6e 67 20 | 69 73 20 6e 6f 74 20 73 | String |is not s|
|00003b80| 61 76 65 64 20 6f 6e 20 | 63 6f 6d 69 6e 74 20 69 |aved on |comint i|
|00003b90| 6e 70 75 74 20 68 69 73 | 74 6f 72 79 20 6c 69 73 |nput his|tory lis|
|00003ba0| 74 2e 0a 53 65 63 75 72 | 69 74 79 20 62 75 67 3a |t..Secur|ity bug:|
|00003bb0| 20 79 6f 75 72 20 73 74 | 72 69 6e 67 20 63 61 6e | your st|ring can|
|00003bc0| 20 73 74 69 6c 6c 20 62 | 65 20 74 65 6d 70 6f 72 | still b|e tempor|
|00003bd0| 61 72 69 6c 79 20 72 65 | 63 6f 76 65 72 65 64 20 |arily re|covered |
|00003be0| 77 69 74 68 0a 5c 5c 5b | 76 69 65 77 2d 6c 6f 73 |with.\\[|view-los|
|00003bf0| 73 61 67 65 5d 2e 22 20 | 22 50 22 5d 29 0a 28 64 |sage]." |"P"]).(d|
|00003c00| 65 66 76 61 72 20 63 6f | 6d 69 6e 74 2d 69 6e 70 |efvar co|mint-inp|
|00003c10| 75 74 2d 63 68 75 6e 6b | 2d 73 69 7a 65 20 35 31 |ut-chunk|-size 51|
|00003c20| 32 20 22 5c 0a 2a 4c 6f | 6e 67 20 69 6e 70 75 74 |2 "\.*Lo|ng input|
|00003c30| 73 20 61 72 65 20 73 65 | 6e 74 20 74 6f 20 63 6f |s are se|nt to co|
|00003c40| 6d 69 6e 74 20 70 72 6f | 63 65 73 73 65 73 20 69 |mint pro|cesses i|
|00003c50| 6e 20 63 68 75 6e 6b 73 | 20 6f 66 20 74 68 69 73 |n chunks| of this|
|00003c60| 20 73 69 7a 65 2e 0a 49 | 66 20 79 6f 75 72 20 70 | size..I|f your p|
|00003c70| 72 6f 63 65 73 73 20 69 | 73 20 63 68 6f 6b 69 6e |rocess i|s chokin|
|00003c80| 67 20 6f 6e 20 62 69 67 | 20 69 6e 70 75 74 73 2c |g on big| inputs,|
|00003c90| 20 74 72 79 20 6c 6f 77 | 65 72 69 6e 67 20 74 68 | try low|ering th|
|00003ca0| 65 20 76 61 6c 75 65 2e | 22 29 0a 28 64 65 66 61 |e value.|").(defa|
|00003cb0| 6c 69 61 73 20 27 63 6f | 6d 69 6e 74 2d 73 65 6e |lias 'co|mint-sen|
|00003cc0| 64 2d 73 74 72 69 6e 67 | 20 23 5b 28 70 72 6f 63 |d-string| #[(proc|
|00003cd0| 20 73 74 72 29 20 22 08 | 47 89 19 5c 6e 5e 1b c4 | str) ".|G..\n^..|
|00003ce0| 0d 08 c6 0b 4f 5c 22 88 | 0b 09 57 85 2f 00 0b 5c |....O\".|..W./..\|
|00003cf0| 6e 5c 5c 1e 07 c8 20 88 | c4 0d 08 0b 09 0e 07 5e |n\\... .|.......^|
|00003d00| 4f 5c 22 88 0e 07 13 29 | 82 0f 00 2a 87 22 20 5b |O\"....)|...*." [|
|00003d10| 73 74 72 20 6c 65 6e 20 | 63 6f 6d 69 6e 74 2d 69 |str len |comint-i|
|00003d20| 6e 70 75 74 2d 63 68 75 | 6e 6b 2d 73 69 7a 65 20 |nput-chu|nk-size |
|00003d30| 69 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |i proces|s-send-s|
|00003d40| 74 72 69 6e 67 20 70 72 | 6f 63 20 30 20 6e 65 78 |tring pr|oc 0 nex|
|00003d50| 74 2d 69 20 61 63 63 65 | 70 74 2d 70 72 6f 63 65 |t-i acce|pt-proce|
|00003d60| 73 73 2d 6f 75 74 70 75 | 74 5d 20 37 20 22 5c 0a |ss-outpu|t] 7 "\.|
|00003d70| 53 65 6e 64 20 50 52 4f | 43 45 53 53 20 74 68 65 |Send PRO|CESS the|
|00003d80| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 53 54 52 | content|s of STR|
|00003d90| 49 4e 47 20 61 73 20 69 | 6e 70 75 74 2e 0a 54 68 |ING as i|nput..Th|
|00003da0| 69 73 20 69 73 20 65 71 | 75 69 76 61 6c 65 6e 74 |is is eq|uivalent|
|00003db0| 20 74 6f 20 60 70 72 6f | 63 65 73 73 2d 73 65 6e | to `pro|cess-sen|
|00003dc0| 64 2d 73 74 72 69 6e 67 | 27 2c 20 65 78 63 65 70 |d-string|', excep|
|00003dd0| 74 20 74 68 61 74 20 6c | 6f 6e 67 20 69 6e 70 75 |t that l|ong inpu|
|00003de0| 74 20 73 74 72 69 6e 67 | 73 0a 61 72 65 20 62 72 |t string|s.are br|
|00003df0| 6f 6b 65 6e 20 75 70 20 | 69 6e 74 6f 20 63 68 75 |oken up |into chu|
|00003e00| 6e 6b 73 20 6f 66 20 73 | 69 7a 65 20 60 63 6f 6d |nks of s|ize `com|
|00003e10| 69 6e 74 2d 69 6e 70 75 | 74 2d 63 68 75 6e 6b 2d |int-inpu|t-chunk-|
|00003e20| 73 69 7a 65 27 2e 20 20 | 50 72 6f 63 65 73 73 65 |size'. |Processe|
|00003e30| 73 0a 61 72 65 20 67 69 | 76 65 6e 20 61 20 63 68 |s.are gi|ven a ch|
|00003e40| 61 6e 63 65 20 74 6f 20 | 6f 75 74 70 75 74 20 62 |ance to |output b|
|00003e50| 65 74 77 65 65 6e 20 63 | 68 75 6e 6b 73 2e 20 20 |etween c|hunks. |
|00003e60| 54 68 69 73 20 63 61 6e | 20 68 65 6c 70 20 70 72 |This can| help pr|
|00003e70| 65 76 65 6e 74 20 70 72 | 6f 63 65 73 73 65 73 0a |event pr|ocesses.|
|00003e80| 66 72 6f 6d 20 68 61 6e | 67 69 6e 67 20 77 68 65 |from han|ging whe|
|00003e90| 6e 20 79 6f 75 20 73 65 | 6e 64 20 74 68 65 6d 20 |n you se|nd them |
|00003ea0| 6c 6f 6e 67 20 69 6e 70 | 75 74 73 20 6f 6e 20 73 |long inp|uts on s|
|00003eb0| 6f 6d 65 20 4f 53 27 73 | 2e 22 5d 29 0a 28 64 65 |ome OS's|."]).(de|
|00003ec0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 73 |falias '|comint-s|
|00003ed0| 65 6e 64 2d 72 65 67 69 | 6f 6e 20 23 5b 28 70 72 |end-regi|on #[(pr|
|00003ee0| 6f 63 20 73 74 61 72 74 | 20 65 6e 64 29 20 22 c0 |oc start| end) ".|
|00003ef0| 09 5c 6e 0b 7b 5c 22 87 | 22 20 5b 63 6f 6d 69 6e |.\n.{\".|" [comin|
|00003f00| 74 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 70 72 |t-send-s|tring pr|
|00003f10| 6f 63 20 73 74 61 72 74 | 20 65 6e 64 5d 20 34 20 |oc start| end] 4 |
|00003f20| 22 5c 0a 53 65 6e 64 73 | 20 74 6f 20 50 52 4f 43 |"\.Sends| to PROC|
|00003f30| 20 74 68 65 20 72 65 67 | 69 6f 6e 20 64 65 6c 69 | the reg|ion deli|
|00003f40| 6d 69 74 65 64 20 62 79 | 20 53 54 41 52 54 20 61 |mited by| START a|
|00003f50| 6e 64 20 45 4e 44 2e 0a | 54 68 69 73 20 69 73 20 |nd END..|This is |
|00003f60| 61 20 72 65 70 6c 61 63 | 65 6d 65 6e 74 20 66 6f |a replac|ement fo|
|00003f70| 72 20 60 70 72 6f 63 65 | 73 73 2d 73 65 6e 64 2d |r `proce|ss-send-|
|00003f80| 72 65 67 69 6f 6e 27 20 | 74 68 61 74 20 74 72 69 |region' |that tri|
|00003f90| 65 73 20 74 6f 20 6b 65 | 65 70 0a 79 6f 75 72 20 |es to ke|ep.your |
|00003fa0| 70 72 6f 63 65 73 73 20 | 66 72 6f 6d 20 68 61 6e |process |from han|
|00003fb0| 67 69 6e 67 20 6f 6e 20 | 6c 6f 6e 67 20 69 6e 70 |ging on |long inp|
|00003fc0| 75 74 73 2e 20 20 53 65 | 65 20 60 63 6f 6d 69 6e |uts. Se|e `comin|
|00003fd0| 74 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 27 2e 22 |t-send-s|tring'."|
|00003fe0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |]).(defa|lias 'co|
|00003ff0| 6d 69 6e 74 2d 6b 69 6c | 6c 2d 6f 75 74 70 75 74 |mint-kil|l-output|
|00004000| 20 23 5b 6e 69 6c 20 22 | c0 c1 70 21 21 1a c3 0c | #[nil "|..p!!...|
|00004010| 5c 6e 5c 22 88 5c 6e 62 | 88 c5 63 88 5c 6e 60 c6 |\n\".\nb|..c.\n`.|
|00004020| 93 29 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 6d 61 |.)." [pr|ocess-ma|
|00004030| 72 6b 20 67 65 74 2d 62 | 75 66 66 65 72 2d 70 72 |rk get-b|uffer-pr|
|00004040| 6f 63 65 73 73 20 70 6d | 61 72 6b 20 6b 69 6c 6c |ocess pm|ark kill|
|00004050| 2d 72 65 67 69 6f 6e 20 | 63 6f 6d 69 6e 74 2d 6c |-region |comint-l|
|00004060| 61 73 74 2d 69 6e 70 75 | 74 2d 65 6e 64 20 22 2a |ast-inpu|t-end "*|
|00004070| 2a 2a 20 6f 75 74 70 75 | 74 20 66 6c 75 73 68 65 |** outpu|t flushe|
|00004080| 64 20 2a 2a 2a 5c 6e 22 | 20 6e 69 6c 5d 20 33 20 |d ***\n"| nil] 3 |
|00004090| 22 5c 0a 4b 69 6c 6c 20 | 61 6c 6c 20 6f 75 74 70 |"\.Kill |all outp|
|000040a0| 75 74 20 66 72 6f 6d 20 | 69 6e 74 65 72 70 72 65 |ut from |interpre|
|000040b0| 74 65 72 20 73 69 6e 63 | 65 20 6c 61 73 74 20 69 |ter sinc|e last i|
|000040c0| 6e 70 75 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |nput." n|il]).(de|
|000040d0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 73 |falias '|comint-s|
|000040e0| 68 6f 77 2d 6f 75 74 70 | 75 74 20 23 5b 6e 69 6c |how-outp|ut #[nil|
|000040f0| 20 22 08 62 88 c1 20 88 | c2 79 88 c3 c4 20 60 5c | ".b.. .|.y... `\|
|00004100| 22 88 c5 7f 87 22 20 5b | 63 6f 6d 69 6e 74 2d 6c |"...." [|comint-l|
|00004110| 61 73 74 2d 69 6e 70 75 | 74 2d 65 6e 64 20 62 61 |ast-inpu|t-end ba|
|00004120| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 30 20 73 65 |ckward-c|har 0 se|
|00004130| 74 2d 77 69 6e 64 6f 77 | 2d 73 74 61 72 74 20 73 |t-window|-start s|
|00004140| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 6e |elected-|window n|
|00004150| 69 6c 5d 20 33 20 22 5c | 0a 44 69 73 70 6c 61 79 |il] 3 "\|.Display|
|00004160| 20 73 74 61 72 74 20 6f | 66 20 74 68 69 73 20 62 | start o|f this b|
|00004170| 61 74 63 68 20 6f 66 20 | 69 6e 74 65 72 70 72 65 |atch of |interpre|
|00004180| 74 65 72 20 6f 75 74 70 | 75 74 20 61 74 20 74 6f |ter outp|ut at to|
|00004190| 70 20 6f 66 20 77 69 6e | 64 6f 77 2e 0a 41 6c 73 |p of win|dow..Als|
|000041a0| 6f 20 70 75 74 20 63 75 | 72 73 6f 72 20 74 68 65 |o put cu|rsor the|
|000041b0| 72 65 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |re." nil|]).(defa|
|000041c0| 6c 69 61 73 20 27 63 6f | 6d 69 6e 74 2d 69 6e 74 |lias 'co|mint-int|
|000041d0| 65 72 72 75 70 74 2d 73 | 75 62 6a 6f 62 20 23 5b |errupt-s|ubjob #[|
|000041e0| 6e 69 6c 20 22 c0 c1 5c | 6e 5c 22 87 22 20 5b 69 |nil "..\|n\"." [i|
|000041f0| 6e 74 65 72 72 75 70 74 | 2d 70 72 6f 63 65 73 73 |nterrupt|-process|
|00004200| 20 6e 69 6c 20 63 6f 6d | 69 6e 74 2d 70 74 79 70 | nil com|int-ptyp|
|00004210| 5d 20 33 20 22 5c 0a 49 | 6e 74 65 72 72 75 70 74 |] 3 "\.I|nterrupt|
|00004220| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 73 75 62 | the cur|rent sub|
|00004230| 6a 6f 62 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |job." ni|l]).(def|
|00004240| 61 6c 69 61 73 20 27 63 | 6f 6d 69 6e 74 2d 6b 69 |alias 'c|omint-ki|
|00004250| 6c 6c 2d 73 75 62 6a 6f | 62 20 23 5b 6e 69 6c 20 |ll-subjo|b #[nil |
|00004260| 22 c0 c1 5c 6e 5c 22 87 | 22 20 5b 6b 69 6c 6c 2d |"..\n\".|" [kill-|
|00004270| 70 72 6f 63 65 73 73 20 | 6e 69 6c 20 63 6f 6d 69 |process |nil comi|
|00004280| 6e 74 2d 70 74 79 70 5d | 20 33 20 22 5c 0a 53 65 |nt-ptyp]| 3 "\.Se|
|00004290| 6e 64 20 6b 69 6c 6c 20 | 73 69 67 6e 61 6c 20 74 |nd kill |signal t|
|000042a0| 6f 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 73 75 |o the cu|rrent su|
|000042b0| 62 6a 6f 62 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |bjob." n|il]).(de|
|000042c0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 71 |falias '|comint-q|
|000042d0| 75 69 74 2d 73 75 62 6a | 6f 62 20 23 5b 6e 69 6c |uit-subj|ob #[nil|
|000042e0| 20 22 c0 c1 5c 6e 5c 22 | 87 22 20 5b 71 75 69 74 | "..\n\"|." [quit|
|000042f0| 2d 70 72 6f 63 65 73 73 | 20 6e 69 6c 20 63 6f 6d |-process| nil com|
|00004300| 69 6e 74 2d 70 74 79 70 | 5d 20 33 20 22 5c 0a 53 |int-ptyp|] 3 "\.S|
|00004310| 65 6e 64 20 71 75 69 74 | 20 73 69 67 6e 61 6c 20 |end quit| signal |
|00004320| 74 6f 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |to the c|urrent s|
|00004330| 75 62 6a 6f 62 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |ubjob." |nil]).(d|
|00004340| 65 66 61 6c 69 61 73 20 | 27 63 6f 6d 69 6e 74 2d |efalias |'comint-|
|00004350| 73 74 6f 70 2d 73 75 62 | 6a 6f 62 20 23 5b 6e 69 |stop-sub|job #[ni|
|00004360| 6c 20 22 c0 c1 5c 6e 5c | 22 87 22 20 5b 73 74 6f |l "..\n\|"." [sto|
|00004370| 70 2d 70 72 6f 63 65 73 | 73 20 6e 69 6c 20 63 6f |p-proces|s nil co|
|00004380| 6d 69 6e 74 2d 70 74 79 | 70 5d 20 33 20 22 5c 0a |mint-pty|p] 3 "\.|
|00004390| 53 74 6f 70 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Stop the| current|
|000043a0| 20 73 75 62 6a 6f 62 2e | 0a 57 41 52 4e 49 4e 47 | subjob.|.WARNING|
|000043b0| 3a 20 69 66 20 74 68 65 | 72 65 20 69 73 20 6e 6f |: if the|re is no|
|000043c0| 20 63 75 72 72 65 6e 74 | 20 73 75 62 6a 6f 62 2c | current| subjob,|
|000043d0| 20 79 6f 75 20 63 61 6e | 20 65 6e 64 20 75 70 20 | you can| end up |
|000043e0| 73 75 73 70 65 6e 64 69 | 6e 67 0a 74 68 65 20 74 |suspendi|ng.the t|
|000043f0| 6f 70 2d 6c 65 76 65 6c | 20 70 72 6f 63 65 73 73 |op-level| process|
|00004400| 20 72 75 6e 6e 69 6e 67 | 20 69 6e 20 74 68 65 20 | running| in the |
|00004410| 62 75 66 66 65 72 2e 20 | 49 66 20 79 6f 75 20 61 |buffer. |If you a|
|00004420| 63 63 69 64 65 6e 74 61 | 6c 6c 79 20 64 6f 0a 74 |ccidenta|lly do.t|
|00004430| 68 69 73 2c 20 75 73 65 | 20 5c 5c 5b 63 6f 6d 69 |his, use| \\[comi|
|00004440| 6e 74 2d 63 6f 6e 74 69 | 6e 75 65 2d 73 75 62 6a |nt-conti|nue-subj|
|00004450| 6f 62 5d 20 74 6f 20 72 | 65 73 75 6d 65 20 74 68 |ob] to r|esume th|
|00004460| 65 20 70 72 6f 63 65 73 | 73 2e 20 28 54 68 69 73 |e proces|s. (This|
|00004470| 0a 69 73 20 6e 6f 74 20 | 61 20 70 72 6f 62 6c 65 |.is not |a proble|
|00004480| 6d 20 77 69 74 68 20 6d | 6f 73 74 20 73 68 65 6c |m with m|ost shel|
|00004490| 6c 73 2c 20 73 69 6e 63 | 65 20 74 68 65 79 20 69 |ls, sinc|e they i|
|000044a0| 67 6e 6f 72 65 20 74 68 | 69 73 20 73 69 67 6e 61 |gnore th|is signa|
|000044b0| 6c 2e 29 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |l.)" nil|]).(defa|
|000044c0| 6c 69 61 73 20 27 63 6f | 6d 69 6e 74 2d 63 6f 6e |lias 'co|mint-con|
|000044d0| 74 69 6e 75 65 2d 73 75 | 62 6a 6f 62 20 23 5b 6e |tinue-su|bjob #[n|
|000044e0| 69 6c 20 22 c0 c1 5c 6e | 5c 22 87 22 20 5b 63 6f |il "..\n|\"." [co|
|000044f0| 6e 74 69 6e 75 65 2d 70 | 72 6f 63 65 73 73 20 6e |ntinue-p|rocess n|
|00004500| 69 6c 20 63 6f 6d 69 6e | 74 2d 70 74 79 70 5d 20 |il comin|t-ptyp] |
|00004510| 33 20 22 5c 0a 53 65 6e | 64 20 43 4f 4e 54 20 73 |3 "\.Sen|d CONT s|
|00004520| 69 67 6e 61 6c 20 74 6f | 20 70 72 6f 63 65 73 73 |ignal to| process|
|00004530| 20 62 75 66 66 65 72 27 | 73 20 70 72 6f 63 65 73 | buffer'|s proces|
|00004540| 73 20 67 72 6f 75 70 2e | 0a 55 73 65 66 75 6c 20 |s group.|.Useful |
|00004550| 69 66 20 79 6f 75 20 61 | 63 63 69 64 65 6e 74 61 |if you a|ccidenta|
|00004560| 6c 6c 79 20 73 75 73 70 | 65 6e 64 20 74 68 65 20 |lly susp|end the |
|00004570| 74 6f 70 2d 6c 65 76 65 | 6c 20 70 72 6f 63 65 73 |top-leve|l proces|
|00004580| 73 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |s." nil]|).(defal|
|00004590| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 6b 69 6c 6c |ias 'com|int-kill|
|000045a0| 2d 69 6e 70 75 74 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-input #|[nil "..|
|000045b0| 70 21 21 1a c3 5c 6e 21 | 1c 60 0c 56 85 14 00 c5 |p!!..\n!|.`.V....|
|000045c0| 5c 6e 60 5c 22 2a 87 22 | 20 5b 70 72 6f 63 65 73 |\n`\"*."| [proces|
|000045d0| 73 2d 6d 61 72 6b 20 67 | 65 74 2d 62 75 66 66 65 |s-mark g|et-buffe|
|000045e0| 72 2d 70 72 6f 63 65 73 | 73 20 70 6d 61 72 6b 20 |r-proces|s pmark |
|000045f0| 6d 61 72 6b 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |marker-p|osition |
|00004600| 70 2d 70 6f 73 20 6b 69 | 6c 6c 2d 72 65 67 69 6f |p-pos ki|ll-regio|
|00004610| 6e 5d 20 33 20 22 5c 0a | 4b 69 6c 6c 20 61 6c 6c |n] 3 "\.|Kill all|
|00004620| 20 74 65 78 74 20 66 72 | 6f 6d 20 6c 61 73 74 20 | text fr|om last |
|00004630| 73 74 75 66 66 20 6f 75 | 74 70 75 74 20 62 79 20 |stuff ou|tput by |
|00004640| 69 6e 74 65 72 70 72 65 | 74 65 72 20 74 6f 20 70 |interpre|ter to p|
|00004650| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|00004660| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 64 |falias '|comint-d|
|00004670| 65 6c 63 68 61 72 2d 6f | 72 2d 6d 61 79 62 65 2d |elchar-o|r-maybe-|
|00004680| 65 6f 66 20 23 5b 28 61 | 72 67 29 20 22 6d 83 07 |eof #[(a|rg) "m..|
|00004690| 00 c0 20 87 c1 5c 6e 21 | 87 22 20 5b 70 72 6f 63 |.. ..\n!|." [proc|
|000046a0| 65 73 73 2d 73 65 6e 64 | 2d 65 6f 66 20 64 65 6c |ess-send|-eof del|
|000046b0| 65 74 65 2d 63 68 61 72 | 20 61 72 67 5d 20 32 20 |ete-char| arg] 2 |
|000046c0| 22 5c 0a 44 65 6c 65 74 | 65 20 41 52 47 20 63 68 |"\.Delet|e ARG ch|
|000046d0| 61 72 61 63 74 65 72 73 | 20 66 6f 72 77 61 72 64 |aracters| forward|
|000046e0| 2c 20 6f 72 20 73 65 6e | 64 20 61 6e 20 45 4f 46 |, or sen|d an EOF|
|000046f0| 20 74 6f 20 70 72 6f 63 | 65 73 73 20 69 66 20 61 | to proc|ess if a|
|00004700| 74 20 65 6e 64 20 6f 66 | 20 62 75 66 66 65 72 2e |t end of| buffer.|
|00004710| 22 20 22 70 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |" "p"]).|(byte-co|
|00004720| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 87 |de "...\|"....\".|
|00004730| 22 20 5b 64 65 66 61 6c | 69 61 73 20 63 6f 6d 69 |" [defal|ias comi|
|00004740| 6e 74 2d 73 6f 75 72 63 | 65 2d 64 65 66 61 75 6c |nt-sourc|e-defaul|
|00004750| 74 20 23 5b 28 70 72 65 | 76 69 6f 75 73 2d 64 69 |t #[(pre|vious-di|
|00004760| 72 2f 66 69 6c 65 20 73 | 6f 75 72 63 65 2d 6d 6f |r/file s|ource-mo|
|00004770| 64 65 73 29 20 22 08 83 | 12 00 09 5c 6e 3e 83 12 |des) "..|...\n>..|
|00004780| 00 c3 08 21 c4 08 21 42 | 87 0d 86 1a 00 0e 06 c7 |...!..!B|........|
|00004790| 42 87 22 20 5b 62 75 66 | 66 65 72 2d 66 69 6c 65 |B." [buf|fer-file|
|000047a0| 2d 6e 61 6d 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-name ma|jor-mode|
|000047b0| 20 73 6f 75 72 63 65 2d | 6d 6f 64 65 73 20 66 69 | source-|modes fi|
|000047c0| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|000047d0| 79 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |y file-n|ame-nond|
|000047e0| 69 72 65 63 74 6f 72 79 | 20 70 72 65 76 69 6f 75 |irectory| previou|
|000047f0| 73 2d 64 69 72 2f 66 69 | 6c 65 20 64 65 66 61 75 |s-dir/fi|le defau|
|00004800| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 6e 69 6c |lt-direc|tory nil|
|00004810| 5d 20 33 5d 20 63 6f 6d | 69 6e 74 2d 63 68 65 63 |] 3] com|int-chec|
|00004820| 6b 2d 73 6f 75 72 63 65 | 20 23 5b 28 66 6e 61 6d |k-source| #[(fnam|
|00004830| 65 29 20 22 c0 09 21 89 | 1a 85 26 00 c3 5c 6e 21 |e) "..!.|..&..\n!|
|00004840| 85 26 00 c4 c5 c6 c7 5c | 6e 21 5c 22 21 85 26 00 |.&.....\|n!\"!.&.|
|00004850| 70 1e 08 5c 6e 71 88 c9 | 20 88 0e 08 71 29 29 87 |p..\nq..| ...q)).|
|00004860| 22 20 5b 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |" [get-f|ile-buff|
|00004870| 65 72 20 66 6e 61 6d 65 | 20 62 75 66 66 20 62 75 |er fname| buff bu|
|00004880| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00004890| 79 2d 6f 72 2d 6e 2d 70 | 20 66 6f 72 6d 61 74 20 |y-or-n-p| format |
|000048a0| 22 53 61 76 65 20 62 75 | 66 66 65 72 20 25 73 20 |"Save bu|ffer %s |
|000048b0| 66 69 72 73 74 3f 20 22 | 20 62 75 66 66 65 72 2d |first? "| buffer-|
|000048c0| 6e 61 6d 65 20 6f 6c 64 | 2d 62 75 66 66 65 72 20 |name old|-buffer |
|000048d0| 73 61 76 65 2d 62 75 66 | 66 65 72 5d 20 36 5d 5d |save-buf|fer] 6]]|
|000048e0| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 | 3).(def|alias 'c|
|000048f0| 6f 6d 69 6e 74 2d 65 78 | 74 72 61 63 74 2d 73 74 |omint-ex|tract-st|
|00004900| 72 69 6e 67 20 23 5b 6e | 69 6c 20 22 8a 60 18 c1 |ring #[n|il ".`..|
|00004910| 79 88 60 1a c3 7f 88 60 | 1c 08 62 88 c5 c6 5c 6e |y.`....`|..b...\n|
|00004920| c7 23 85 1a 00 60 54 1e | 08 08 62 88 c9 c6 0c c7 |.#...`T.|..b.....|
|00004930| 23 85 29 00 60 53 1e 5c | 6e 0e 08 85 3a 00 0e 5c |#.).`S.\|n...:..\|
|00004940| 6e 85 3a 00 0e 08 0e 5c | 6e 7b 2e 06 87 22 20 5b |n.:....\|n{..." [|
|00004950| 70 6f 69 6e 74 20 30 20 | 62 6f 6c 20 6e 69 6c 20 |point 0 |bol nil |
|00004960| 65 6f 6c 20 73 65 61 72 | 63 68 2d 62 61 63 6b 77 |eol sear|ch-backw|
|00004970| 61 72 64 20 22 5c 22 22 | 20 74 20 73 74 61 72 74 |ard "\""| t start|
|00004980| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00004990| 65 6e 64 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |end] 4 "|\.Return|
|000049a0| 20 73 74 72 69 6e 67 20 | 61 72 6f 75 6e 64 20 50 | string |around P|
|000049b0| 4f 49 4e 54 20 74 68 61 | 74 20 73 74 61 72 74 73 |OINT tha|t starts|
|000049c0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|000049d0| 65 2c 20 6f 72 20 6e 69 | 6c 2e 22 5d 29 0a 28 62 |e, or ni|l."]).(b|
|000049e0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|000049f0| c0 c3 c4 5c 22 87 22 20 | 5b 64 65 66 61 6c 69 61 |...\"." |[defalia|
|00004a00| 73 20 63 6f 6d 69 6e 74 | 2d 67 65 74 2d 73 6f 75 |s comint|-get-sou|
|00004a10| 72 63 65 20 23 5b 28 70 | 72 6f 6d 70 74 20 70 72 |rce #[(p|rompt pr|
|00004a20| 65 76 2d 64 69 72 2f 66 | 69 6c 65 20 73 6f 75 72 |ev-dir/f|ile sour|
|00004a30| 63 65 2d 6d 6f 64 65 73 | 20 6d 75 73 74 6d 61 74 |ce-modes| mustmat|
|00004a40| 63 68 2d 70 29 20 22 c0 | 09 5c 6e 5c 22 1b c4 20 |ch-p) ".|.\n\".. |
|00004a50| 89 1d 85 17 00 c6 c7 c8 | 8f 85 17 00 c9 0d 21 3f |........|......!?|
|00004a60| 89 1e 5c 6e 83 23 00 cb | 0d 21 82 25 00 0b 40 1e |..\n.#..|.!.%..@.|
|00004a70| 0c 0e 5c 6e 83 32 00 cd | 0d 21 82 34 00 0b 41 1e |..\n.2..|.!.4..A.|
|00004a80| 0e cf 0e 0e 83 46 00 d0 | d1 0e 12 0e 0e 23 82 48 |.....F..|.....#.H|
|00004a90| 00 0e 12 0e 0c 89 0e 0e | 50 0e 13 24 1e 14 d5 d6 |........|P..$....|
|00004aa0| 0e 14 21 21 2e 06 43 87 | 22 20 5b 63 6f 6d 69 6e |..!!..C.|" [comin|
|00004ab0| 74 2d 73 6f 75 72 63 65 | 2d 64 65 66 61 75 6c 74 |t-source|-default|
|00004ac0| 20 70 72 65 76 2d 64 69 | 72 2f 66 69 6c 65 20 73 | prev-di|r/file s|
|00004ad0| 6f 75 72 63 65 2d 6d 6f | 64 65 73 20 64 65 66 20 |ource-mo|des def |
|00004ae0| 63 6f 6d 69 6e 74 2d 65 | 78 74 72 61 63 74 2d 73 |comint-e|xtract-s|
|00004af0| 74 72 69 6e 67 20 73 74 | 72 69 6e 67 66 69 6c 65 |tring st|ringfile|
|00004b00| 20 6e 69 6c 20 28 66 69 | 6c 65 2d 65 78 69 73 74 | nil (fi|le-exist|
|00004b10| 73 2d 70 20 73 74 72 69 | 6e 67 66 69 6c 65 29 20 |s-p stri|ngfile) |
|00004b20| 28 28 65 72 72 6f 72 29 | 29 20 66 69 6c 65 2d 64 |((error)|) file-d|
|00004b30| 69 72 65 63 74 6f 72 79 | 2d 70 20 73 66 69 6c 65 |irectory|-p sfile|
|00004b40| 2d 70 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |-p file-|name-dir|
|00004b50| 65 63 74 6f 72 79 20 64 | 65 66 64 69 72 20 66 69 |ectory d|efdir fi|
|00004b60| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00004b70| 74 6f 72 79 20 64 65 66 | 66 69 6c 65 20 72 65 61 |tory def|file rea|
|00004b80| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 6f 72 6d |d-file-n|ame form|
|00004b90| 61 74 20 22 25 73 28 64 | 65 66 61 75 6c 74 20 25 |at "%s(d|efault %|
|00004ba0| 73 29 20 22 20 70 72 6f | 6d 70 74 20 6d 75 73 74 |s) " pro|mpt must|
|00004bb0| 6d 61 74 63 68 2d 70 20 | 61 6e 73 20 65 78 70 61 |match-p |ans expa|
|00004bc0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 73 75 62 |nd-file-|name sub|
|00004bd0| 73 74 69 74 75 74 65 2d | 69 6e 2d 66 69 6c 65 2d |stitute-|in-file-|
|00004be0| 6e 61 6d 65 5d 20 36 5d | 20 63 6f 6d 69 6e 74 2d |name] 6]| comint-|
|00004bf0| 70 72 6f 63 2d 71 75 65 | 72 79 20 23 5b 28 70 72 |proc-que|ry #[(pr|
|00004c00| 6f 63 20 73 74 72 29 20 | 22 c0 09 21 1a c3 09 21 |oc str) |"..!...!|
|00004c10| 1c c5 5c 6e 21 88 5c 6e | 71 88 c6 5c 6e 21 c7 0c |..\n!.\n|q..\n!..|
|00004c20| 21 1e 08 1e 09 ca 09 0e | 0b 5c 22 88 cc 09 21 88 |!.......|.\"...!.|
|00004c30| cd 0e 08 0e 09 5c 22 3f | 85 54 00 ce 0e 09 21 1e |.....\"?|.T....!.|
|00004c40| 0f d0 0e 09 0c 5c 22 88 | d1 d2 21 88 cd 0e 0f 0e |.....\".|..!.....|
|00004c50| 09 5c 22 84 4d 00 d3 0e | 0f 21 82 53 00 d0 0e 09 |.\".M...|.!.S....|
|00004c60| 0e 0f 5c 22 29 2c 87 22 | 20 5b 70 72 6f 63 65 73 |..\"),."| [proces|
|00004c70| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 20 70 72 |s-buffer| proc pr|
|00004c80| 6f 63 2d 62 75 66 20 70 | 72 6f 63 65 73 73 2d 6d |oc-buf p|rocess-m|
|00004c90| 61 72 6b 20 70 72 6f 63 | 2d 6d 61 72 6b 20 64 69 |ark proc|-mark di|
|00004ca0| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 20 67 65 74 |splay-bu|ffer get|
|00004cb0| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 6d |-buffer-|window m|
|00004cc0| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 70 |arker-po|sition p|
|00004cd0| 72 6f 63 2d 70 74 20 70 | 72 6f 63 2d 77 69 6e 20 |roc-pt p|roc-win |
|00004ce0| 63 6f 6d 69 6e 74 2d 73 | 65 6e 64 2d 73 74 72 69 |comint-s|end-stri|
|00004cf0| 6e 67 20 73 74 72 20 61 | 63 63 65 70 74 2d 70 72 |ng str a|ccept-pr|
|00004d00| 6f 63 65 73 73 2d 6f 75 | 74 70 75 74 20 70 6f 73 |ocess-ou|tput pos|
|00004d10| 2d 76 69 73 69 62 6c 65 | 2d 69 6e 2d 77 69 6e 64 |-visible|-in-wind|
|00004d20| 6f 77 2d 70 20 77 69 6e | 64 6f 77 2d 70 6f 69 6e |ow-p win|dow-poin|
|00004d30| 74 20 6f 70 6f 69 6e 74 | 20 73 65 74 2d 77 69 6e |t opoint| set-win|
|00004d40| 64 6f 77 2d 70 6f 69 6e | 74 20 73 69 74 2d 66 6f |dow-poin|t sit-fo|
|00004d50| 72 20 30 20 70 75 73 68 | 2d 6d 61 72 6b 5d 20 33 |r 0 push|-mark] 3|
|00004d60| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00004d70| 27 63 6f 6d 69 6e 74 2d | 6d 61 74 63 68 2d 70 61 |'comint-|match-pa|
|00004d80| 72 74 69 61 6c 2d 70 61 | 74 68 6e 61 6d 65 20 23 |rtial-pa|thname #|
|00004d90| 5b 6e 69 6c 20 22 8a c0 | c1 c2 c3 23 83 0c 00 c4 |[nil "..|...#....|
|00004da0| 75 88 c5 c6 21 84 16 00 | c7 c8 21 88 c9 ca 21 88 |u...!...|..!...!.|
|00004db0| cb cc 94 cc 95 7b 21 29 | 87 22 20 5b 72 65 2d 73 |.....{!)|." [re-s|
|00004dc0| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00004dd0| 5b 5e 7e 2f 41 2d 5a 61 | 2d 7a 30 2d 39 5f 2e 24 |[^~/A-Za|-z0-9_.$|
|00004de0| 23 2c 3d 2d 5d 22 20 6e | 69 6c 20 6d 6f 76 65 20 |#,=-]" n|il move |
|00004df0| 31 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5b 7e |1 lookin|g-at "[~|
|00004e00| 2f 41 2d 5a 61 2d 7a 30 | 2d 39 5f 2e 24 23 2c 3d |/A-Za-z0|-9_.$#,=|
|00004e10| 2d 5d 22 20 65 72 72 6f | 72 20 22 22 20 72 65 2d |-]" erro|r "" re-|
|00004e20| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00004e30| 5b 7e 2f 41 2d 5a 61 2d | 7a 30 2d 39 5f 2e 24 23 |[~/A-Za-|z0-9_.$#|
|00004e40| 2c 3d 2d 5d 2b 22 20 73 | 75 62 73 74 69 74 75 74 |,=-]+" s|ubstitut|
|00004e50| 65 2d 69 6e 2d 66 69 6c | 65 2d 6e 61 6d 65 20 30 |e-in-fil|e-name 0|
|00004e60| 5d 20 34 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 4 "\.R|eturn th|
|00004e70| 65 20 66 69 6c 65 6e 61 | 6d 65 20 61 74 20 70 6f |e filena|me at po|
|00004e80| 69 6e 74 2c 20 6f 72 20 | 73 69 67 6e 61 6c 20 61 |int, or |signal a|
|00004e90| 6e 20 65 72 72 6f 72 2e | 22 5d 29 0a 28 64 65 66 |n error.|"]).(def|
|00004ea0| 61 6c 69 61 73 20 27 63 | 6f 6d 69 6e 74 2d 72 65 |alias 'c|omint-re|
|00004eb0| 70 6c 61 63 65 2d 62 79 | 2d 65 78 70 61 6e 64 65 |place-by|-expande|
|00004ec0| 64 2d 66 69 6c 65 6e 61 | 6d 65 20 23 5b 6e 69 6c |d-filena|me #[nil|
|00004ed0| 20 22 c0 20 19 c2 09 21 | 1b c4 09 21 1d c6 0d 0b | ". ...!|...!....|
|00004ee0| 86 13 00 0e 07 5c 22 89 | 1e 08 84 24 00 c9 ca 09 |.....\".|...$....|
|00004ef0| 5c 22 88 cb 20 82 3e 00 | 0e 08 cc 3d 83 31 00 c9 |\".. .>.|...=.1..|
|00004f00| cd 21 82 3e 00 ce 94 ce | 95 7c 88 cf 0b 0e 08 50 |.!.>....|.|.....P|
|00004f10| 21 63 2c 87 22 20 5b 63 | 6f 6d 69 6e 74 2d 6d 61 |!c,." [c|omint-ma|
|00004f20| 74 63 68 2d 70 61 72 74 | 69 61 6c 2d 70 61 74 68 |tch-part|ial-path|
|00004f30| 6e 61 6d 65 20 70 61 74 | 68 6e 61 6d 65 20 66 69 |name pat|hname fi|
|00004f40| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00004f50| 79 20 70 61 74 68 64 69 | 72 20 66 69 6c 65 2d 6e |y pathdi|r file-n|
|00004f60| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00004f70| 20 70 61 74 68 6e 6f 6e | 64 69 72 20 66 69 6c 65 | pathnon|dir file|
|00004f80| 2d 6e 61 6d 65 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |-name-co|mpletion|
|00004f90| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00004fa0| 72 79 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 6d 65 |ry compl|etion me|
|00004fb0| 73 73 61 67 65 20 22 4e | 6f 20 63 6f 6d 70 6c 65 |ssage "N|o comple|
|00004fc0| 74 69 6f 6e 73 20 6f 66 | 20 25 73 22 20 64 69 6e |tions of| %s" din|
|00004fd0| 67 20 74 20 22 55 6e 69 | 71 75 65 20 63 6f 6d 70 |g t "Uni|que comp|
|00004fe0| 6c 65 74 69 6f 6e 22 20 | 30 20 65 78 70 61 6e 64 |letion" |0 expand|
|00004ff0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 5d 20 34 20 22 5c |-file-na|me] 4 "\|
|00005000| 0a 45 78 70 61 6e 64 20 | 74 68 65 20 66 69 6c 65 |.Expand |the file|
|00005010| 6e 61 6d 65 20 61 74 20 | 70 6f 69 6e 74 2e 0a 52 |name at |point..R|
|00005020| 65 70 6c 61 63 65 20 74 | 68 65 20 66 69 6c 65 6e |eplace t|he filen|
|00005030| 61 6d 65 20 77 69 74 68 | 20 61 6e 20 65 78 70 61 |ame with| an expa|
|00005040| 6e 64 65 64 2c 20 63 61 | 6e 6f 6e 69 63 61 6c 69 |nded, ca|nonicali|
|00005050| 73 65 64 2c 20 61 6e 64 | 20 63 6f 6d 70 6c 65 74 |sed, and| complet|
|00005060| 65 64 0a 20 72 65 70 6c | 61 63 65 6d 65 6e 74 2e |ed. repl|acement.|
|00005070| 0a 5c 22 45 78 70 61 6e | 64 65 64 5c 22 20 6d 65 |.\"Expan|ded\" me|
|00005080| 61 6e 73 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ans envi|ronment |
|00005090| 76 61 72 69 61 62 6c 65 | 73 20 28 65 2e 67 2e 2c |variable|s (e.g.,|
|000050a0| 20 24 48 4f 4d 45 29 20 | 61 6e 64 20 7e 27 73 20 | $HOME) |and ~'s |
|000050b0| 61 72 65 0a 72 65 70 6c | 61 63 65 64 20 77 69 74 |are.repl|aced wit|
|000050c0| 68 20 74 68 65 20 63 6f | 72 72 65 73 70 6f 6e 64 |h the co|rrespond|
|000050d0| 69 6e 67 20 64 69 72 65 | 63 74 6f 72 69 65 73 2e |ing dire|ctories.|
|000050e0| 20 20 5c 22 43 61 6e 6f | 6e 69 63 61 6c 69 73 65 | \"Cano|nicalise|
|000050f0| 64 5c 22 20 6d 65 61 6e | 73 20 2e 2e 0a 61 6e 64 |d\" mean|s ...and|
|00005100| 20 2e 20 61 72 65 20 72 | 65 6d 6f 76 65 64 2c 20 | . are r|emoved, |
|00005110| 61 6e 64 20 74 68 65 20 | 66 69 6c 65 6e 61 6d 65 |and the |filename|
|00005120| 20 69 73 20 6d 61 64 65 | 20 61 62 73 6f 6c 75 74 | is made| absolut|
|00005130| 65 20 69 6e 73 74 65 61 | 64 20 6f 66 20 72 65 6c |e instea|d of rel|
|00005140| 61 74 69 76 65 2e 0a 53 | 65 65 20 66 75 6e 63 74 |ative..S|ee funct|
|00005150| 69 6f 6e 73 20 60 65 78 | 70 61 6e 64 2d 66 69 6c |ions `ex|pand-fil|
|00005160| 65 2d 6e 61 6d 65 27 20 | 61 6e 64 20 60 73 75 62 |e-name' |and `sub|
|00005170| 73 74 69 74 75 74 65 2d | 69 6e 2d 66 69 6c 65 2d |stitute-|in-file-|
|00005180| 6e 61 6d 65 27 2e 20 20 | 53 65 65 20 61 6c 73 6f |name'. |See also|
|00005190| 0a 60 63 6f 6d 69 6e 74 | 2d 64 79 6e 61 6d 69 63 |.`comint|-dynamic|
|000051a0| 2d 63 6f 6d 70 6c 65 74 | 65 27 2e 22 20 6e 69 6c |-complet|e'." nil|
|000051b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |]).(defa|lias 'co|
|000051c0| 6d 69 6e 74 2d 64 79 6e | 61 6d 69 63 2d 63 6f 6d |mint-dyn|amic-com|
|000051d0| 70 6c 65 74 65 20 23 5b | 6e 69 6c 20 22 c0 20 19 |plete #[|nil ". .|
|000051e0| c2 09 21 1b c4 09 21 1d | c6 0d 0b 86 13 00 0e 07 |..!...!.|........|
|000051f0| 5c 22 89 1e 08 84 24 00 | c9 ca 09 5c 22 88 cb 20 |\"....$.|...\".. |
|00005200| 82 3c 00 0e 08 cc 3d 83 | 31 00 c9 cd 21 82 3c 00 |.<....=.|1...!.<.|
|00005210| ce 95 62 88 0e 08 0d 47 | cf 4f 63 2c 87 22 20 5b |..b....G|.Oc,." [|
|00005220| 63 6f 6d 69 6e 74 2d 6d | 61 74 63 68 2d 70 61 72 |comint-m|atch-par|
|00005230| 74 69 61 6c 2d 70 61 74 | 68 6e 61 6d 65 20 70 61 |tial-pat|hname pa|
|00005240| 74 68 6e 61 6d 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |thname f|ile-name|
|00005250| 2d 64 69 72 65 63 74 6f | 72 79 20 70 61 74 68 64 |-directo|ry pathd|
|00005260| 69 72 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |ir file-|name-non|
|00005270| 64 69 72 65 63 74 6f 72 | 79 20 70 61 74 68 6e 6f |director|y pathno|
|00005280| 6e 64 69 72 20 66 69 6c | 65 2d 6e 61 6d 65 2d 63 |ndir fil|e-name-c|
|00005290| 6f 6d 70 6c 65 74 69 6f | 6e 20 64 65 66 61 75 6c |ompletio|n defaul|
|000052a0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 63 6f 6d 70 |t-direct|ory comp|
|000052b0| 6c 65 74 69 6f 6e 20 6d | 65 73 73 61 67 65 20 22 |letion m|essage "|
|000052c0| 4e 6f 20 63 6f 6d 70 6c | 65 74 69 6f 6e 73 20 6f |No compl|etions o|
|000052d0| 66 20 25 73 22 20 64 69 | 6e 67 20 74 20 22 55 6e |f %s" di|ng t "Un|
|000052e0| 69 71 75 65 20 63 6f 6d | 70 6c 65 74 69 6f 6e 22 |ique com|pletion"|
|000052f0| 20 30 20 6e 69 6c 5d 20 | 34 20 22 5c 0a 44 79 6e | 0 nil] |4 "\.Dyn|
|00005300| 61 6d 69 63 61 6c 6c 79 | 20 63 6f 6d 70 6c 65 74 |amically| complet|
|00005310| 65 20 74 68 65 20 66 69 | 6c 65 6e 61 6d 65 20 61 |e the fi|lename a|
|00005320| 74 20 70 6f 69 6e 74 2e | 0a 54 68 69 73 20 66 75 |t point.|.This fu|
|00005330| 6e 63 74 69 6f 6e 20 69 | 73 20 73 69 6d 69 6c 61 |nction i|s simila|
|00005340| 72 20 74 6f 20 60 63 6f | 6d 69 6e 74 2d 72 65 70 |r to `co|mint-rep|
|00005350| 6c 61 63 65 2d 62 79 2d | 65 78 70 61 6e 64 65 64 |lace-by-|expanded|
|00005360| 2d 66 69 6c 65 6e 61 6d | 65 27 2c 20 65 78 63 65 |-filenam|e', exce|
|00005370| 70 74 0a 74 68 61 74 20 | 69 74 20 77 6f 6e 27 74 |pt.that |it won't|
|00005380| 20 63 68 61 6e 67 65 20 | 70 61 72 74 73 20 6f 66 | change |parts of|
|00005390| 20 74 68 65 20 66 69 6c | 65 6e 61 6d 65 20 61 6c | the fil|ename al|
|000053a0| 72 65 61 64 79 20 65 6e | 74 65 72 65 64 20 69 6e |ready en|tered in|
|000053b0| 20 74 68 65 20 62 75 66 | 66 65 72 3b 20 0a 69 74 | the buf|fer; .it|
|000053c0| 20 6a 75 73 74 20 61 64 | 64 73 20 63 6f 6d 70 6c | just ad|ds compl|
|000053d0| 65 74 69 6f 6e 20 63 68 | 61 72 61 63 74 65 72 73 |etion ch|aracters|
|000053e0| 20 74 6f 20 74 68 65 20 | 65 6e 64 20 6f 66 20 74 | to the |end of t|
|000053f0| 68 65 20 66 69 6c 65 6e | 61 6d 65 2e 22 20 6e 69 |he filen|ame." ni|
|00005400| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |l]).(def|alias 'c|
|00005410| 6f 6d 69 6e 74 2d 64 79 | 6e 61 6d 69 63 2d 6c 69 |omint-dy|namic-li|
|00005420| 73 74 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 73 20 23 |st-compl|etions #|
|00005430| 5b 6e 69 6c 20 22 c0 20 | 19 c2 09 21 1b c4 09 21 |[nil ". |...!...!|
|00005440| 1d c6 0d 0b 86 13 00 0e | 07 5c 22 89 1e 08 84 24 |........|.\"....$|
|00005450| 00 c9 ca 09 5c 22 88 cb | 20 82 50 00 cc 20 1e 0d |....\"..| .P.. ..|
|00005460| ce 90 cf 0e 08 21 91 88 | d0 d1 21 88 c9 d2 21 88 |.....!..|..!...!.|
|00005470| d3 20 89 1e 14 d5 3d 83 | 49 00 d6 0e 0d 21 82 4f |. ....=.|I....!.O|
|00005480| 00 0e 14 43 89 16 17 2a | 2c 87 22 20 5b 63 6f 6d |...C...*|,." [com|
|00005490| 69 6e 74 2d 6d 61 74 63 | 68 2d 70 61 72 74 69 61 |int-matc|h-partia|
|000054a0| 6c 2d 70 61 74 68 6e 61 | 6d 65 20 70 61 74 68 6e |l-pathna|me pathn|
|000054b0| 61 6d 65 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |ame file|-name-di|
|000054c0| 72 65 63 74 6f 72 79 20 | 70 61 74 68 64 69 72 20 |rectory |pathdir |
|000054d0| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|000054e0| 65 63 74 6f 72 79 20 70 | 61 74 68 6e 6f 6e 64 69 |ectory p|athnondi|
|000054f0| 72 20 66 69 6c 65 2d 6e | 61 6d 65 2d 61 6c 6c 2d |r file-n|ame-all-|
|00005500| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 64 65 66 61 |completi|ons defa|
|00005510| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 63 6f |ult-dire|ctory co|
|00005520| 6d 70 6c 65 74 69 6f 6e | 73 20 6d 65 73 73 61 67 |mpletion|s messag|
|00005530| 65 20 22 4e 6f 20 63 6f | 6d 70 6c 65 74 69 6f 6e |e "No co|mpletion|
|00005540| 73 20 6f 66 20 25 73 22 | 20 64 69 6e 67 20 63 75 |s of %s"| ding cu|
|00005550| 72 72 65 6e 74 2d 77 69 | 6e 64 6f 77 2d 63 6f 6e |rrent-wi|ndow-con|
|00005560| 66 69 67 75 72 61 74 69 | 6f 6e 20 63 6f 6e 66 20 |figurati|on conf |
|00005570| 22 2a 48 65 6c 70 2a 22 | 20 64 69 73 70 6c 61 79 |"*Help*"| display|
|00005580| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 6c 69 73 74 |-complet|ion-list|
|00005590| 20 73 69 74 2d 66 6f 72 | 20 30 20 22 48 69 74 20 | sit-for| 0 "Hit |
|000055a0| 73 70 61 63 65 20 74 6f | 20 66 6c 75 73 68 22 20 |space to| flush" |
|000055b0| 72 65 61 64 2d 65 76 65 | 6e 74 20 63 68 20 33 32 |read-eve|nt ch 32|
|000055c0| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 | set-win|dow-conf|
|000055d0| 69 67 75 72 61 74 69 6f | 6e 20 75 6e 72 65 61 64 |iguratio|n unread|
|000055e0| 2d 63 6f 6d 6d 61 6e 64 | 2d 65 76 65 6e 74 73 5d |-command|-events]|
|000055f0| 20 34 20 22 5c 0a 4c 69 | 73 74 20 69 6e 20 68 65 | 4 "\.Li|st in he|
|00005600| 6c 70 20 62 75 66 66 65 | 72 20 61 6c 6c 20 70 6f |lp buffe|r all po|
|00005610| 73 73 69 62 6c 65 20 63 | 6f 6d 70 6c 65 74 69 6f |ssible c|ompletio|
|00005620| 6e 73 20 6f 66 20 74 68 | 65 20 66 69 6c 65 6e 61 |ns of th|e filena|
|00005630| 6d 65 20 61 74 20 70 6f | 69 6e 74 2e 22 20 6e 69 |me at po|int." ni|
|00005640| 6c 5d 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 69 |l]).(def|var comi|
|00005650| 6e 74 2d 6c 6f 61 64 2d | 68 6f 6f 6b 20 6e 69 6c |nt-load-|hook nil|
|00005660| 20 22 5c 0a 54 68 69 73 | 20 68 6f 6f 6b 20 69 73 | "\.This| hook is|
|00005670| 20 72 75 6e 20 77 68 65 | 6e 20 63 6f 6d 69 6e 74 | run whe|n comint|
|00005680| 20 69 73 20 6c 6f 61 64 | 65 64 20 69 6e 2e 0a 54 | is load|ed in..T|
|00005690| 68 69 73 20 69 73 20 61 | 20 67 6f 6f 64 20 70 6c |his is a| good pl|
|000056a0| 61 63 65 20 74 6f 20 70 | 75 74 20 6b 65 79 62 69 |ace to p|ut keybi|
|000056b0| 6e 64 69 6e 67 73 2e 22 | 29 0a 28 62 79 74 65 2d |ndings."|).(byte-|
|000056c0| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 87 22 20 |code "..|!...!." |
|000056d0| 5b 72 75 6e 2d 68 6f 6f | 6b 73 20 63 6f 6d 69 6e |[run-hoo|ks comin|
|000056e0| 74 2d 6c 6f 61 64 2d 68 | 6f 6f 6b 20 70 72 6f 76 |t-load-h|ook prov|
|000056f0| 69 64 65 20 63 6f 6d 69 | 6e 74 5d 20 32 29 0a |ide comi|nt] 2). |
+--------+-------------------------+-------------------------+--------+--------+
