home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 7.3 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 33 3a 32 36 3a 33 | 37 20 31 39 39 33 0a 3b | 23:26:3|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 6c 65 76 | 65 6e 74 73 2e 65 6c 0a |lisp/lev|ents.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 31 35 2e | 31 36 2e 0a 3b 3b 3b 20 |n 19.15.|16..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|000001d0| 5c 22 88 c0 c3 c4 5c 22 | 88 c0 c5 c6 5c 22 88 c7 |\"....\"|....\"..|
|000001e0| 0e 08 c9 ca 23 88 c7 0e | 08 cb ca 23 88 c7 0e 08 |....#...|...#....|
|000001f0| cc ca 23 88 c0 ca cd 5c | 22 88 ce cf d0 d1 23 88 |..#....\|".....#.|
|00000200| ce d2 d0 d3 23 88 ce d4 | d0 d5 23 87 22 20 5b 64 |....#...|..#." [d|
|00000210| 65 66 61 6c 69 61 73 20 | 6e 65 78 74 2d 63 6f 6d |efalias |next-com|
|00000220| 6d 61 6e 64 2d 65 76 65 | 6e 74 20 23 5b 28 65 76 |mand-eve|nt #[(ev|
|00000230| 65 6e 74 29 20 22 c0 c1 | 21 87 22 20 5b 65 72 72 |ent) "..|!." [err|
|00000240| 6f 72 20 22 59 6f 75 20 | 6d 75 73 74 20 72 65 77 |or "You |must rew|
|00000250| 72 69 74 65 20 74 6f 20 | 75 73 65 20 60 72 65 61 |rite to |use `rea|
|00000260| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 27 |d-comman|d-event'|
|00000270| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 60 6e 65 78 | instead| of `nex|
|00000280| 74 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 27 |t-comman|d-event'|
|00000290| 22 5d 20 32 5d 20 6e 65 | 78 74 2d 65 76 65 6e 74 |"] 2] ne|xt-event|
|000002a0| 20 23 5b 28 65 76 65 6e | 74 29 20 22 c0 c1 21 87 | #[(even|t) "..!.|
|000002b0| 22 20 5b 65 72 72 6f 72 | 20 22 59 6f 75 20 6d 75 |" [error| "You mu|
|000002c0| 73 74 20 72 65 77 72 69 | 74 65 20 74 6f 20 75 73 |st rewri|te to us|
|000002d0| 65 20 60 72 65 61 64 2d | 65 76 65 6e 74 27 20 69 |e `read-|event' i|
|000002e0| 6e 73 74 65 61 64 20 6f | 66 20 60 6e 65 78 74 2d |nstead o|f `next-|
|000002f0| 65 76 65 6e 74 27 22 5d | 20 32 5d 20 64 69 73 70 |event'"]| 2] disp|
|00000300| 61 74 63 68 2d 65 76 65 | 6e 74 20 23 5b 28 65 76 |atch-eve|nt #[(ev|
|00000310| 65 6e 74 29 20 22 c0 c1 | 21 87 22 20 5b 65 72 72 |ent) "..|!." [err|
|00000320| 6f 72 20 22 60 64 69 73 | 70 61 74 63 68 2d 65 76 |or "`dis|patch-ev|
|00000330| 65 6e 74 27 20 6e 6f 74 | 20 73 75 70 70 6f 72 74 |ent' not| support|
|00000340| 65 64 22 5d 20 32 5d 20 | 64 65 66 69 6e 65 2d 6b |ed"] 2] |define-k|
|00000350| 65 79 20 67 6c 6f 62 61 | 6c 2d 6d 61 70 20 5b 6d |ey globa|l-map [m|
|00000360| 65 6e 75 5d 20 65 78 65 | 63 75 74 65 2d 65 76 61 |enu] exe|cute-eva|
|00000370| 6c 2d 65 76 65 6e 74 20 | 5b 74 69 6d 65 6f 75 74 |l-event |[timeout|
|00000380| 5d 20 5b 65 76 61 6c 5d | 20 23 5b 28 65 76 65 6e |] [eval]| #[(even|
|00000390| 74 29 20 22 08 41 40 c1 | 08 38 21 87 22 20 5b 65 |t) ".A@.|.8!." [e|
|000003a0| 76 65 6e 74 20 32 5d 20 | 33 20 6e 69 6c 20 22 65 |vent 2] |3 nil "e|
|000003b0| 22 5d 20 70 75 74 20 65 | 76 61 6c 20 65 76 65 6e |"] put e|val even|
|000003c0| 74 2d 73 79 6d 62 6f 6c | 2d 65 6c 65 6d 65 6e 74 |t-symbol|-element|
|000003d0| 73 20 28 65 76 61 6c 29 | 20 6d 65 6e 75 20 28 65 |s (eval)| menu (e|
|000003e0| 76 61 6c 29 20 74 69 6d | 65 6f 75 74 20 28 65 76 |val) tim|eout (ev|
|000003f0| 61 6c 29 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |al)] 4).|(defalia|
|00000400| 73 20 27 65 76 65 6e 74 | 70 20 23 5b 28 6f 62 6a |s 'event|p #[(obj|
|00000410| 29 20 22 08 a8 86 1f 00 | 08 39 83 10 00 08 c1 4e |) ".....|.9.....N|
|00000420| 86 1f 00 08 3a 85 1f 00 | 08 40 39 85 1f 00 08 40 |....:...|.@9....@|
|00000430| c1 4e 87 22 20 5b 6f 62 | 6a 20 65 76 65 6e 74 2d |.N." [ob|j event-|
|00000440| 73 79 6d 62 6f 6c 2d 65 | 6c 65 6d 65 6e 74 73 5d |symbol-e|lements]|
|00000450| 20 32 20 22 5c 0a 54 72 | 75 65 20 69 66 20 74 68 | 2 "\.Tr|ue if th|
|00000460| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 61 6e |e argume|nt is an|
|00000470| 20 65 76 65 6e 74 20 6f | 62 6a 65 63 74 2e 22 5d | event o|bject."]|
|00000480| 29 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 65 76 |).(put (|quote ev|
|00000490| 65 6e 74 70 29 20 28 71 | 75 6f 74 65 20 62 79 74 |entp) (q|uote byt|
|000004a0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 29 20 28 71 75 |e-optimi|zer) (qu|
|000004b0| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|000004c0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 29 |-inline-|expand))|
|000004d0| 0a 28 64 65 66 75 6e 20 | 61 6c 6c 6f 63 61 74 65 |.(defun |allocate|
|000004e0| 2d 65 76 65 6e 74 20 6e | 69 6c 20 22 5c 0a 52 65 |-event n|il "\.Re|
|000004f0| 74 75 72 6e 73 20 61 6e | 20 65 6d 70 74 79 20 65 |turns an| empty e|
|00000500| 76 65 6e 74 20 73 74 72 | 75 63 74 75 72 65 2e 0a |vent str|ucture..|
|00000510| 49 6e 20 74 68 69 73 20 | 65 6d 75 6c 61 74 69 6f |In this |emulatio|
|00000520| 6e 2c 20 69 74 20 72 65 | 74 75 72 6e 73 20 6e 69 |n, it re|turns ni|
|00000530| 6c 2e 22 20 6e 69 6c 29 | 0a 28 64 65 66 61 6c 69 |l." nil)|.(defali|
|00000540| 61 73 20 27 62 75 74 74 | 6f 6e 2d 70 72 65 73 73 |as 'butt|on-press|
|00000550| 2d 65 76 65 6e 74 2d 70 | 20 23 5b 28 6f 62 6a 29 |-event-p| #[(obj)|
|00000560| 20 22 08 3a 85 11 00 08 | 40 39 85 11 00 c1 08 40 | ".:....|@9.....@|
|00000570| c2 4e 3e 87 22 20 5b 6f | 62 6a 20 64 6f 77 6e 20 |.N>." [o|bj down |
|00000580| 65 76 65 6e 74 2d 73 79 | 6d 62 6f 6c 2d 65 6c 65 |event-sy|mbol-ele|
|00000590| 6d 65 6e 74 73 5d 20 33 | 20 22 5c 0a 54 72 75 65 |ments] 3| "\.True|
|000005a0| 20 69 66 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 | if the |argument|
|000005b0| 20 69 73 20 61 20 6d 6f | 75 73 65 2d 62 75 74 74 | is a mo|use-butt|
|000005c0| 6f 6e 2d 70 72 65 73 73 | 20 65 76 65 6e 74 20 6f |on-press| event o|
|000005d0| 62 6a 65 63 74 2e 22 5d | 29 0a 28 64 65 66 61 6c |bject."]|).(defal|
|000005e0| 69 61 73 20 27 62 75 74 | 74 6f 6e 2d 72 65 6c 65 |ias 'but|ton-rele|
|000005f0| 61 73 65 2d 65 76 65 6e | 74 2d 70 20 23 5b 28 6f |ase-even|t-p #[(o|
|00000600| 62 6a 29 20 22 08 3a 85 | 1a 00 08 40 39 85 1a 00 |bj) ".:.|...@9...|
|00000610| c1 08 40 c2 4e 3e 86 1a | 00 c3 08 40 c2 4e 3e 87 |..@.N>..|...@.N>.|
|00000620| 22 20 5b 6f 62 6a 20 63 | 6c 69 63 6b 20 65 76 65 |" [obj c|lick eve|
|00000630| 6e 74 2d 73 79 6d 62 6f | 6c 2d 65 6c 65 6d 65 6e |nt-symbo|l-elemen|
|00000640| 74 73 20 64 72 61 67 5d | 20 33 20 22 5c 0a 54 72 |ts drag]| 3 "\.Tr|
|00000650| 75 65 20 69 66 20 74 68 | 65 20 61 72 67 75 6d 65 |ue if th|e argume|
|00000660| 6e 74 20 69 73 20 61 20 | 6d 6f 75 73 65 2d 62 75 |nt is a |mouse-bu|
|00000670| 74 74 6f 6e 2d 72 65 6c | 65 61 73 65 20 65 76 65 |tton-rel|ease eve|
|00000680| 6e 74 20 6f 62 6a 65 63 | 74 2e 22 5d 29 0a 28 64 |nt objec|t."]).(d|
|00000690| 65 66 75 6e 20 63 68 61 | 72 61 63 74 65 72 2d 74 |efun cha|racter-t|
|000006a0| 6f 2d 65 76 65 6e 74 20 | 28 63 68 20 26 6f 70 74 |o-event |(ch &opt|
|000006b0| 69 6f 6e 61 6c 20 65 76 | 65 6e 74 29 20 22 5c 0a |ional ev|ent) "\.|
|000006c0| 43 6f 6e 76 65 72 74 73 | 20 61 20 6e 75 6d 65 72 |Converts| a numer|
|000006d0| 69 63 20 41 53 43 49 49 | 20 76 61 6c 75 65 20 74 |ic ASCII| value t|
|000006e0| 6f 20 61 6e 20 65 76 65 | 6e 74 20 73 74 72 75 63 |o an eve|nt struc|
|000006f0| 74 75 72 65 2c 20 72 65 | 70 6c 65 74 65 20 77 69 |ture, re|plete wi|
|00000700| 74 68 0a 62 75 63 6b 79 | 20 62 69 74 73 2e 20 20 |th.bucky| bits. |
|00000710| 54 68 65 20 63 68 61 72 | 61 63 74 65 72 20 69 73 |The char|acter is|
|00000720| 20 74 68 65 20 66 69 72 | 73 74 20 61 72 67 75 6d | the fir|st argum|
|00000730| 65 6e 74 2c 20 61 6e 64 | 20 74 68 65 20 65 76 65 |ent, and| the eve|
|00000740| 6e 74 20 74 6f 20 66 69 | 6c 6c 0a 69 6e 20 69 73 |nt to fi|ll.in is|
|00000750| 20 74 68 65 20 73 65 63 | 6f 6e 64 2e 20 20 54 68 | the sec|ond. Th|
|00000760| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 63 6f 6e 74 |is funct|ion cont|
|00000770| 61 69 6e 73 20 6b 6e 6f | 77 6c 65 64 67 65 20 61 |ains kno|wledge a|
|00000780| 62 6f 75 74 20 77 68 61 | 74 20 74 68 65 20 63 6f |bout wha|t the co|
|00000790| 64 65 73 0a 6d 65 61 6e | 20 2d 2d 20 66 6f 72 20 |des.mean| -- for |
|000007a0| 65 78 61 6d 70 6c 65 2c | 20 74 68 65 20 6e 75 6d |example,| the num|
|000007b0| 62 65 72 20 39 20 69 73 | 20 63 6f 6e 76 65 72 74 |ber 9 is| convert|
|000007c0| 65 64 20 74 6f 20 74 68 | 65 20 63 68 61 72 61 63 |ed to th|e charac|
|000007d0| 74 65 72 20 54 61 62 2c | 0a 6e 6f 74 20 74 68 65 |ter Tab,|.not the|
|000007e0| 20 64 69 73 74 69 6e 63 | 74 20 63 68 61 72 61 63 | distinc|t charac|
|000007f0| 74 65 72 20 43 6f 6e 74 | 72 6f 6c 2d 49 2e 0a 0a |ter Cont|rol-I...|
|00000800| 42 65 77 61 72 65 20 74 | 68 61 74 20 63 68 61 72 |Beware t|hat char|
|00000810| 61 63 74 65 72 2d 74 6f | 2d 65 76 65 6e 74 20 61 |acter-to|-event a|
|00000820| 6e 64 20 65 76 65 6e 74 | 2d 74 6f 2d 63 68 61 72 |nd event|-to-char|
|00000830| 61 63 74 65 72 20 61 72 | 65 20 6e 6f 74 20 73 74 |acter ar|e not st|
|00000840| 72 69 63 74 6c 79 20 0a | 69 6e 76 65 72 73 65 20 |rictly .|inverse |
|00000850| 66 75 6e 63 74 69 6f 6e | 73 2c 20 73 69 6e 63 65 |function|s, since|
|00000860| 20 65 76 65 6e 74 73 20 | 63 6f 6e 74 61 69 6e 20 | events |contain |
|00000870| 6d 75 63 68 20 6d 6f 72 | 65 20 69 6e 66 6f 72 6d |much mor|e inform|
|00000880| 61 74 69 6f 6e 20 74 68 | 61 6e 20 74 68 65 20 0a |ation th|an the .|
|00000890| 41 53 43 49 49 20 63 68 | 61 72 61 63 74 65 72 20 |ASCII ch|aracter |
|000008a0| 73 65 74 20 63 61 6e 20 | 65 6e 63 6f 64 65 2e 22 |set can |encode."|
|000008b0| 20 63 68 29 0a 28 64 65 | 66 75 6e 20 63 6f 70 79 | ch).(de|fun copy|
|000008c0| 2d 65 76 65 6e 74 20 28 | 65 76 65 6e 74 31 20 26 |-event (|event1 &|
|000008d0| 6f 70 74 69 6f 6e 61 6c | 20 65 76 65 6e 74 32 29 |optional| event2)|
|000008e0| 20 22 5c 0a 4d 61 6b 65 | 20 61 20 63 6f 70 79 20 | "\.Make| a copy |
|000008f0| 6f 66 20 74 68 65 20 67 | 69 76 65 6e 20 65 76 65 |of the g|iven eve|
|00000900| 6e 74 20 6f 62 6a 65 63 | 74 2e 0a 49 6e 20 74 68 |nt objec|t..In th|
|00000910| 69 73 20 65 6d 75 6c 61 | 74 69 6f 6e 2c 20 60 63 |is emula|tion, `c|
|00000920| 6f 70 79 2d 65 76 65 6e | 74 27 20 6a 75 73 74 20 |opy-even|t' just |
|00000930| 72 65 74 75 72 6e 73 20 | 69 74 73 20 61 72 67 75 |returns |its argu|
|00000940| 6d 65 6e 74 2e 22 20 65 | 76 65 6e 74 31 29 0a 28 |ment." e|vent1).(|
|00000950| 64 65 66 75 6e 20 64 65 | 61 6c 6c 6f 63 61 74 65 |defun de|allocate|
|00000960| 2d 65 76 65 6e 74 20 28 | 65 76 65 6e 74 29 20 22 |-event (|event) "|
|00000970| 5c 0a 41 6c 6c 6f 77 20 | 74 68 65 20 67 69 76 65 |\.Allow |the give|
|00000980| 6e 20 65 76 65 6e 74 20 | 73 74 72 75 63 74 75 72 |n event |structur|
|00000990| 65 20 74 6f 20 62 65 20 | 72 65 75 73 65 64 2e 0a |e to be |reused..|
|000009a0| 49 6e 20 61 63 74 75 61 | 6c 20 4c 75 63 69 64 20 |In actua|l Lucid |
|000009b0| 45 6d 61 63 73 2c 20 79 | 6f 75 20 4d 55 53 54 20 |Emacs, y|ou MUST |
|000009c0| 4e 4f 54 20 75 73 65 20 | 74 68 69 73 20 65 76 65 |NOT use |this eve|
|000009d0| 6e 74 20 6f 62 6a 65 63 | 74 20 61 66 74 65 72 0a |nt objec|t after.|
|000009e0| 63 61 6c 6c 69 6e 67 20 | 74 68 69 73 20 66 75 6e |calling |this fun|
|000009f0| 63 74 69 6f 6e 20 77 69 | 74 68 20 69 74 2e 20 20 |ction wi|th it. |
|00000a00| 59 6f 75 20 77 69 6c 6c | 20 6c 6f 73 65 2e 20 20 |You will| lose. |
|00000a10| 49 74 20 69 73 20 6e 6f | 74 20 6e 65 63 65 73 73 |It is no|t necess|
|00000a20| 61 72 79 20 74 6f 0a 63 | 61 6c 6c 20 74 68 69 73 |ary to.c|all this|
|00000a30| 20 66 75 6e 63 74 69 6f | 6e 2c 20 61 73 20 65 76 | functio|n, as ev|
|00000a40| 65 6e 74 20 6f 62 6a 65 | 63 74 73 20 61 72 65 20 |ent obje|cts are |
|00000a50| 67 61 72 62 61 67 65 2d | 20 63 6f 6c 6c 65 63 74 |garbage-| collect|
|00000a60| 65 64 20 6c 69 6b 65 20 | 61 6c 6c 0a 6f 74 68 65 |ed like |all.othe|
|00000a70| 72 20 6f 62 6a 65 63 74 | 73 3b 20 68 6f 77 65 76 |r object|s; howev|
|00000a80| 65 72 2c 20 69 74 20 6d | 61 79 20 62 65 20 6d 6f |er, it m|ay be mo|
|00000a90| 72 65 20 65 66 66 69 63 | 69 65 6e 74 20 74 6f 20 |re effic|ient to |
|00000aa0| 65 78 70 6c 69 63 69 74 | 6c 79 0a 64 65 61 6c 6c |explicit|ly.deall|
|00000ab0| 6f 63 61 74 65 20 65 76 | 65 6e 74 73 20 77 68 65 |ocate ev|ents whe|
|00000ac0| 6e 20 79 6f 75 20 61 72 | 65 20 73 75 72 65 20 74 |n you ar|e sure t|
|00000ad0| 68 61 74 20 74 68 61 74 | 20 69 73 20 73 61 66 65 |hat that| is safe|
|00000ae0| 2e 0a 0a 54 68 69 73 20 | 65 6d 75 6c 61 74 69 6f |...This |emulatio|
|00000af0| 6e 20 64 6f 65 73 20 6e | 6f 74 20 61 63 74 75 61 |n does n|ot actua|
|00000b00| 6c 6c 79 20 64 65 61 6c | 6c 6f 63 61 74 65 20 6f |lly deal|locate o|
|00000b10| 72 20 72 65 75 73 65 20 | 65 76 65 6e 74 73 0a 65 |r reuse |events.e|
|00000b20| 78 63 65 70 74 20 76 69 | 61 20 67 61 72 62 61 67 |xcept vi|a garbag|
|00000b30| 65 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 61 6e 64 |e collec|tion and|
|00000b40| 20 60 63 6f 6e 73 27 2e | 22 20 6e 69 6c 29 0a 28 | `cons'.|" nil).(|
|00000b50| 64 65 66 61 6c 69 61 73 | 20 27 65 6e 71 75 65 75 |defalias| 'enqueu|
|00000b60| 65 2d 65 76 61 6c 2d 65 | 76 65 6e 74 3a 20 23 5b |e-eval-e|vent: #[|
|00000b70| 28 66 75 6e 63 74 69 6f | 6e 20 6f 62 6a 65 63 74 |(functio|n object|
|00000b80| 29 20 22 08 c1 5c 6e 0b | 45 43 a4 89 10 87 22 20 |) "..\n.|EC...." |
|00000b90| 5b 75 6e 72 65 61 64 2d | 63 6f 6d 6d 61 6e 64 2d |[unread-|command-|
|00000ba0| 65 76 65 6e 74 73 20 65 | 76 61 6c 20 66 75 6e 63 |events e|val func|
|00000bb0| 74 69 6f 6e 20 6f 62 6a | 65 63 74 5d 20 34 20 22 |tion obj|ect] 4 "|
|00000bc0| 5c 0a 41 64 64 20 61 6e | 20 65 76 61 6c 20 65 76 |\.Add an| eval ev|
|00000bd0| 65 6e 74 20 74 6f 20 74 | 68 65 20 62 61 63 6b 20 |ent to t|he back |
|00000be0| 6f 66 20 74 68 65 20 71 | 75 65 75 65 2e 0a 49 74 |of the q|ueue..It|
|00000bf0| 20 77 69 6c 6c 20 62 65 | 20 74 68 65 20 6e 65 78 | will be| the nex|
|00000c00| 74 20 65 76 65 6e 74 20 | 72 65 61 64 20 61 66 74 |t event |read aft|
|00000c10| 65 72 20 61 6c 6c 20 70 | 65 6e 64 69 6e 67 20 65 |er all p|ending e|
|00000c20| 76 65 6e 74 73 2e 22 5d | 29 0a 28 64 65 66 61 6c |vents."]|).(defal|
|00000c30| 69 61 73 20 27 65 76 61 | 6c 2d 65 76 65 6e 74 2d |ias 'eva|l-event-|
|00000c40| 70 20 23 5b 28 6f 62 6a | 29 20 22 08 a2 c1 3d 87 |p #[(obj|) "...=.|
|00000c50| 22 20 5b 6f 62 6a 20 65 | 76 61 6c 5d 20 32 20 22 |" [obj e|val] 2 "|
|00000c60| 5c 0a 54 72 75 65 20 69 | 66 20 74 68 65 20 61 72 |\.True i|f the ar|
|00000c70| 67 75 6d 65 6e 74 20 69 | 73 20 61 6e 20 65 76 61 |gument i|s an eva|
|00000c80| 6c 20 6f 72 20 6d 65 6e | 75 20 65 76 65 6e 74 20 |l or men|u event |
|00000c90| 6f 62 6a 65 63 74 2e 22 | 5d 29 0a 28 64 65 66 61 |object."|]).(defa|
|00000ca0| 6c 69 61 73 20 27 65 76 | 65 6e 74 2d 62 75 74 74 |lias 'ev|ent-butt|
|00000cb0| 6f 6e 20 23 5b 28 65 76 | 65 6e 74 29 20 22 08 40 |on #[(ev|ent) ".@|
|00000cc0| c1 4e 40 89 1a c3 9e 41 | 29 87 22 20 5b 65 76 65 |.N@....A|)." [eve|
|00000cd0| 6e 74 20 65 76 65 6e 74 | 2d 73 79 6d 62 6f 6c 2d |nt event|-symbol-|
|00000ce0| 65 6c 65 6d 65 6e 74 73 | 20 73 79 6d 20 28 28 6d |elements| sym ((m|
|00000cf0| 6f 75 73 65 2d 31 20 2e | 20 31 29 20 28 6d 6f 75 |ouse-1 .| 1) (mou|
|00000d00| 73 65 2d 32 20 2e 20 32 | 29 20 28 6d 6f 75 73 65 |se-2 . 2|) (mouse|
|00000d10| 2d 33 20 2e 20 33 29 20 | 28 6d 6f 75 73 65 2d 34 |-3 . 3) |(mouse-4|
|00000d20| 20 2e 20 34 29 20 28 6d | 6f 75 73 65 2d 35 20 2e | . 4) (m|ouse-5 .|
|00000d30| 20 35 29 29 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 | 5))] 3 |"\.Retur|
|00000d40| 6e 20 74 68 65 20 62 75 | 74 74 6f 6e 2d 6e 75 6d |n the bu|tton-num|
|00000d50| 62 65 72 20 6f 66 20 74 | 68 65 20 67 69 76 65 6e |ber of t|he given|
|00000d60| 20 6d 6f 75 73 65 2d 62 | 75 74 74 6f 6e 2d 70 72 | mouse-b|utton-pr|
|00000d70| 65 73 73 20 65 76 65 6e | 74 2e 22 5d 29 0a 28 64 |ess even|t."]).(d|
|00000d80| 65 66 61 6c 69 61 73 20 | 27 65 76 65 6e 74 2d 66 |efalias |'event-f|
|00000d90| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 65 76 65 6e 74 |unction |#[(event|
|00000da0| 29 20 22 08 41 40 87 22 | 20 5b 65 76 65 6e 74 5d |) ".A@."| [event]|
|00000db0| 20 31 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 1 "\.Re|turn the|
|00000dc0| 20 63 61 6c 6c 62 61 63 | 6b 20 66 75 6e 63 74 69 | callbac|k functi|
|00000dd0| 6f 6e 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |on of th|e given |
|00000de0| 74 69 6d 65 6f 75 74 2c | 20 6d 65 6e 75 2c 20 6f |timeout,| menu, o|
|00000df0| 72 20 65 76 61 6c 20 65 | 76 65 6e 74 2e 22 5d 29 |r eval e|vent."])|
|00000e00| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 76 65 6e |.(defali|as 'even|
|00000e10| 74 2d 6b 65 79 20 23 5b | 28 65 76 65 6e 74 29 20 |t-key #[|(event) |
|00000e20| 22 08 39 83 5c 6e 00 08 | c1 4e 40 87 c2 08 c3 c4 |".9.\n..|.N@.....|
|00000e30| c5 5c 22 53 5c 22 89 1e | 06 c7 57 83 5c 22 00 c8 |.\"S\"..|..W.\"..|
|00000e40| 0e 06 c9 5c 22 82 24 00 | 0e 06 97 29 87 22 20 5b |...\".$.|...)." [|
|00000e50| 65 76 65 6e 74 20 65 76 | 65 6e 74 2d 73 79 6d 62 |event ev|ent-symb|
|00000e60| 6f 6c 2d 65 6c 65 6d 65 | 6e 74 73 20 6c 6f 67 61 |ol-eleme|nts loga|
|00000e70| 6e 64 20 6c 73 68 20 31 | 20 31 38 20 62 61 73 65 |nd lsh 1| 18 base|
|00000e80| 20 33 32 20 6c 6f 67 69 | 6f 72 20 36 34 5d 20 36 | 32 logi|or 64] 6|
|00000e90| 20 22 5c 0a 52 65 74 75 | 72 6e 73 20 74 68 65 20 | "\.Retu|rns the |
|00000ea0| 4b 65 79 53 79 6d 20 6f | 66 20 74 68 65 20 67 69 |KeySym o|f the gi|
|00000eb0| 76 65 6e 20 6b 65 79 2d | 70 72 65 73 73 20 65 76 |ven key-|press ev|
|00000ec0| 65 6e 74 2e 0a 54 68 65 | 20 76 61 6c 75 65 20 69 |ent..The| value i|
|00000ed0| 73 20 61 6e 20 41 53 43 | 49 49 20 70 72 69 6e 74 |s an ASC|II print|
|00000ee0| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 20 28 6e |ing char|acter (n|
|00000ef0| 6f 74 20 75 70 70 65 72 | 20 63 61 73 65 29 20 6f |ot upper| case) o|
|00000f00| 72 20 61 20 73 79 6d 62 | 6f 6c 2e 22 5d 29 0a 28 |r a symb|ol."]).(|
|00000f10| 64 65 66 61 6c 69 61 73 | 20 27 65 76 65 6e 74 2d |defalias| 'event-|
|00000f20| 6f 62 6a 65 63 74 20 23 | 5b 28 65 76 65 6e 74 29 |object #|[(event)|
|00000f30| 20 22 c0 09 38 87 22 20 | 5b 32 20 65 76 65 6e 74 | "..8." |[2 event|
|00000f40| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|00000f50| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 61 72 67 75 |he funct|ion argu|
|00000f60| 6d 65 6e 74 20 6f 66 20 | 74 68 65 20 67 69 76 65 |ment of |the give|
|00000f70| 6e 20 74 69 6d 65 6f 75 | 74 2c 20 6d 65 6e 75 2c |n timeou|t, menu,|
|00000f80| 20 6f 72 20 65 76 61 6c | 20 65 76 65 6e 74 2e 22 | or eval| event."|
|00000f90| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 76 |]).(defa|lias 'ev|
|00000fa0| 65 6e 74 2d 70 6f 69 6e | 74 20 23 5b 28 65 76 65 |ent-poin|t #[(eve|
|00000fb0| 6e 74 29 20 22 08 18 c1 | 08 38 3a 83 0d 00 c1 82 |nt) "...|.8:.....|
|00000fc0| 0e 00 c2 08 38 29 89 1b | 41 40 29 87 22 20 5b 65 |....8)..|A@)." [e|
|00000fd0| 76 65 6e 74 20 32 20 31 | 20 70 6f 73 69 74 69 6f |vent 2 1| positio|
|00000fe0| 6e 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |n] 3 "\.|Returns |
|00000ff0| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 70 6f |the char|acter po|
|00001000| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 67 69 |sition o|f the gi|
|00001010| 76 65 6e 20 6d 6f 75 73 | 65 2d 72 65 6c 61 74 65 |ven mous|e-relate|
|00001020| 64 20 65 76 65 6e 74 2e | 0a 49 66 20 74 68 65 20 |d event.|.If the |
|00001030| 65 76 65 6e 74 20 64 69 | 64 20 6e 6f 74 20 6f 63 |event di|d not oc|
|00001040| 63 75 72 20 6f 76 65 72 | 20 61 20 77 69 6e 64 6f |cur over| a windo|
|00001050| 77 2c 20 6f 72 20 64 69 | 64 0a 6e 6f 74 20 6f 63 |w, or di|d.not oc|
|00001060| 63 75 72 20 6f 76 65 72 | 20 74 65 78 74 2c 20 74 |cur over| text, t|
|00001070| 68 65 6e 20 74 68 69 73 | 20 72 65 74 75 72 6e 73 |hen this| returns|
|00001080| 20 6e 69 6c 2e 20 20 4f | 74 68 65 72 77 69 73 65 | nil. O|therwise|
|00001090| 2c 20 69 74 20 72 65 74 | 75 72 6e 73 20 61 6e 20 |, it ret|urns an |
|000010a0| 69 6e 64 65 78 0a 69 6e | 74 6f 20 74 68 65 20 62 |index.in|to the b|
|000010b0| 75 66 66 65 72 20 76 69 | 73 69 62 6c 65 20 69 6e |uffer vi|sible in|
|000010c0| 20 74 68 65 20 65 76 65 | 6e 74 27 73 20 77 69 6e | the eve|nt's win|
|000010d0| 64 6f 77 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |dow."]).|(defalia|
|000010e0| 73 20 27 65 76 65 6e 74 | 2d 70 72 6f 63 65 73 73 |s 'event|-process|
|000010f0| 20 23 5b 28 65 76 65 6e | 74 29 20 22 08 41 40 87 | #[(even|t) ".A@.|
|00001100| 22 20 5b 65 76 65 6e 74 | 5d 20 31 20 22 5c 0a 52 |" [event|] 1 "\.R|
|00001110| 65 74 75 72 6e 73 20 74 | 68 65 20 70 72 6f 63 65 |eturns t|he proce|
|00001120| 73 73 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |ss of th|e given |
|00001130| 70 72 6f 63 65 73 73 2d | 6f 75 74 70 75 74 20 65 |process-|output e|
|00001140| 76 65 6e 74 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |vent."])|.(defali|
|00001150| 61 73 20 27 65 76 65 6e | 74 2d 74 69 6d 65 73 74 |as 'even|t-timest|
|00001160| 61 6d 70 20 23 5b 28 65 | 76 65 6e 74 29 20 22 08 |amp #[(e|vent) ".|
|00001170| 3c 85 1b 00 08 18 c1 08 | 38 3a 83 12 00 c1 82 13 |<.......|8:......|
|00001180| 00 c2 08 38 29 1b c4 0b | 38 29 87 22 20 5b 65 76 |...8)...|8)." [ev|
|00001190| 65 6e 74 20 32 20 31 20 | 70 6f 73 69 74 69 6f 6e |ent 2 1 |position|
|000011a0| 20 33 5d 20 32 20 22 5c | 0a 52 65 74 75 72 6e 73 | 3] 2 "\|.Returns|
|000011b0| 20 74 68 65 20 74 69 6d | 65 73 74 61 6d 70 20 6f | the tim|estamp o|
|000011c0| 66 20 74 68 65 20 67 69 | 76 65 6e 20 65 76 65 6e |f the gi|ven even|
|000011d0| 74 20 6f 62 6a 65 63 74 | 2e 0a 49 6e 20 4c 75 63 |t object|..In Luc|
|000011e0| 69 64 20 45 6d 61 63 73 | 2c 20 74 68 69 73 20 77 |id Emacs|, this w|
|000011f0| 6f 72 6b 73 20 66 6f 72 | 20 61 6e 79 20 6b 69 6e |orks for| any kin|
|00001200| 64 20 6f 66 20 65 76 65 | 6e 74 2e 0a 49 6e 20 74 |d of eve|nt..In t|
|00001210| 68 69 73 20 65 6d 75 6c | 61 74 69 6f 6e 2c 20 69 |his emul|ation, i|
|00001220| 74 20 72 65 74 75 72 6e | 73 20 6e 69 6c 20 66 6f |t return|s nil fo|
|00001230| 72 20 6e 6f 6e 2d 6d 6f | 75 73 65 2d 72 65 6c 61 |r non-mo|use-rela|
|00001240| 74 65 64 20 65 76 65 6e | 74 73 2e 22 5d 29 0a 28 |ted even|ts."]).(|
|00001250| 64 65 66 61 6c 69 61 73 | 20 27 65 76 65 6e 74 2d |defalias| 'event-|
|00001260| 74 6f 2d 63 68 61 72 61 | 63 74 65 72 20 23 5b 28 |to-chara|cter #[(|
|00001270| 65 76 65 6e 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |event &o|ptional |
|00001280| 6c 65 6e 69 65 6e 74 29 | 20 22 08 39 83 0e 00 09 |lenient)| ".9....|
|00001290| 85 14 00 08 c2 9e 41 87 | 08 a8 85 14 00 08 87 22 |......A.|......."|
|000012a0| 20 5b 65 76 65 6e 74 20 | 6c 65 6e 69 65 6e 74 20 | [event |lenient |
|000012b0| 28 28 62 61 63 6b 73 70 | 61 63 65 20 2e 20 38 29 |((backsp|ace . 8)|
|000012c0| 20 28 64 65 6c 65 74 65 | 20 2e 20 31 32 37 29 20 | (delete| . 127) |
|000012d0| 28 74 61 62 20 2e 20 39 | 29 20 28 72 65 74 75 72 |(tab . 9|) (retur|
|000012e0| 6e 20 2e 20 31 30 29 20 | 28 65 6e 74 65 72 20 2e |n . 10) |(enter .|
|000012f0| 20 31 30 29 29 5d 20 32 | 20 22 5c 0a 52 65 74 75 | 10))] 2| "\.Retu|
|00001300| 72 6e 73 20 74 68 65 20 | 63 6c 6f 73 65 73 74 20 |rns the |closest |
|00001310| 41 53 43 49 49 20 61 70 | 70 72 6f 78 69 6d 61 74 |ASCII ap|proximat|
|00001320| 69 6f 6e 20 74 6f 20 74 | 68 65 20 67 69 76 65 6e |ion to t|he given|
|00001330| 20 65 76 65 6e 74 20 6f | 62 6a 65 63 74 2e 0a 49 | event o|bject..I|
|00001340| 66 20 74 68 65 20 65 76 | 65 6e 74 20 69 73 6e 27 |f the ev|ent isn'|
|00001350| 74 20 61 20 6b 65 79 70 | 72 65 73 73 2c 20 74 68 |t a keyp|ress, th|
|00001360| 69 73 20 72 65 74 75 72 | 6e 73 20 6e 69 6c 2e 0a |is retur|ns nil..|
|00001370| 49 66 20 74 68 65 20 73 | 65 63 6f 6e 64 20 61 72 |If the s|econd ar|
|00001380| 67 75 6d 65 6e 74 20 69 | 73 20 6e 6f 6e 2d 6e 69 |gument i|s non-ni|
|00001390| 6c 2c 20 74 68 65 6e 20 | 74 68 69 73 20 69 73 20 |l, then |this is |
|000013a0| 6c 65 6e 69 65 6e 74 20 | 69 6e 20 69 74 73 20 0a |lenient |in its .|
|000013b0| 74 72 61 6e 73 6c 61 74 | 69 6f 6e 3b 20 69 74 20 |translat|ion; it |
|000013c0| 77 69 6c 6c 20 69 67 6e | 6f 72 65 20 6d 6f 64 69 |will ign|ore modi|
|000013d0| 66 69 65 72 20 6b 65 79 | 73 20 6f 74 68 65 72 20 |fier key|s other |
|000013e0| 74 68 61 6e 20 63 6f 6e | 74 72 6f 6c 20 61 6e 64 |than con|trol and|
|000013f0| 20 6d 65 74 61 2c 0a 61 | 6e 64 20 77 69 6c 6c 20 | meta,.a|nd will |
|00001400| 69 67 6e 6f 72 65 20 74 | 68 65 20 73 68 69 66 74 |ignore t|he shift|
|00001410| 20 6d 6f 64 69 66 69 65 | 72 20 6f 6e 20 74 68 6f | modifie|r on tho|
|00001420| 73 65 20 63 68 61 72 61 | 63 74 65 72 73 20 77 68 |se chara|cters wh|
|00001430| 69 63 68 20 68 61 76 65 | 20 6e 6f 20 0a 73 68 69 |ich have| no .shi|
|00001440| 66 74 65 64 20 41 53 43 | 49 49 20 65 71 75 69 76 |fted ASC|II equiv|
|00001450| 61 6c 65 6e 74 20 28 43 | 6f 6e 74 72 6f 6c 2d 53 |alent (C|ontrol-S|
|00001460| 68 69 66 74 2d 41 20 66 | 6f 72 20 65 78 61 6d 70 |hift-A f|or examp|
|00001470| 6c 65 2c 20 77 69 6c 6c | 20 62 65 20 6d 61 70 70 |le, will| be mapp|
|00001480| 65 64 20 74 6f 20 0a 74 | 68 65 20 73 61 6d 65 20 |ed to .t|he same |
|00001490| 41 53 43 49 49 20 63 6f | 64 65 20 61 73 20 43 6f |ASCII co|de as Co|
|000014a0| 6e 74 72 6f 6c 2d 41 2e | 29 20 20 49 66 20 74 68 |ntrol-A.|) If th|
|000014b0| 65 20 73 65 63 6f 6e 64 | 20 61 72 67 20 69 73 20 |e second| arg is |
|000014c0| 6e 69 6c 2c 20 74 68 65 | 6e 20 6e 69 6c 20 0a 77 |nil, the|n nil .w|
|000014d0| 69 6c 6c 20 62 65 20 72 | 65 74 75 72 6e 65 64 20 |ill be r|eturned |
|000014e0| 66 6f 72 20 65 76 65 6e | 74 73 20 77 68 69 63 68 |for even|ts which|
|000014f0| 20 68 61 76 65 20 6e 6f | 20 64 69 72 65 63 74 20 | have no| direct |
|00001500| 41 53 43 49 49 20 65 71 | 75 69 76 61 6c 65 6e 74 |ASCII eq|uivalent|
|00001510| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001520| 65 76 65 6e 74 2d 77 69 | 6e 64 6f 77 20 23 5b 28 |event-wi|ndow #[(|
|00001530| 65 76 65 6e 74 29 20 22 | 08 18 c1 08 38 3a 83 0d |event) "|....8:..|
|00001540| 00 c1 82 0e 00 c2 08 38 | 29 89 1b 40 29 87 22 20 |.......8|)..@)." |
|00001550| 5b 65 76 65 6e 74 20 32 | 20 31 20 70 6f 73 69 74 |[event 2| 1 posit|
|00001560| 69 6f 6e 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |ion] 3 "|\.Return|
|00001570| 73 20 74 68 65 20 77 69 | 6e 64 6f 77 20 6f 66 20 |s the wi|ndow of |
|00001580| 74 68 65 20 67 69 76 65 | 6e 20 6d 6f 75 73 65 2d |the give|n mouse-|
|00001590| 72 65 6c 61 74 65 64 20 | 65 76 65 6e 74 20 6f 62 |related |event ob|
|000015a0| 6a 65 63 74 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ject."])|.(defali|
|000015b0| 61 73 20 27 65 76 65 6e | 74 2d 78 20 23 5b 28 65 |as 'even|t-x #[(e|
|000015c0| 76 65 6e 74 29 20 22 08 | 18 c1 08 38 3a 83 0d 00 |vent) ".|...8:...|
|000015d0| c1 82 0e 00 c2 08 38 29 | 1b c1 0b 38 29 40 c4 c5 |......8)|...8)@..|
|000015e0| c6 08 21 21 21 a5 87 22 | 20 5b 65 76 65 6e 74 20 |..!!!.."| [event |
|000015f0| 32 20 31 20 70 6f 73 69 | 74 69 6f 6e 20 66 72 61 |2 1 posi|tion fra|
|00001600| 6d 65 2d 63 68 61 72 2d | 77 69 64 74 68 20 77 69 |me-char-|width wi|
|00001610| 6e 64 6f 77 2d 66 72 61 | 6d 65 20 65 76 65 6e 74 |ndow-fra|me event|
|00001620| 2d 77 69 6e 64 6f 77 5d | 20 35 20 22 5c 0a 52 65 |-window]| 5 "\.Re|
|00001630| 74 75 72 6e 73 20 74 68 | 65 20 58 20 70 6f 73 69 |turns th|e X posi|
|00001640| 74 69 6f 6e 20 69 6e 20 | 63 68 61 72 61 63 74 65 |tion in |characte|
|00001650| 72 73 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |rs of th|e given |
|00001660| 6d 6f 75 73 65 2d 72 65 | 6c 61 74 65 64 20 65 76 |mouse-re|lated ev|
|00001670| 65 6e 74 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ent."]).|(defalia|
|00001680| 73 20 27 65 76 65 6e 74 | 2d 78 2d 70 69 78 65 6c |s 'event|-x-pixel|
|00001690| 20 23 5b 28 65 76 65 6e | 74 29 20 22 08 18 c1 08 | #[(even|t) "....|
|000016a0| 38 3a 83 0d 00 c1 82 0e | 00 c2 08 38 29 1b c1 0b |8:......|...8)...|
|000016b0| 38 29 40 87 22 20 5b 65 | 76 65 6e 74 20 32 20 31 |8)@." [e|vent 2 1|
|000016c0| 20 70 6f 73 69 74 69 6f | 6e 5d 20 32 20 22 5c 0a | positio|n] 2 "\.|
|000016d0| 52 65 74 75 72 6e 73 20 | 74 68 65 20 58 20 70 6f |Returns |the X po|
|000016e0| 73 69 74 69 6f 6e 20 69 | 6e 20 70 69 78 65 6c 73 |sition i|n pixels|
|000016f0| 20 6f 66 20 74 68 65 20 | 67 69 76 65 6e 20 6d 6f | of the |given mo|
|00001700| 75 73 65 2d 72 65 6c 61 | 74 65 64 20 65 76 65 6e |use-rela|ted even|
|00001710| 74 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t."]).(d|efalias |
|00001720| 27 65 76 65 6e 74 2d 79 | 20 23 5b 28 65 76 65 6e |'event-y| #[(even|
|00001730| 74 29 20 22 08 18 c1 08 | 38 3a 83 0d 00 c1 82 0e |t) "....|8:......|
|00001740| 00 c2 08 38 29 1b c1 0b | 38 29 41 c4 c5 c6 08 21 |...8)...|8)A....!|
|00001750| 21 21 a5 87 22 20 5b 65 | 76 65 6e 74 20 32 20 31 |!!.." [e|vent 2 1|
|00001760| 20 70 6f 73 69 74 69 6f | 6e 20 66 72 61 6d 65 2d | positio|n frame-|
|00001770| 63 68 61 72 2d 68 65 69 | 67 68 74 20 77 69 6e 64 |char-hei|ght wind|
|00001780| 6f 77 2d 66 72 61 6d 65 | 20 65 76 65 6e 74 2d 77 |ow-frame| event-w|
|00001790| 69 6e 64 6f 77 5d 20 35 | 20 22 5c 0a 52 65 74 75 |indow] 5| "\.Retu|
|000017a0| 72 6e 73 20 74 68 65 20 | 59 20 70 6f 73 69 74 69 |rns the |Y positi|
|000017b0| 6f 6e 20 69 6e 20 63 68 | 61 72 61 63 74 65 72 73 |on in ch|aracters|
|000017c0| 20 6f 66 20 74 68 65 20 | 67 69 76 65 6e 20 6d 6f | of the |given mo|
|000017d0| 75 73 65 2d 72 65 6c 61 | 74 65 64 20 65 76 65 6e |use-rela|ted even|
|000017e0| 74 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t."]).(d|efalias |
|000017f0| 27 65 76 65 6e 74 2d 79 | 2d 70 69 78 65 6c 20 23 |'event-y|-pixel #|
|00001800| 5b 28 65 76 65 6e 74 29 | 20 22 08 18 c1 08 38 3a |[(event)| "....8:|
|00001810| 83 0d 00 c1 82 0e 00 c2 | 08 38 29 1b c1 0b 38 29 |........|.8)...8)|
|00001820| 41 87 22 20 5b 65 76 65 | 6e 74 20 32 20 31 20 70 |A." [eve|nt 2 1 p|
|00001830| 6f 73 69 74 69 6f 6e 5d | 20 32 20 22 5c 0a 52 65 |osition]| 2 "\.Re|
|00001840| 74 75 72 6e 73 20 74 68 | 65 20 59 20 70 6f 73 69 |turns th|e Y posi|
|00001850| 74 69 6f 6e 20 69 6e 20 | 70 69 78 65 6c 73 20 6f |tion in |pixels o|
|00001860| 66 20 74 68 65 20 67 69 | 76 65 6e 20 6d 6f 75 73 |f the gi|ven mous|
|00001870| 65 2d 72 65 6c 61 74 65 | 64 20 65 76 65 6e 74 2e |e-relate|d event.|
|00001880| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6b |"]).(def|alias 'k|
|00001890| 65 79 2d 70 72 65 73 73 | 2d 65 76 65 6e 74 2d 70 |ey-press|-event-p|
|000018a0| 20 23 5b 28 6f 62 6a 29 | 20 22 08 a8 86 0d 00 08 | #[(obj)| "......|
|000018b0| 39 85 0d 00 08 c1 4e 87 | 22 20 5b 6f 62 6a 20 65 |9.....N.|" [obj e|
|000018c0| 76 65 6e 74 2d 73 79 6d | 62 6f 6c 2d 65 6c 65 6d |vent-sym|bol-elem|
|000018d0| 65 6e 74 73 5d 20 32 20 | 22 5c 0a 54 72 75 65 20 |ents] 2 |"\.True |
|000018e0| 69 66 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |if the a|rgument |
|000018f0| 69 73 20 61 20 6b 65 79 | 62 6f 61 72 64 20 65 76 |is a key|board ev|
|00001900| 65 6e 74 20 6f 62 6a 65 | 63 74 2e 22 5d 29 0a 28 |ent obje|ct."]).(|
|00001910| 64 65 66 61 6c 69 61 73 | 20 27 6d 65 6e 75 2d 65 |defalias| 'menu-e|
|00001920| 76 65 6e 74 2d 70 20 23 | 5b 28 6f 62 6a 29 20 22 |vent-p #|[(obj) "|
|00001930| 08 a2 c1 3d 87 22 20 5b | 6f 62 6a 20 6d 65 6e 75 |...=." [|obj menu|
|00001940| 5d 20 32 20 22 5c 0a 54 | 72 75 65 20 69 66 20 74 |] 2 "\.T|rue if t|
|00001950| 68 65 20 61 72 67 75 6d | 65 6e 74 20 69 73 20 61 |he argum|ent is a|
|00001960| 20 6d 65 6e 75 20 65 76 | 65 6e 74 20 6f 62 6a 65 | menu ev|ent obje|
|00001970| 63 74 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ct."]).(|defalias|
|00001980| 20 27 6d 6f 74 69 6f 6e | 2d 65 76 65 6e 74 2d 70 | 'motion|-event-p|
|00001990| 20 23 5b 28 6f 62 6a 29 | 20 22 08 a2 c1 3d 87 22 | #[(obj)| "...=."|
|000019a0| 20 5b 6f 62 6a 20 6d 6f | 75 73 65 2d 6d 6f 76 65 | [obj mo|use-move|
|000019b0| 6d 65 6e 74 5d 20 32 20 | 22 5c 0a 54 72 75 65 20 |ment] 2 |"\.True |
|000019c0| 69 66 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |if the a|rgument |
|000019d0| 69 73 20 61 20 6d 6f 75 | 73 65 2d 6d 6f 74 69 6f |is a mou|se-motio|
|000019e0| 6e 20 65 76 65 6e 74 20 | 6f 62 6a 65 63 74 2e 22 |n event |object."|
|000019f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|00001a00| 61 64 2d 63 6f 6d 6d 61 | 6e 64 2d 65 76 65 6e 74 |ad-comma|nd-event|
|00001a10| 20 23 5b 6e 69 6c 20 22 | c0 19 c2 20 11 c3 09 21 | #[nil "|... ...!|
|00001a20| 84 43 00 c4 09 21 84 43 | 00 c5 09 21 84 43 00 c6 |.C...!.C|...!.C..|
|00001a30| 09 21 84 43 00 09 a2 89 | 1e 07 c8 3d 83 32 00 09 |.!.C....|...=.2..|
|00001a40| 41 40 c9 09 38 21 88 82 | 3f 00 0e 07 ca 3d 83 3f |A@..8!..|?....=.?|
|00001a50| 00 cb 09 41 40 21 88 29 | 82 02 00 09 29 87 22 20 |...A@!.)|....)." |
|00001a60| 5b 6e 69 6c 20 65 76 65 | 6e 74 20 72 65 61 64 2d |[nil eve|nt read-|
|00001a70| 65 76 65 6e 74 20 6b 65 | 79 2d 70 72 65 73 73 2d |event ke|y-press-|
|00001a80| 65 76 65 6e 74 2d 70 20 | 62 75 74 74 6f 6e 2d 70 |event-p |button-p|
|00001a90| 72 65 73 73 2d 65 76 65 | 6e 74 2d 70 20 62 75 74 |ress-eve|nt-p but|
|00001aa0| 74 6f 6e 2d 72 65 6c 65 | 61 73 65 2d 65 76 65 6e |ton-rele|ase-even|
|00001ab0| 74 2d 70 20 6d 65 6e 75 | 2d 65 76 65 6e 74 2d 70 |t-p menu|-event-p|
|00001ac0| 20 74 79 70 65 20 65 76 | 61 6c 20 32 20 73 77 69 | type ev|al 2 swi|
|00001ad0| 74 63 68 2d 66 72 61 6d | 65 20 73 65 6c 65 63 74 |tch-fram|e select|
|00001ae0| 2d 66 72 61 6d 65 5d 20 | 34 20 22 5c 0a 52 65 74 |-frame] |4 "\.Ret|
|00001af0| 75 72 6e 20 74 68 65 20 | 6e 65 78 74 20 6b 65 79 |urn the |next key|
|00001b00| 62 6f 61 72 64 20 6f 72 | 20 6d 6f 75 73 65 20 65 |board or| mouse e|
|00001b10| 76 65 6e 74 3b 20 65 78 | 65 63 75 74 65 20 6f 74 |vent; ex|ecute ot|
|00001b20| 68 65 72 20 65 76 65 6e | 74 73 2e 0a 54 68 69 73 |her even|ts..This|
|00001b30| 20 69 73 20 73 69 6d 69 | 6c 61 72 20 74 6f 20 74 | is simi|lar to t|
|00001b40| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 60 6e 65 78 |he funct|ion `nex|
|00001b50| 74 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 27 |t-comman|d-event'|
|00001b60| 20 6f 66 20 4c 75 63 69 | 64 20 45 6d 61 63 73 2c | of Luci|d Emacs,|
|00001b70| 0a 62 75 74 20 64 69 66 | 66 65 72 65 6e 74 20 69 |.but dif|ferent i|
|00001b80| 6e 20 74 68 61 74 20 69 | 74 20 72 65 74 75 72 6e |n that i|t return|
|00001b90| 73 20 74 68 65 20 65 76 | 65 6e 74 20 72 61 74 68 |s the ev|ent rath|
|00001ba0| 65 72 20 74 68 61 6e 20 | 66 69 6c 6c 69 6e 67 20 |er than |filling |
|00001bb0| 69 6e 0a 61 6e 20 65 78 | 69 73 74 69 6e 67 20 65 |in.an ex|isting e|
|00001bc0| 76 65 6e 74 20 6f 62 6a | 65 63 74 2e 22 5d 29 0a |vent obj|ect."]).|
|00001bd0| 28 64 65 66 61 6c 69 61 | 73 20 27 70 72 6f 63 65 |(defalia|s 'proce|
|00001be0| 73 73 2d 65 76 65 6e 74 | 2d 70 20 23 5b 28 6f 62 |ss-event|-p #[(ob|
|00001bf0| 6a 29 20 22 08 a2 c1 3d | 87 22 20 5b 6f 62 6a 20 |j) "...=|." [obj |
|00001c00| 70 72 6f 63 65 73 73 5d | 20 32 20 22 5c 0a 54 72 |process]| 2 "\.Tr|
|00001c10| 75 65 20 69 66 20 74 68 | 65 20 61 72 67 75 6d 65 |ue if th|e argume|
|00001c20| 6e 74 20 69 73 20 61 20 | 70 72 6f 63 65 73 73 2d |nt is a |process-|
|00001c30| 6f 75 74 70 75 74 20 65 | 76 65 6e 74 20 6f 62 6a |output e|vent obj|
|00001c40| 65 63 74 2e 0a 47 4e 55 | 20 45 6d 61 63 73 20 31 |ect..GNU| Emacs 1|
|00001c50| 39 20 64 6f 65 73 20 6e | 6f 74 20 63 75 72 72 65 |9 does n|ot curre|
|00001c60| 6e 74 6c 79 20 67 65 6e | 65 72 61 74 65 20 70 72 |ntly gen|erate pr|
|00001c70| 6f 63 65 73 73 2d 6f 75 | 74 70 75 74 20 65 76 65 |ocess-ou|tput eve|
|00001c80| 6e 74 73 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |nts."]).|(defalia|
|00001c90| 73 20 27 74 69 6d 65 6f | 75 74 2d 65 76 65 6e 74 |s 'timeo|ut-event|
|00001ca0| 2d 70 20 23 5b 28 6f 62 | 6a 29 20 22 08 a2 c1 3d |-p #[(ob|j) "...=|
|00001cb0| 87 22 20 5b 6f 62 6a 20 | 74 69 6d 65 6f 75 74 5d |." [obj |timeout]|
|00001cc0| 20 32 20 22 5c 0a 54 72 | 75 65 20 69 66 20 74 68 | 2 "\.Tr|ue if th|
|00001cd0| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 61 20 |e argume|nt is a |
|00001ce0| 74 69 6d 65 6f 75 74 20 | 65 76 65 6e 74 20 6f 62 |timeout |event ob|
|00001cf0| 6a 65 63 74 2e 0a 47 4e | 55 20 45 6d 61 63 73 20 |ject..GN|U Emacs |
|00001d00| 31 39 20 64 6f 65 73 20 | 6e 6f 74 20 63 75 72 72 |19 does |not curr|
|00001d10| 65 6e 74 6c 79 20 67 65 | 6e 65 72 61 74 65 20 74 |ently ge|nerate t|
|00001d20| 69 6d 65 6f 75 74 20 65 | 76 65 6e 74 73 2e 22 5d |imeout e|vents."]|
|00001d30| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
