/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / ielm.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 4d 6f 6e 20 | 4d 61 79 20 20 32 20 31 | on Mon |May  2 1|
|00000040| 38 3a 30 30 3a 34 39 20 | 31 39 39 34 0a 3b 3b 3b |8:00:49 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 69 65 6c 6d 2e | 65 6c 0a 3b 3b 3b 20 65 |sp/ielm.|el.;;; e|
|00000080| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|00000090| 32 32 2e 39 32 2e 31 2e | 0a 3b 3b 3b 20 62 79 74 |22.92.1.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|00000190| 72 72 6f 72 20 22 60 2f | 67 64 2f 67 6e 75 2f 65 |rror "`/|gd/gnu/e|
|000001a0| 6d 61 63 73 2f 31 39 2e | 30 2f 6c 69 73 70 2f 69 |macs/19.|0/lisp/i|
|000001b0| 65 6c 6d 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |elm.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |9"))..(b|yte-code|
|000001e0| 20 22 c0 c1 21 88 c0 c2 | 21 87 22 20 5b 72 65 71 | "..!...|!." [req|
|000001f0| 75 69 72 65 20 63 6f 6d | 69 6e 74 20 70 70 5d 20 |uire com|int pp] |
|00000200| 32 29 0a 28 64 65 66 76 | 61 72 20 69 65 6c 6d 2d |2).(defv|ar ielm-|
|00000210| 6e 6f 69 73 79 20 74 20 | 22 5c 0a 2a 49 66 20 6e |noisy t |"\.*If n|
|00000220| 6f 6e 2d 6e 69 6c 2c 20 | 49 45 4c 4d 20 77 69 6c |on-nil, |IELM wil|
|00000230| 6c 20 62 65 65 70 20 6f | 6e 20 65 72 72 6f 72 2e |l beep o|n error.|
|00000240| 22 29 0a 28 64 65 66 76 | 61 72 20 69 65 6c 6d 2d |").(defv|ar ielm-|
|00000250| 70 72 6f 6d 70 74 20 22 | 45 4c 49 53 50 3e 20 22 |prompt "|ELISP> "|
|00000260| 20 22 5c 0a 50 72 6f 6d | 70 74 20 75 73 65 64 20 | "\.Prom|pt used |
|00000270| 69 6e 20 49 45 4c 4d 2e | 22 29 0a 28 64 65 66 76 |in IELM.|").(defv|
|00000280| 61 72 20 69 65 6c 6d 2d | 64 79 6e 61 6d 69 63 2d |ar ielm-|dynamic-|
|00000290| 72 65 74 75 72 6e 20 74 | 20 22 5c 0a 2a 43 6f 6e |return t| "\.*Con|
|000002a0| 74 72 6f 6c 73 20 77 68 | 65 74 68 65 72 20 5c 5c |trols wh|ether \\|
|000002b0| 3c 69 65 6c 6d 2d 6d 61 | 70 3e 5c 5c 5b 69 65 6c |<ielm-ma|p>\\[iel|
|000002c0| 6d 2d 72 65 74 75 72 6e | 5d 20 68 61 73 20 69 6e |m-return|] has in|
|000002d0| 74 65 6c 6c 69 67 65 6e | 74 20 62 65 68 61 76 69 |telligen|t behavi|
|000002e0| 6f 75 72 20 69 6e 20 49 | 45 4c 4d 2e 0a 49 66 20 |our in I|ELM..If |
|000002f0| 6e 6f 6e 2d 6e 69 6c 2c | 20 5c 5c 5b 69 65 6c 6d |non-nil,| \\[ielm|
|00000300| 2d 72 65 74 75 72 6e 5d | 20 65 76 61 6c 75 61 74 |-return]| evaluat|
|00000310| 65 73 20 69 6e 70 75 74 | 20 66 6f 72 20 63 6f 6d |es input| for com|
|00000320| 70 6c 65 74 65 20 73 65 | 78 70 73 2c 20 6f 72 20 |plete se|xps, or |
|00000330| 69 6e 73 65 72 74 73 20 | 61 20 6e 65 77 6c 69 6e |inserts |a newlin|
|00000340| 65 0a 61 6e 64 20 69 6e | 64 65 6e 74 73 20 66 6f |e.and in|dents fo|
|00000350| 72 20 69 6e 63 6f 6d 70 | 6c 65 74 65 20 73 65 78 |r incomp|lete sex|
|00000360| 70 73 2e 20 20 49 66 20 | 6e 69 6c 2c 20 61 6c 77 |ps.  If |nil, alw|
|00000370| 61 79 73 20 69 6e 73 65 | 72 74 73 20 6e 65 77 6c |ays inse|rts newl|
|00000380| 69 6e 65 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ines.").|(defvar |
|00000390| 69 65 6c 6d 2d 64 79 6e | 61 6d 69 63 2d 6d 75 6c |ielm-dyn|amic-mul|
|000003a0| 74 69 6c 69 6e 65 2d 69 | 6e 70 75 74 73 20 74 20 |tiline-i|nputs t |
|000003b0| 22 5c 0a 2a 46 6f 72 63 | 65 20 6d 75 6c 74 69 6c |"\.*Forc|e multil|
|000003c0| 69 6e 65 20 69 6e 70 75 | 74 73 20 74 6f 20 73 74 |ine inpu|ts to st|
|000003d0| 61 72 74 20 66 72 6f 6d | 20 63 6f 6c 75 6d 6e 20 |art from| column |
|000003e0| 7a 65 72 6f 3f 0a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |zero?.If| non-nil|
|000003f0| 2c 20 61 66 74 65 72 20 | 65 6e 74 65 72 69 6e 67 |, after |entering|
|00000400| 20 74 68 65 20 66 69 72 | 73 74 20 6c 69 6e 65 20 | the fir|st line |
|00000410| 6f 66 20 61 6e 20 69 6e | 63 6f 6d 70 6c 65 74 65 |of an in|complete|
|00000420| 20 73 65 78 70 2c 20 61 | 20 6e 65 77 6c 69 6e 65 | sexp, a| newline|
|00000430| 0a 77 69 6c 6c 20 62 65 | 20 69 6e 73 65 72 74 65 |.will be| inserte|
|00000440| 64 20 61 66 74 65 72 20 | 74 68 65 20 70 72 6f 6d |d after |the prom|
|00000450| 70 74 2c 20 6d 6f 76 69 | 6e 67 20 74 68 65 20 69 |pt, movi|ng the i|
|00000460| 6e 70 75 74 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |nput to |the next|
|00000470| 20 6c 69 6e 65 2e 0a 54 | 68 69 73 20 67 69 76 65 | line..T|his give|
|00000480| 73 20 6d 6f 72 65 20 66 | 72 61 6d 65 20 77 69 64 |s more f|rame wid|
|00000490| 74 68 20 66 6f 72 20 6c | 61 72 67 65 20 69 6e 64 |th for l|arge ind|
|000004a0| 65 6e 74 65 64 20 73 65 | 78 70 73 2c 20 61 6e 64 |ented se|xps, and|
|000004b0| 20 61 6c 6c 6f 77 73 20 | 66 75 6e 63 74 69 6f 6e | allows |function|
|000004c0| 73 0a 73 75 63 68 20 61 | 73 20 60 65 64 65 62 75 |s.such a|s `edebu|
|000004d0| 67 2d 64 65 66 75 6e 27 | 20 74 6f 20 77 6f 72 6b |g-defun'| to work|
|000004e0| 20 77 69 74 68 20 73 75 | 63 68 20 69 6e 70 75 74 | with su|ch input|
|000004f0| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 69 65 6c |s.").(de|fvar iel|
|00000500| 6d 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 20 6e 69 6c 20 |m-mode-h|ook nil |
|00000510| 22 5c 0a 2a 48 6f 6f 6b | 73 20 74 6f 20 62 65 20 |"\.*Hook|s to be |
|00000520| 72 75 6e 20 77 68 65 6e | 20 49 45 4c 4d 20 28 60 |run when| IELM (`|
|00000530| 69 6e 66 65 72 69 6f 72 | 2d 65 6d 61 63 73 2d 6c |inferior|-emacs-l|
|00000540| 69 73 70 2d 6d 6f 64 65 | 27 29 20 69 73 20 73 74 |isp-mode|') is st|
|00000550| 61 72 74 65 64 2e 22 29 | 0a 28 64 65 66 76 61 72 |arted.")|.(defvar|
|00000560| 20 69 65 6c 6d 2d 77 6f | 72 6b 69 6e 67 2d 62 75 | ielm-wo|rking-bu|
|00000570| 66 66 65 72 20 6e 69 6c | 20 22 5c 0a 42 75 66 66 |ffer nil| "\.Buff|
|00000580| 65 72 20 69 6e 20 77 68 | 69 63 68 20 49 45 4c 4d |er in wh|ich IELM|
|00000590| 20 73 65 78 70 73 20 77 | 69 6c 6c 20 62 65 20 65 | sexps w|ill be e|
|000005a0| 76 61 6c 75 61 74 65 64 | 2e 0a 54 68 69 73 20 76 |valuated|..This v|
|000005b0| 61 72 69 61 62 6c 65 20 | 69 73 20 62 75 66 66 65 |ariable |is buffe|
|000005c0| 72 2d 6c 6f 63 61 6c 2e | 22 29 0a 28 64 65 66 76 |r-local.|").(defv|
|000005d0| 61 72 20 69 65 6c 6d 2d | 68 65 61 64 65 72 20 28 |ar ielm-|header (|
|000005e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 4f |byte-cod|e "....O|
|000005f0| c4 c5 52 87 22 20 5b 22 | 2a 2a 2a 20 57 65 6c 63 |..R." ["|*** Welc|
|00000600| 6f 6d 65 20 74 6f 20 49 | 45 4c 4d 20 76 65 72 73 |ome to I|ELM vers|
|00000610| 69 6f 6e 20 22 20 22 24 | 52 65 76 69 73 69 6f 6e |ion " "$|Revision|
|00000620| 3a 20 31 2e 32 20 24 22 | 20 31 31 20 2d 32 20 22 |: 1.2 $"| 11 -2 "|
|00000630| 20 2a 2a 2a 20 20 54 79 | 70 65 20 28 64 65 73 63 | ***  Ty|pe (desc|
|00000640| 72 69 62 65 2d 6d 6f 64 | 65 29 20 66 6f 72 20 68 |ribe-mod|e) for h|
|00000650| 65 6c 70 2e 5c 6e 22 20 | 22 49 45 4c 4d 20 68 61 |elp.\n" |"IELM ha|
|00000660| 73 20 41 42 53 4f 4c 55 | 54 45 4c 59 20 4e 4f 20 |s ABSOLU|TELY NO |
|00000670| 57 41 52 52 41 4e 54 59 | 3b 20 74 79 70 65 20 28 |WARRANTY|; type (|
|00000680| 64 65 73 63 72 69 62 65 | 2d 6e 6f 2d 77 61 72 72 |describe|-no-warr|
|00000690| 61 6e 74 79 29 20 66 6f | 72 20 64 65 74 61 69 6c |anty) fo|r detail|
|000006a0| 73 2e 5c 6e 22 5d 20 34 | 29 20 22 5c 0a 4d 65 73 |s.\n"] 4|) "\.Mes|
|000006b0| 73 61 67 65 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |sage to |display |
|000006c0| 77 68 65 6e 20 49 45 4c | 4d 20 69 73 20 73 74 61 |when IEL|M is sta|
|000006d0| 72 74 65 64 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |rted.").|(byte-co|
|000006e0| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 09 84 66 00 |de "..!.|......f.|
|000006f0| c3 c4 0d 5c 22 83 1f 00 | c6 20 11 c7 09 0e 08 5c |...\"...|. .....\|
|00000700| 22 88 82 24 00 c9 0e 08 | 42 11 ca 09 cb cc 23 88 |"..$....|B.....#.|
|00000710| ca 09 cd ce 23 88 ca 09 | cf d0 23 88 ca 09 d1 d2 |....#...|..#.....|
|00000720| 23 88 ca 09 d3 d4 23 88 | ca 09 d5 d6 23 88 ca 09 |#.....#.|....#...|
|00000730| d7 d8 23 88 ca 09 d9 da | 23 88 ca 09 db dc 23 88 |..#.....|#.....#.|
|00000740| ca 09 dd de 23 88 ca 09 | df e0 23 88 c2 87 22 20 |....#...|..#..." |
|00000750| 5b 62 6f 75 6e 64 70 20 | 69 65 6c 6d 2d 6d 61 70 |[boundp |ielm-map|
|00000760| 20 6e 69 6c 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | nil str|ing-matc|
|00000770| 68 20 22 4c 75 63 69 64 | 22 20 65 6d 61 63 73 2d |h "Lucid|" emacs-|
|00000780| 76 65 72 73 69 6f 6e 20 | 6d 61 6b 65 2d 73 70 61 |version |make-spa|
|00000790| 72 73 65 2d 6b 65 79 6d | 61 70 20 73 65 74 2d 6b |rse-keym|ap set-k|
|000007a0| 65 79 6d 61 70 2d 70 61 | 72 65 6e 74 20 63 6f 6d |eymap-pa|rent com|
|000007b0| 69 6e 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 6b 65 79 |int-mode|-map key|
|000007c0| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|000007d0| 09 22 20 63 6f 6d 69 6e | 74 2d 64 79 6e 61 6d 69 |." comin|t-dynami|
|000007e0| 63 2d 63 6f 6d 70 6c 65 | 74 65 20 22 0d 22 20 69 |c-comple|te "." i|
|000007f0| 65 6c 6d 2d 72 65 74 75 | 72 6e 20 22 5c 6e 22 20 |elm-retu|rn "\n" |
|00000800| 69 65 6c 6d 2d 73 65 6e | 64 2d 69 6e 70 75 74 20 |ielm-sen|d-input |
|00000810| 22 1b 18 22 20 65 76 61 | 6c 2d 64 65 66 75 6e 20 |".." eva|l-defun |
|00000820| 22 1b 09 22 20 6c 69 73 | 70 2d 63 6f 6d 70 6c 65 |".." lis|p-comple|
|00000830| 74 65 2d 73 79 6d 62 6f | 6c 20 22 1b 11 22 20 69 |te-symbo|l ".." i|
|00000840| 6e 64 65 6e 74 2d 73 65 | 78 70 20 22 1b 71 22 20 |ndent-se|xp ".q" |
|00000850| 6c 69 73 70 2d 66 69 6c | 6c 2d 70 61 72 61 67 72 |lisp-fil|l-paragr|
|00000860| 61 70 68 20 22 7f 22 20 | 62 61 63 6b 77 61 72 64 |aph "." |backward|
|00000870| 2d 64 65 6c 65 74 65 2d | 63 68 61 72 2d 75 6e 74 |-delete-|char-unt|
|00000880| 61 62 69 66 79 20 22 03 | 02 22 20 69 65 6c 6d 2d |abify ".|." ielm-|
|00000890| 63 68 61 6e 67 65 2d 77 | 6f 72 6b 69 6e 67 2d 62 |change-w|orking-b|
|000008a0| 75 66 66 65 72 20 22 03 | 06 22 20 69 65 6c 6d 2d |uffer ".|." ielm-|
|000008b0| 64 69 73 70 6c 61 79 2d | 77 6f 72 6b 69 6e 67 2d |display-|working-|
|000008c0| 62 75 66 66 65 72 20 22 | 03 16 22 20 69 65 6c 6d |buffer "|.." ielm|
|000008d0| 2d 70 72 69 6e 74 2d 77 | 6f 72 6b 69 6e 67 2d 62 |-print-w|orking-b|
|000008e0| 75 66 66 65 72 5d 20 34 | 29 0a 28 64 65 66 61 6c |uffer] 4|).(defal|
|000008f0| 69 61 73 20 27 69 65 6c | 6d 2d 74 61 62 20 23 5b |ias 'iel|m-tab #[|
|00000900| 6e 69 6c 20 22 68 c0 3d | 84 0d 00 68 7a c1 3d 85 |nil "h.=|...hz.=.|
|00000910| 11 00 c2 20 88 c3 87 22 | 20 5b 31 30 20 33 32 20 |... ..."| [10 32 |
|00000920| 69 65 6c 6d 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |ielm-ind|ent-line|
|00000930| 20 74 5d 20 32 20 22 5c | 0a 50 6f 73 73 69 62 6c | t] 2 "\|.Possibl|
|00000940| 79 20 69 6e 64 65 6e 74 | 20 74 68 65 20 63 75 72 |y indent| the cur|
|00000950| 72 65 6e 74 20 6c 69 6e | 65 20 61 73 20 6c 69 73 |rent lin|e as lis|
|00000960| 70 20 63 6f 64 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |p code."| nil]).(|
|00000970| 64 65 66 61 6c 69 61 73 | 20 27 69 65 6c 6d 2d 63 |defalias| 'ielm-c|
|00000980| 6f 6d 70 6c 65 74 65 2d | 73 79 6d 62 6f 6c 20 23 |omplete-|symbol #|
|00000990| 5b 6e 69 6c 20 22 c0 20 | 19 c2 c3 21 89 1c 85 0e |[nil ". |...!....|
|000009a0| 00 c0 5c 66 21 1d c6 20 | 88 09 c0 20 55 3f 86 2a |..\f!.. |... U?.*|
|000009b0| 00 5c 66 83 27 00 0d c0 | 5c 66 21 55 3f 82 2a 00 |.\f.'...|\f!U?.*.|
|000009c0| c2 c3 21 2b 87 22 20 5b | 62 75 66 66 65 72 2d 6d |..!+." [|buffer-m|
|000009d0| 6f 64 69 66 69 65 64 2d | 74 69 63 6b 20 62 74 69 |odified-|tick bti|
|000009e0| 63 6b 20 67 65 74 2d 62 | 75 66 66 65 72 20 22 20 |ck get-b|uffer " |
|000009f0| 2a 43 6f 6d 70 6c 65 74 | 69 6f 6e 73 2a 22 20 63 |*Complet|ions*" c|
|00000a00| 62 75 66 66 65 72 20 63 | 74 69 63 6b 20 6c 69 73 |buffer c|tick lis|
|00000a10| 70 2d 63 6f 6d 70 6c 65 | 74 65 2d 73 79 6d 62 6f |p-comple|te-symbo|
|00000a20| 6c 5d 20 34 20 22 5c 0a | 43 6f 6d 70 6c 65 74 65 |l] 4 "\.|Complete|
|00000a30| 20 74 68 65 20 6c 69 73 | 70 20 73 79 6d 62 6f 6c | the lis|p symbol|
|00000a40| 20 62 65 66 6f 72 65 20 | 70 6f 69 6e 74 2e 22 5d | before |point."]|
|00000a50| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 65 6c |).(defal|ias 'iel|
|00000a60| 6d 2d 63 6f 6d 70 6c 65 | 74 65 2d 66 69 6c 65 6e |m-comple|te-filen|
|00000a70| 61 6d 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 5c 6e 60 |ame #[ni|l "..\n`|
|00000a80| 5c 22 38 85 0b 00 c3 20 | 87 22 20 5b 33 20 70 61 |\"8.... |." [3 pa|
|00000a90| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|00000aa0| 20 63 6f 6d 69 6e 74 2d | 6c 61 73 74 2d 69 6e 70 | comint-|last-inp|
|00000ab0| 75 74 2d 73 74 61 72 74 | 20 63 6f 6d 69 6e 74 2d |ut-start| comint-|
|00000ac0| 64 79 6e 61 6d 69 63 2d | 63 6f 6d 70 6c 65 74 65 |dynamic-|complete|
|00000ad0| 2d 66 69 6c 65 6e 61 6d | 65 5d 20 34 20 22 5c 0a |-filenam|e] 4 "\.|
|00000ae0| 44 79 6e 61 6d 69 63 61 | 6c 6c 79 20 63 6f 6d 70 |Dynamica|lly comp|
|00000af0| 6c 65 74 65 20 66 69 6c | 65 6e 61 6d 65 20 62 65 |lete fil|ename be|
|00000b00| 66 6f 72 65 20 70 6f 69 | 6e 74 2c 20 69 66 20 69 |fore poi|nt, if i|
|00000b10| 6e 20 61 20 73 74 72 69 | 6e 67 2e 22 5d 29 0a 28 |n a stri|ng."]).(|
|00000b20| 64 65 66 61 6c 69 61 73 | 20 27 69 65 6c 6d 2d 69 |defalias| 'ielm-i|
|00000b30| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 23 5b 6e 69 6c |ndent-li|ne #[nil|
|00000b40| 20 22 8a c0 79 88 c1 5c | 6e 21 29 3f 85 0e 00 c3 | "..y..\|n!)?....|
|00000b50| 20 87 22 20 5b 30 20 6c | 6f 6f 6b 69 6e 67 2d 61 | ." [0 l|ooking-a|
|00000b60| 74 20 63 6f 6d 69 6e 74 | 2d 70 72 6f 6d 70 74 2d |t comint|-prompt-|
|00000b70| 72 65 67 65 78 70 20 6c | 69 73 70 2d 69 6e 64 65 |regexp l|isp-inde|
|00000b80| 6e 74 2d 6c 69 6e 65 5d | 20 32 20 22 5c 0a 49 6e |nt-line]| 2 "\.In|
|00000b90| 64 65 6e 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |dent the| current|
|00000ba0| 20 6c 69 6e 65 20 61 73 | 20 4c 69 73 70 20 63 6f | line as| Lisp co|
|00000bb0| 64 65 20 69 66 20 69 74 | 20 69 73 20 6e 6f 74 20 |de if it| is not |
|00000bc0| 61 20 70 72 6f 6d 70 74 | 20 6c 69 6e 65 2e 22 5d |a prompt| line."]|
|00000bd0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 65 6c |).(defal|ias 'iel|
|00000be0| 6d 2d 70 72 69 6e 74 2d | 77 6f 72 6b 69 6e 67 2d |m-print-|working-|
|00000bf0| 62 75 66 66 65 72 20 23 | 5b 6e 69 6c 20 22 c0 c1 |buffer #|[nil "..|
|00000c00| c2 0b 21 5c 22 87 22 20 | 5b 6d 65 73 73 61 67 65 |..!\"." |[message|
|00000c10| 20 22 54 68 65 20 63 75 | 72 72 65 6e 74 20 77 6f | "The cu|rrent wo|
|00000c20| 72 6b 69 6e 67 20 62 75 | 66 66 65 72 20 69 73 3a |rking bu|ffer is:|
|00000c30| 20 25 73 22 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 | %s" buf|fer-name|
|00000c40| 20 69 65 6c 6d 2d 77 6f | 72 6b 69 6e 67 2d 62 75 | ielm-wo|rking-bu|
|00000c50| 66 66 65 72 5d 20 34 20 | 22 5c 0a 50 72 69 6e 74 |ffer] 4 |"\.Print|
|00000c60| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 49 45 4c | the cur|rent IEL|
|00000c70| 4d 20 77 6f 72 6b 69 6e | 67 20 62 75 66 66 65 72 |M workin|g buffer|
|00000c80| 27 73 20 6e 61 6d 65 20 | 69 6e 20 74 68 65 20 65 |'s name |in the e|
|00000c90| 63 68 6f 20 61 72 65 61 | 2e 22 20 6e 69 6c 5d 29 |cho area|." nil])|
|00000ca0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 65 6c 6d |.(defali|as 'ielm|
|00000cb0| 2d 64 69 73 70 6c 61 79 | 2d 77 6f 72 6b 69 6e 67 |-display|-working|
|00000cc0| 2d 62 75 66 66 65 72 20 | 23 5b 6e 69 6c 20 22 c0 |-buffer |#[nil ".|
|00000cd0| 09 21 88 c2 20 87 22 20 | 5b 64 69 73 70 6c 61 79 |.!.. ." |[display|
|00000ce0| 2d 62 75 66 66 65 72 20 | 69 65 6c 6d 2d 77 6f 72 |-buffer |ielm-wor|
|00000cf0| 6b 69 6e 67 2d 62 75 66 | 66 65 72 20 69 65 6c 6d |king-buf|fer ielm|
|00000d00| 2d 70 72 69 6e 74 2d 77 | 6f 72 6b 69 6e 67 2d 62 |-print-w|orking-b|
|00000d10| 75 66 66 65 72 5d 20 32 | 20 22 5c 0a 44 69 73 70 |uffer] 2| "\.Disp|
|00000d20| 6c 61 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lay the |current |
|00000d30| 49 45 4c 4d 20 77 6f 72 | 6b 69 6e 67 20 62 75 66 |IELM wor|king buf|
|00000d40| 66 65 72 2e 0a 44 6f 6e | 27 74 20 66 6f 72 67 65 |fer..Don|'t forge|
|00000d50| 74 20 74 68 61 74 20 73 | 65 6c 65 63 74 69 6e 67 |t that s|electing|
|00000d60| 20 74 68 61 74 20 62 75 | 66 66 65 72 20 77 69 6c | that bu|ffer wil|
|00000d70| 6c 20 63 68 61 6e 67 65 | 20 69 74 73 20 76 61 6c |l change| its val|
|00000d80| 75 65 20 6f 66 20 60 70 | 6f 69 6e 74 27 0a 74 6f |ue of `p|oint'.to|
|00000d90| 20 69 74 73 20 76 61 6c | 75 65 20 6f 66 20 60 77 | its val|ue of `w|
|00000da0| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 27 21 22 20 6e |indow-po|int'!" n|
|00000db0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000dc0| 69 65 6c 6d 2d 63 68 61 | 6e 67 65 2d 77 6f 72 6b |ielm-cha|nge-work|
|00000dd0| 69 6e 67 2d 62 75 66 66 | 65 72 20 23 5b 28 62 75 |ing-buff|er #[(bu|
|00000de0| 66 29 20 22 c0 09 21 86 | 09 00 c2 c3 21 14 c5 20 |f) "..!.|....!.. |
|00000df0| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 20 62 |." [get-|buffer b|
|00000e00| 75 66 20 65 72 72 6f 72 | 20 22 4e 6f 20 73 75 63 |uf error| "No suc|
|00000e10| 68 20 62 75 66 66 65 72 | 22 20 69 65 6c 6d 2d 77 |h buffer|" ielm-w|
|00000e20| 6f 72 6b 69 6e 67 2d 62 | 75 66 66 65 72 20 69 65 |orking-b|uffer ie|
|00000e30| 6c 6d 2d 70 72 69 6e 74 | 2d 77 6f 72 6b 69 6e 67 |lm-print|-working|
|00000e40| 2d 62 75 66 66 65 72 5d | 20 32 20 22 5c 0a 43 68 |-buffer]| 2 "\.Ch|
|00000e50| 61 6e 67 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ange the| current|
|00000e60| 20 49 45 4c 4d 20 77 6f | 72 6b 69 6e 67 20 62 75 | IELM wo|rking bu|
|00000e70| 66 66 65 72 20 74 6f 20 | 42 55 46 2e 0a 54 68 69 |ffer to |BUF..Thi|
|00000e80| 73 20 69 73 20 74 68 65 | 20 62 75 66 66 65 72 20 |s is the| buffer |
|00000e90| 69 6e 20 77 68 69 63 68 | 20 61 6c 6c 20 73 65 78 |in which| all sex|
|00000ea0| 70 73 20 65 6e 74 65 72 | 65 64 20 61 74 20 74 68 |ps enter|ed at th|
|00000eb0| 65 20 49 45 4c 4d 20 70 | 72 6f 6d 70 74 20 61 72 |e IELM p|rompt ar|
|00000ec0| 65 0a 65 76 61 6c 75 61 | 74 65 64 2e 20 20 59 6f |e.evalua|ted.  Yo|
|00000ed0| 75 20 63 61 6e 20 61 63 | 68 69 65 76 65 20 74 68 |u can ac|hieve th|
|00000ee0| 65 20 73 61 6d 65 20 65 | 66 66 65 63 74 20 77 69 |e same e|ffect wi|
|00000ef0| 74 68 20 61 20 63 61 6c | 6c 20 74 6f 0a 60 73 65 |th a cal|l to.`se|
|00000f00| 74 2d 62 75 66 66 65 72 | 27 20 61 74 20 74 68 65 |t-buffer|' at the|
|00000f10| 20 49 45 4c 4d 20 70 72 | 6f 6d 70 74 2e 22 20 22 | IELM pr|ompt." "|
|00000f20| 62 53 65 74 20 77 6f 72 | 6b 69 6e 67 20 62 75 66 |bSet wor|king buf|
|00000f30| 66 65 72 20 74 6f 3a 20 | 22 5d 29 0a 28 64 65 66 |fer to: |"]).(def|
|00000f40| 61 6c 69 61 73 20 27 69 | 65 6c 6d 2d 72 65 74 75 |alias 'i|elm-retu|
|00000f50| 72 6e 20 23 5b 6e 69 6c | 20 22 08 83 40 00 8a c1 |rn #[nil| "..@...|
|00000f60| 7f 88 c2 c3 20 60 5c 22 | 29 89 1c 40 c5 57 83 21 |.... `\"|)..@.W.!|
|00000f70| 00 c6 5c 66 38 84 21 00 | c7 20 82 3e 00 0e 08 83 |..\f8.!.|. .>....|
|00000f80| 3c 00 8a c9 79 88 ca 0e | 0b 21 29 83 3c 00 8a c3 |<...y...|.!).<...|
|00000f90| 20 62 88 cc c5 21 88 29 | cd 20 29 87 cc 20 87 22 | b...!.)|. ).. ."|
|00000fa0| 20 5b 69 65 6c 6d 2d 64 | 79 6e 61 6d 69 63 2d 72 | [ielm-d|ynamic-r|
|00000fb0| 65 74 75 72 6e 20 6e 69 | 6c 20 70 61 72 73 65 2d |eturn ni|l parse-|
|00000fc0| 70 61 72 74 69 61 6c 2d | 73 65 78 70 20 69 65 6c |partial-|sexp iel|
|00000fd0| 6d 2d 70 6d 20 73 74 61 | 74 65 20 31 20 33 20 69 |m-pm sta|te 1 3 i|
|00000fe0| 65 6c 6d 2d 73 65 6e 64 | 2d 69 6e 70 75 74 20 69 |elm-send|-input i|
|00000ff0| 65 6c 6d 2d 64 79 6e 61 | 6d 69 63 2d 6d 75 6c 74 |elm-dyna|mic-mult|
|00001000| 69 6c 69 6e 65 2d 69 6e | 70 75 74 73 20 30 20 6c |iline-in|puts 0 l|
|00001010| 6f 6f 6b 69 6e 67 2d 61 | 74 20 63 6f 6d 69 6e 74 |ooking-a|t comint|
|00001020| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 20 6e |-prompt-|regexp n|
|00001030| 65 77 6c 69 6e 65 20 6e | 65 77 6c 69 6e 65 2d 61 |ewline n|ewline-a|
|00001040| 6e 64 2d 69 6e 64 65 6e | 74 5d 20 34 20 22 5c 0a |nd-inden|t] 4 "\.|
|00001050| 4e 65 77 6c 69 6e 65 20 | 61 6e 64 20 69 6e 64 65 |Newline |and inde|
|00001060| 6e 74 2c 20 6f 72 20 65 | 76 61 6c 75 61 74 65 20 |nt, or e|valuate |
|00001070| 74 68 65 20 73 65 78 70 | 20 62 65 66 6f 72 65 20 |the sexp| before |
|00001080| 74 68 65 20 70 72 6f 6d | 70 74 2e 0a 43 6f 6d 70 |the prom|pt..Comp|
|00001090| 6c 65 74 65 20 73 65 78 | 70 73 20 61 72 65 20 65 |lete sex|ps are e|
|000010a0| 76 61 6c 75 61 74 65 64 | 3b 20 66 6f 72 20 69 6e |valuated|; for in|
|000010b0| 63 6f 6d 70 6c 65 74 65 | 20 73 65 78 70 73 20 69 |complete| sexps i|
|000010c0| 6e 73 65 72 74 73 20 61 | 20 6e 65 77 6c 69 6e 65 |nserts a| newline|
|000010d0| 0a 61 6e 64 20 69 6e 64 | 65 6e 74 73 2e 20 20 49 |.and ind|ents.  I|
|000010e0| 66 20 68 6f 77 65 76 65 | 72 20 60 69 65 6c 6d 2d |f howeve|r `ielm-|
|000010f0| 64 79 6e 61 6d 69 63 2d | 72 65 74 75 72 6e 27 20 |dynamic-|return' |
|00001100| 69 73 20 6e 69 6c 2c 20 | 74 68 69 73 20 61 6c 77 |is nil, |this alw|
|00001110| 61 79 73 0a 73 69 6d 70 | 6c 79 20 69 6e 73 65 72 |ays.simp|ly inser|
|00001120| 74 73 20 61 20 6e 65 77 | 6c 69 6e 65 2e 22 20 6e |ts a new|line." n|
|00001130| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |il]).(de|falias (|
|00001140| 71 75 6f 74 65 20 69 65 | 6c 6d 2d 69 6e 70 75 74 |quote ie|lm-input|
|00001150| 2d 73 65 6e 64 65 72 29 | 20 23 5b 28 70 72 6f 63 |-sender)| #[(proc|
|00001160| 20 69 6e 70 75 74 29 20 | 22 08 89 11 87 22 20 5b | input) |"...." [|
|00001170| 69 6e 70 75 74 20 69 65 | 6c 6d 2d 69 6e 70 75 74 |input ie|lm-input|
|00001180| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00001190| 27 69 65 6c 6d 2d 73 65 | 6e 64 2d 69 6e 70 75 74 |'ielm-se|nd-input|
|000011a0| 20 23 5b 6e 69 6c 20 22 | 70 c0 19 1a c3 20 88 c4 | #[nil "|p.... ..|
|000011b0| 09 21 2a 87 22 20 5b 6e | 69 6c 20 69 65 6c 6d 2d |.!*." [n|il ielm-|
|000011c0| 69 6e 70 75 74 20 62 75 | 66 20 63 6f 6d 69 6e 74 |input bu|f comint|
|000011d0| 2d 73 65 6e 64 2d 69 6e | 70 75 74 20 69 65 6c 6d |-send-in|put ielm|
|000011e0| 2d 65 76 61 6c 2d 69 6e | 70 75 74 5d 20 32 20 22 |-eval-in|put] 2 "|
|000011f0| 5c 0a 45 76 61 6c 75 61 | 74 65 20 74 68 65 20 45 |\.Evalua|te the E|
|00001200| 6d 61 63 73 20 4c 69 73 | 70 20 65 78 70 72 65 73 |macs Lis|p expres|
|00001210| 73 69 6f 6e 20 61 66 74 | 65 72 20 74 68 65 20 70 |sion aft|er the p|
|00001220| 72 6f 6d 70 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |rompt." |nil]).(d|
|00001230| 65 66 61 6c 69 61 73 20 | 27 69 65 6c 6d 2d 69 73 |efalias |'ielm-is|
|00001240| 2d 77 68 69 74 65 73 70 | 61 63 65 20 23 5b 28 73 |-whitesp|ace #[(s|
|00001250| 74 72 69 6e 67 29 20 22 | 08 c1 98 86 5c 6e 00 c2 |tring) "|....\n..|
|00001260| c3 08 5c 22 87 22 20 5b | 73 74 72 69 6e 67 20 22 |..\"." [|string "|
|00001270| 22 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |" string|-match "|
|00001280| 5c 5c 60 5b 20 09 5c 6e | 5d 2b 5c 5c 27 22 5d 20 |\\`[ .\n|]+\\'"] |
|00001290| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 6e 6f 6e 2d |3 "\.Ret|urn non-|
|000012a0| 6e 69 6c 20 69 66 20 53 | 54 52 49 4e 47 20 69 73 |nil if S|TRING is|
|000012b0| 20 61 6c 6c 20 77 68 69 | 74 65 73 70 61 63 65 2e | all whi|tespace.|
|000012c0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|000012d0| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|000012e0| 65 66 61 6c 69 61 73 20 | 69 65 6c 6d 2d 66 6f 72 |efalias |ielm-for|
|000012f0| 6d 61 74 2d 65 72 72 6f | 72 73 20 23 5b 28 65 72 |mat-erro|rs #[(er|
|00001300| 72 6c 69 73 74 29 20 22 | c0 19 5c 6e 83 15 00 09 |rlist) "|..\n....|
|00001310| c3 5c 6e 40 21 c4 51 11 | 5c 6e 41 89 12 84 06 00 |.\n@!.Q.|\nA.....|
|00001320| 09 c5 c6 4f 29 87 22 20 | 5b 22 22 20 72 65 73 75 |...O)." |["" resu|
|00001330| 6c 74 20 65 72 72 6c 69 | 73 74 20 70 72 69 6e 31 |lt errli|st prin1|
|00001340| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 22 2c 20 22 20 |-to-stri|ng ", " |
|00001350| 30 20 2d 32 5d 20 34 5d | 20 69 65 6c 6d 2d 66 6f |0 -2] 4]| ielm-fo|
|00001360| 72 6d 61 74 2d 65 72 72 | 6f 72 20 23 5b 28 65 72 |rmat-err|or #[(er|
|00001370| 72 29 20 22 c0 c1 5c 6e | 40 c3 4e 86 5c 6e 00 c4 |r) "..\n|@.N.\n..|
|00001380| 5c 6e 41 83 19 00 c0 c5 | c6 5c 6e 41 21 5c 22 82 |\nA.....|.\nA!\".|
|00001390| 1a 00 c7 23 87 22 20 5b | 66 6f 72 6d 61 74 20 22 |...#." [|format "|
|000013a0| 25 73 25 73 22 20 65 72 | 72 20 65 72 72 6f 72 2d |%s%s" er|r error-|
|000013b0| 6d 65 73 73 61 67 65 20 | 22 50 65 63 75 6c 69 61 |message |"Peculia|
|000013c0| 72 20 65 72 72 6f 72 22 | 20 22 3a 20 25 73 22 20 |r error"| ": %s" |
|000013d0| 69 65 6c 6d 2d 66 6f 72 | 6d 61 74 2d 65 72 72 6f |ielm-for|mat-erro|
|000013e0| 72 73 20 22 22 5d 20 37 | 5d 5d 20 33 29 0a 28 64 |rs ""] 7|]] 3).(d|
|000013f0| 65 66 61 6c 69 61 73 20 | 27 69 65 6c 6d 2d 65 76 |efalias |'ielm-ev|
|00001400| 61 6c 2d 69 6e 70 75 74 | 20 23 5b 28 69 65 6c 6d |al-input| #[(ielm|
|00001410| 2d 73 74 72 69 6e 67 29 | 20 22 c0 89 89 89 c1 5c |-string)| ".....\|
|00001420| 6e c3 20 1c 1d 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |n. .....|......\n|
|00001430| cb 0e 5c 66 21 84 ab 00 | cd ce cf 8f 88 0e 07 84 |..\f!...|........|
|00001440| 60 00 d0 5c 6e 21 84 36 | 00 d1 16 08 d2 16 07 70 |`..\n!.6|.......p|
|00001450| 15 82 60 00 cb 0e 5c 66 | 0e 09 c0 4f 21 83 5a 00 |..`...\f|...O!.Z.|
|00001460| 0e 13 0e 14 0e 15 1e 16 | 1e 17 1e 18 8a 5c 6e 71 |........|.....\nq|
|00001470| 88 cd d9 da 8f 88 2c 82 | 60 00 db 16 07 dc 16 08 |......,.|`.......|
|00001480| 0d 5c 6e 3d 84 6d 00 dd | de 0d 5c 22 88 0d 12 5c |.\n=.m..|..\"...\|
|00001490| 66 62 88 0e 07 84 7a 00 | cd df e0 8f 88 0e 07 83 |fb....z.|........|
|000014a0| 99 00 0e 21 83 87 00 e2 | 20 88 0e 06 e3 0e 07 e4 |...!....| .......|
|000014b0| 52 89 16 06 0e 08 50 16 | 06 82 a5 00 0e 14 16 15 |R.....P.|........|
|000014c0| 0e 13 16 14 0e 08 16 13 | 0e 06 e5 50 16 06 0e 06 |........|...P....|
|000014d0| 0e 26 50 16 06 e7 e8 20 | 0e 06 5c 22 2e 07 87 22 |.&P.... |..\"..."|
|000014e0| 20 5b 6e 69 6c 20 22 22 | 20 69 65 6c 6d 2d 77 6f | [nil ""| ielm-wo|
|000014f0| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 20 69 65 6c |rking-bu|ffer iel|
|00001500| 6d 2d 70 6d 20 69 65 6c | 6d 2d 70 6d 61 72 6b 20 |m-pm iel|m-pmark |
|00001510| 69 65 6c 6d 2d 77 62 75 | 66 20 69 65 6c 6d 2d 6f |ielm-wbu|f ielm-o|
|00001520| 75 74 70 75 74 20 69 65 | 6c 6d 2d 65 72 72 6f 72 |utput ie|lm-error|
|00001530| 2d 74 79 70 65 20 69 65 | 6c 6d 2d 72 65 73 75 6c |-type ie|lm-resul|
|00001540| 74 20 69 65 6c 6d 2d 70 | 6f 73 20 69 65 6c 6d 2d |t ielm-p|os ielm-|
|00001550| 66 6f 72 6d 20 69 65 6c | 6d 2d 69 73 2d 77 68 69 |form iel|m-is-whi|
|00001560| 74 65 73 70 61 63 65 20 | 69 65 6c 6d 2d 73 74 72 |tespace |ielm-str|
|00001570| 69 6e 67 20 65 72 72 20 | 28 62 79 74 65 2d 63 6f |ing err |(byte-co|
|00001580| 64 65 20 22 c0 19 c2 0b | 21 89 11 40 14 09 41 15 |de "....|!..@..A.|
|00001590| 29 c0 87 22 20 5b 6e 69 | 6c 20 72 6f 75 74 20 72 |).." [ni|l rout r|
|000015a0| 65 61 64 2d 66 72 6f 6d | 2d 73 74 72 69 6e 67 20 |ead-from|-string |
|000015b0| 69 65 6c 6d 2d 73 74 72 | 69 6e 67 20 69 65 6c 6d |ielm-str|ing ielm|
|000015c0| 2d 66 6f 72 6d 20 69 65 | 6c 6d 2d 70 6f 73 5d 20 |-form ie|lm-pos] |
|000015d0| 33 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |3) ((err|or (byte|
|000015e0| 2d 63 6f 64 65 20 22 c0 | 09 21 12 c3 14 c0 87 22 |-code ".|.!....."|
|000015f0| 20 5b 69 65 6c 6d 2d 66 | 6f 72 6d 61 74 2d 65 72 | [ielm-f|ormat-er|
|00001600| 72 6f 72 20 65 72 72 20 | 69 65 6c 6d 2d 72 65 73 |ror err |ielm-res|
|00001610| 75 6c 74 20 22 52 65 61 | 64 20 65 72 72 6f 72 22 |ult "Rea|d error"|
|00001620| 20 69 65 6c 6d 2d 65 72 | 72 6f 72 2d 74 79 70 65 | ielm-er|ror-type|
|00001630| 5d 20 32 29 29 29 20 62 | 75 66 66 65 72 2d 6e 61 |] 2))) b|uffer-na|
|00001640| 6d 65 20 22 57 6f 72 6b | 69 6e 67 20 62 75 66 66 |me "Work|ing buff|
|00001650| 65 72 20 68 61 73 20 62 | 65 65 6e 20 6b 69 6c 6c |er has b|een kill|
|00001660| 65 64 22 20 22 49 45 4c | 4d 20 45 72 72 6f 72 22 |ed" "IEL|M Error"|
|00001670| 20 3a 20 3a 3a 20 3a 3a | 3a 20 3a 3a 3a 73 61 76 | : :: ::|: :::sav|
|00001680| 65 20 3a 3a 73 61 76 65 | 20 3a 73 61 76 65 20 28 |e ::save| :save (|
|00001690| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 09 5c 6e 70 |byte-cod|e "..\np|
|000016a0| 1b 1c 1d 1e 06 c7 0e 08 | 21 16 09 70 16 5c 6e 0b |........|!..p.\n.|
|000016b0| 71 88 2c c7 87 22 20 5b | 3a 73 61 76 65 20 3a 3a |q.,.." [|:save ::|
|000016c0| 73 61 76 65 20 3a 3a 3a | 73 61 76 65 20 69 65 6c |save :::|save iel|
|000016d0| 6d 2d 6f 62 75 66 20 3a | 3a 3a 20 3a 3a 20 3a 20 |m-obuf :|:: :: : |
|000016e0| 65 76 61 6c 20 69 65 6c | 6d 2d 66 6f 72 6d 20 69 |eval iel|m-form i|
|000016f0| 65 6c 6d 2d 72 65 73 75 | 6c 74 20 69 65 6c 6d 2d |elm-resu|lt ielm-|
|00001700| 77 62 75 66 5d 20 34 29 | 20 28 28 65 72 72 6f 72 |wbuf] 4)| ((error|
|00001710| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 21 | (byte-c|ode "..!|
|00001720| 12 c3 14 c0 87 22 20 5b | 69 65 6c 6d 2d 66 6f 72 |....." [|ielm-for|
|00001730| 6d 61 74 2d 65 72 72 6f | 72 20 65 72 72 20 69 65 |mat-erro|r err ie|
|00001740| 6c 6d 2d 72 65 73 75 6c | 74 20 22 45 76 61 6c 20 |lm-resul|t "Eval |
|00001750| 65 72 72 6f 72 22 20 69 | 65 6c 6d 2d 65 72 72 6f |error" i|elm-erro|
|00001760| 72 2d 74 79 70 65 5d 20 | 32 29 29 20 28 71 75 69 |r-type] |2)) (qui|
|00001770| 74 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |t (byte-|code "..|
|00001780| c2 13 c4 87 22 20 5b 22 | 51 75 69 74 20 64 75 72 |...." ["|Quit dur|
|00001790| 69 6e 67 20 65 76 61 6c | 75 61 74 69 6f 6e 22 20 |ing eval|uation" |
|000017a0| 69 65 6c 6d 2d 72 65 73 | 75 6c 74 20 22 45 76 61 |ielm-res|ult "Eva|
|000017b0| 6c 20 65 72 72 6f 72 22 | 20 69 65 6c 6d 2d 65 72 |l error"| ielm-er|
|000017c0| 72 6f 72 2d 74 79 70 65 | 20 6e 69 6c 5d 20 31 29 |ror-type| nil] 1)|
|000017d0| 29 29 20 22 49 45 4c 4d | 20 65 72 72 6f 72 22 20 |)) "IELM| error" |
|000017e0| 22 4d 6f 72 65 20 74 68 | 61 6e 20 6f 6e 65 20 73 |"More th|an one s|
|000017f0| 65 78 70 20 69 6e 20 69 | 6e 70 75 74 22 20 6d 65 |exp in i|nput" me|
|00001800| 73 73 61 67 65 20 22 63 | 75 72 72 65 6e 74 20 62 |ssage "c|urrent b|
|00001810| 75 66 66 65 72 20 69 73 | 20 6e 6f 77 3a 20 25 73 |uffer is| now: %s|
|00001820| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c1 |" (byte-|code "..|
|00001830| 5c 6e 21 50 10 c1 87 22 | 20 5b 69 65 6c 6d 2d 6f |\n!P..."| [ielm-o|
|00001840| 75 74 70 75 74 20 70 70 | 2d 74 6f 2d 73 74 72 69 |utput pp|-to-stri|
|00001850| 6e 67 20 69 65 6c 6d 2d | 72 65 73 75 6c 74 5d 20 |ng ielm-|result] |
|00001860| 33 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |3) ((err|or (byte|
|00001870| 2d 63 6f 64 65 20 22 c0 | 11 c2 13 c4 87 22 20 5b |-code ".|....." [|
|00001880| 22 49 45 4c 4d 20 45 72 | 72 6f 72 22 20 69 65 6c |"IELM Er|ror" iel|
|00001890| 6d 2d 65 72 72 6f 72 2d | 74 79 70 65 20 22 45 72 |m-error-|type "Er|
|000018a0| 72 6f 72 20 64 75 72 69 | 6e 67 20 70 72 65 74 74 |ror duri|ng prett|
|000018b0| 79 2d 70 72 69 6e 74 69 | 6e 67 20 28 62 75 67 20 |y-printi|ng (bug |
|000018c0| 69 6e 20 70 70 29 22 20 | 69 65 6c 6d 2d 72 65 73 |in pp)" |ielm-res|
|000018d0| 75 6c 74 20 6e 69 6c 5d | 20 31 29 29 20 28 71 75 |ult nil]| 1)) (qu|
|000018e0| 69 74 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |it (byte|-code ".|
|000018f0| 11 c2 13 c4 87 22 20 5b | 22 49 45 4c 4d 20 45 72 |....." [|"IELM Er|
|00001900| 72 6f 72 22 20 69 65 6c | 6d 2d 65 72 72 6f 72 2d |ror" iel|m-error-|
|00001910| 74 79 70 65 20 22 51 75 | 69 74 20 64 75 72 69 6e |type "Qu|it durin|
|00001920| 67 20 70 72 65 74 74 79 | 2d 70 72 69 6e 74 69 6e |g pretty|-printin|
|00001930| 67 22 20 69 65 6c 6d 2d | 72 65 73 75 6c 74 20 6e |g" ielm-|result n|
|00001940| 69 6c 5d 20 31 29 29 29 | 20 69 65 6c 6d 2d 6e 6f |il] 1)))| ielm-no|
|00001950| 69 73 79 20 64 69 6e 67 | 20 22 2a 2a 2a 20 22 20 |isy ding| "*** " |
|00001960| 22 20 2a 2a 2a 20 20 22 | 20 22 5c 6e 22 20 69 65 |" ***  "| "\n" ie|
|00001970| 6c 6d 2d 70 72 6f 6d 70 | 74 20 63 6f 6d 69 6e 74 |lm-promp|t comint|
|00001980| 2d 6f 75 74 70 75 74 2d | 66 69 6c 74 65 72 20 69 |-output-|filter i|
|00001990| 65 6c 6d 2d 70 72 6f 63 | 65 73 73 5d 20 38 20 22 |elm-proc|ess] 8 "|
|000019a0| 5c 0a 45 76 61 6c 75 61 | 74 65 20 74 68 65 20 4c |\.Evalua|te the L|
|000019b0| 69 73 70 20 65 78 70 72 | 65 73 73 69 6f 6e 20 49 |isp expr|ession I|
|000019c0| 45 4c 4d 2d 53 54 52 49 | 4e 47 2c 20 61 6e 64 20 |ELM-STRI|NG, and |
|000019d0| 70 72 65 74 74 79 2d 70 | 72 69 6e 74 20 74 68 65 |pretty-p|rint the|
|000019e0| 20 72 65 73 75 6c 74 2e | 22 5d 29 0a 28 62 79 74 | result.|"]).(byt|
|000019f0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|00001a00| c4 5c 22 88 c0 c5 c6 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00001a10| 61 6c 69 61 73 20 69 65 | 6c 6d 2d 70 72 6f 63 65 |alias ie|lm-proce|
|00001a20| 73 73 20 23 5b 6e 69 6c | 20 22 c0 70 21 87 22 20 |ss #[nil| ".p!." |
|00001a30| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 70 72 6f 63 |[get-buf|fer-proc|
|00001a40| 65 73 73 5d 20 32 5d 20 | 69 65 6c 6d 2d 70 6d 20 |ess] 2] |ielm-pm |
|00001a50| 23 5b 6e 69 6c 20 22 c0 | c1 70 21 21 87 22 20 5b |#[nil ".|.p!!." [|
|00001a60| 70 72 6f 63 65 73 73 2d | 6d 61 72 6b 20 67 65 74 |process-|mark get|
|00001a70| 2d 62 75 66 66 65 72 2d | 70 72 6f 63 65 73 73 5d |-buffer-|process]|
|00001a80| 20 33 5d 20 69 65 6c 6d | 2d 73 65 74 2d 70 6d 20 | 3] ielm|-set-pm |
|00001a90| 23 5b 28 70 6f 73 29 20 | 22 c0 c1 70 21 21 5c 6e |#[(pos) |"..p!!\n|
|00001aa0| c3 93 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 6d 61 |..." [pr|ocess-ma|
|00001ab0| 72 6b 20 67 65 74 2d 62 | 75 66 66 65 72 2d 70 72 |rk get-b|uffer-pr|
|00001ac0| 6f 63 65 73 73 20 70 6f | 73 20 6e 69 6c 5d 20 33 |ocess po|s nil] 3|
|00001ad0| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00001ae0| 27 69 6e 66 65 72 69 6f | 72 2d 65 6d 61 63 73 2d |'inferio|r-emacs-|
|00001af0| 6c 69 73 70 2d 6d 6f 64 | 65 20 23 5b 6e 69 6c 20 |lisp-mod|e #[nil |
|00001b00| 22 c0 20 88 c1 c2 0b 21 | 50 14 c5 c6 21 88 5c 66 |". ....!|P...!.\f|
|00001b10| 16 06 c7 16 08 c9 16 5c | 6e cb 16 5c 66 cd 16 0e |.......\|n..\f...|
|00001b20| cf 16 10 d1 16 12 d3 0e | 14 21 88 d5 0e 16 21 88 |........|.!....!.|
|00001b30| c5 d7 21 88 c5 d8 21 88 | 70 16 18 d9 16 17 c9 16 |..!...!.|p.......|
|00001b40| 1a c5 da 21 88 c9 16 1b | c5 db 21 88 c9 16 1c c5 |...!....|..!.....|
|00001b50| dc 21 88 dd 70 21 84 7f | 00 de df 70 e0 23 88 e1 |.!..p!..|...p.#..|
|00001b60| e2 20 21 88 64 62 88 0e | 23 63 88 e4 64 21 88 e5 |. !.db..|#c..d!..|
|00001b70| e2 20 0b 5c 22 88 0e 26 | e7 20 c9 93 88 e8 e9 70 |. .\"..&|. .....p|
|00001b80| 21 e5 5c 22 88 ea eb 21 | 87 22 20 5b 63 6f 6d 69 |!.\"...!|." [comi|
|00001b90| 6e 74 2d 6d 6f 64 65 20 | 22 5e 22 20 72 65 67 65 |nt-mode |"^" rege|
|00001ba0| 78 70 2d 71 75 6f 74 65 | 20 69 65 6c 6d 2d 70 72 |xp-quote| ielm-pr|
|00001bb0| 6f 6d 70 74 20 63 6f 6d | 69 6e 74 2d 70 72 6f 6d |ompt com|int-prom|
|00001bc0| 70 74 2d 72 65 67 65 78 | 70 20 6d 61 6b 65 2d 6c |pt-regex|p make-l|
|00001bd0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 70 61 |ocal-var|iable pa|
|00001be0| 72 61 67 72 61 70 68 2d | 73 74 61 72 74 20 69 65 |ragraph-|start ie|
|00001bf0| 6c 6d 2d 69 6e 70 75 74 | 2d 73 65 6e 64 65 72 20 |lm-input|-sender |
|00001c00| 63 6f 6d 69 6e 74 2d 69 | 6e 70 75 74 2d 73 65 6e |comint-i|nput-sen|
|00001c10| 64 65 72 20 6e 69 6c 20 | 63 6f 6d 69 6e 74 2d 70 |der nil |comint-p|
|00001c20| 72 6f 63 65 73 73 2d 65 | 63 68 6f 65 73 20 28 69 |rocess-e|choes (i|
|00001c30| 65 6c 6d 2d 74 61 62 20 | 63 6f 6d 69 6e 74 2d 72 |elm-tab |comint-r|
|00001c40| 65 70 6c 61 63 65 2d 62 | 79 2d 65 78 70 61 6e 64 |eplace-b|y-expand|
|00001c50| 65 64 2d 68 69 73 74 6f | 72 79 20 69 65 6c 6d 2d |ed-histo|ry ielm-|
|00001c60| 63 6f 6d 70 6c 65 74 65 | 2d 66 69 6c 65 6e 61 6d |complete|-filenam|
|00001c70| 65 20 69 65 6c 6d 2d 63 | 6f 6d 70 6c 65 74 65 2d |e ielm-c|omplete-|
|00001c80| 73 79 6d 62 6f 6c 29 20 | 63 6f 6d 69 6e 74 2d 64 |symbol) |comint-d|
|00001c90| 79 6e 61 6d 69 63 2d 63 | 6f 6d 70 6c 65 74 65 2d |ynamic-c|omplete-|
|00001ca0| 66 75 6e 63 74 69 6f 6e | 73 20 69 65 6c 6d 2d 67 |function|s ielm-g|
|00001cb0| 65 74 2d 6f 6c 64 2d 69 | 6e 70 75 74 20 63 6f 6d |et-old-i|nput com|
|00001cc0| 69 6e 74 2d 67 65 74 2d | 6f 6c 64 2d 69 6e 70 75 |int-get-|old-inpu|
|00001cd0| 74 20 69 6e 66 65 72 69 | 6f 72 2d 65 6d 61 63 73 |t inferi|or-emacs|
|00001ce0| 2d 6c 69 73 70 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |-lisp-mo|de major|
|00001cf0| 2d 6d 6f 64 65 20 22 49 | 45 4c 4d 22 20 6d 6f 64 |-mode "I|ELM" mod|
|00001d00| 65 2d 6e 61 6d 65 20 75 | 73 65 2d 6c 6f 63 61 6c |e-name u|se-local|
|00001d10| 2d 6d 61 70 20 69 65 6c | 6d 2d 6d 61 70 20 73 65 |-map iel|m-map se|
|00001d20| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 65 |t-syntax|-table e|
|00001d30| 6d 61 63 73 2d 6c 69 73 | 70 2d 6d 6f 64 65 2d 73 |macs-lis|p-mode-s|
|00001d40| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 69 6e 64 65 |yntax-ta|ble inde|
|00001d50| 6e 74 2d 6c 69 6e 65 2d | 66 75 6e 63 74 69 6f 6e |nt-line-|function|
|00001d60| 20 69 65 6c 6d 2d 77 6f | 72 6b 69 6e 67 2d 62 75 | ielm-wo|rking-bu|
|00001d70| 66 66 65 72 20 69 65 6c | 6d 2d 69 6e 64 65 6e 74 |ffer iel|m-indent|
|00001d80| 2d 6c 69 6e 65 20 3a 20 | 3a 3a 20 3a 3a 3a 20 63 |-line : |:: ::: c|
|00001d90| 6f 6d 69 6e 74 2d 63 68 | 65 63 6b 2d 70 72 6f 63 |omint-ch|eck-proc|
|00001da0| 20 73 74 61 72 74 2d 70 | 72 6f 63 65 73 73 20 22 | start-p|rocess "|
|00001db0| 69 65 6c 6d 22 20 22 63 | 61 74 22 20 70 72 6f 63 |ielm" "c|at" proc|
|00001dc0| 65 73 73 2d 6b 69 6c 6c | 2d 77 69 74 68 6f 75 74 |ess-kill|-without|
|00001dd0| 2d 71 75 65 72 79 20 69 | 65 6c 6d 2d 70 72 6f 63 |-query i|elm-proc|
|00001de0| 65 73 73 20 69 65 6c 6d | 2d 68 65 61 64 65 72 20 |ess ielm|-header |
|00001df0| 69 65 6c 6d 2d 73 65 74 | 2d 70 6d 20 63 6f 6d 69 |ielm-set|-pm comi|
|00001e00| 6e 74 2d 6f 75 74 70 75 | 74 2d 66 69 6c 74 65 72 |nt-outpu|t-filter|
|00001e10| 20 63 6f 6d 69 6e 74 2d | 6c 61 73 74 2d 69 6e 70 | comint-|last-inp|
|00001e20| 75 74 2d 73 74 61 72 74 | 20 69 65 6c 6d 2d 70 6d |ut-start| ielm-pm|
|00001e30| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 66 69 6c | set-pro|cess-fil|
|00001e40| 74 65 72 20 67 65 74 2d | 62 75 66 66 65 72 2d 70 |ter get-|buffer-p|
|00001e50| 72 6f 63 65 73 73 20 72 | 75 6e 2d 68 6f 6f 6b 73 |rocess r|un-hooks|
|00001e60| 20 69 65 6c 6d 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d | ielm-mo|de-hook]|
|00001e70| 20 34 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 4 "\.Ma|jor mode|
|00001e80| 20 66 6f 72 20 69 6e 74 | 65 72 61 63 74 69 76 65 | for int|eractive|
|00001e90| 6c 79 20 65 76 61 6c 75 | 61 74 69 6e 67 20 45 6d |ly evalu|ating Em|
|00001ea0| 61 63 73 20 4c 69 73 70 | 20 65 78 70 72 65 73 73 |acs Lisp| express|
|00001eb0| 69 6f 6e 73 2e 0a 55 73 | 65 73 20 74 68 65 20 69 |ions..Us|es the i|
|00001ec0| 6e 74 65 72 66 61 63 65 | 20 70 72 6f 76 69 64 65 |nterface| provide|
|00001ed0| 64 20 62 79 20 60 63 6f | 6d 69 6e 74 2d 6d 6f 64 |d by `co|mint-mod|
|00001ee0| 65 27 20 28 77 68 69 63 | 68 20 73 65 65 29 2e 0a |e' (whic|h see)..|
|00001ef0| 0a 2a 20 5c 5c 3c 69 65 | 6c 6d 2d 6d 61 70 3e 5c |.* \\<ie|lm-map>\|
|00001f00| 5c 5b 69 65 6c 6d 2d 73 | 65 6e 64 2d 69 6e 70 75 |\[ielm-s|end-inpu|
|00001f10| 74 5d 20 65 76 61 6c 75 | 61 74 65 73 20 74 68 65 |t] evalu|ates the|
|00001f20| 20 73 65 78 70 20 66 6f | 6c 6c 6f 77 69 6e 67 20 | sexp fo|llowing |
|00001f30| 74 68 65 20 70 72 6f 6d | 70 74 2e 20 54 68 65 72 |the prom|pt. Ther|
|00001f40| 65 20 6d 75 73 74 20 62 | 65 20 61 74 20 6d 6f 73 |e must b|e at mos|
|00001f50| 74 0a 20 20 6f 6e 65 20 | 74 6f 70 2d 6c 65 76 65 |t.  one |top-leve|
|00001f60| 6c 20 73 65 78 70 20 70 | 65 72 20 70 72 6f 6d 70 |l sexp p|er promp|
|00001f70| 74 2e 0a 0a 2a 20 5c 5c | 5b 69 65 6c 6d 2d 72 65 |t...* \\|[ielm-re|
|00001f80| 74 75 72 6e 5d 20 69 6e | 73 65 72 74 73 20 61 20 |turn] in|serts a |
|00001f90| 6e 65 77 6c 69 6e 65 20 | 61 6e 64 20 69 6e 64 65 |newline |and inde|
|00001fa0| 6e 74 73 2c 20 6f 72 20 | 65 76 61 6c 75 61 74 65 |nts, or |evaluate|
|00001fb0| 73 20 61 0a 20 20 63 6f | 6d 70 6c 65 74 65 20 65 |s a.  co|mplete e|
|00001fc0| 78 70 72 65 73 73 69 6f | 6e 20 28 62 75 74 20 73 |xpressio|n (but s|
|00001fd0| 65 65 20 76 61 72 69 61 | 62 6c 65 20 60 69 65 6c |ee varia|ble `iel|
|00001fe0| 6d 2d 64 79 6e 61 6d 69 | 63 2d 72 65 74 75 72 6e |m-dynami|c-return|
|00001ff0| 27 29 2e 0a 20 20 49 6e | 70 75 74 73 20 6c 6f 6e |')..  In|puts lon|
|00002000| 67 65 72 20 74 68 61 6e | 20 6f 6e 65 20 6c 69 6e |ger than| one lin|
|00002010| 65 20 61 72 65 20 6d 6f | 76 65 64 20 74 6f 20 74 |e are mo|ved to t|
|00002020| 68 65 20 6c 69 6e 65 20 | 66 6f 6c 6c 6f 77 69 6e |he line |followin|
|00002030| 67 20 74 68 65 0a 20 20 | 70 72 6f 6d 70 74 20 28 |g the.  |prompt (|
|00002040| 62 75 74 20 73 65 65 20 | 76 61 72 69 61 62 6c 65 |but see |variable|
|00002050| 20 60 69 65 6c 6d 2d 64 | 79 6e 61 6d 69 63 2d 6d | `ielm-d|ynamic-m|
|00002060| 75 6c 74 69 6c 69 6e 65 | 2d 69 6e 70 75 74 73 27 |ultiline|-inputs'|
|00002070| 29 2e 0a 0a 2a 20 5c 5c | 5b 63 6f 6d 69 6e 74 2d |)...* \\|[comint-|
|00002080| 64 79 6e 61 6d 69 63 2d | 63 6f 6d 70 6c 65 74 65 |dynamic-|complete|
|00002090| 5d 20 63 6f 6d 70 6c 65 | 74 65 73 20 4c 69 73 70 |] comple|tes Lisp|
|000020a0| 20 73 79 6d 62 6f 6c 73 | 20 28 6f 72 20 66 69 6c | symbols| (or fil|
|000020b0| 65 6e 61 6d 65 73 2c 20 | 77 69 74 68 69 6e 20 73 |enames, |within s|
|000020c0| 74 72 69 6e 67 73 29 2c | 20 0a 20 20 6f 72 20 69 |trings),| .  or i|
|000020d0| 6e 64 65 6e 74 73 20 74 | 68 65 20 6c 69 6e 65 20 |ndents t|he line |
|000020e0| 69 66 20 74 68 65 72 65 | 20 69 73 20 6e 6f 74 68 |if there| is noth|
|000020f0| 69 6e 67 20 74 6f 20 63 | 6f 6d 70 6c 65 74 65 2e |ing to c|omplete.|
|00002100| 0a 0a 44 75 72 69 6e 67 | 20 65 76 61 6c 75 61 74 |..During| evaluat|
|00002110| 69 6f 6e 73 2c 20 74 68 | 65 20 76 61 6c 75 65 73 |ions, th|e values|
|00002120| 20 6f 66 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 | of the |variable|
|00002130| 73 20 60 3a 27 2c 20 60 | 3a 3a 27 2c 20 61 6e 64 |s `:', `|::', and|
|00002140| 20 60 3a 3a 3a 27 0a 61 | 72 65 20 74 68 65 20 72 | `:::'.a|re the r|
|00002150| 65 73 75 6c 74 73 20 6f | 66 20 74 68 65 20 70 72 |esults o|f the pr|
|00002160| 65 76 69 6f 75 73 2c 20 | 73 65 63 6f 6e 64 20 70 |evious, |second p|
|00002170| 72 65 76 69 6f 75 73 20 | 61 6e 64 20 74 68 69 72 |revious |and thir|
|00002180| 64 20 70 72 65 76 69 6f | 75 73 0a 65 76 61 6c 75 |d previo|us.evalu|
|00002190| 61 74 69 6f 6e 73 20 72 | 65 73 70 65 63 74 69 76 |ations r|espectiv|
|000021a0| 65 6c 79 2e 0a 0a 54 68 | 65 20 63 75 72 72 65 6e |ely...Th|e curren|
|000021b0| 74 20 77 6f 72 6b 69 6e | 67 20 62 75 66 66 65 72 |t workin|g buffer|
|000021c0| 20 6d 61 79 20 62 65 20 | 63 68 61 6e 67 65 64 20 | may be |changed |
|000021d0| 28 77 69 74 68 20 61 20 | 63 61 6c 6c 20 74 6f 0a |(with a |call to.|
|000021e0| 60 73 65 74 2d 62 75 66 | 66 65 72 27 2c 20 6f 72 |`set-buf|fer', or|
|000021f0| 20 77 69 74 68 20 5c 5c | 5b 69 65 6c 6d 2d 63 68 | with \\|[ielm-ch|
|00002200| 61 6e 67 65 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 |ange-wor|king-buf|
|00002210| 66 65 72 5d 29 2c 20 61 | 6e 64 20 69 74 73 20 76 |fer]), a|nd its v|
|00002220| 61 6c 75 65 0a 69 73 20 | 70 72 65 73 65 72 76 65 |alue.is |preserve|
|00002230| 64 20 62 65 74 77 65 65 | 6e 20 73 75 63 63 65 73 |d betwee|n succes|
|00002240| 73 69 76 65 20 65 76 61 | 6c 75 61 74 69 6f 6e 73 |sive eva|luations|
|00002250| 2e 20 20 49 6e 20 74 68 | 69 73 20 77 61 79 2c 20 |.  In th|is way, |
|00002260| 65 78 70 72 65 73 73 69 | 6f 6e 73 0a 6d 61 79 20 |expressi|ons.may |
|00002270| 62 65 20 65 76 61 6c 75 | 61 74 65 64 20 69 6e 20 |be evalu|ated in |
|00002280| 61 20 64 69 66 66 65 72 | 65 6e 74 20 62 75 66 66 |a differ|ent buff|
|00002290| 65 72 20 74 68 61 6e 20 | 74 68 65 20 2a 69 65 6c |er than |the *iel|
|000022a0| 6d 2a 20 62 75 66 66 65 | 72 2e 0a 44 69 73 70 6c |m* buffe|r..Displ|
|000022b0| 61 79 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |ay the n|ame of t|
|000022c0| 68 65 20 77 6f 72 6b 69 | 6e 67 20 62 75 66 66 65 |he worki|ng buffe|
|000022d0| 72 20 77 69 74 68 20 5c | 5c 5b 69 65 6c 6d 2d 70 |r with \|\[ielm-p|
|000022e0| 72 69 6e 74 2d 77 6f 72 | 6b 69 6e 67 2d 62 75 66 |rint-wor|king-buf|
|000022f0| 66 65 72 5d 2c 0a 6f 72 | 20 74 68 65 20 62 75 66 |fer],.or| the buf|
|00002300| 66 65 72 20 69 74 73 65 | 6c 66 20 77 69 74 68 20 |fer itse|lf with |
|00002310| 5c 5c 5b 69 65 6c 6d 2d | 64 69 73 70 6c 61 79 2d |\\[ielm-|display-|
|00002320| 77 6f 72 6b 69 6e 67 2d | 62 75 66 66 65 72 5d 2e |working-|buffer].|
|00002330| 0a 0a 45 78 70 72 65 73 | 73 69 6f 6e 73 20 65 76 |..Expres|sions ev|
|00002340| 61 6c 75 61 74 65 64 20 | 62 79 20 49 45 4c 4d 20 |aluated |by IELM |
|00002350| 61 72 65 20 6e 6f 74 20 | 73 75 62 6a 65 63 74 20 |are not |subject |
|00002360| 74 6f 20 60 64 65 62 75 | 67 2d 6f 6e 2d 71 75 69 |to `debu|g-on-qui|
|00002370| 74 27 20 6f 72 0a 60 64 | 65 62 75 67 2d 6f 6e 2d |t' or.`d|ebug-on-|
|00002380| 65 72 72 6f 72 27 2e 0a | 0a 54 68 65 20 62 65 68 |error'..|.The beh|
|00002390| 61 76 69 6f 75 72 20 6f | 66 20 49 45 4c 4d 20 6d |aviour o|f IELM m|
|000023a0| 61 79 20 62 65 20 63 75 | 73 74 6f 6d 69 73 65 64 |ay be cu|stomised|
|000023b0| 20 77 69 74 68 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | with th|e follow|
|000023c0| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 73 3a 0a 2a |ing vari|ables:.*|
|000023d0| 20 54 6f 20 73 74 6f 70 | 20 62 65 65 70 69 6e 67 | To stop| beeping|
|000023e0| 20 6f 6e 20 65 72 72 6f | 72 2c 20 73 65 74 20 60 | on erro|r, set `|
|000023f0| 69 65 6c 6d 2d 6e 6f 69 | 73 79 27 20 74 6f 20 6e |ielm-noi|sy' to n|
|00002400| 69 6c 0a 2a 20 49 66 20 | 79 6f 75 20 64 6f 6e 27 |il.* If |you don'|
|00002410| 74 20 6c 69 6b 65 20 74 | 68 65 20 70 72 6f 6d 70 |t like t|he promp|
|00002420| 74 2c 20 79 6f 75 20 63 | 61 6e 20 63 68 61 6e 67 |t, you c|an chang|
|00002430| 65 20 69 74 20 62 79 20 | 73 65 74 74 69 6e 67 20 |e it by |setting |
|00002440| 60 69 65 6c 6d 2d 70 72 | 6f 6d 70 74 27 2e 0a 2a |`ielm-pr|ompt'..*|
|00002450| 20 53 65 74 20 60 69 65 | 6c 6d 2d 64 79 6e 61 6d | Set `ie|lm-dynam|
|00002460| 69 63 2d 72 65 74 75 72 | 6e 27 20 74 6f 20 6e 69 |ic-retur|n' to ni|
|00002470| 6c 20 66 6f 72 20 62 69 | 6e 64 69 6e 67 73 20 6c |l for bi|ndings l|
|00002480| 69 6b 65 20 60 6c 69 73 | 70 2d 69 6e 74 65 72 61 |ike `lis|p-intera|
|00002490| 63 74 69 6f 6e 2d 6d 6f | 64 65 27 0a 2a 20 45 6e |ction-mo|de'.* En|
|000024a0| 74 72 79 20 74 6f 20 74 | 68 69 73 20 6d 6f 64 65 |try to t|his mode|
|000024b0| 20 72 75 6e 73 20 60 63 | 6f 6d 69 6e 74 2d 6d 6f | runs `c|omint-mo|
|000024c0| 64 65 2d 68 6f 6f 6b 27 | 20 61 6e 64 20 60 69 65 |de-hook'| and `ie|
|000024d0| 6c 6d 2d 6d 6f 64 65 2d | 68 6f 6f 6b 27 0a 20 28 |lm-mode-|hook'. (|
|000024e0| 69 6e 20 74 68 61 74 20 | 6f 72 64 65 72 29 2e 0a |in that |order)..|
|000024f0| 0a 43 75 73 74 6f 6d 69 | 73 65 64 20 62 69 6e 64 |.Customi|sed bind|
|00002500| 69 6e 67 73 20 6d 61 79 | 20 62 65 20 64 65 66 69 |ings may| be defi|
|00002510| 6e 65 64 20 69 6e 20 60 | 69 65 6c 6d 2d 6d 61 70 |ned in `|ielm-map|
|00002520| 27 2c 20 77 68 69 63 68 | 20 63 75 72 72 65 6e 74 |', which| current|
|00002530| 6c 79 20 63 6f 6e 74 61 | 69 6e 73 3a 0a 5c 5c 7b |ly conta|ins:.\\{|
|00002540| 69 65 6c 6d 2d 6d 61 70 | 7d 22 20 6e 69 6c 5d 29 |ielm-map|}" nil])|
|00002550| 0a 28 64 65 66 61 6c 69 | 61 73 20 28 71 75 6f 74 |.(defali|as (quot|
|00002560| 65 20 69 65 6c 6d 2d 67 | 65 74 2d 6f 6c 64 2d 69 |e ielm-g|et-old-i|
|00002570| 6e 70 75 74 29 20 23 5b | 6e 69 6c 20 22 8a c0 79 |nput) #[|nil "..y|
|00002580| 88 c1 5c 6e 21 84 0e 00 | c3 5c 6e 21 88 c4 20 88 |..\n!...|.\n!.. .|
|00002590| 60 c5 c6 21 88 60 7b 29 | 87 22 20 5b 30 20 6c 6f |`..!.`{)|." [0 lo|
|000025a0| 6f 6b 69 6e 67 2d 61 74 | 20 63 6f 6d 69 6e 74 2d |oking-at| comint-|
|000025b0| 70 72 6f 6d 70 74 2d 72 | 65 67 65 78 70 20 72 65 |prompt-r|egexp re|
|000025c0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|000025d0| 20 63 6f 6d 69 6e 74 2d | 73 6b 69 70 2d 70 72 6f | comint-|skip-pro|
|000025e0| 6d 70 74 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |mpt forw|ard-sexp|
|000025f0| 20 31 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 | 1] 3]).|(defalia|
|00002600| 73 20 27 69 65 6c 6d 20 | 23 5b 6e 69 6c 20 22 c0 |s 'ielm |#[nil ".|
|00002610| c1 21 84 0e 00 c2 c1 21 | 71 88 c3 20 88 c4 c1 21 |.!.....!|q.. ...!|
|00002620| 87 22 20 5b 63 6f 6d 69 | 6e 74 2d 63 68 65 63 6b |." [comi|nt-check|
|00002630| 2d 70 72 6f 63 20 22 2a | 69 65 6c 6d 2a 22 20 67 |-proc "*|ielm*" g|
|00002640| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00002650| 20 69 6e 66 65 72 69 6f | 72 2d 65 6d 61 63 73 2d | inferio|r-emacs-|
|00002660| 6c 69 73 70 2d 6d 6f 64 | 65 20 73 77 69 74 63 68 |lisp-mod|e switch|
|00002670| 2d 74 6f 2d 62 75 66 66 | 65 72 5d 20 32 20 22 5c |-to-buff|er] 2 "\|
|00002680| 0a 49 6e 74 65 72 61 63 | 74 69 76 65 6c 79 20 65 |.Interac|tively e|
|00002690| 76 61 6c 75 61 74 65 20 | 45 6d 61 63 73 20 4c 69 |valuate |Emacs Li|
|000026a0| 73 70 20 65 78 70 72 65 | 73 73 69 6f 6e 73 2e 0a |sp expre|ssions..|
|000026b0| 53 77 69 74 63 68 65 73 | 20 74 6f 20 74 68 65 20 |Switches| to the |
|000026c0| 62 75 66 66 65 72 20 2a | 69 65 6c 6d 2a 2c 20 6f |buffer *|ielm*, o|
|000026d0| 72 20 63 72 65 61 74 65 | 73 20 69 74 20 69 66 20 |r create|s it if |
|000026e0| 69 74 20 64 6f 65 73 20 | 6e 6f 74 20 65 78 69 73 |it does |not exis|
|000026f0| 74 2e 22 20 6e 69 6c 5d | 29 0a                   |t." nil]|).      |
+--------+-------------------------+-------------------------+--------+--------+