home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-05-27 | 18.8 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 |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
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 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 54 68 75 20 | 4d 61 79 20 32 36 20 31 | on Thu |May 26 1|
|00000040| 38 3a 30 35 3a 35 35 20 | 31 39 39 34 0a 3b 3b 3b |8:05:55 |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 73 75 62 72 2e | 65 6c 0a 3b 3b 3b 20 65 |sp/subr.|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 34 2e 32 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |24.2..;;|; byteco|
|000000a0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 46 53 46 20 32 |mp versi|on FSF 2|
|000000b0| 2e 31 30 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |.10.;;; |optimiza|
|000000c0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|000000d0| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|000000e0| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|000000f0| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000100| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000110| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000120| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000130| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000140| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000150| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|00000160| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|00000170| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|00000180| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). | (erro|
|00000190| 72 20 22 60 2f 67 64 2f | 67 6e 75 2f 65 6d 61 63 |r "`/gd/|gnu/emac|
|000001a0| 73 2f 31 39 2e 30 2f 6c | 69 73 70 2f 73 75 62 72 |s/19.0/l|isp/subr|
|000001b0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001d0| 29 0a 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 61 |)..(defa|lias 'la|
|000001e0| 6d 62 64 61 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |mbda '(m|acro . #|
|000001f0| 5b 28 26 72 65 73 74 20 | 63 64 72 29 20 22 c0 c1 |[(&rest |cdr) "..|
|00000200| 5c 6e 42 44 87 22 20 5b | 66 75 6e 63 74 69 6f 6e |\nBD." [|function|
|00000210| 20 6c 61 6d 62 64 61 20 | 63 64 72 5d 20 33 20 22 | lambda |cdr] 3 "|
|00000220| 5c 0a 52 65 74 75 72 6e | 20 61 20 6c 61 6d 62 64 |\.Return| a lambd|
|00000230| 61 20 65 78 70 72 65 73 | 73 69 6f 6e 2e 0a 41 20 |a expres|sion..A |
|00000240| 63 61 6c 6c 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |call of |the form|
|00000250| 20 28 6c 61 6d 62 64 61 | 20 41 52 47 53 20 44 4f | (lambda| ARGS DO|
|00000260| 43 53 54 52 49 4e 47 20 | 49 4e 54 45 52 41 43 54 |CSTRING |INTERACT|
|00000270| 49 56 45 20 42 4f 44 59 | 29 20 69 73 0a 73 65 6c |IVE BODY|) is.sel|
|00000280| 66 2d 71 75 6f 74 69 6e | 67 3b 20 74 68 65 20 72 |f-quotin|g; the r|
|00000290| 65 73 75 6c 74 20 6f 66 | 20 65 76 61 6c 75 61 74 |esult of| evaluat|
|000002a0| 69 6e 67 20 74 68 65 20 | 6c 61 6d 62 64 61 20 65 |ing the |lambda e|
|000002b0| 78 70 72 65 73 73 69 6f | 6e 20 69 73 20 74 68 65 |xpressio|n is the|
|000002c0| 0a 65 78 70 72 65 73 73 | 69 6f 6e 20 69 74 73 65 |.express|ion itse|
|000002d0| 6c 66 2e 20 20 54 68 65 | 20 6c 61 6d 62 64 61 20 |lf. The| lambda |
|000002e0| 65 78 70 72 65 73 73 69 | 6f 6e 20 6d 61 79 20 74 |expressi|on may t|
|000002f0| 68 65 6e 20 62 65 20 74 | 72 65 61 74 65 64 20 61 |hen be t|reated a|
|00000300| 73 20 61 0a 66 75 6e 63 | 74 69 6f 6e 2c 20 69 2e |s a.func|tion, i.|
|00000310| 20 65 2e 20 73 74 6f 72 | 65 64 20 61 73 20 74 68 | e. stor|ed as th|
|00000320| 65 20 66 75 6e 63 74 69 | 6f 6e 20 76 61 6c 75 65 |e functi|on value|
|00000330| 20 6f 66 20 61 20 73 79 | 6d 62 6f 6c 2c 20 70 61 | of a sy|mbol, pa|
|00000340| 73 73 65 64 20 74 6f 0a | 66 75 6e 63 61 6c 6c 20 |ssed to.|funcall |
|00000350| 6f 72 20 6d 61 70 63 61 | 72 2c 20 65 74 63 65 74 |or mapca|r, etcet|
|00000360| 65 72 61 2e 0a 41 52 47 | 53 20 73 68 6f 75 6c 64 |era..ARG|S should|
|00000370| 20 74 61 6b 65 20 74 68 | 65 20 73 61 6d 65 20 66 | take th|e same f|
|00000380| 6f 72 6d 20 61 73 20 61 | 6e 20 61 72 67 75 6d 65 |orm as a|n argume|
|00000390| 6e 74 20 6c 69 73 74 20 | 66 6f 72 20 61 20 60 64 |nt list |for a `d|
|000003a0| 65 66 75 6e 27 2e 0a 44 | 4f 43 53 54 52 49 4e 47 |efun'..D|OCSTRING|
|000003b0| 20 73 68 6f 75 6c 64 20 | 62 65 20 61 20 73 74 72 | should |be a str|
|000003c0| 69 6e 67 2c 20 61 73 20 | 64 65 73 63 72 69 62 65 |ing, as |describe|
|000003d0| 64 20 66 6f 72 20 60 64 | 65 66 75 6e 27 2e 20 20 |d for `d|efun'. |
|000003e0| 49 74 20 6d 61 79 20 62 | 65 20 6f 6d 69 74 74 65 |It may b|e omitte|
|000003f0| 64 2e 0a 49 4e 54 45 52 | 41 43 54 49 56 45 20 73 |d..INTER|ACTIVE s|
|00000400| 68 6f 75 6c 64 20 62 65 | 20 61 20 63 61 6c 6c 20 |hould be| a call |
|00000410| 74 6f 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |to the f|unction |
|00000420| 60 69 6e 74 65 72 61 63 | 74 69 76 65 27 2c 20 77 |`interac|tive', w|
|00000430| 68 69 63 68 20 73 65 65 | 2e 0a 49 74 20 6d 61 79 |hich see|..It may|
|00000440| 20 61 6c 73 6f 20 62 65 | 20 6f 6d 69 74 74 65 64 | also be| omitted|
|00000450| 2e 0a 42 4f 44 59 20 73 | 68 6f 75 6c 64 20 62 65 |..BODY s|hould be|
|00000460| 20 61 20 6c 69 73 74 20 | 6f 66 20 6c 69 73 70 20 | a list |of lisp |
|00000470| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 22 5d 29 29 |expressi|ons."]))|
|00000480| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6f 6e 65 2d |.(defali|as 'one-|
|00000490| 77 69 6e 64 6f 77 2d 70 | 20 23 5b 28 26 6f 70 74 |window-p| #[(&opt|
|000004a0| 69 6f 6e 61 6c 20 6e 6f | 6d 69 6e 69 20 61 6c 6c |ional no|mini all|
|000004b0| 2d 66 72 61 6d 65 73 29 | 20 22 c0 20 19 5c 6e 83 |-frames)| ". .\n.|
|000004c0| 12 00 09 c3 20 3d 83 12 | 00 c4 09 21 11 09 c4 09 |.... =..|...!....|
|000004d0| 5c 6e 85 1a 00 c5 0e 06 | 23 29 3d 87 22 20 5b 73 |\n......|#)=." [s|
|000004e0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 62 |elected-|window b|
|000004f0| 61 73 65 2d 77 69 6e 64 | 6f 77 20 6e 6f 6d 69 6e |ase-wind|ow nomin|
|00000500| 69 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 77 69 6e |i minibu|ffer-win|
|00000510| 64 6f 77 20 6e 65 78 74 | 2d 77 69 6e 64 6f 77 20 |dow next|-window |
|00000520| 61 72 67 20 61 6c 6c 2d | 66 72 61 6d 65 73 5d 20 |arg all-|frames] |
|00000530| 35 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 6e 6f 6e |5 "\.Ret|urns non|
|00000540| 2d 6e 69 6c 20 69 66 20 | 74 68 65 72 65 20 69 73 |-nil if |there is|
|00000550| 20 6f 6e 6c 79 20 6f 6e | 65 20 77 69 6e 64 6f 77 | only on|e window|
|00000560| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 61 72 67 20 4e |..Option|al arg N|
|00000570| 4f 4d 49 4e 49 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 |OMINI no|n-nil me|
|00000580| 61 6e 73 20 64 6f 6e 27 | 74 20 63 6f 75 6e 74 20 |ans don'|t count |
|00000590| 74 68 65 20 6d 69 6e 69 | 62 75 66 66 65 72 0a 65 |the mini|buffer.e|
|000005a0| 76 65 6e 20 69 66 20 69 | 74 20 69 73 20 61 63 74 |ven if i|t is act|
|000005b0| 69 76 65 2e 0a 0a 54 68 | 65 20 6f 70 74 69 6f 6e |ive...Th|e option|
|000005c0| 61 6c 20 61 72 67 20 41 | 4c 4c 2d 46 52 41 4d 45 |al arg A|LL-FRAME|
|000005d0| 53 20 74 20 6d 65 61 6e | 73 20 63 6f 75 6e 74 20 |S t mean|s count |
|000005e0| 77 69 6e 64 6f 77 73 20 | 6f 6e 20 61 6c 6c 20 66 |windows |on all f|
|000005f0| 72 61 6d 65 73 2e 0a 49 | 66 20 69 74 20 69 73 20 |rames..I|f it is |
|00000600| 60 76 69 73 69 62 6c 65 | 27 2c 20 63 6f 75 6e 74 |`visible|', count|
|00000610| 20 77 69 6e 64 6f 77 73 | 20 6f 6e 20 61 6c 6c 20 | windows| on all |
|00000620| 76 69 73 69 62 6c 65 20 | 66 72 61 6d 65 73 2e 0a |visible |frames..|
|00000630| 41 4c 4c 2d 46 52 41 4d | 45 53 20 6e 69 6c 20 6f |ALL-FRAM|ES nil o|
|00000640| 72 20 6f 6d 69 74 74 65 | 64 20 6d 65 61 6e 73 20 |r omitte|d means |
|00000650| 63 6f 75 6e 74 20 6f 6e | 6c 79 20 74 68 65 20 73 |count on|ly the s|
|00000660| 65 6c 65 63 74 65 64 20 | 66 72 61 6d 65 2c 20 0a |elected |frame, .|
|00000670| 70 6c 75 73 20 74 68 65 | 20 6d 69 6e 69 62 75 66 |plus the| minibuf|
|00000680| 66 65 72 20 69 74 20 75 | 73 65 73 20 28 77 68 69 |fer it u|ses (whi|
|00000690| 63 68 20 6d 61 79 20 62 | 65 20 6f 6e 20 61 6e 6f |ch may b|e on ano|
|000006a0| 74 68 65 72 20 66 72 61 | 6d 65 29 2e 0a 49 66 20 |ther fra|me)..If |
|000006b0| 41 4c 4c 2d 46 52 41 4d | 45 53 20 69 73 20 6e 65 |ALL-FRAM|ES is ne|
|000006c0| 69 74 68 65 72 20 6e 69 | 6c 20 6e 6f 72 20 74 2c |ither ni|l nor t,|
|000006d0| 20 63 6f 75 6e 74 20 6f | 6e 6c 79 20 74 68 65 20 | count o|nly the |
|000006e0| 73 65 6c 65 63 74 65 64 | 20 66 72 61 6d 65 2e 22 |selected| frame."|
|000006f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 61 |]).(defa|lias 'wa|
|00000700| 6c 6b 2d 77 69 6e 64 6f | 77 73 20 23 5b 28 70 72 |lk-windo|ws #[(pr|
|00000710| 6f 63 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6d 69 6e |oc &opti|onal min|
|00000720| 69 62 75 66 20 61 6c 6c | 2d 66 72 61 6d 65 73 29 |ibuf all|-frames)|
|00000730| 20 22 c0 c1 20 21 83 09 | 00 c2 13 c1 20 89 1c 1d | ".. !..|.... ...|
|00000740| c6 0d 0b 0e 07 23 15 0e | 08 0d 21 88 0d 5c 66 3d |.....#..|..!..\f=|
|00000750| 3f 85 24 00 82 0e 00 2a | 87 22 20 5b 77 69 6e 64 |?.$....*|." [wind|
|00000760| 6f 77 2d 6d 69 6e 69 62 | 75 66 66 65 72 2d 70 20 |ow-minib|uffer-p |
|00000770| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00000780| 74 20 6d 69 6e 69 62 75 | 66 20 77 61 6c 6b 2d 77 |t minibu|f walk-w|
|00000790| 69 6e 64 6f 77 73 2d 73 | 74 61 72 74 20 77 61 6c |indows-s|tart wal|
|000007a0| 6b 2d 77 69 6e 64 6f 77 | 73 2d 63 75 72 72 65 6e |k-window|s-curren|
|000007b0| 74 20 6e 65 78 74 2d 77 | 69 6e 64 6f 77 20 61 6c |t next-w|indow al|
|000007c0| 6c 2d 66 72 61 6d 65 73 | 20 70 72 6f 63 5d 20 35 |l-frames| proc] 5|
|000007d0| 20 22 5c 0a 43 79 63 6c | 65 20 74 68 72 6f 75 67 | "\.Cycl|e throug|
|000007e0| 68 20 61 6c 6c 20 76 69 | 73 69 62 6c 65 20 77 69 |h all vi|sible wi|
|000007f0| 6e 64 6f 77 73 2c 20 63 | 61 6c 6c 69 6e 67 20 50 |ndows, c|alling P|
|00000800| 52 4f 43 20 66 6f 72 20 | 65 61 63 68 20 6f 6e 65 |ROC for |each one|
|00000810| 2e 0a 50 52 4f 43 20 69 | 73 20 63 61 6c 6c 65 64 |..PROC i|s called|
|00000820| 20 77 69 74 68 20 61 20 | 77 69 6e 64 6f 77 20 61 | with a |window a|
|00000830| 73 20 61 72 67 75 6d 65 | 6e 74 2e 0a 4f 70 74 69 |s argume|nt..Opti|
|00000840| 6f 6e 61 6c 20 73 65 63 | 6f 6e 64 20 61 72 67 20 |onal sec|ond arg |
|00000850| 4d 49 4e 49 42 55 46 20 | 74 20 6d 65 61 6e 73 20 |MINIBUF |t means |
|00000860| 63 6f 75 6e 74 20 74 68 | 65 20 6d 69 6e 69 62 75 |count th|e minibu|
|00000870| 66 66 65 72 20 77 69 6e | 64 6f 77 0a 65 76 65 6e |ffer win|dow.even|
|00000880| 20 69 66 20 6e 6f 74 20 | 61 63 74 69 76 65 2e 20 | if not |active. |
|00000890| 20 49 66 20 4d 49 4e 49 | 42 55 46 20 69 73 20 6e | If MINI|BUF is n|
|000008a0| 65 69 74 68 65 72 20 74 | 20 6e 6f 72 20 6e 69 6c |either t| nor nil|
|000008b0| 20 69 74 20 6d 65 61 6e | 73 0a 6e 6f 74 20 74 6f | it mean|s.not to|
|000008c0| 20 63 6f 75 6e 74 20 74 | 68 65 20 6d 69 6e 69 62 | count t|he minib|
|000008d0| 75 66 66 65 72 20 65 76 | 65 6e 20 69 66 20 69 74 |uffer ev|en if it|
|000008e0| 20 69 73 20 61 63 74 69 | 76 65 2e 0a 0a 4f 70 74 | is acti|ve...Opt|
|000008f0| 69 6f 6e 61 6c 20 74 68 | 69 72 64 20 61 72 67 20 |ional th|ird arg |
|00000900| 41 4c 4c 2d 46 52 41 4d | 45 53 2c 20 69 66 20 74 |ALL-FRAM|ES, if t|
|00000910| 2c 20 6d 65 61 6e 73 20 | 69 6e 63 6c 75 64 65 20 |, means |include |
|00000920| 61 6c 6c 20 66 72 61 6d | 65 73 2e 0a 41 4c 4c 2d |all fram|es..ALL-|
|00000930| 46 52 41 4d 45 53 20 6e | 69 6c 20 6f 72 20 6f 6d |FRAMES n|il or om|
|00000940| 69 74 74 65 64 20 6d 65 | 61 6e 73 20 63 79 63 6c |itted me|ans cycl|
|00000950| 65 20 77 69 74 68 69 6e | 20 74 68 65 20 73 65 6c |e within| the sel|
|00000960| 65 63 74 65 64 20 66 72 | 61 6d 65 2c 0a 62 75 74 |ected fr|ame,.but|
|00000970| 20 69 6e 63 6c 75 64 65 | 20 74 68 65 20 6d 69 6e | include| the min|
|00000980| 69 62 75 66 66 65 72 20 | 77 69 6e 64 6f 77 20 28 |ibuffer |window (|
|00000990| 69 66 20 4d 49 4e 49 42 | 55 46 20 73 61 79 73 20 |if MINIB|UF says |
|000009a0| 73 6f 29 20 74 68 61 74 | 20 74 68 61 74 0a 66 72 |so) that| that.fr|
|000009b0| 61 6d 65 20 75 73 65 73 | 2c 20 65 76 65 6e 20 69 |ame uses|, even i|
|000009c0| 66 20 69 74 20 69 73 20 | 6f 6e 20 61 6e 6f 74 68 |f it is |on anoth|
|000009d0| 65 72 20 66 72 61 6d 65 | 2e 0a 49 66 20 41 4c 4c |er frame|..If ALL|
|000009e0| 2d 46 52 41 4d 45 53 20 | 69 73 20 6e 65 69 74 68 |-FRAMES |is neith|
|000009f0| 65 72 20 6e 69 6c 20 6e | 6f 72 20 74 2c 20 73 74 |er nil n|or t, st|
|00000a00| 69 63 6b 20 73 74 72 69 | 63 74 6c 79 20 74 6f 20 |ick stri|ctly to |
|00000a10| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 66 72 61 |the sele|cted fra|
|00000a20| 6d 65 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |me."]).(|defalias|
|00000a30| 20 27 6d 69 6e 69 62 75 | 66 66 65 72 2d 77 69 6e | 'minibu|ffer-win|
|00000a40| 64 6f 77 2d 61 63 74 69 | 76 65 2d 70 20 23 5b 28 |dow-acti|ve-p #[(|
|00000a50| 77 69 6e 64 6f 77 29 20 | 22 c0 09 c2 89 23 1b 09 |window) |"....#..|
|00000a60| 0b 3d 3f 85 17 00 c4 0b | c2 89 23 89 1d 09 29 3d |.=?.....|..#...)=|
|00000a70| 29 87 22 20 5b 70 72 65 | 76 69 6f 75 73 2d 77 69 |)." [pre|vious-wi|
|00000a80| 6e 64 6f 77 20 77 69 6e | 64 6f 77 20 6e 69 6c 20 |ndow win|dow nil |
|00000a90| 70 72 65 76 20 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |prev nex|t-window|
|00000aa0| 20 73 68 6f 75 6c 64 2d | 62 65 2d 73 61 6d 65 5d | should-|be-same]|
|00000ab0| 20 35 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 20 69 | 5 "\.Re|turn t i|
|00000ac0| 66 20 57 49 4e 44 4f 57 | 20 28 61 20 6d 69 6e 69 |f WINDOW| (a mini|
|00000ad0| 62 75 66 66 65 72 20 77 | 69 6e 64 6f 77 29 20 69 |buffer w|indow) i|
|00000ae0| 73 20 6e 6f 77 20 61 63 | 74 69 76 65 2e 22 5d 29 |s now ac|tive."])|
|00000af0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000b00| 5c 22 88 c3 c1 c4 c5 23 | 87 22 20 5b 64 65 66 61 |\".....#|." [defa|
|00000b10| 6c 69 61 73 20 75 6e 64 | 65 66 69 6e 65 64 20 23 |lias und|efined #|
|00000b20| 5b 6e 69 6c 20 22 c0 20 | 87 22 20 5b 64 69 6e 67 |[nil ". |." [ding|
|00000b30| 5d 20 31 20 6e 69 6c 20 | 6e 69 6c 5d 20 70 75 74 |] 1 nil |nil] put|
|00000b40| 20 73 75 70 70 72 65 73 | 73 2d 6b 65 79 6d 61 70 | suppres|s-keymap|
|00000b50| 20 74 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 | t] 4).(|defalias|
|00000b60| 20 27 73 75 70 70 72 65 | 73 73 2d 6b 65 79 6d 61 | 'suppre|ss-keyma|
|00000b70| 70 20 23 5b 28 6d 61 70 | 20 26 6f 70 74 69 6f 6e |p #[(map| &option|
|00000b80| 61 6c 20 6e 6f 64 69 67 | 69 74 73 29 20 22 c0 c1 |al nodig|its) "..|
|00000b90| c2 0b 5c 66 24 88 0d 86 | 30 00 c6 1e 07 c8 0b c9 |..\f$...|0.......|
|00000ba0| ca 23 88 cb 16 07 cb cc | 58 85 2f 00 c8 0b cd 0e |.#......|X./.....|
|00000bb0| 07 21 ce 23 88 0e 07 54 | 89 16 07 82 18 00 29 87 |.!.#...T|......).|
|00000bc0| 22 20 5b 73 75 62 73 74 | 69 74 75 74 65 2d 6b 65 |" [subst|itute-ke|
|00000bd0| 79 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 73 65 6c |y-defini|tion sel|
|00000be0| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|00000bf0| 20 75 6e 64 65 66 69 6e | 65 64 20 6d 61 70 20 67 | undefin|ed map g|
|00000c00| 6c 6f 62 61 6c 2d 6d 61 | 70 20 6e 6f 64 69 67 69 |lobal-ma|p nodigi|
|00000c10| 74 73 20 6e 69 6c 20 6c | 6f 6f 70 20 64 65 66 69 |ts nil l|oop defi|
|00000c20| 6e 65 2d 6b 65 79 20 22 | 2d 22 20 6e 65 67 61 74 |ne-key "|-" negat|
|00000c30| 69 76 65 2d 61 72 67 75 | 6d 65 6e 74 20 34 38 20 |ive-argu|ment 48 |
|00000c40| 35 37 20 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |57 char-|to-strin|
|00000c50| 67 20 64 69 67 69 74 2d | 61 72 67 75 6d 65 6e 74 |g digit-|argument|
|00000c60| 5d 20 36 20 22 5c 0a 4d | 61 6b 65 20 4d 41 50 20 |] 6 "\.M|ake MAP |
|00000c70| 6f 76 65 72 72 69 64 65 | 20 61 6c 6c 20 6e 6f 72 |override| all nor|
|00000c80| 6d 61 6c 6c 79 20 73 65 | 6c 66 2d 69 6e 73 65 72 |mally se|lf-inser|
|00000c90| 74 69 6e 67 20 6b 65 79 | 73 20 74 6f 20 62 65 20 |ting key|s to be |
|00000ca0| 75 6e 64 65 66 69 6e 65 | 64 2e 0a 4e 6f 72 6d 61 |undefine|d..Norma|
|00000cb0| 6c 6c 79 2c 20 61 73 20 | 61 6e 20 65 78 63 65 70 |lly, as |an excep|
|00000cc0| 74 69 6f 6e 2c 20 64 69 | 67 69 74 73 20 61 6e 64 |tion, di|gits and|
|00000cd0| 20 6d 69 6e 75 73 2d 73 | 69 67 6e 20 61 72 65 20 | minus-s|ign are |
|00000ce0| 73 65 74 20 74 6f 20 6d | 61 6b 65 20 70 72 65 66 |set to m|ake pref|
|00000cf0| 69 78 20 61 72 67 73 2c | 0a 62 75 74 20 6f 70 74 |ix args,|.but opt|
|00000d00| 69 6f 6e 61 6c 20 73 65 | 63 6f 6e 64 20 61 72 67 |ional se|cond arg|
|00000d10| 20 4e 4f 44 49 47 49 54 | 53 20 6e 6f 6e 2d 6e 69 | NODIGIT|S non-ni|
|00000d20| 6c 20 74 72 65 61 74 73 | 20 74 68 65 6d 20 6c 69 |l treats| them li|
|00000d30| 6b 65 20 6f 74 68 65 72 | 20 63 68 61 72 73 2e 22 |ke other| chars."|
|00000d40| 5d 29 0a 28 64 65 66 76 | 61 72 20 6b 65 79 2d 73 |]).(defv|ar key-s|
|00000d50| 75 62 73 74 69 74 75 74 | 69 6f 6e 2d 69 6e 2d 70 |ubstitut|ion-in-p|
|00000d60| 72 6f 67 72 65 73 73 20 | 6e 69 6c 20 22 5c 0a 55 |rogress |nil "\.U|
|00000d70| 73 65 64 20 69 6e 74 65 | 72 6e 61 6c 6c 79 20 62 |sed inte|rnally b|
|00000d80| 79 20 73 75 62 73 74 69 | 74 75 74 65 2d 6b 65 79 |y substi|tute-key|
|00000d90| 2d 64 65 66 69 6e 69 74 | 69 6f 6e 2e 22 29 0a 28 |-definit|ion.").(|
|00000da0| 64 65 66 61 6c 69 61 73 | 20 27 73 75 62 73 74 69 |defalias| 'substi|
|00000db0| 74 75 74 65 2d 6b 65 79 | 2d 64 65 66 69 6e 69 74 |tute-key|-definit|
|00000dc0| 69 6f 6e 20 23 5b 28 6f | 6c 64 64 65 66 20 6e 65 |ion #[(o|lddef ne|
|00000dd0| 77 64 65 66 20 6b 65 79 | 6d 61 70 20 26 6f 70 74 |wdef key|map &opt|
|00000de0| 69 6f 6e 61 6c 20 6f 6c | 64 6d 61 70 20 70 72 65 |ional ol|dmap pre|
|00000df0| 66 69 78 29 20 22 08 84 | 06 00 c1 10 5c 6e 86 0b |fix) "..|....\n..|
|00000e00| 00 0b 1c c5 c6 21 1e 07 | c8 08 0e 07 5c 22 1e 09 |.....!..|....\"..|
|00000e10| 5c 66 0e 5c 6e 42 1e 5c | 6e 5c 66 3a 85 81 01 5c |\f.\nB.\|n\f:...\|
|00000e20| 66 40 3a 83 c1 00 5c 66 | 40 40 5c 66 40 41 1e 0b |f@:...\f|@@\f@A..|
|00000e30| 1e 5c 66 0e 07 cd 0e 5c | 66 49 88 0e 09 08 47 0e |.\f....\|fI....G.|
|00000e40| 5c 66 49 88 c6 89 1e 0e | 1e 0f 0e 0b a2 3b 83 60 |\fI.....|.....;.`|
|00000e50| 00 0e 0b 40 0e 0e 42 16 | 0e 0e 0b 41 89 16 0b 82 |...@..B.|...A....|
|00000e60| 4a 00 0e 0b 3a 83 72 00 | 0e 0b 40 3a 83 72 00 0e |J...:.r.|..@:.r..|
|00000e70| 0b 41 16 0b 0e 0b 89 16 | 0f 39 83 8b 00 d0 0e 0f |.A......|.9......|
|00000e80| 21 83 8b 00 0e 0f 4b 89 | 16 0f 82 77 00 0e 0b 0e |!.....K.|...w....|
|00000e90| 11 3d 83 a2 00 d2 0b 0e | 09 0e 0e 9f 0e 13 a4 23 |.=......|.......#|
|00000ea0| 88 82 bd 00 d4 0e 0b 21 | 83 bd 00 0e 0f 0e 5c 6e |.......!|......\n|
|00000eb0| 3e 84 bd 00 d5 0e 11 0e | 13 0b 0e 0f 0e 09 25 88 |>.......|......%.|
|00000ec0| 2c 82 7a 01 d6 5c 66 40 | 21 83 7a 01 5c 66 40 89 |,.z..\f@|!.z.\f@.|
|00000ed0| 1e 17 47 1e 18 cd 1e 19 | cd 0e 18 57 83 79 01 0e |..G.....|...W.y..|
|00000ee0| 19 0e 17 0e 19 48 1e 0b | 1e 5c 66 0e 07 cd 0e 5c |.....H..|.\f....\|
|00000ef0| 66 49 88 0e 09 08 47 0e | 5c 66 49 88 c6 89 1e 0e |fI....G.|\fI.....|
|00000f00| 1e 0f 0e 0b a2 3b 83 12 | 01 0e 0b 40 0e 0e 42 16 |.....;..|...@..B.|
|00000f10| 0e 0e 0b 41 89 16 0b 82 | fc 00 0e 0b 3a 83 24 01 |...A....|....:.$.|
|00000f20| 0e 0b 40 3a 83 24 01 0e | 0b 41 16 0b 0e 0b 89 16 |..@:.$..|.A......|
|00000f30| 0f 39 83 3d 01 d0 0e 0f | 21 83 3d 01 0e 0f 4b 89 |.9.=....|!.=...K.|
|00000f40| 16 0f 82 29 01 0e 0b 0e | 11 3d 83 54 01 d2 0b 0e |...)....|.=.T....|
|00000f50| 09 0e 0e 9f 0e 13 a4 23 | 88 82 6f 01 d4 0e 0b 21 |.......#|..o....!|
|00000f60| 83 6f 01 0e 0f 0e 5c 6e | 3e 84 6f 01 d5 0e 11 0e |.o....\n|>.o.....|
|00000f70| 13 0b 0e 0f 0e 09 25 88 | 2c 0e 19 54 89 16 19 82 |......%.|,..T....|
|00000f80| d4 00 2b 5c 66 41 89 14 | 82 1f 00 2c 87 22 20 5b |..+\fA..|...,." [|
|00000f90| 70 72 65 66 69 78 20 22 | 22 20 6f 6c 64 6d 61 70 |prefix "|" oldmap|
|00000fa0| 20 6b 65 79 6d 61 70 20 | 73 63 61 6e 20 76 65 63 | keymap |scan vec|
|00000fb0| 74 6f 72 20 6e 69 6c 20 | 76 65 63 31 20 76 63 6f |tor nil |vec1 vco|
|00000fc0| 6e 63 61 74 20 70 72 65 | 66 69 78 31 20 6b 65 79 |ncat pre|fix1 key|
|00000fd0| 2d 73 75 62 73 74 69 74 | 75 74 69 6f 6e 2d 69 6e |-substit|ution-in|
|00000fe0| 2d 70 72 6f 67 72 65 73 | 73 20 64 65 66 6e 20 63 |-progres|s defn c|
|00000ff0| 68 61 72 20 30 20 73 6b | 69 70 70 65 64 20 69 6e |har 0 sk|ipped in|
|00001000| 6e 65 72 2d 64 65 66 20 | 66 62 6f 75 6e 64 70 20 |ner-def |fboundp |
|00001010| 6f 6c 64 64 65 66 20 64 | 65 66 69 6e 65 2d 6b 65 |olddef d|efine-ke|
|00001020| 79 20 6e 65 77 64 65 66 | 20 6b 65 79 6d 61 70 70 |y newdef| keymapp|
|00001030| 20 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d | substit|ute-key-|
|00001040| 64 65 66 69 6e 69 74 69 | 6f 6e 20 61 72 72 61 79 |definiti|on array|
|00001050| 70 20 61 72 72 61 79 20 | 6c 65 6e 20 69 5d 20 37 |p array |len i] 7|
|00001060| 20 22 5c 0a 52 65 70 6c | 61 63 65 20 4f 4c 44 44 | "\.Repl|ace OLDD|
|00001070| 45 46 20 77 69 74 68 20 | 4e 45 57 44 45 46 20 66 |EF with |NEWDEF f|
|00001080| 6f 72 20 61 6e 79 20 6b | 65 79 73 20 69 6e 20 4b |or any k|eys in K|
|00001090| 45 59 4d 41 50 20 6e 6f | 77 20 64 65 66 69 6e 65 |EYMAP no|w define|
|000010a0| 64 20 61 73 20 4f 4c 44 | 44 45 46 2e 0a 49 6e 20 |d as OLD|DEF..In |
|000010b0| 6f 74 68 65 72 20 77 6f | 72 64 73 2c 20 4f 4c 44 |other wo|rds, OLD|
|000010c0| 44 45 46 20 69 73 20 72 | 65 70 6c 61 63 65 64 20 |DEF is r|eplaced |
|000010d0| 77 69 74 68 20 4e 45 57 | 44 45 46 20 77 68 65 72 |with NEW|DEF wher|
|000010e0| 65 20 65 76 65 72 20 69 | 74 20 61 70 70 65 61 72 |e ever i|t appear|
|000010f0| 73 2e 0a 49 66 20 6f 70 | 74 69 6f 6e 61 6c 20 66 |s..If op|tional f|
|00001100| 6f 75 72 74 68 20 61 72 | 67 75 6d 65 6e 74 20 4f |ourth ar|gument O|
|00001110| 4c 44 4d 41 50 20 69 73 | 20 73 70 65 63 69 66 69 |LDMAP is| specifi|
|00001120| 65 64 2c 20 77 65 20 72 | 65 64 65 66 69 6e 65 0a |ed, we r|edefine.|
|00001130| 69 6e 20 4b 45 59 4d 41 | 50 20 61 73 20 4e 45 57 |in KEYMA|P as NEW|
|00001140| 44 45 46 20 74 68 6f 73 | 65 20 63 68 61 72 73 20 |DEF thos|e chars |
|00001150| 77 68 69 63 68 20 61 72 | 65 20 64 65 66 69 6e 65 |which ar|e define|
|00001160| 64 20 61 73 20 4f 4c 44 | 44 45 46 20 69 6e 20 4f |d as OLD|DEF in O|
|00001170| 4c 44 4d 41 50 2e 22 5d | 29 0a 28 64 65 66 61 6c |LDMAP."]|).(defal|
|00001180| 69 61 73 20 27 64 65 66 | 69 6e 65 2d 6b 65 79 2d |ias 'def|ine-key-|
|00001190| 61 66 74 65 72 20 23 5b | 28 6b 65 79 6d 61 70 20 |after #[|(keymap |
|000011a0| 6b 65 79 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 61 |key defi|nition a|
|000011b0| 66 74 65 72 29 20 22 c0 | 09 21 84 0d 00 c2 c3 c0 |fter) ".|.!......|
|000011c0| 09 44 5c 22 88 5c 66 47 | c5 56 83 18 00 c6 c7 21 |.D\".\fG|.V.....!|
|000011d0| 88 09 c8 89 5c 66 c9 48 | 1e 5c 6e 1e 0b 1e 5c 66 |....\f.H|.\n...\f|
|000011e0| 1e 0d 0e 5c 66 3f 85 86 | 00 0e 0d 85 86 00 0e 0d |...\f?..|........|
|000011f0| 41 40 a2 0e 5c 6e 3d 83 | 43 00 0e 0d 89 41 41 a1 |A@..\n=.|C....AA.|
|00001200| 88 0e 0d 40 a2 0e 0e 3d | 84 5c 5c 00 0e 0d 41 40 |...@...=|.\\...A@|
|00001210| c1 3d 84 5c 5c 00 0e 0d | 41 84 7e 00 0e 0d 41 40 |.=.\\...|A.~...A@|
|00001220| c1 3d 83 68 00 cf 16 5c | 66 0e 0b 84 7b 00 0e 0d |.=.h...\|f...{...|
|00001230| 5c 66 c9 48 0e 10 42 0e | 0d 41 42 a1 88 cf 16 0b |\f.H..B.|.AB.....|
|00001240| 0e 0d 41 16 0d 82 26 00 | 2c 87 22 20 5b 6b 65 79 |..A...&.|,." [key|
|00001250| 6d 61 70 70 20 6b 65 79 | 6d 61 70 20 73 69 67 6e |mapp key|map sign|
|00001260| 61 6c 20 77 72 6f 6e 67 | 2d 74 79 70 65 2d 61 72 |al wrong|-type-ar|
|00001270| 67 75 6d 65 6e 74 20 6b | 65 79 20 31 20 65 72 72 |gument k|ey 1 err|
|00001280| 6f 72 20 22 6d 75 6c 74 | 69 2d 65 76 65 6e 74 20 |or "mult|i-event |
|00001290| 6b 65 79 20 73 70 65 63 | 69 66 69 65 64 20 69 6e |key spec|ified in|
|000012a0| 20 60 64 65 66 69 6e 65 | 2d 6b 65 79 2d 61 66 74 | `define|-key-aft|
|000012b0| 65 72 27 22 20 6e 69 6c | 20 30 20 66 69 72 73 74 |er'" nil| 0 first|
|000012c0| 20 69 6e 73 65 72 74 65 | 64 20 64 6f 6e 65 20 74 | inserte|d done t|
|000012d0| 61 69 6c 20 61 66 74 65 | 72 20 74 20 64 65 66 69 |ail afte|r t defi|
|000012e0| 6e 69 74 69 6f 6e 5d 20 | 35 20 22 5c 0a 41 64 64 |nition] |5 "\.Add|
|000012f0| 20 62 69 6e 64 69 6e 67 | 20 69 6e 20 4b 45 59 4d | binding| in KEYM|
|00001300| 41 50 20 66 6f 72 20 4b | 45 59 20 3d 3e 20 44 45 |AP for K|EY => DE|
|00001310| 46 49 4e 49 54 49 4f 4e | 2c 20 72 69 67 68 74 20 |FINITION|, right |
|00001320| 61 66 74 65 72 20 41 46 | 54 45 52 27 73 20 62 69 |after AF|TER's bi|
|00001330| 6e 64 69 6e 67 2e 0a 54 | 68 69 73 20 69 73 20 6c |nding..T|his is l|
|00001340| 69 6b 65 20 60 64 65 66 | 69 6e 65 2d 6b 65 79 27 |ike `def|ine-key'|
|00001350| 20 65 78 63 65 70 74 20 | 74 68 61 74 20 74 68 65 | except |that the|
|00001360| 20 62 69 6e 64 69 6e 67 | 20 66 6f 72 20 4b 45 59 | binding| for KEY|
|00001370| 20 69 73 20 70 6c 61 63 | 65 64 0a 6a 75 73 74 20 | is plac|ed.just |
|00001380| 61 66 74 65 72 20 74 68 | 65 20 62 69 6e 64 69 6e |after th|e bindin|
|00001390| 67 20 66 6f 72 20 74 68 | 65 20 65 76 65 6e 74 20 |g for th|e event |
|000013a0| 41 46 54 45 52 2c 20 69 | 6e 73 74 65 61 64 20 6f |AFTER, i|nstead o|
|000013b0| 66 20 61 74 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |f at the| beginni|
|000013c0| 6e 67 0a 6f 66 20 74 68 | 65 20 6d 61 70 2e 0a 54 |ng.of th|e map..T|
|000013d0| 68 65 20 6f 72 64 65 72 | 20 6d 61 74 74 65 72 73 |he order| matters|
|000013e0| 20 77 68 65 6e 20 74 68 | 65 20 6b 65 79 6d 61 70 | when th|e keymap|
|000013f0| 20 69 73 20 75 73 65 64 | 20 61 73 20 61 20 6d 65 | is used| as a me|
|00001400| 6e 75 2e 0a 4b 45 59 20 | 6d 75 73 74 20 63 6f 6e |nu..KEY |must con|
|00001410| 74 61 69 6e 20 6a 75 73 | 74 20 6f 6e 65 20 65 76 |tain jus|t one ev|
|00001420| 65 6e 74 20 74 79 70 65 | 2d 2d 74 68 61 74 20 69 |ent type|--that i|
|00001430| 73 20 74 6f 20 73 61 79 | 2c 20 69 74 20 6d 75 73 |s to say|, it mus|
|00001440| 74 20 62 65 0a 61 20 73 | 74 72 69 6e 67 20 6f 72 |t be.a s|tring or|
|00001450| 20 76 65 63 74 6f 72 20 | 6f 66 20 6c 65 6e 67 74 | vector |of lengt|
|00001460| 68 20 31 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |h 1."]).|(defalia|
|00001470| 73 20 27 6b 65 79 62 6f | 61 72 64 2d 74 72 61 6e |s 'keybo|ard-tran|
|00001480| 73 6c 61 74 65 20 23 5b | 28 66 72 6f 6d 20 74 6f |slate #[|(from to|
|00001490| 29 20 22 c0 09 21 84 08 | 00 c2 11 0b 09 47 56 84 |) "..!..|.....GV.|
|000014a0| 16 00 5c 66 09 47 56 83 | 3a 00 09 47 1d 09 c6 c7 |..\f.GV.|:..G....|
|000014b0| 0d 5a c8 5c 22 50 1e 09 | 0d c7 57 83 36 00 0e 09 |.Z.\"P..|..W.6...|
|000014c0| 0d 89 49 88 0d 54 89 15 | 82 24 00 0e 09 11 2a 09 |..I..T..|.$....*.|
|000014d0| 0b 5c 66 49 87 22 20 5b | 61 72 72 61 79 70 20 6b |.\fI." [|arrayp k|
|000014e0| 65 79 62 6f 61 72 64 2d | 74 72 61 6e 73 6c 61 74 |eyboard-|translat|
|000014f0| 65 2d 74 61 62 6c 65 20 | 22 22 20 66 72 6f 6d 20 |e-table |"" from |
|00001500| 74 6f 20 69 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |to i mak|e-string|
|00001510| 20 32 35 36 20 30 20 74 | 61 62 6c 65 5d 20 35 20 | 256 0 t|able] 5 |
|00001520| 22 5c 0a 54 72 61 6e 73 | 6c 61 74 65 20 63 68 61 |"\.Trans|late cha|
|00001530| 72 61 63 74 65 72 20 46 | 52 4f 4d 20 74 6f 20 54 |racter F|ROM to T|
|00001540| 4f 20 61 74 20 61 20 6c | 6f 77 20 6c 65 76 65 6c |O at a l|ow level|
|00001550| 2e 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|00001560| 63 72 65 61 74 65 73 20 | 61 20 60 6b 65 79 62 6f |creates |a `keybo|
|00001570| 61 72 64 2d 74 72 61 6e | 73 6c 61 74 65 2d 74 61 |ard-tran|slate-ta|
|00001580| 62 6c 65 27 20 69 66 20 | 6e 65 63 65 73 73 61 72 |ble' if |necessar|
|00001590| 79 0a 61 6e 64 20 74 68 | 65 6e 20 6d 6f 64 69 66 |y.and th|en modif|
|000015a0| 69 65 73 20 6f 6e 65 20 | 65 6e 74 72 79 20 69 6e |ies one |entry in|
|000015b0| 20 69 74 2e 22 5d 29 0a | 28 64 65 66 76 61 72 20 | it."]).|(defvar |
|000015c0| 67 6c 6f 62 61 6c 2d 6d | 61 70 20 6e 69 6c 20 22 |global-m|ap nil "|
|000015d0| 5c 0a 44 65 66 61 75 6c | 74 20 67 6c 6f 62 61 6c |\.Defaul|t global|
|000015e0| 20 6b 65 79 6d 61 70 20 | 6d 61 70 70 69 6e 67 20 | keymap |mapping |
|000015f0| 45 6d 61 63 73 20 6b 65 | 79 62 6f 61 72 64 20 69 |Emacs ke|yboard i|
|00001600| 6e 70 75 74 20 69 6e 74 | 6f 20 63 6f 6d 6d 61 6e |nput int|o comman|
|00001610| 64 73 2e 0a 54 68 65 20 | 76 61 6c 75 65 20 69 73 |ds..The |value is|
|00001620| 20 61 20 6b 65 79 6d 61 | 70 20 77 68 69 63 68 20 | a keyma|p which |
|00001630| 69 73 20 75 73 75 61 6c | 6c 79 20 28 62 75 74 20 |is usual|ly (but |
|00001640| 6e 6f 74 20 6e 65 63 65 | 73 73 61 72 69 6c 79 29 |not nece|ssarily)|
|00001650| 20 45 6d 61 63 73 27 73 | 0a 67 6c 6f 62 61 6c 20 | Emacs's|.global |
|00001660| 6d 61 70 2e 22 29 0a 28 | 64 65 66 76 61 72 20 65 |map.").(|defvar e|
|00001670| 73 63 2d 6d 61 70 20 6e | 69 6c 20 22 5c 0a 44 65 |sc-map n|il "\.De|
|00001680| 66 61 75 6c 74 20 6b 65 | 79 6d 61 70 20 66 6f 72 |fault ke|ymap for|
|00001690| 20 45 53 43 20 28 6d 65 | 74 61 29 20 63 6f 6d 6d | ESC (me|ta) comm|
|000016a0| 61 6e 64 73 2e 0a 54 68 | 65 20 6e 6f 72 6d 61 6c |ands..Th|e normal|
|000016b0| 20 67 6c 6f 62 61 6c 20 | 64 65 66 69 6e 69 74 69 | global |definiti|
|000016c0| 6f 6e 20 6f 66 20 74 68 | 65 20 63 68 61 72 61 63 |on of th|e charac|
|000016d0| 74 65 72 20 45 53 43 20 | 69 6e 64 69 72 65 63 74 |ter ESC |indirect|
|000016e0| 73 20 74 6f 20 74 68 69 | 73 20 6b 65 79 6d 61 70 |s to thi|s keymap|
|000016f0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 74 6c 2d |.").(def|var ctl-|
|00001700| 78 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 44 65 66 |x-map ni|l "\.Def|
|00001710| 61 75 6c 74 20 6b 65 79 | 6d 61 70 20 66 6f 72 20 |ault key|map for |
|00001720| 43 2d 78 20 63 6f 6d 6d | 61 6e 64 73 2e 0a 54 68 |C-x comm|ands..Th|
|00001730| 65 20 6e 6f 72 6d 61 6c | 20 67 6c 6f 62 61 6c 20 |e normal| global |
|00001740| 64 65 66 69 6e 69 74 69 | 6f 6e 20 6f 66 20 74 68 |definiti|on of th|
|00001750| 65 20 63 68 61 72 61 63 | 74 65 72 20 43 2d 78 20 |e charac|ter C-x |
|00001760| 69 6e 64 69 72 65 63 74 | 73 20 74 6f 20 74 68 69 |indirect|s to thi|
|00001770| 73 20 6b 65 79 6d 61 70 | 2e 22 29 0a 28 64 65 66 |s keymap|.").(def|
|00001780| 76 61 72 20 63 74 6c 2d | 78 2d 34 2d 6d 61 70 20 |var ctl-|x-4-map |
|00001790| 28 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 |(make-sp|arse-key|
|000017a0| 6d 61 70 29 20 22 5c 0a | 4b 65 79 6d 61 70 20 66 |map) "\.|Keymap f|
|000017b0| 6f 72 20 73 75 62 63 6f | 6d 6d 61 6e 64 73 20 6f |or subco|mmands o|
|000017c0| 66 20 43 2d 78 20 34 22 | 29 0a 28 62 79 74 65 2d |f C-x 4"|).(byte-|
|000017d0| 63 6f 64 65 20 22 c0 c1 | 5c 6e 5c 22 88 c3 5c 66 |code "..|\n\"..\f|
|000017e0| c5 c1 23 87 22 20 5b 64 | 65 66 61 6c 69 61 73 20 |..#." [d|efalias |
|000017f0| 63 74 6c 2d 78 2d 34 2d | 70 72 65 66 69 78 20 63 |ctl-x-4-|prefix c|
|00001800| 74 6c 2d 78 2d 34 2d 6d | 61 70 20 64 65 66 69 6e |tl-x-4-m|ap defin|
|00001810| 65 2d 6b 65 79 20 63 74 | 6c 2d 78 2d 6d 61 70 20 |e-key ct|l-x-map |
|00001820| 22 34 22 5d 20 34 29 0a | 28 64 65 66 76 61 72 20 |"4"] 4).|(defvar |
|00001830| 63 74 6c 2d 78 2d 35 2d | 6d 61 70 20 28 6d 61 6b |ctl-x-5-|map (mak|
|00001840| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 29 |e-sparse|-keymap)|
|00001850| 20 22 5c 0a 4b 65 79 6d | 61 70 20 66 6f 72 20 66 | "\.Keym|ap for f|
|00001860| 72 61 6d 65 20 63 6f 6d | 6d 61 6e 64 73 2e 22 29 |rame com|mands.")|
|00001870| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c |.(byte-c|ode "..\|
|00001880| 6e 5c 22 88 c3 5c 66 c5 | c1 23 88 c6 c7 c8 5c 22 |n\"..\f.|.#....\"|
|00001890| 16 09 ca c6 c7 cb 5c 22 | 0e 09 5c 22 16 09 c0 87 |......\"|..\"....|
|000018a0| 22 20 5b 64 65 66 61 6c | 69 61 73 20 63 74 6c 2d |" [defal|ias ctl-|
|000018b0| 78 2d 35 2d 70 72 65 66 | 69 78 20 63 74 6c 2d 78 |x-5-pref|ix ctl-x|
|000018c0| 2d 35 2d 6d 61 70 20 64 | 65 66 69 6e 65 2d 6b 65 |-5-map d|efine-ke|
|000018d0| 79 20 63 74 6c 2d 78 2d | 6d 61 70 20 22 35 22 20 |y ctl-x-|map "5" |
|000018e0| 6c 73 68 20 31 20 37 20 | 6c 69 73 74 69 66 79 2d |lsh 1 7 |listify-|
|000018f0| 6b 65 79 2d 73 65 71 75 | 65 6e 63 65 2d 31 20 6c |key-sequ|ence-1 l|
|00001900| 6f 67 69 6f 72 20 32 33 | 5d 20 34 29 0a 28 64 65 |ogior 23|] 4).(de|
|00001910| 66 61 6c 69 61 73 20 27 | 6c 69 73 74 69 66 79 2d |falias '|listify-|
|00001920| 6b 65 79 2d 73 65 71 75 | 65 6e 63 65 20 23 5b 28 |key-sequ|ence #[(|
|00001930| 6b 65 79 29 20 22 c0 09 | 21 83 0b 00 c2 09 c3 5c |key) "..|!......\|
|00001940| 22 87 c4 c5 c2 09 c3 5c | 22 5c 22 87 22 20 5b 76 |"......\|"\"." [v|
|00001950| 65 63 74 6f 72 70 20 6b | 65 79 20 61 70 70 65 6e |ectorp k|ey appen|
|00001960| 64 20 6e 69 6c 20 6d 61 | 70 63 61 72 20 23 5b 28 |d nil ma|pcar #[(|
|00001970| 63 29 20 22 08 c1 56 83 | 0b 00 c2 08 0b 5c 22 87 |c) "..V.|.....\".|
|00001980| 08 87 22 20 5b 63 20 31 | 32 37 20 6c 6f 67 78 6f |.." [c 1|27 logxo|
|00001990| 72 20 6c 69 73 74 69 66 | 79 2d 6b 65 79 2d 73 65 |r listif|y-key-se|
|000019a0| 71 75 65 6e 63 65 2d 31 | 5d 20 33 5d 5d 20 35 20 |quence-1|] 3]] 5 |
|000019b0| 22 5c 0a 43 6f 6e 76 65 | 72 74 20 61 20 6b 65 79 |"\.Conve|rt a key|
|000019c0| 20 73 65 71 75 65 6e 63 | 65 20 74 6f 20 61 20 6c | sequenc|e to a l|
|000019d0| 69 73 74 20 6f 66 20 65 | 76 65 6e 74 73 2e 22 5d |ist of e|vents."]|
|000019e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 76 65 |).(defal|ias 'eve|
|000019f0| 6e 74 70 20 23 5b 28 6f | 62 6a 29 20 22 08 a8 86 |ntp #[(o|bj) "...|
|00001a00| 1f 00 08 39 83 10 00 08 | c1 4e 86 1f 00 08 3a 85 |...9....|.N....:.|
|00001a10| 1f 00 08 40 39 85 1f 00 | 08 40 c1 4e 87 22 20 5b |...@9...|.@.N." [|
|00001a20| 6f 62 6a 20 65 76 65 6e | 74 2d 73 79 6d 62 6f 6c |obj even|t-symbol|
|00001a30| 2d 65 6c 65 6d 65 6e 74 | 73 5d 20 32 20 22 5c 0a |-element|s] 2 "\.|
|00001a40| 54 72 75 65 20 69 66 20 | 74 68 65 20 61 72 67 75 |True if |the argu|
|00001a50| 6d 65 6e 74 20 69 73 20 | 61 6e 20 65 76 65 6e 74 |ment is |an event|
|00001a60| 20 6f 62 6a 65 63 74 2e | 22 5d 29 0a 28 70 75 74 | object.|"]).(put|
|00001a70| 20 28 71 75 6f 74 65 20 | 65 76 65 6e 74 70 29 20 | (quote |eventp) |
|00001a80| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 6f 70 74 69 |(quote b|yte-opti|
|00001a90| 6d 69 7a 65 72 29 20 28 | 71 75 6f 74 65 20 62 79 |mizer) (|quote by|
|00001aa0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00001ab0| 65 2d 65 78 70 61 6e 64 | 29 29 0a 28 64 65 66 61 |e-expand|)).(defa|
|00001ac0| 6c 69 61 73 20 27 65 76 | 65 6e 74 2d 6d 6f 64 69 |lias 'ev|ent-modi|
|00001ad0| 66 69 65 72 73 20 23 5b | 28 65 76 65 6e 74 29 20 |fiers #[|(event) |
|00001ae0| 22 08 89 19 3c 83 5c 6e | 00 09 40 11 09 39 83 16 |"...<.\n|..@..9..|
|00001af0| 00 09 c2 4e 41 82 90 00 | c3 1c c5 c6 09 c7 c8 c9 |...NA...|........|
|00001b00| 5c 22 5c 22 21 84 28 00 | ca 5c 66 42 14 c5 c6 09 |\"\"!.(.|.\fB....|
|00001b10| c7 c8 cb 5c 22 5c 22 21 | 83 3d 00 c6 09 cc 5c 22 |...\"\"!|.=....\"|
|00001b20| cd 59 84 41 00 ce 5c 66 | 42 14 c5 c6 09 c7 c8 cf |.Y.A..\f|B.......|
|00001b30| 5c 22 5c 22 21 83 5a 00 | c6 09 d0 5c 22 c6 09 d0 |\"\"!.Z.|...\"...|
|00001b40| 5c 22 97 55 84 5e 00 d1 | 5c 66 42 14 c5 c6 09 c7 |\".U.^..|\fB.....|
|00001b50| c8 d2 5c 22 5c 22 21 84 | 6e 00 d3 5c 66 42 14 c5 |..\"\"!.|n..\fB..|
|00001b60| c6 09 c7 c8 d4 5c 22 5c | 22 21 84 7e 00 d5 5c 66 |.....\"\|"!.~..\f|
|00001b70| 42 14 c5 c6 09 c7 c8 d6 | 5c 22 5c 22 21 84 8e 00 |B.......|\"\"!...|
|00001b80| d7 5c 66 42 14 5c 66 29 | 29 87 22 20 5b 65 76 65 |.\fB.\f)|)." [eve|
|00001b90| 6e 74 20 74 79 70 65 20 | 65 76 65 6e 74 2d 73 79 |nt type |event-sy|
|00001ba0| 6d 62 6f 6c 2d 65 6c 65 | 6d 65 6e 74 73 20 6e 69 |mbol-ele|ments ni|
|00001bb0| 6c 20 6c 69 73 74 20 7a | 65 72 6f 70 20 6c 6f 67 |l list z|erop log|
|00001bc0| 61 6e 64 20 6c 73 68 20 | 31 20 32 33 20 6d 65 74 |and lsh |1 23 met|
|00001bd0| 61 20 32 32 20 31 32 37 | 20 33 32 20 63 6f 6e 74 |a 22 127| 32 cont|
|00001be0| 72 6f 6c 20 32 31 20 32 | 35 35 20 73 68 69 66 74 |rol 21 2|55 shift|
|00001bf0| 20 32 30 20 68 79 70 65 | 72 20 31 39 20 73 75 70 | 20 hype|r 19 sup|
|00001c00| 65 72 20 31 38 20 61 6c | 74 5d 20 37 20 22 5c 0a |er 18 al|t] 7 "\.|
|00001c10| 52 65 74 75 72 6e 73 20 | 61 20 6c 69 73 74 20 6f |Returns |a list o|
|00001c20| 66 20 73 79 6d 62 6f 6c | 73 20 72 65 70 72 65 73 |f symbol|s repres|
|00001c30| 65 6e 74 69 6e 67 20 74 | 68 65 20 6d 6f 64 69 66 |enting t|he modif|
|00001c40| 69 65 72 20 6b 65 79 73 | 20 69 6e 20 65 76 65 6e |ier keys| in even|
|00001c50| 74 20 45 56 45 4e 54 2e | 0a 54 68 65 20 65 6c 65 |t EVENT.|.The ele|
|00001c60| 6d 65 6e 74 73 20 6f 66 | 20 74 68 65 20 6c 69 73 |ments of| the lis|
|00001c70| 74 20 6d 61 79 20 69 6e | 63 6c 75 64 65 20 60 6d |t may in|clude `m|
|00001c80| 65 74 61 27 2c 20 60 63 | 6f 6e 74 72 6f 6c 27 2c |eta', `c|ontrol',|
|00001c90| 0a 60 73 68 69 66 74 27 | 2c 20 60 68 79 70 65 72 |.`shift'|, `hyper|
|00001ca0| 27 2c 20 60 73 75 70 65 | 72 27 2c 20 60 61 6c 74 |', `supe|r', `alt|
|00001cb0| 27 2c 20 60 63 6c 69 63 | 6b 27 2c 20 60 64 6f 75 |', `clic|k', `dou|
|00001cc0| 62 6c 65 27 2c 20 60 74 | 72 69 70 6c 65 27 2c 20 |ble', `t|riple', |
|00001cd0| 60 64 72 61 67 27 2c 0a | 61 6e 64 20 60 64 6f 77 |`drag',.|and `dow|
|00001ce0| 6e 27 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |n'."]).(|defalias|
|00001cf0| 20 27 65 76 65 6e 74 2d | 62 61 73 69 63 2d 74 79 | 'event-|basic-ty|
|00001d00| 70 65 20 23 5b 28 65 76 | 65 6e 74 29 20 22 08 3a |pe #[(ev|ent) ".:|
|00001d10| 83 08 00 08 40 10 08 39 | 83 12 00 08 c1 4e 40 87 |....@..9|.....N@.|
|00001d20| c2 08 c3 c4 c5 5c 22 53 | 5c 22 89 1e 06 c7 57 83 |.....\"S|\"....W.|
|00001d30| 2a 00 c8 0e 06 c9 5c 22 | 82 2c 00 0e 06 97 29 87 |*.....\"|.,....).|
|00001d40| 22 20 5b 65 76 65 6e 74 | 20 65 76 65 6e 74 2d 73 |" [event| event-s|
|00001d50| 79 6d 62 6f 6c 2d 65 6c | 65 6d 65 6e 74 73 20 6c |ymbol-el|ements l|
|00001d60| 6f 67 61 6e 64 20 6c 73 | 68 20 31 20 31 38 20 62 |ogand ls|h 1 18 b|
|00001d70| 61 73 65 20 33 32 20 6c | 6f 67 69 6f 72 20 36 34 |ase 32 l|ogior 64|
|00001d80| 5d 20 36 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 6 "\.R|eturns t|
|00001d90| 68 65 20 62 61 73 69 63 | 20 74 79 70 65 20 6f 66 |he basic| type of|
|00001da0| 20 74 68 65 20 67 69 76 | 65 6e 20 65 76 65 6e 74 | the giv|en event|
|00001db0| 20 28 61 6c 6c 20 6d 6f | 64 69 66 69 65 72 73 20 | (all mo|difiers |
|00001dc0| 72 65 6d 6f 76 65 64 29 | 2e 0a 54 68 65 20 76 61 |removed)|..The va|
|00001dd0| 6c 75 65 20 69 73 20 61 | 6e 20 41 53 43 49 49 20 |lue is a|n ASCII |
|00001de0| 70 72 69 6e 74 69 6e 67 | 20 63 68 61 72 61 63 74 |printing| charact|
|00001df0| 65 72 20 28 6e 6f 74 20 | 75 70 70 65 72 20 63 61 |er (not |upper ca|
|00001e00| 73 65 29 20 6f 72 20 61 | 20 73 79 6d 62 6f 6c 2e |se) or a| symbol.|
|00001e10| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |"]).(def|alias 'm|
|00001e20| 6f 75 73 65 2d 6d 6f 76 | 65 6d 65 6e 74 2d 70 20 |ouse-mov|ement-p |
|00001e30| 23 5b 28 6f 62 6a 65 63 | 74 29 20 22 08 3a 85 09 |#[(objec|t) ".:..|
|00001e40| 00 08 40 c1 3d 87 22 20 | 5b 6f 62 6a 65 63 74 20 |..@.=." |[object |
|00001e50| 6d 6f 75 73 65 2d 6d 6f | 76 65 6d 65 6e 74 5d 20 |mouse-mo|vement] |
|00001e60| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 6e 6f 6e 2d |2 "\.Ret|urn non-|
|00001e70| 6e 69 6c 20 69 66 20 4f | 42 4a 45 43 54 20 69 73 |nil if O|BJECT is|
|00001e80| 20 61 20 6d 6f 75 73 65 | 20 6d 6f 76 65 6d 65 6e | a mouse| movemen|
|00001e90| 74 20 65 76 65 6e 74 2e | 22 5d 29 0a 28 70 75 74 |t event.|"]).(put|
|00001ea0| 20 28 71 75 6f 74 65 20 | 6d 6f 75 73 65 2d 6d 6f | (quote |mouse-mo|
|00001eb0| 76 65 6d 65 6e 74 2d 70 | 29 20 28 71 75 6f 74 65 |vement-p|) (quote|
|00001ec0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 29 | byte-op|timizer)|
|00001ed0| 20 28 71 75 6f 74 65 20 | 62 79 74 65 2d 63 6f 6d | (quote |byte-com|
|00001ee0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00001ef0| 6e 64 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd)).(de|falias '|
|00001f00| 65 76 65 6e 74 2d 73 74 | 61 72 74 20 23 5b 28 65 |event-st|art #[(e|
|00001f10| 76 65 6e 74 29 20 22 08 | 41 40 87 22 20 5b 65 76 |vent) ".|A@." [ev|
|00001f20| 65 6e 74 5d 20 31 20 22 | 5c 0a 52 65 74 75 72 6e |ent] 1 "|\.Return|
|00001f30| 20 74 68 65 20 73 74 61 | 72 74 69 6e 67 20 70 6f | the sta|rting po|
|00001f40| 73 69 74 69 6f 6e 20 6f | 66 20 45 56 45 4e 54 2e |sition o|f EVENT.|
|00001f50| 0a 49 66 20 45 56 45 4e | 54 20 69 73 20 61 20 6d |.If EVEN|T is a m|
|00001f60| 6f 75 73 65 20 70 72 65 | 73 73 20 6f 72 20 61 20 |ouse pre|ss or a |
|00001f70| 6d 6f 75 73 65 20 63 6c | 69 63 6b 2c 20 74 68 69 |mouse cl|ick, thi|
|00001f80| 73 20 72 65 74 75 72 6e | 73 20 74 68 65 20 6c 6f |s return|s the lo|
|00001f90| 63 61 74 69 6f 6e 0a 6f | 66 20 74 68 65 20 65 76 |cation.o|f the ev|
|00001fa0| 65 6e 74 2e 0a 49 66 20 | 45 56 45 4e 54 20 69 73 |ent..If |EVENT is|
|00001fb0| 20 61 20 64 72 61 67 2c | 20 74 68 69 73 20 72 65 | a drag,| this re|
|00001fc0| 74 75 72 6e 73 20 74 68 | 65 20 64 72 61 67 27 73 |turns th|e drag's|
|00001fd0| 20 73 74 61 72 74 69 6e | 67 20 70 6f 73 69 74 69 | startin|g positi|
|00001fe0| 6f 6e 2e 0a 54 68 65 20 | 72 65 74 75 72 6e 20 76 |on..The |return v|
|00001ff0| 61 6c 75 65 20 69 73 20 | 6f 66 20 74 68 65 20 66 |alue is |of the f|
|00002000| 6f 72 6d 0a 20 20 20 28 | 57 49 4e 44 4f 57 20 42 |orm. (|WINDOW B|
|00002010| 55 46 46 45 52 2d 50 4f | 53 49 54 49 4f 4e 20 28 |UFFER-PO|SITION (|
|00002020| 58 20 2e 20 59 29 20 54 | 49 4d 45 53 54 41 4d 50 |X . Y) T|IMESTAMP|
|00002030| 29 0a 54 68 65 20 60 70 | 6f 73 6e 2d 27 20 66 75 |).The `p|osn-' fu|
|00002040| 6e 63 74 69 6f 6e 73 20 | 61 63 63 65 73 73 20 65 |nctions |access e|
|00002050| 6c 65 6d 65 6e 74 73 20 | 6f 66 20 73 75 63 68 20 |lements |of such |
|00002060| 6c 69 73 74 73 2e 22 5d | 29 0a 28 70 75 74 20 28 |lists."]|).(put (|
|00002070| 71 75 6f 74 65 20 65 76 | 65 6e 74 2d 73 74 61 72 |quote ev|ent-star|
|00002080| 74 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |t) (quot|e byte-o|
|00002090| 70 74 69 6d 69 7a 65 72 | 29 20 28 71 75 6f 74 65 |ptimizer|) (quote|
|000020a0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000020b0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 29 0a 28 64 |line-exp|and)).(d|
|000020c0| 65 66 61 6c 69 61 73 20 | 27 65 76 65 6e 74 2d 65 |efalias |'event-e|
|000020d0| 6e 64 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 09 |nd #[(ev|ent) "..|
|000020e0| 38 3a 83 0b 00 c0 82 5c | 66 00 c2 09 38 87 22 20 |8:.....\|f...8." |
|000020f0| 5b 32 20 65 76 65 6e 74 | 20 31 5d 20 32 20 22 5c |[2 event| 1] 2 "\|
|00002100| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 65 6e 64 69 |.Return |the endi|
|00002110| 6e 67 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 45 |ng locat|ion of E|
|00002120| 56 45 4e 54 2e 20 20 45 | 56 45 4e 54 20 73 68 6f |VENT. E|VENT sho|
|00002130| 75 6c 64 20 62 65 20 61 | 20 63 6c 69 63 6b 20 6f |uld be a| click o|
|00002140| 72 20 64 72 61 67 20 65 | 76 65 6e 74 2e 0a 49 66 |r drag e|vent..If|
|00002150| 20 45 56 45 4e 54 20 69 | 73 20 61 20 63 6c 69 63 | EVENT i|s a clic|
|00002160| 6b 20 65 76 65 6e 74 2c | 20 74 68 69 73 20 66 75 |k event,| this fu|
|00002170| 6e 63 74 69 6f 6e 20 69 | 73 20 74 68 65 20 73 61 |nction i|s the sa|
|00002180| 6d 65 20 61 73 20 60 65 | 76 65 6e 74 2d 73 74 61 |me as `e|vent-sta|
|00002190| 72 74 27 2e 0a 54 68 65 | 20 72 65 74 75 72 6e 20 |rt'..The| return |
|000021a0| 76 61 6c 75 65 20 69 73 | 20 6f 66 20 74 68 65 20 |value is| of the |
|000021b0| 66 6f 72 6d 0a 20 20 20 | 28 57 49 4e 44 4f 57 20 |form. |(WINDOW |
|000021c0| 42 55 46 46 45 52 2d 50 | 4f 53 49 54 49 4f 4e 20 |BUFFER-P|OSITION |
|000021d0| 28 58 20 2e 20 59 29 20 | 54 49 4d 45 53 54 41 4d |(X . Y) |TIMESTAM|
|000021e0| 50 29 0a 54 68 65 20 60 | 70 6f 73 6e 2d 27 20 66 |P).The `|posn-' f|
|000021f0| 75 6e 63 74 69 6f 6e 73 | 20 61 63 63 65 73 73 20 |unctions| access |
|00002200| 65 6c 65 6d 65 6e 74 73 | 20 6f 66 20 73 75 63 68 |elements| of such|
|00002210| 20 6c 69 73 74 73 2e 22 | 5d 29 0a 28 70 75 74 20 | lists."|]).(put |
|00002220| 28 71 75 6f 74 65 20 65 | 76 65 6e 74 2d 65 6e 64 |(quote e|vent-end|
|00002230| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|00002240| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|00002250| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00002260| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00002270| 66 61 6c 69 61 73 20 27 | 65 76 65 6e 74 2d 63 6c |falias '|event-cl|
|00002280| 69 63 6b 2d 63 6f 75 6e | 74 20 23 5b 28 65 76 65 |ick-coun|t #[(eve|
|00002290| 6e 74 29 20 22 c0 09 38 | a8 83 0b 00 c0 09 38 87 |nt) "..8|......8.|
|000022a0| c2 87 22 20 5b 32 20 65 | 76 65 6e 74 20 31 5d 20 |.." [2 e|vent 1] |
|000022b0| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |2 "\.Ret|urn the |
|000022c0| 6d 75 6c 74 69 2d 63 6c | 69 63 6b 20 63 6f 75 6e |multi-cl|ick coun|
|000022d0| 74 20 6f 66 20 45 56 45 | 4e 54 2c 20 61 20 63 6c |t of EVE|NT, a cl|
|000022e0| 69 63 6b 20 6f 72 20 64 | 72 61 67 20 65 76 65 6e |ick or d|rag even|
|000022f0| 74 2e 0a 54 68 65 20 72 | 65 74 75 72 6e 20 76 61 |t..The r|eturn va|
|00002300| 6c 75 65 20 69 73 20 61 | 20 70 6f 73 69 74 69 76 |lue is a| positiv|
|00002310| 65 20 69 6e 74 65 67 65 | 72 2e 22 5d 29 0a 28 70 |e intege|r."]).(p|
|00002320| 75 74 20 28 71 75 6f 74 | 65 20 65 76 65 6e 74 2d |ut (quot|e event-|
|00002330| 63 6c 69 63 6b 2d 63 6f | 75 6e 74 29 20 28 71 75 |click-co|unt) (qu|
|00002340| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00002350| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00002360| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00002370| 78 70 61 6e 64 29 29 0a | 28 64 65 66 61 6c 69 61 |xpand)).|(defalia|
|00002380| 73 20 27 70 6f 73 6e 2d | 77 69 6e 64 6f 77 20 23 |s 'posn-|window #|
|00002390| 5b 28 70 6f 73 69 74 69 | 6f 6e 29 20 22 08 40 87 |[(positi|on) ".@.|
|000023a0| 22 20 5b 70 6f 73 69 74 | 69 6f 6e 5d 20 31 20 22 |" [posit|ion] 1 "|
|000023b0| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 77 69 6e |\.Return| the win|
|000023c0| 64 6f 77 20 69 6e 20 50 | 4f 53 49 54 49 4f 4e 2e |dow in P|OSITION.|
|000023d0| 0a 50 4f 53 49 54 49 4f | 4e 20 73 68 6f 75 6c 64 |.POSITIO|N should|
|000023e0| 20 62 65 20 61 20 6c 69 | 73 74 20 6f 66 20 74 68 | be a li|st of th|
|000023f0| 65 20 66 6f 72 6d 0a 20 | 20 20 28 57 49 4e 44 4f |e form. | (WINDO|
|00002400| 57 20 42 55 46 46 45 52 | 2d 50 4f 53 49 54 49 4f |W BUFFER|-POSITIO|
|00002410| 4e 20 28 58 20 2e 20 59 | 29 20 54 49 4d 45 53 54 |N (X . Y|) TIMEST|
|00002420| 41 4d 50 29 0a 61 73 20 | 72 65 74 75 72 6e 65 64 |AMP).as |returned|
|00002430| 20 62 79 20 74 68 65 20 | 60 65 76 65 6e 74 2d 73 | by the |`event-s|
|00002440| 74 61 72 74 27 20 61 6e | 64 20 60 65 76 65 6e 74 |tart' an|d `event|
|00002450| 2d 65 6e 64 27 20 66 75 | 6e 63 74 69 6f 6e 73 2e |-end' fu|nctions.|
|00002460| 22 5d 29 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |"]).(put| (quote |
|00002470| 70 6f 73 6e 2d 77 69 6e | 64 6f 77 29 20 28 71 75 |posn-win|dow) (qu|
|00002480| 6f 74 65 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ote byte|-optimiz|
|00002490| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|000024a0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000024b0| 78 70 61 6e 64 29 29 0a | 28 64 65 66 61 6c 69 61 |xpand)).|(defalia|
|000024c0| 73 20 27 70 6f 73 6e 2d | 70 6f 69 6e 74 20 23 5b |s 'posn-|point #[|
|000024d0| 28 70 6f 73 69 74 69 6f | 6e 29 20 22 08 41 40 3a |(positio|n) ".A@:|
|000024e0| 83 5c 66 00 08 41 40 40 | 87 08 41 40 87 22 20 5b |.\f..A@@|..A@." [|
|000024f0| 70 6f 73 69 74 69 6f 6e | 5d 20 31 20 22 5c 0a 52 |position|] 1 "\.R|
|00002500| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00002510| 20 6c 6f 63 61 74 69 6f | 6e 20 69 6e 20 50 4f 53 | locatio|n in POS|
|00002520| 49 54 49 4f 4e 2e 0a 50 | 4f 53 49 54 49 4f 4e 20 |ITION..P|OSITION |
|00002530| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 6c 69 73 74 |should b|e a list|
|00002540| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 0a 20 20 20 | of the |form. |
|00002550| 28 57 49 4e 44 4f 57 20 | 42 55 46 46 45 52 2d 50 |(WINDOW |BUFFER-P|
|00002560| 4f 53 49 54 49 4f 4e 20 | 28 58 20 2e 20 59 29 20 |OSITION |(X . Y) |
|00002570| 54 49 4d 45 53 54 41 4d | 50 29 0a 61 73 20 72 65 |TIMESTAM|P).as re|
|00002580| 74 75 72 6e 65 64 20 62 | 79 20 74 68 65 20 60 65 |turned b|y the `e|
|00002590| 76 65 6e 74 2d 73 74 61 | 72 74 27 20 61 6e 64 20 |vent-sta|rt' and |
|000025a0| 60 65 76 65 6e 74 2d 65 | 6e 64 27 20 66 75 6e 63 |`event-e|nd' func|
|000025b0| 74 69 6f 6e 73 2e 22 5d | 29 0a 28 70 75 74 20 28 |tions."]|).(put (|
|000025c0| 71 75 6f 74 65 20 70 6f | 73 6e 2d 70 6f 69 6e 74 |quote po|sn-point|
|000025d0| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 6f 70 |) (quote| byte-op|
|000025e0| 74 69 6d 69 7a 65 72 29 | 20 28 71 75 6f 74 65 20 |timizer)| (quote |
|000025f0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00002600| 69 6e 65 2d 65 78 70 61 | 6e 64 29 29 0a 28 64 65 |ine-expa|nd)).(de|
|00002610| 66 61 6c 69 61 73 20 27 | 70 6f 73 6e 2d 78 2d 79 |falias '|posn-x-y|
|00002620| 20 23 5b 28 70 6f 73 69 | 74 69 6f 6e 29 20 22 c0 | #[(posi|tion) ".|
|00002630| 09 38 87 22 20 5b 32 20 | 70 6f 73 69 74 69 6f 6e |.8." [2 |position|
|00002640| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 2 "\.R|eturn th|
|00002650| 65 20 78 20 61 6e 64 20 | 79 20 63 6f 6f 72 64 69 |e x and |y coordi|
|00002660| 6e 61 74 65 73 20 69 6e | 20 50 4f 53 49 54 49 4f |nates in| POSITIO|
|00002670| 4e 2e 0a 50 4f 53 49 54 | 49 4f 4e 20 73 68 6f 75 |N..POSIT|ION shou|
|00002680| 6c 64 20 62 65 20 61 20 | 6c 69 73 74 20 6f 66 20 |ld be a |list of |
|00002690| 74 68 65 20 66 6f 72 6d | 0a 20 20 20 28 57 49 4e |the form|. (WIN|
|000026a0| 44 4f 57 20 42 55 46 46 | 45 52 2d 50 4f 53 49 54 |DOW BUFF|ER-POSIT|
|000026b0| 49 4f 4e 20 28 58 20 2e | 20 59 29 20 54 49 4d 45 |ION (X .| Y) TIME|
|000026c0| 53 54 41 4d 50 29 0a 61 | 73 20 72 65 74 75 72 6e |STAMP).a|s return|
|000026d0| 65 64 20 62 79 20 74 68 | 65 20 60 65 76 65 6e 74 |ed by th|e `event|
|000026e0| 2d 73 74 61 72 74 27 20 | 61 6e 64 20 60 65 76 65 |-start' |and `eve|
|000026f0| 6e 74 2d 65 6e 64 27 20 | 66 75 6e 63 74 69 6f 6e |nt-end' |function|
|00002700| 73 2e 22 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |s."]).(p|ut (quot|
|00002710| 65 20 70 6f 73 6e 2d 78 | 2d 79 29 20 28 71 75 6f |e posn-x|-y) (quo|
|00002720| 74 65 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |te byte-|optimize|
|00002730| 72 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 63 |r) (quot|e byte-c|
|00002740| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00002750| 70 61 6e 64 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |pand)).(|defalias|
|00002760| 20 27 70 6f 73 6e 2d 63 | 6f 6c 2d 72 6f 77 20 23 | 'posn-c|ol-row #|
|00002770| 5b 28 70 6f 73 69 74 69 | 6f 6e 29 20 22 c0 09 38 |[(positi|on) "..8|
|00002780| 09 89 19 40 29 1a 1b 09 | 41 40 3a 83 18 00 09 41 |...@)...|A@:....A|
|00002790| 40 40 82 1b 00 09 41 40 | c4 3d 83 2c 00 c5 c6 0b |@@....A@|.=.,....|
|000027a0| c7 5c 6e 21 53 5c 22 42 | 82 74 00 09 41 40 3a 83 |.\n!S\"B|.t..A@:.|
|000027b0| 3a 00 09 41 40 40 82 3d | 00 09 41 40 c8 3d 83 4d |:..A@@.=|..A@.=.M|
|000027c0| 00 c6 0b c9 5c 6e 21 5c | 22 c5 42 82 74 00 ca 5c |....\n!\|".B.t..\|
|000027d0| 6e 21 83 57 00 5c 6e 82 | 5a 00 cb 5c 6e 21 1e 5c |n!.W.\n.|Z..\n!.\|
|000027e0| 66 0b 40 cd 0e 5c 66 21 | a5 1e 0e 0b 41 cf 0e 5c |f.@..\f!|....A..\|
|000027f0| 66 21 a5 1e 10 0e 0e 0e | 10 2b 42 2a 87 22 20 5b |f!......|.+B*." [|
|00002800| 32 20 70 6f 73 69 74 69 | 6f 6e 20 77 69 6e 64 6f |2 positi|on windo|
|00002810| 77 20 70 61 69 72 20 76 | 65 72 74 69 63 61 6c 2d |w pair v|ertical-|
|00002820| 73 63 72 6f 6c 6c 2d 62 | 61 72 20 30 20 73 63 72 |scroll-b|ar 0 scr|
|00002830| 6f 6c 6c 2d 62 61 72 2d | 73 63 61 6c 65 20 77 69 |oll-bar-|scale wi|
|00002840| 6e 64 6f 77 2d 68 65 69 | 67 68 74 20 68 6f 72 69 |ndow-hei|ght hori|
|00002850| 7a 6f 6e 74 61 6c 2d 73 | 63 72 6f 6c 6c 2d 62 61 |zontal-s|croll-ba|
|00002860| 72 20 77 69 6e 64 6f 77 | 2d 77 69 64 74 68 20 66 |r window|-width f|
|00002870| 72 61 6d 65 70 20 77 69 | 6e 64 6f 77 2d 66 72 61 |ramep wi|ndow-fra|
|00002880| 6d 65 20 66 72 61 6d 65 | 20 66 72 61 6d 65 2d 63 |me frame| frame-c|
|00002890| 68 61 72 2d 77 69 64 74 | 68 20 78 20 66 72 61 6d |har-widt|h x fram|
|000028a0| 65 2d 63 68 61 72 2d 68 | 65 69 67 68 74 20 79 5d |e-char-h|eight y]|
|000028b0| 20 36 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 6 "\.Re|turn the|
|000028c0| 20 63 6f 6c 75 6d 6e 20 | 61 6e 64 20 72 6f 77 20 | column |and row |
|000028d0| 69 6e 20 50 4f 53 49 54 | 49 4f 4e 2c 20 6d 65 61 |in POSIT|ION, mea|
|000028e0| 73 75 72 65 64 20 69 6e | 20 63 68 61 72 61 63 74 |sured in| charact|
|000028f0| 65 72 73 2e 0a 50 4f 53 | 49 54 49 4f 4e 20 73 68 |ers..POS|ITION sh|
|00002900| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 20 6f |ould be |a list o|
|00002910| 66 20 74 68 65 20 66 6f | 72 6d 0a 20 20 20 28 57 |f the fo|rm. (W|
|00002920| 49 4e 44 4f 57 20 42 55 | 46 46 45 52 2d 50 4f 53 |INDOW BU|FFER-POS|
|00002930| 49 54 49 4f 4e 20 28 58 | 20 2e 20 59 29 20 54 49 |ITION (X| . Y) TI|
|00002940| 4d 45 53 54 41 4d 50 29 | 0a 61 73 20 72 65 74 75 |MESTAMP)|.as retu|
|00002950| 72 6e 65 64 20 62 79 20 | 74 68 65 20 60 65 76 65 |rned by |the `eve|
|00002960| 6e 74 2d 73 74 61 72 74 | 27 20 61 6e 64 20 60 65 |nt-start|' and `e|
|00002970| 76 65 6e 74 2d 65 6e 64 | 27 20 66 75 6e 63 74 69 |vent-end|' functi|
|00002980| 6f 6e 73 2e 0a 46 6f 72 | 20 61 20 73 63 72 6f 6c |ons..For| a scrol|
|00002990| 6c 2d 62 61 72 20 65 76 | 65 6e 74 2c 20 74 68 65 |l-bar ev|ent, the|
|000029a0| 20 72 65 73 75 6c 74 20 | 63 6f 6c 75 6d 6e 20 69 | result |column i|
|000029b0| 73 20 30 2c 20 61 6e 64 | 20 74 68 65 20 72 6f 77 |s 0, and| the row|
|000029c0| 0a 63 6f 72 72 65 73 70 | 6f 6e 64 73 20 74 6f 20 |.corresp|onds to |
|000029d0| 74 68 65 20 76 65 72 74 | 69 63 61 6c 20 70 6f 73 |the vert|ical pos|
|000029e0| 69 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 6c 69 |ition of| the cli|
|000029f0| 63 6b 20 69 6e 20 74 68 | 65 20 73 63 72 6f 6c 6c |ck in th|e scroll|
|00002a00| 20 62 61 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 | bar."])|.(defali|
|00002a10| 61 73 20 27 70 6f 73 6e | 2d 74 69 6d 65 73 74 61 |as 'posn|-timesta|
|00002a20| 6d 70 20 23 5b 28 70 6f | 73 69 74 69 6f 6e 29 20 |mp #[(po|sition) |
|00002a30| 22 c0 09 38 87 22 20 5b | 33 20 70 6f 73 69 74 69 |"..8." [|3 positi|
|00002a40| 6f 6e 5d 20 32 20 22 5c | 0a 52 65 74 75 72 6e 20 |on] 2 "\|.Return |
|00002a50| 74 68 65 20 74 69 6d 65 | 73 74 61 6d 70 20 6f 66 |the time|stamp of|
|00002a60| 20 50 4f 53 49 54 49 4f | 4e 2e 0a 50 4f 53 49 54 | POSITIO|N..POSIT|
|00002a70| 49 4f 4e 20 73 68 6f 75 | 6c 64 20 62 65 20 61 20 |ION shou|ld be a |
|00002a80| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |list of |the form|
|00002a90| 0a 20 20 20 28 57 49 4e | 44 4f 57 20 42 55 46 46 |. (WIN|DOW BUFF|
|00002aa0| 45 52 2d 50 4f 53 49 54 | 49 4f 4e 20 28 58 20 2e |ER-POSIT|ION (X .|
|00002ab0| 20 59 29 20 54 49 4d 45 | 53 54 41 4d 50 29 0a 61 | Y) TIME|STAMP).a|
|00002ac0| 73 20 72 65 74 75 72 6e | 65 64 20 62 79 20 74 68 |s return|ed by th|
|00002ad0| 65 20 60 65 76 65 6e 74 | 2d 73 74 61 72 74 27 20 |e `event|-start' |
|00002ae0| 61 6e 64 20 60 65 76 65 | 6e 74 2d 65 6e 64 27 20 |and `eve|nt-end' |
|00002af0| 66 75 6e 63 74 69 6f 6e | 73 2e 22 5d 29 0a 28 62 |function|s."]).(b|
|00002b00| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|00002b10| c4 c5 c6 5c 22 88 c4 c7 | c8 5c 22 88 c4 c9 ca 5c |...\"...|.\"....\|
|00002b20| 22 88 c4 cb cc 5c 22 88 | c4 cd ce 5c 22 88 c4 cf |"....\".|...\"...|
|00002b30| d0 5c 22 88 c4 d1 d2 5c | 22 88 c4 d3 d4 5c 22 88 |.\"....\|"....\".|
|00002b40| c4 d5 d6 5c 22 88 c4 d7 | d8 5c 22 88 c4 d9 da 5c |...\"...|.\"....\|
|00002b50| 22 88 c4 db dc 5c 22 88 | c4 dd de 5c 22 87 22 20 |"....\".|...\"." |
|00002b60| 5b 70 75 74 20 70 6f 73 | 6e 2d 74 69 6d 65 73 74 |[put pos|n-timest|
|00002b70| 61 6d 70 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |amp byte|-optimiz|
|00002b80| 65 72 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |er byte-|compile-|
|00002b90| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 20 64 65 |inline-e|xpand de|
|00002ba0| 66 61 6c 69 61 73 20 64 | 6f 74 20 70 6f 69 6e 74 |falias d|ot point|
|00002bb0| 20 64 6f 74 2d 6d 61 72 | 6b 65 72 20 70 6f 69 6e | dot-mar|ker poin|
|00002bc0| 74 2d 6d 61 72 6b 65 72 | 20 64 6f 74 2d 6d 69 6e |t-marker| dot-min|
|00002bd0| 20 70 6f 69 6e 74 2d 6d | 69 6e 20 64 6f 74 2d 6d | point-m|in dot-m|
|00002be0| 61 78 20 70 6f 69 6e 74 | 2d 6d 61 78 20 77 69 6e |ax point|-max win|
|00002bf0| 64 6f 77 2d 64 6f 74 20 | 77 69 6e 64 6f 77 2d 70 |dow-dot |window-p|
|00002c00| 6f 69 6e 74 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |oint set|-window-|
|00002c10| 64 6f 74 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 70 |dot set-|window-p|
|00002c20| 6f 69 6e 74 20 72 65 61 | 64 2d 69 6e 70 75 74 20 |oint rea|d-input |
|00002c30| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 73 65 6e 64 |read-str|ing send|
|00002c40| 2d 73 74 72 69 6e 67 20 | 70 72 6f 63 65 73 73 2d |-string |process-|
|00002c50| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 73 65 6e 64 |send-str|ing send|
|00002c60| 2d 72 65 67 69 6f 6e 20 | 70 72 6f 63 65 73 73 2d |-region |process-|
|00002c70| 73 65 6e 64 2d 72 65 67 | 69 6f 6e 20 73 68 6f 77 |send-reg|ion show|
|00002c80| 2d 62 75 66 66 65 72 20 | 73 65 74 2d 77 69 6e 64 |-buffer |set-wind|
|00002c90| 6f 77 2d 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |ow-buffe|r buffer|
|00002ca0| 2d 66 6c 75 73 68 2d 75 | 6e 64 6f 20 62 75 66 66 |-flush-u|ndo buff|
|00002cb0| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00002cc0| 65 76 61 6c 2d 63 75 72 | 72 65 6e 74 2d 62 75 66 |eval-cur|rent-buf|
|00002cd0| 66 65 72 20 65 76 61 6c | 2d 62 75 66 66 65 72 20 |fer eval|-buffer |
|00002ce0| 63 6f 6d 70 69 6c 65 64 | 2d 66 75 6e 63 74 69 6f |compiled|-functio|
|00002cf0| 6e 2d 70 20 62 79 74 65 | 2d 63 6f 64 65 2d 66 75 |n-p byte|-code-fu|
|00002d00| 6e 63 74 69 6f 6e 2d 70 | 5d 20 34 29 0a 28 64 65 |nction-p|] 4).(de|
|00002d10| 66 75 6e 20 62 61 75 64 | 2d 72 61 74 65 20 6e 69 |fun baud|-rate ni|
|00002d20| 6c 20 22 5c 0a 4f 62 73 | 6f 6c 65 74 65 20 66 75 |l "\.Obs|olete fu|
|00002d30| 6e 63 74 69 6f 6e 20 72 | 65 74 75 72 6e 69 6e 67 |nction r|eturning|
|00002d40| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 74 68 | the val|ue of th|
|00002d50| 65 20 60 62 61 75 64 2d | 72 61 74 65 27 20 76 61 |e `baud-|rate' va|
|00002d60| 72 69 61 62 6c 65 2e 0a | 50 6c 65 61 73 65 20 63 |riable..|Please c|
|00002d70| 6f 6e 76 65 72 74 20 79 | 6f 75 72 20 70 72 6f 67 |onvert y|our prog|
|00002d80| 72 61 6d 73 20 74 6f 20 | 75 73 65 20 74 68 65 20 |rams to |use the |
|00002d90| 76 61 72 69 61 62 6c 65 | 20 60 62 61 75 64 2d 72 |variable| `baud-r|
|00002da0| 61 74 65 27 20 64 69 72 | 65 63 74 6c 79 2e 22 20 |ate' dir|ectly." |
|00002db0| 62 61 75 64 2d 72 61 74 | 65 29 0a 28 62 79 74 65 |baud-rat|e).(byte|
|00002dc0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|00002dd0| 5c 22 88 c0 c5 c6 5c 22 | 88 c0 c7 c8 5c 22 88 c0 |\"....\"|....\"..|
|00002de0| c9 ca 5c 22 88 c0 cb cc | 5c 22 88 c0 cd ce 5c 22 |..\"....|\"....\"|
|00002df0| 88 c0 cf d0 5c 22 88 c0 | d1 d2 5c 22 88 c0 d3 d4 |....\"..|..\"....|
|00002e00| 5c 22 88 c0 d5 d6 4b 5c | 22 88 c0 d7 d8 4b 5c 22 |\"....K\|"....K\"|
|00002e10| 88 c0 d9 da 5c 22 88 c0 | db dc 5c 22 88 c0 dd de |....\"..|..\"....|
|00002e20| 5c 22 87 22 20 5b 64 65 | 66 61 6c 69 61 73 20 73 |\"." [de|falias s|
|00002e30| 74 72 69 6e 67 3d 20 73 | 74 72 69 6e 67 2d 65 71 |tring= s|tring-eq|
|00002e40| 75 61 6c 20 73 74 72 69 | 6e 67 3c 20 73 74 72 69 |ual stri|ng< stri|
|00002e50| 6e 67 2d 6c 65 73 73 70 | 20 6d 6f 76 65 2d 6d 61 |ng-lessp| move-ma|
|00002e60| 72 6b 65 72 20 73 65 74 | 2d 6d 61 72 6b 65 72 20 |rker set|-marker |
|00002e70| 65 71 6c 20 65 71 20 6e | 6f 74 20 6e 75 6c 6c 20 |eql eq n|ot null |
|00002e80| 72 70 6c 61 63 61 20 73 | 65 74 63 61 72 20 72 70 |rplaca s|etcar rp|
|00002e90| 6c 61 63 64 20 73 65 74 | 63 64 72 20 62 65 65 70 |lacd set|cdr beep|
|00002ea0| 20 64 69 6e 67 20 69 6e | 64 65 6e 74 2d 74 6f 2d | ding in|dent-to-|
|00002eb0| 63 6f 6c 75 6d 6e 20 69 | 6e 64 65 6e 74 2d 74 6f |column i|ndent-to|
|00002ec0| 20 62 61 63 6b 77 61 72 | 64 2d 64 65 6c 65 74 65 | backwar|d-delete|
|00002ed0| 2d 63 68 61 72 20 64 65 | 6c 65 74 65 2d 62 61 63 |-char de|lete-bac|
|00002ee0| 6b 77 61 72 64 2d 63 68 | 61 72 20 73 65 61 72 63 |kward-ch|ar searc|
|00002ef0| 68 2d 66 6f 72 77 61 72 | 64 2d 72 65 67 65 78 70 |h-forwar|d-regexp|
|00002f00| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00002f10| 72 64 20 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |rd searc|h-backwa|
|00002f20| 72 64 2d 72 65 67 65 78 | 70 20 72 65 2d 73 65 61 |rd-regex|p re-sea|
|00002f30| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 69 6e 74 |rch-back|ward int|
|00002f40| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 6e 75 6d 62 65 |-to-stri|ng numbe|
|00002f50| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 73 65 74 2d |r-to-str|ing set-|
|00002f60| 6d 61 74 63 68 2d 64 61 | 74 61 20 73 74 6f 72 65 |match-da|ta store|
|00002f70| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 73 74 72 69 |-match-d|ata stri|
|00002f80| 6e 67 2d 74 6f 2d 69 6e | 74 20 73 74 72 69 6e 67 |ng-to-in|t string|
|00002f90| 2d 74 6f 2d 6e 75 6d 62 | 65 72 5d 20 33 29 0a 28 |-to-numb|er] 3).(|
|00002fa0| 64 65 66 61 6c 69 61 73 | 20 27 72 75 6e 2d 68 6f |defalias| 'run-ho|
|00002fb0| 6f 6b 73 20 23 5b 28 26 | 72 65 73 74 20 68 6f 6f |oks #[(&|rest hoo|
|00002fc0| 6b 6c 69 73 74 29 20 22 | 08 85 43 00 08 40 19 c2 |klist) "|..C..@..|
|00002fd0| 09 21 83 3a 00 09 4a 83 | 3a 00 09 4a 89 1b 3c 83 |.!.:..J.|:..J..<.|
|00002fe0| 36 00 0b 40 c4 3d 84 36 | 00 0b 1d 0b 83 32 00 0b |6..@.=.6|.....2..|
|00002ff0| 40 20 88 0b 41 89 13 84 | 27 00 29 82 39 00 0b 20 |@ ..A...|'.).9.. |
|00003000| 88 29 29 08 41 89 10 84 | 04 00 c6 87 22 20 5b 68 |.)).A...|...." [h|
|00003010| 6f 6f 6b 6c 69 73 74 20 | 73 79 6d 20 62 6f 75 6e |ooklist |sym boun|
|00003020| 64 70 20 76 61 6c 75 65 | 20 6c 61 6d 62 64 61 20 |dp value| lambda |
|00003030| 66 75 6e 63 74 69 6f 6e | 73 20 6e 69 6c 5d 20 33 |function|s nil] 3|
|00003040| 20 22 5c 0a 54 61 6b 65 | 73 20 68 6f 6f 6b 20 6e | "\.Take|s hook n|
|00003050| 61 6d 65 73 20 61 6e 64 | 20 72 75 6e 73 20 65 61 |ames and| runs ea|
|00003060| 63 68 20 6f 6e 65 20 69 | 6e 20 74 75 72 6e 2e 20 |ch one i|n turn. |
|00003070| 20 4d 61 6a 6f 72 20 6d | 6f 64 65 20 66 75 6e 63 | Major m|ode func|
|00003080| 74 69 6f 6e 73 20 75 73 | 65 20 74 68 69 73 2e 0a |tions us|e this..|
|00003090| 45 61 63 68 20 61 72 67 | 75 6d 65 6e 74 20 73 68 |Each arg|ument sh|
|000030a0| 6f 75 6c 64 20 62 65 20 | 61 20 73 79 6d 62 6f 6c |ould be |a symbol|
|000030b0| 2c 20 61 20 68 6f 6f 6b | 20 76 61 72 69 61 62 6c |, a hook| variabl|
|000030c0| 65 2e 0a 54 68 65 73 65 | 20 73 79 6d 62 6f 6c 73 |e..These| symbols|
|000030d0| 20 61 72 65 20 70 72 6f | 63 65 73 73 65 64 20 69 | are pro|cessed i|
|000030e0| 6e 20 74 68 65 20 6f 72 | 64 65 72 20 73 70 65 63 |n the or|der spec|
|000030f0| 69 66 69 65 64 2e 0a 49 | 66 20 61 20 68 6f 6f 6b |ified..I|f a hook|
|00003100| 20 73 79 6d 62 6f 6c 20 | 68 61 73 20 61 20 6e 6f | symbol |has a no|
|00003110| 6e 2d 6e 69 6c 20 76 61 | 6c 75 65 2c 20 74 68 61 |n-nil va|lue, tha|
|00003120| 74 20 76 61 6c 75 65 20 | 6d 61 79 20 62 65 20 61 |t value |may be a|
|00003130| 20 66 75 6e 63 74 69 6f | 6e 0a 6f 72 20 61 20 6c | functio|n.or a l|
|00003140| 69 73 74 20 6f 66 20 66 | 75 6e 63 74 69 6f 6e 73 |ist of f|unctions|
|00003150| 20 74 6f 20 62 65 20 63 | 61 6c 6c 65 64 20 74 6f | to be c|alled to|
|00003160| 20 72 75 6e 20 74 68 65 | 20 68 6f 6f 6b 2e 0a 49 | run the| hook..I|
|00003170| 66 20 74 68 65 20 76 61 | 6c 75 65 20 69 73 20 61 |f the va|lue is a|
|00003180| 20 66 75 6e 63 74 69 6f | 6e 2c 20 69 74 20 69 73 | functio|n, it is|
|00003190| 20 63 61 6c 6c 65 64 20 | 77 69 74 68 20 6e 6f 20 | called |with no |
|000031a0| 61 72 67 75 6d 65 6e 74 | 73 2e 0a 49 66 20 69 74 |argument|s..If it|
|000031b0| 20 69 73 20 61 20 6c 69 | 73 74 2c 20 74 68 65 20 | is a li|st, the |
|000031c0| 65 6c 65 6d 65 6e 74 73 | 20 61 72 65 20 63 61 6c |elements| are cal|
|000031d0| 6c 65 64 2c 20 69 6e 20 | 6f 72 64 65 72 2c 20 77 |led, in |order, w|
|000031e0| 69 74 68 20 6e 6f 20 61 | 72 67 75 6d 65 6e 74 73 |ith no a|rguments|
|000031f0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00003200| 72 75 6e 2d 68 6f 6f 6b | 2d 77 69 74 68 2d 61 72 |run-hook|-with-ar|
|00003210| 67 73 20 23 5b 28 68 6f | 6f 6b 20 26 72 65 73 74 |gs #[(ho|ok &rest|
|00003220| 20 61 72 67 73 29 20 22 | c0 09 21 85 27 00 09 4a | args) "|..!.'..J|
|00003230| 85 27 00 09 4a 89 1a 3c | 83 21 00 5c 6e 40 c3 3d |.'..J..<|.!.\n@.=|
|00003240| 84 21 00 c4 c5 5c 6e 5c | 22 82 26 00 c6 5c 6e 0e |.!...\n\|".&..\n.|
|00003250| 07 5c 22 29 87 22 20 5b | 62 6f 75 6e 64 70 20 68 |.\")." [|boundp h|
|00003260| 6f 6f 6b 20 76 61 6c 75 | 65 20 6c 61 6d 62 64 61 |ook valu|e lambda|
|00003270| 20 6d 61 70 63 61 72 20 | 23 5b 28 66 6f 6f 29 20 | mapcar |#[(foo) |
|00003280| 22 c0 09 5c 6e 5c 22 87 | 22 20 5b 61 70 70 6c 79 |"..\n\".|" [apply|
|00003290| 20 66 6f 6f 20 61 72 67 | 73 5d 20 33 5d 20 61 70 | foo arg|s] 3] ap|
|000032a0| 70 6c 79 20 61 72 67 73 | 5d 20 34 20 22 5c 0a 52 |ply args|] 4 "\.R|
|000032b0| 75 6e 20 48 4f 4f 4b 20 | 77 69 74 68 20 74 68 65 |un HOOK |with the|
|000032c0| 20 73 70 65 63 69 66 69 | 65 64 20 61 72 67 75 6d | specifi|ed argum|
|000032d0| 65 6e 74 73 20 41 52 47 | 53 2e 0a 48 4f 4f 4b 20 |ents ARG|S..HOOK |
|000032e0| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 73 79 6d 62 |should b|e a symb|
|000032f0| 6f 6c 2c 20 61 20 68 6f | 6f 6b 20 76 61 72 69 61 |ol, a ho|ok varia|
|00003300| 62 6c 65 2e 20 20 49 66 | 20 48 4f 4f 4b 20 68 61 |ble. If| HOOK ha|
|00003310| 73 20 61 20 6e 6f 6e 2d | 6e 69 6c 0a 76 61 6c 75 |s a non-|nil.valu|
|00003320| 65 2c 20 74 68 61 74 20 | 76 61 6c 75 65 20 6d 61 |e, that |value ma|
|00003330| 79 20 62 65 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |y be a f|unction |
|00003340| 6f 72 20 61 20 6c 69 73 | 74 20 6f 66 20 66 75 6e |or a lis|t of fun|
|00003350| 63 74 69 6f 6e 73 20 74 | 6f 20 62 65 0a 63 61 6c |ctions t|o be.cal|
|00003360| 6c 65 64 20 74 6f 20 72 | 75 6e 20 74 68 65 20 68 |led to r|un the h|
|00003370| 6f 6f 6b 2e 20 20 49 66 | 20 74 68 65 20 76 61 6c |ook. If| the val|
|00003380| 75 65 20 69 73 20 61 20 | 66 75 6e 63 74 69 6f 6e |ue is a |function|
|00003390| 2c 20 69 74 20 69 73 20 | 63 61 6c 6c 65 64 20 77 |, it is |called w|
|000033a0| 69 74 68 0a 74 68 65 20 | 67 69 76 65 6e 20 61 72 |ith.the |given ar|
|000033b0| 67 75 6d 65 6e 74 73 20 | 61 6e 64 20 69 74 73 20 |guments |and its |
|000033c0| 72 65 74 75 72 6e 20 76 | 61 6c 75 65 20 69 73 20 |return v|alue is |
|000033d0| 72 65 74 75 72 6e 65 64 | 2e 20 20 49 66 20 69 74 |returned|. If it|
|000033e0| 20 69 73 20 61 20 6c 69 | 73 74 0a 6f 66 20 66 75 | is a li|st.of fu|
|000033f0| 6e 63 74 69 6f 6e 73 2c | 20 74 68 6f 73 65 20 66 |nctions,| those f|
|00003400| 75 6e 63 74 69 6f 6e 73 | 20 61 72 65 20 63 61 6c |unctions| are cal|
|00003410| 6c 65 64 2c 20 69 6e 20 | 6f 72 64 65 72 2c 0a 77 |led, in |order,.w|
|00003420| 69 74 68 20 74 68 65 20 | 67 69 76 65 6e 20 61 72 |ith the |given ar|
|00003430| 67 75 6d 65 6e 74 73 20 | 41 52 47 53 2e 0a 49 74 |guments |ARGS..It|
|00003440| 20 69 73 20 62 65 73 74 | 20 6e 6f 74 20 74 6f 20 | is best| not to |
|00003450| 64 65 70 65 6e 64 20 6f | 6e 20 74 68 65 20 76 61 |depend o|n the va|
|00003460| 6c 75 65 20 72 65 74 75 | 72 6e 20 62 79 20 60 72 |lue retu|rn by `r|
|00003470| 75 6e 2d 68 6f 6f 6b 2d | 77 69 74 68 2d 61 72 67 |un-hook-|with-arg|
|00003480| 73 27 2c 0a 61 73 20 74 | 68 61 74 20 6d 61 79 20 |s',.as t|hat may |
|00003490| 63 68 61 6e 67 65 2e 22 | 5d 29 0a 28 64 65 66 63 |change."|]).(defc|
|000034a0| 6f 6e 73 74 20 72 75 6e | 2d 68 6f 6f 6b 73 20 28 |onst run|-hooks (|
|000034b0| 71 75 6f 74 65 20 72 75 | 6e 2d 68 6f 6f 6b 73 29 |quote ru|n-hooks)|
|000034c0| 20 22 5c 0a 56 61 72 69 | 61 62 6c 65 20 62 79 20 | "\.Vari|able by |
|000034d0| 77 68 69 63 68 20 43 20 | 70 72 69 6d 69 74 69 76 |which C |primitiv|
|000034e0| 65 73 20 66 69 6e 64 20 | 74 68 65 20 66 75 6e 63 |es find |the func|
|000034f0| 74 69 6f 6e 20 60 72 75 | 6e 2d 68 6f 6f 6b 73 27 |tion `ru|n-hooks'|
|00003500| 2e 0a 44 6f 6e 27 74 20 | 63 68 61 6e 67 65 20 69 |..Don't |change i|
|00003510| 74 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |t.").(de|falias '|
|00003520| 61 64 64 2d 68 6f 6f 6b | 20 23 5b 28 68 6f 6f 6b |add-hook| #[(hook|
|00003530| 20 66 75 6e 63 74 69 6f | 6e 20 26 6f 70 74 69 6f | functio|n &optio|
|00003540| 6e 61 6c 20 61 70 70 65 | 6e 64 29 20 22 c0 09 21 |nal appe|nd) "..!|
|00003550| 84 5c 6e 00 09 c2 4c 88 | 09 4a 89 1b 3c 83 19 00 |.\n...L.|.J..<...|
|00003560| 0b 40 c4 3d 83 1e 00 09 | 0b 43 4c 88 29 0d 3a 83 |.@.=....|.CL.).:.|
|00003570| 2b 00 0d 09 4a 9d 82 2f | 00 0d 09 4a 3e 86 45 00 |+...J../|...J>.E.|
|00003580| 09 0e 06 83 40 00 09 4a | 0d 43 a4 82 44 00 0d 09 |....@..J|.C..D...|
|00003590| 4a 42 4c 87 22 20 5b 62 | 6f 75 6e 64 70 20 68 6f |JBL." [b|oundp ho|
|000035a0| 6f 6b 20 6e 69 6c 20 6f | 6c 64 20 6c 61 6d 62 64 |ok nil o|ld lambd|
|000035b0| 61 20 66 75 6e 63 74 69 | 6f 6e 20 61 70 70 65 6e |a functi|on appen|
|000035c0| 64 5d 20 34 20 22 5c 0a | 41 64 64 20 74 6f 20 74 |d] 4 "\.|Add to t|
|000035d0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 48 4f 4f 4b |he value| of HOOK|
|000035e0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 46 55 | the fun|ction FU|
|000035f0| 4e 43 54 49 4f 4e 2e 0a | 46 55 4e 43 54 49 4f 4e |NCTION..|FUNCTION|
|00003600| 20 69 73 20 6e 6f 74 20 | 61 64 64 65 64 20 69 66 | is not |added if|
|00003610| 20 61 6c 72 65 61 64 79 | 20 70 72 65 73 65 6e 74 | already| present|
|00003620| 2e 0a 46 55 4e 43 54 49 | 4f 4e 20 69 73 20 61 64 |..FUNCTI|ON is ad|
|00003630| 64 65 64 20 28 69 66 20 | 6e 65 63 65 73 73 61 72 |ded (if |necessar|
|00003640| 79 29 20 61 74 20 74 68 | 65 20 62 65 67 69 6e 6e |y) at th|e beginn|
|00003650| 69 6e 67 20 6f 66 20 74 | 68 65 20 68 6f 6f 6b 20 |ing of t|he hook |
|00003660| 6c 69 73 74 0a 75 6e 6c | 65 73 73 20 74 68 65 20 |list.unl|ess the |
|00003670| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |optional| argumen|
|00003680| 74 20 41 50 50 45 4e 44 | 20 69 73 20 6e 6f 6e 2d |t APPEND| is non-|
|00003690| 6e 69 6c 2c 20 69 6e 20 | 77 68 69 63 68 20 63 61 |nil, in |which ca|
|000036a0| 73 65 0a 46 55 4e 43 54 | 49 4f 4e 20 69 73 20 61 |se.FUNCT|ION is a|
|000036b0| 64 64 65 64 20 61 74 20 | 74 68 65 20 65 6e 64 2e |dded at |the end.|
|000036c0| 0a 0a 48 4f 4f 4b 20 73 | 68 6f 75 6c 64 20 62 65 |..HOOK s|hould be|
|000036d0| 20 61 20 73 79 6d 62 6f | 6c 2c 20 61 6e 64 20 46 | a symbo|l, and F|
|000036e0| 55 4e 43 54 49 4f 4e 20 | 6d 61 79 20 62 65 20 61 |UNCTION |may be a|
|000036f0| 6e 79 20 76 61 6c 69 64 | 20 66 75 6e 63 74 69 6f |ny valid| functio|
|00003700| 6e 2e 20 20 49 66 0a 48 | 4f 4f 4b 20 69 73 20 76 |n. If.H|OOK is v|
|00003710| 6f 69 64 2c 20 69 74 20 | 69 73 20 66 69 72 73 74 |oid, it |is first|
|00003720| 20 73 65 74 20 74 6f 20 | 6e 69 6c 2e 20 20 49 66 | set to |nil. If|
|00003730| 20 48 4f 4f 4b 27 73 20 | 76 61 6c 75 65 20 69 73 | HOOK's |value is|
|00003740| 20 61 20 73 69 6e 67 6c | 65 0a 66 75 6e 63 74 69 | a singl|e.functi|
|00003750| 6f 6e 2c 20 69 74 20 69 | 73 20 63 68 61 6e 67 65 |on, it i|s change|
|00003760| 64 20 74 6f 20 61 20 6c | 69 73 74 20 6f 66 20 66 |d to a l|ist of f|
|00003770| 75 6e 63 74 69 6f 6e 73 | 2e 22 5d 29 0a 28 64 65 |unctions|."]).(de|
|00003780| 66 61 6c 69 61 73 20 27 | 72 65 6d 6f 76 65 2d 68 |falias '|remove-h|
|00003790| 6f 6f 6b 20 23 5b 28 68 | 6f 6f 6b 20 66 75 6e 63 |ook #[(h|ook func|
|000037a0| 74 69 6f 6e 29 20 22 c0 | 09 21 3f 86 0f 00 09 4a |tion) ".|.!?....J|
|000037b0| 3f 86 0f 00 5c 6e 3f 3f | 85 2f 00 09 4a 89 1b 3a |?...\n??|./..J..:|
|000037c0| 83 23 00 c4 5c 6e 0b 5c | 22 13 82 2b 00 0b 5c 6e |.#..\n.\|"..+..\n|
|000037d0| 9a 83 2b 00 c5 13 09 0b | 4c 29 87 22 20 5b 62 6f |..+.....|L)." [bo|
|000037e0| 75 6e 64 70 20 68 6f 6f | 6b 20 66 75 6e 63 74 69 |undp hoo|k functi|
|000037f0| 6f 6e 20 68 6f 6f 6b 2d | 76 61 6c 75 65 20 64 65 |on hook-|value de|
|00003800| 6c 65 74 65 20 6e 69 6c | 5d 20 34 20 22 5c 0a 52 |lete nil|] 4 "\.R|
|00003810| 65 6d 6f 76 65 20 66 72 | 6f 6d 20 74 68 65 20 76 |emove fr|om the v|
|00003820| 61 6c 75 65 20 6f 66 20 | 48 4f 4f 4b 20 74 68 65 |alue of |HOOK the|
|00003830| 20 66 75 6e 63 74 69 6f | 6e 20 46 55 4e 43 54 49 | functio|n FUNCTI|
|00003840| 4f 4e 2e 0a 48 4f 4f 4b | 20 73 68 6f 75 6c 64 20 |ON..HOOK| should |
|00003850| 62 65 20 61 20 73 79 6d | 62 6f 6c 2c 20 61 6e 64 |be a sym|bol, and|
|00003860| 20 46 55 4e 43 54 49 4f | 4e 20 6d 61 79 20 62 65 | FUNCTIO|N may be|
|00003870| 20 61 6e 79 20 76 61 6c | 69 64 20 66 75 6e 63 74 | any val|id funct|
|00003880| 69 6f 6e 2e 20 20 49 66 | 0a 46 55 4e 43 54 49 4f |ion. If|.FUNCTIO|
|00003890| 4e 20 69 73 6e 27 74 20 | 74 68 65 20 76 61 6c 75 |N isn't |the valu|
|000038a0| 65 20 6f 66 20 48 4f 4f | 4b 2c 20 6f 72 2c 20 69 |e of HOO|K, or, i|
|000038b0| 66 20 46 55 4e 43 54 49 | 4f 4e 20 64 6f 65 73 6e |f FUNCTI|ON doesn|
|000038c0| 27 74 20 61 70 70 65 61 | 72 20 69 6e 20 74 68 65 |'t appea|r in the|
|000038d0| 0a 6c 69 73 74 20 6f 66 | 20 68 6f 6f 6b 73 20 74 |.list of| hooks t|
|000038e0| 6f 20 72 75 6e 20 69 6e | 20 48 4f 4f 4b 2c 20 74 |o run in| HOOK, t|
|000038f0| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 69 73 20 64 |hen noth|ing is d|
|00003900| 6f 6e 65 2e 20 20 53 65 | 65 20 60 61 64 64 2d 68 |one. Se|e `add-h|
|00003910| 6f 6f 6b 27 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ook'."])|.(defali|
|00003920| 61 73 20 27 65 76 61 6c | 2d 61 66 74 65 72 2d 6c |as 'eval|-after-l|
|00003930| 6f 61 64 20 23 5b 28 66 | 69 6c 65 20 66 6f 72 6d |oad #[(f|ile form|
|00003940| 29 20 22 c0 09 5c 6e 5c | 22 84 5c 66 00 09 43 5c |) "..\n\|".\f..C\|
|00003950| 6e 42 12 c0 09 5c 6e 5c | 22 1b 5c 66 0b 41 9d 84 |nB...\n\|".\f.A..|
|00003960| 1d 00 0b 5c 66 43 a4 88 | 29 5c 66 87 22 20 5b 61 |...\fC..|)\f." [a|
|00003970| 73 73 6f 63 20 66 69 6c | 65 20 61 66 74 65 72 2d |ssoc fil|e after-|
|00003980| 6c 6f 61 64 2d 61 6c 69 | 73 74 20 65 6c 74 20 66 |load-ali|st elt f|
|00003990| 6f 72 6d 5d 20 33 20 22 | 5c 0a 41 72 72 61 6e 67 |orm] 3 "|\.Arrang|
|000039a0| 65 20 74 68 61 74 2c 20 | 69 66 20 46 49 4c 45 20 |e that, |if FILE |
|000039b0| 69 73 20 65 76 65 72 20 | 6c 6f 61 64 65 64 2c 20 |is ever |loaded, |
|000039c0| 46 4f 52 4d 20 77 69 6c | 6c 20 62 65 20 72 75 6e |FORM wil|l be run|
|000039d0| 20 61 74 20 74 68 61 74 | 20 74 69 6d 65 2e 0a 54 | at that| time..T|
|000039e0| 68 69 73 20 6d 61 6b 65 | 73 20 6f 72 20 61 64 64 |his make|s or add|
|000039f0| 73 20 74 6f 20 61 6e 20 | 65 6e 74 72 79 20 6f 6e |s to an |entry on|
|00003a00| 20 60 61 66 74 65 72 2d | 6c 6f 61 64 2d 61 6c 69 | `after-|load-ali|
|00003a10| 73 74 27 2e 0a 49 74 20 | 64 6f 65 73 20 6e 6f 74 |st'..It |does not|
|00003a20| 68 69 6e 67 20 69 66 20 | 46 4f 52 4d 20 69 73 20 |hing if |FORM is |
|00003a30| 61 6c 72 65 61 64 79 20 | 6f 6e 20 74 68 65 20 6c |already |on the l|
|00003a40| 69 73 74 20 66 6f 72 20 | 46 49 4c 45 2e 0a 46 49 |ist for |FILE..FI|
|00003a50| 4c 45 20 73 68 6f 75 6c | 64 20 62 65 20 74 68 65 |LE shoul|d be the|
|00003a60| 20 6e 61 6d 65 20 6f 66 | 20 61 20 6c 69 62 72 61 | name of| a libra|
|00003a70| 72 79 2c 20 77 69 74 68 | 20 6e 6f 20 64 69 72 65 |ry, with| no dire|
|00003a80| 63 74 6f 72 79 20 6e 61 | 6d 65 2e 22 5d 29 0a 28 |ctory na|me."]).(|
|00003a90| 64 65 66 61 6c 69 61 73 | 20 27 65 76 61 6c 2d 6e |defalias| 'eval-n|
|00003aa0| 65 78 74 2d 61 66 74 65 | 72 2d 6c 6f 61 64 20 23 |ext-afte|r-load #|
|00003ab0| 5b 28 66 69 6c 65 29 20 | 22 c0 09 c2 20 5c 22 87 |[(file) |"... \".|
|00003ac0| 22 20 5b 65 76 61 6c 2d | 61 66 74 65 72 2d 6c 6f |" [eval-|after-lo|
|00003ad0| 61 64 20 66 69 6c 65 20 | 72 65 61 64 5d 20 33 20 |ad file |read] 3 |
|00003ae0| 22 5c 0a 52 65 61 64 20 | 74 68 65 20 66 6f 6c 6c |"\.Read |the foll|
|00003af0| 6f 77 69 6e 67 20 69 6e | 70 75 74 20 73 65 78 70 |owing in|put sexp|
|00003b00| 2c 20 61 6e 64 20 72 75 | 6e 20 69 74 20 77 68 65 |, and ru|n it whe|
|00003b10| 6e 65 76 65 72 20 46 49 | 4c 45 20 69 73 20 6c 6f |never FI|LE is lo|
|00003b20| 61 64 65 64 2e 0a 54 68 | 69 73 20 6d 61 6b 65 73 |aded..Th|is makes|
|00003b30| 20 6f 72 20 61 64 64 73 | 20 74 6f 20 61 6e 20 65 | or adds| to an e|
|00003b40| 6e 74 72 79 20 6f 6e 20 | 60 61 66 74 65 72 2d 6c |ntry on |`after-l|
|00003b50| 6f 61 64 2d 61 6c 69 73 | 74 27 2e 0a 46 49 4c 45 |oad-alis|t'..FILE|
|00003b60| 20 73 68 6f 75 6c 64 20 | 62 65 20 74 68 65 20 6e | should |be the n|
|00003b70| 61 6d 65 20 6f 66 20 61 | 20 6c 69 62 72 61 72 79 |ame of a| library|
|00003b80| 2c 20 77 69 74 68 20 6e | 6f 20 64 69 72 65 63 74 |, with n|o direct|
|00003b90| 6f 72 79 20 6e 61 6d 65 | 2e 22 5d 29 0a 28 64 65 |ory name|."]).(de|
|00003ba0| 66 61 6c 69 61 73 20 27 | 72 65 61 64 2d 71 75 6f |falias '|read-quo|
|00003bb0| 74 65 64 2d 63 68 61 72 | 20 23 5b 28 26 6f 70 74 |ted-char| #[(&opt|
|00003bc0| 69 6f 6e 61 6c 20 70 72 | 6f 6d 70 74 29 20 22 c0 |ional pr|ompt) ".|
|00003bd0| 89 c1 1a 1b 1c 5c 66 c5 | 57 83 72 00 5c 66 c0 55 |.....\f.|W.r.\f.U|
|00003be0| c1 1e 06 1e 07 0e 08 83 | 1f 00 c9 ca 0e 08 5c 22 |........|......\"|
|00003bf0| 88 cb 20 12 0e 07 83 2a | 00 c1 16 5c 66 2a 5c 6e |.. ....*|...\f*\n|
|00003c00| 83 06 00 cd 5c 6e 58 83 | 5a 00 5c 6e ce 58 83 5a |....\nX.|Z.\n.X.Z|
|00003c10| 00 0b cf 5f 5c 6e cd 5a | 5c 5c 13 5c 66 54 14 0e |..._\n.Z|\\.\fT..|
|00003c20| 08 83 06 00 c9 d0 d1 0e | 08 5c 6e 23 89 16 08 21 |........|.\n#...!|
|00003c30| 88 82 06 00 5c 66 c0 56 | 83 6a 00 5c 6e 43 16 12 |....\f.V|.j.\nC..|
|00003c40| d3 89 14 82 07 00 5c 6e | 13 d3 89 14 82 07 00 d4 |......\n|........|
|00003c50| d5 0b d6 d7 d8 5c 22 5c | 22 c0 55 84 83 00 d9 82 |.....\"\|".U.....|
|00003c60| 84 00 c0 d5 0b da 5c 22 | 5c 22 2b 87 22 20 5b 30 |......\"|\"+." [0|
|00003c70| 20 6e 69 6c 20 63 68 61 | 72 20 63 6f 64 65 20 63 | nil cha|r code c|
|00003c80| 6f 75 6e 74 20 33 20 68 | 65 6c 70 2d 66 6f 72 6d |ount 3 h|elp-form|
|00003c90| 20 69 6e 68 69 62 69 74 | 2d 71 75 69 74 20 70 72 | inhibit|-quit pr|
|00003ca0| 6f 6d 70 74 20 6d 65 73 | 73 61 67 65 20 22 25 73 |ompt mes|sage "%s|
|00003cb0| 2d 22 20 72 65 61 64 2d | 63 68 61 72 20 71 75 69 |-" read-|char qui|
|00003cc0| 74 2d 66 6c 61 67 20 34 | 38 20 35 35 20 38 20 66 |t-flag 4|8 55 8 f|
|00003cd0| 6f 72 6d 61 74 20 22 25 | 73 20 25 63 22 20 75 6e |ormat "%|s %c" un|
|00003ce0| 72 65 61 64 2d 63 6f 6d | 6d 61 6e 64 2d 65 76 65 |read-com|mand-eve|
|00003cf0| 6e 74 73 20 32 35 39 20 | 6c 6f 67 69 6f 72 20 6c |nts 259 |logior l|
|00003d00| 6f 67 61 6e 64 20 6c 73 | 68 20 31 20 32 33 20 31 |ogand ls|h 1 23 1|
|00003d10| 32 38 20 32 35 35 5d 20 | 37 20 22 5c 0a 4c 69 6b |28 255] |7 "\.Lik|
|00003d20| 65 20 60 72 65 61 64 2d | 63 68 61 72 27 2c 20 65 |e `read-|char', e|
|00003d30| 78 63 65 70 74 20 74 68 | 61 74 20 69 66 20 74 68 |xcept th|at if th|
|00003d40| 65 20 66 69 72 73 74 20 | 63 68 61 72 61 63 74 65 |e first |characte|
|00003d50| 72 20 72 65 61 64 20 69 | 73 20 61 6e 20 6f 63 74 |r read i|s an oct|
|00003d60| 61 6c 0a 64 69 67 69 74 | 2c 20 77 65 20 72 65 61 |al.digit|, we rea|
|00003d70| 64 20 75 70 20 74 6f 20 | 74 77 6f 20 6d 6f 72 65 |d up to |two more|
|00003d80| 20 6f 63 74 61 6c 20 64 | 69 67 69 74 73 20 61 6e | octal d|igits an|
|00003d90| 64 20 72 65 74 75 72 6e | 20 74 68 65 20 63 68 61 |d return| the cha|
|00003da0| 72 61 63 74 65 72 0a 72 | 65 70 72 65 73 65 6e 74 |racter.r|epresent|
|00003db0| 65 64 20 62 79 20 74 68 | 65 20 6f 63 74 61 6c 20 |ed by th|e octal |
|00003dc0| 6e 75 6d 62 65 72 20 63 | 6f 6e 73 69 73 74 69 6e |number c|onsistin|
|00003dd0| 67 20 6f 66 20 74 68 6f | 73 65 20 64 69 67 69 74 |g of tho|se digit|
|00003de0| 73 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 75 |s..Optio|nal argu|
|00003df0| 6d 65 6e 74 20 50 52 4f | 4d 50 54 20 73 70 65 63 |ment PRO|MPT spec|
|00003e00| 69 66 69 65 73 20 61 20 | 73 74 72 69 6e 67 20 74 |ifies a |string t|
|00003e10| 6f 20 75 73 65 20 74 6f | 20 70 72 6f 6d 70 74 20 |o use to| prompt |
|00003e20| 74 68 65 20 75 73 65 72 | 2e 22 5d 29 0a 28 64 65 |the user|."]).(de|
|00003e30| 66 61 6c 69 61 73 20 27 | 66 6f 72 63 65 2d 6d 6f |falias '|force-mo|
|00003e40| 64 65 2d 6c 69 6e 65 2d | 75 70 64 61 74 65 20 23 |de-line-|update #|
|00003e50| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 6c 6c 29 |[(&optio|nal all)|
|00003e60| 20 22 08 83 5c 6e 00 8a | c1 20 71 88 29 c2 c3 20 | "..\n..|. q.).. |
|00003e70| 21 87 22 20 5b 61 6c 6c | 20 6f 74 68 65 72 2d 62 |!." [all| other-b|
|00003e80| 75 66 66 65 72 20 73 65 | 74 2d 62 75 66 66 65 72 |uffer se|t-buffer|
|00003e90| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 62 75 66 66 |-modifie|d-p buff|
|00003ea0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 5d 20 32 |er-modif|ied-p] 2|
|00003eb0| 20 22 5c 0a 46 6f 72 63 | 65 20 74 68 65 20 6d 6f | "\.Forc|e the mo|
|00003ec0| 64 65 2d 6c 69 6e 65 20 | 6f 66 20 74 68 65 20 63 |de-line |of the c|
|00003ed0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 74 6f |urrent b|uffer to|
|00003ee0| 20 62 65 20 72 65 64 69 | 73 70 6c 61 79 65 64 2e | be redi|splayed.|
|00003ef0| 0a 57 69 74 68 20 6f 70 | 74 69 6f 6e 61 6c 20 6e |.With op|tional n|
|00003f00| 6f 6e 2d 6e 69 6c 20 41 | 4c 4c 2c 20 66 6f 72 63 |on-nil A|LL, forc|
|00003f10| 65 20 72 65 64 69 73 70 | 6c 61 79 20 6f 66 20 61 |e redisp|lay of a|
|00003f20| 6c 6c 20 6d 6f 64 65 2d | 6c 69 6e 65 73 2e 22 5d |ll mode-|lines."]|
|00003f30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 6f 6d |).(defal|ias 'mom|
|00003f40| 65 6e 74 61 72 79 2d 73 | 74 72 69 6e 67 2d 64 69 |entary-s|tring-di|
|00003f50| 73 70 6c 61 79 20 23 5b | 28 73 74 72 69 6e 67 20 |splay #[|(string |
|00003f60| 70 6f 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 65 78 |pos &opt|ional ex|
|00003f70| 69 74 2d 63 68 61 72 20 | 6d 65 73 73 61 67 65 29 |it-char |message)|
|00003f80| 20 22 08 84 06 00 c1 10 | c2 c3 c4 20 0d c2 1e 06 | "......|... ....|
|00003f90| 1e 07 1e 08 1e 09 1e 5c | 6e cb 8e 8a 0e 5c 66 62 |.......\|n....\fb|
|00003fa0| 88 c2 15 cd 0e 0e 21 88 | 60 16 06 cf 20 0e 06 56 |......!.|`... ..V|
|00003fb0| 83 36 00 d0 d1 20 d2 a5 | 21 88 d3 d4 21 88 60 0e |.6... ..|!...!.`.|
|00003fc0| 5c 66 56 83 49 00 0e 5c | 66 62 88 d0 d4 21 88 29 |\fV.I..\|fb...!.)|
|00003fd0| d5 0e 15 86 51 00 d6 d7 | 08 21 5c 22 88 d8 20 89 |....Q...|.!\".. .|
|00003fe0| 1e 19 08 3d 86 66 00 0e | 19 43 89 16 1a 2e 07 87 |...=.f..|.C......|
|00003ff0| 22 20 5b 65 78 69 74 2d | 63 68 61 72 20 33 32 20 |" [exit-|char 32 |
|00004000| 6e 69 6c 20 74 20 62 75 | 66 66 65 72 2d 6d 6f 64 |nil t bu|ffer-mod|
|00004010| 69 66 69 65 64 2d 70 20 | 62 75 66 66 65 72 2d 66 |ified-p |buffer-f|
|00004020| 69 6c 65 2d 6e 61 6d 65 | 20 69 6e 73 65 72 74 2d |ile-name| insert-|
|00004030| 65 6e 64 20 6e 61 6d 65 | 20 6d 6f 64 69 66 69 65 |end name| modifie|
|00004040| 64 20 62 75 66 66 65 72 | 2d 75 6e 64 6f 2d 6c 69 |d buffer|-undo-li|
|00004050| 73 74 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |st buffe|r-read-o|
|00004060| 6e 6c 79 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |nly ((by|te-code |
|00004070| 22 08 83 5c 6e 00 8a 09 | 08 7c 88 29 5c 6e 13 c4 |"..\n...|.|.)\n..|
|00004080| 0d 21 87 22 20 5b 69 6e | 73 65 72 74 2d 65 6e 64 |.!." [in|sert-end|
|00004090| 20 70 6f 73 20 6e 61 6d | 65 20 62 75 66 66 65 72 | pos nam|e buffer|
|000040a0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 73 65 74 2d 62 |-file-na|me set-b|
|000040b0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000040c0| 20 6d 6f 64 69 66 69 65 | 64 5d 20 32 29 29 20 70 | modifie|d] 2)) p|
|000040d0| 6f 73 20 69 6e 73 65 72 | 74 2d 62 65 66 6f 72 65 |os inser|t-before|
|000040e0| 2d 6d 61 72 6b 65 72 73 | 20 73 74 72 69 6e 67 20 |-markers| string |
|000040f0| 77 69 6e 64 6f 77 2d 65 | 6e 64 20 72 65 63 65 6e |window-e|nd recen|
|00004100| 74 65 72 20 77 69 6e 64 | 6f 77 2d 68 65 69 67 68 |ter wind|ow-heigh|
|00004110| 74 20 32 20 6d 6f 76 65 | 2d 74 6f 2d 77 69 6e 64 |t 2 move|-to-wind|
|00004120| 6f 77 2d 6c 69 6e 65 20 | 30 20 6d 65 73 73 61 67 |ow-line |0 messag|
|00004130| 65 20 22 54 79 70 65 20 | 25 73 20 74 6f 20 63 6f |e "Type |%s to co|
|00004140| 6e 74 69 6e 75 65 20 65 | 64 69 74 69 6e 67 2e 22 |ntinue e|diting."|
|00004150| 20 73 69 6e 67 6c 65 2d | 6b 65 79 2d 64 65 73 63 | single-|key-desc|
|00004160| 72 69 70 74 69 6f 6e 20 | 72 65 61 64 2d 65 76 65 |ription |read-eve|
|00004170| 6e 74 20 63 68 61 72 20 | 75 6e 72 65 61 64 2d 63 |nt char |unread-c|
|00004180| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 73 5d 20 36 |ommand-e|vents] 6|
|00004190| 20 22 5c 0a 4d 6f 6d 65 | 6e 74 61 72 69 6c 79 20 | "\.Mome|ntarily |
|000041a0| 64 69 73 70 6c 61 79 20 | 53 54 52 49 4e 47 20 69 |display |STRING i|
|000041b0| 6e 20 74 68 65 20 62 75 | 66 66 65 72 20 61 74 20 |n the bu|ffer at |
|000041c0| 50 4f 53 2e 0a 44 69 73 | 70 6c 61 79 20 72 65 6d |POS..Dis|play rem|
|000041d0| 61 69 6e 73 20 75 6e 74 | 69 6c 20 6e 65 78 74 20 |ains unt|il next |
|000041e0| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 74 79 70 |characte|r is typ|
|000041f0| 65 64 2e 0a 49 66 20 74 | 68 65 20 63 68 61 72 20 |ed..If t|he char |
|00004200| 69 73 20 45 58 49 54 2d | 43 48 41 52 20 28 6f 70 |is EXIT-|CHAR (op|
|00004210| 74 69 6f 6e 61 6c 20 74 | 68 69 72 64 20 61 72 67 |tional t|hird arg|
|00004220| 2c 20 64 65 66 61 75 6c | 74 20 69 73 20 53 50 43 |, defaul|t is SPC|
|00004230| 29 20 69 74 20 69 73 20 | 73 77 61 6c 6c 6f 77 65 |) it is |swallowe|
|00004240| 64 3b 0a 6f 74 68 65 72 | 77 69 73 65 20 69 74 20 |d;.other|wise it |
|00004250| 69 73 20 74 68 65 6e 20 | 61 76 61 69 6c 61 62 6c |is then |availabl|
|00004260| 65 20 61 73 20 69 6e 70 | 75 74 20 28 61 73 20 61 |e as inp|ut (as a|
|00004270| 20 63 6f 6d 6d 61 6e 64 | 20 69 66 20 6e 6f 74 68 | command| if noth|
|00004280| 69 6e 67 20 65 6c 73 65 | 29 2e 0a 44 69 73 70 6c |ing else|)..Displ|
|00004290| 61 79 20 4d 45 53 53 41 | 47 45 20 28 6f 70 74 69 |ay MESSA|GE (opti|
|000042a0| 6f 6e 61 6c 20 66 6f 75 | 72 74 68 20 61 72 67 29 |onal fou|rth arg)|
|000042b0| 20 69 6e 20 74 68 65 20 | 65 63 68 6f 20 61 72 65 | in the |echo are|
|000042c0| 61 2e 0a 49 66 20 4d 45 | 53 53 41 47 45 20 69 73 |a..If ME|SSAGE is|
|000042d0| 20 6e 69 6c 2c 20 69 6e | 73 74 72 75 63 74 69 6f | nil, in|structio|
|000042e0| 6e 73 20 74 6f 20 74 79 | 70 65 20 45 58 49 54 2d |ns to ty|pe EXIT-|
|000042f0| 43 48 41 52 20 61 72 65 | 20 64 69 73 70 6c 61 79 |CHAR are| display|
|00004300| 65 64 20 74 68 65 72 65 | 2e 22 5d 29 0a 28 64 65 |ed there|."]).(de|
|00004310| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 69 67 |falias (|quote ig|
|00004320| 6e 6f 72 65 29 20 28 71 | 75 6f 74 65 20 28 6c 61 |nore) (q|uote (la|
|00004330| 6d 62 64 61 20 28 26 72 | 65 73 74 20 69 67 6e 6f |mbda (&r|est igno|
|00004340| 72 65 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |re) (int|eractive|
|00004350| 29 29 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |)))).(de|falias '|
|00004360| 65 72 72 6f 72 20 23 5b | 28 26 72 65 73 74 20 61 |error #[|(&rest a|
|00004370| 72 67 73 29 20 22 c0 c1 | c2 c3 5c 66 5c 22 43 5c |rgs) "..|..\f\"C\|
|00004380| 22 88 82 00 00 22 20 5b | 73 69 67 6e 61 6c 20 65 |"...." [|signal e|
|00004390| 72 72 6f 72 20 61 70 70 | 6c 79 20 66 6f 72 6d 61 |rror app|ly forma|
|000043a0| 74 20 61 72 67 73 5d 20 | 35 20 22 5c 0a 53 69 67 |t args] |5 "\.Sig|
|000043b0| 6e 61 6c 20 61 6e 20 65 | 72 72 6f 72 2c 20 6d 61 |nal an e|rror, ma|
|000043c0| 6b 69 6e 67 20 65 72 72 | 6f 72 20 6d 65 73 73 61 |king err|or messa|
|000043d0| 67 65 20 62 79 20 70 61 | 73 73 69 6e 67 20 61 6c |ge by pa|ssing al|
|000043e0| 6c 20 61 72 67 73 20 74 | 6f 20 60 66 6f 72 6d 61 |l args t|o `forma|
|000043f0| 74 27 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t'."]).(|defalias|
|00004400| 20 28 71 75 6f 74 65 20 | 75 73 65 72 2d 6f 72 69 | (quote |user-ori|
|00004410| 67 69 6e 61 6c 2d 6c 6f | 67 69 6e 2d 6e 61 6d 65 |ginal-lo|gin-name|
|00004420| 29 20 28 71 75 6f 74 65 | 20 75 73 65 72 2d 6c 6f |) (quote| user-lo|
|00004430| 67 69 6e 2d 6e 61 6d 65 | 29 29 0a 28 64 65 66 61 |gin-name|)).(defa|
|00004440| 6c 69 61 73 20 27 73 74 | 61 72 74 2d 70 72 6f 63 |lias 'st|art-proc|
|00004450| 65 73 73 2d 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |ess-shel|l-comman|
|00004460| 64 20 23 5b 28 6e 61 6d | 65 20 62 75 66 66 65 72 |d #[(nam|e buffer|
|00004470| 20 26 72 65 73 74 20 61 | 72 67 73 29 20 22 08 c1 | &rest a|rgs) "..|
|00004480| 3d 83 0e 00 c2 c3 5c 66 | 0d 0e 06 24 87 c3 5c 66 |=.....\f|...$..\f|
|00004490| 0d 0e 07 c8 c9 ca cb 0e | 06 cc 23 50 25 87 22 20 |........|..#P%." |
|000044a0| 5b 73 79 73 74 65 6d 2d | 74 79 70 65 20 76 61 78 |[system-|type vax|
|000044b0| 2d 76 6d 73 20 61 70 70 | 6c 79 20 73 74 61 72 74 |-vms app|ly start|
|000044c0| 2d 70 72 6f 63 65 73 73 | 20 6e 61 6d 65 20 62 75 |-process| name bu|
|000044d0| 66 66 65 72 20 61 72 67 | 73 20 73 68 65 6c 6c 2d |ffer arg|s shell-|
|000044e0| 66 69 6c 65 2d 6e 61 6d | 65 20 22 2d 63 22 20 22 |file-nam|e "-c" "|
|000044f0| 65 78 65 63 20 22 20 6d | 61 70 63 6f 6e 63 61 74 |exec " m|apconcat|
|00004500| 20 69 64 65 6e 74 69 74 | 79 20 22 20 22 5d 20 31 | identit|y " "] 1|
|00004510| 30 20 22 5c 0a 53 74 61 | 72 74 20 61 20 70 72 6f |0 "\.Sta|rt a pro|
|00004520| 67 72 61 6d 20 69 6e 20 | 61 20 73 75 62 70 72 6f |gram in |a subpro|
|00004530| 63 65 73 73 2e 20 20 52 | 65 74 75 72 6e 20 74 68 |cess. R|eturn th|
|00004540| 65 20 70 72 6f 63 65 73 | 73 20 6f 62 6a 65 63 74 |e proces|s object|
|00004550| 20 66 6f 72 20 69 74 2e | 0a 41 72 67 73 20 61 72 | for it.|.Args ar|
|00004560| 65 20 4e 41 4d 45 20 42 | 55 46 46 45 52 20 43 4f |e NAME B|UFFER CO|
|00004570| 4d 4d 41 4e 44 20 26 72 | 65 73 74 20 43 4f 4d 4d |MMAND &r|est COMM|
|00004580| 41 4e 44 2d 41 52 47 53 | 2e 0a 4e 41 4d 45 20 69 |AND-ARGS|..NAME i|
|00004590| 73 20 6e 61 6d 65 20 66 | 6f 72 20 70 72 6f 63 65 |s name f|or proce|
|000045a0| 73 73 2e 20 20 49 74 20 | 69 73 20 6d 6f 64 69 66 |ss. It |is modif|
|000045b0| 69 65 64 20 69 66 20 6e | 65 63 65 73 73 61 72 79 |ied if n|ecessary|
|000045c0| 20 74 6f 20 6d 61 6b 65 | 20 69 74 20 75 6e 69 71 | to make| it uniq|
|000045d0| 75 65 2e 0a 42 55 46 46 | 45 52 20 69 73 20 74 68 |ue..BUFF|ER is th|
|000045e0| 65 20 62 75 66 66 65 72 | 20 6f 72 20 28 62 75 66 |e buffer| or (buf|
|000045f0| 66 65 72 2d 6e 61 6d 65 | 29 20 74 6f 20 61 73 73 |fer-name|) to ass|
|00004600| 6f 63 69 61 74 65 20 77 | 69 74 68 20 74 68 65 20 |ociate w|ith the |
|00004610| 70 72 6f 63 65 73 73 2e | 0a 20 50 72 6f 63 65 73 |process.|. Proces|
|00004620| 73 20 6f 75 74 70 75 74 | 20 67 6f 65 73 20 61 74 |s output| goes at|
|00004630| 20 65 6e 64 20 6f 66 20 | 74 68 61 74 20 62 75 66 | end of |that buf|
|00004640| 66 65 72 2c 20 75 6e 6c | 65 73 73 20 79 6f 75 20 |fer, unl|ess you |
|00004650| 73 70 65 63 69 66 79 0a | 20 61 6e 20 6f 75 74 70 |specify.| an outp|
|00004660| 75 74 20 73 74 72 65 61 | 6d 20 6f 72 20 66 69 6c |ut strea|m or fil|
|00004670| 74 65 72 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |ter func|tion to |
|00004680| 68 61 6e 64 6c 65 20 74 | 68 65 20 6f 75 74 70 75 |handle t|he outpu|
|00004690| 74 2e 0a 20 42 55 46 46 | 45 52 20 6d 61 79 20 62 |t.. BUFF|ER may b|
|000046a0| 65 20 61 6c 73 6f 20 6e | 69 6c 2c 20 6d 65 61 6e |e also n|il, mean|
|000046b0| 69 6e 67 20 74 68 61 74 | 20 74 68 69 73 20 70 72 |ing that| this pr|
|000046c0| 6f 63 65 73 73 20 69 73 | 20 6e 6f 74 20 61 73 73 |ocess is| not ass|
|000046d0| 6f 63 69 61 74 65 64 0a | 20 77 69 74 68 20 61 6e |ociated.| with an|
|000046e0| 79 20 62 75 66 66 65 72 | 0a 54 68 69 72 64 20 61 |y buffer|.Third a|
|000046f0| 72 67 20 69 73 20 63 6f | 6d 6d 61 6e 64 20 6e 61 |rg is co|mmand na|
|00004700| 6d 65 2c 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |me, the |name of |
|00004710| 61 20 73 68 65 6c 6c 20 | 63 6f 6d 6d 61 6e 64 2e |a shell |command.|
|00004720| 0a 52 65 6d 61 69 6e 69 | 6e 67 20 61 72 67 75 6d |.Remaini|ng argum|
|00004730| 65 6e 74 73 20 61 72 65 | 20 74 68 65 20 61 72 67 |ents are| the arg|
|00004740| 75 6d 65 6e 74 73 20 66 | 6f 72 20 74 68 65 20 63 |uments f|or the c|
|00004750| 6f 6d 6d 61 6e 64 2e 0a | 57 69 6c 64 63 61 72 64 |ommand..|Wildcard|
|00004760| 73 20 61 6e 64 20 72 65 | 64 69 72 65 63 74 69 6f |s and re|directio|
|00004770| 6e 20 61 72 65 20 68 61 | 6e 64 6c 65 64 20 61 73 |n are ha|ndled as|
|00004780| 20 75 73 75 61 6c 20 69 | 6e 20 74 68 65 20 73 68 | usual i|n the sh|
|00004790| 65 6c 6c 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ell."]).|(defalia|
|000047a0| 73 20 27 73 61 76 65 2d | 6d 61 74 63 68 2d 64 61 |s 'save-|match-da|
|000047b0| 74 61 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |ta '(mac|ro . #[(|
|000047c0| 26 72 65 73 74 20 62 6f | 64 79 29 20 22 c0 c1 21 |&rest bo|dy) "..!|
|000047d0| 1a c3 5c 6e c4 44 43 c5 | c6 0e 07 42 c8 5c 6e 44 |..\n.DC.|...B.\nD|
|000047e0| 45 45 29 87 22 20 5b 6d | 61 6b 65 2d 73 79 6d 62 |EE)." [m|ake-symb|
|000047f0| 6f 6c 20 22 6d 61 74 63 | 68 2d 64 61 74 61 22 20 |ol "matc|h-data" |
|00004800| 6f 72 69 67 69 6e 61 6c | 20 6c 65 74 20 28 6d 61 |original| let (ma|
|00004810| 74 63 68 2d 64 61 74 61 | 29 20 75 6e 77 69 6e 64 |tch-data|) unwind|
|00004820| 2d 70 72 6f 74 65 63 74 | 20 70 72 6f 67 6e 20 62 |-protect| progn b|
|00004830| 6f 64 79 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |ody stor|e-match-|
|00004840| 64 61 74 61 5d 20 36 20 | 22 5c 0a 45 78 65 63 75 |data] 6 |"\.Execu|
|00004850| 74 65 20 74 68 65 20 42 | 4f 44 59 20 66 6f 72 6d |te the B|ODY form|
|00004860| 73 2c 20 72 65 73 74 6f | 72 69 6e 67 20 74 68 65 |s, resto|ring the|
|00004870| 20 67 6c 6f 62 61 6c 20 | 76 61 6c 75 65 20 6f 66 | global |value of|
|00004880| 20 74 68 65 20 6d 61 74 | 63 68 20 64 61 74 61 2e | the mat|ch data.|
|00004890| 22 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |"])).(de|falias '|
|000048a0| 73 68 65 6c 6c 2d 71 75 | 6f 74 65 2d 61 72 67 75 |shell-qu|ote-argu|
|000048b0| 6d 65 6e 74 20 23 5b 28 | 61 72 67 75 6d 65 6e 74 |ment #[(|argument|
|000048c0| 29 20 22 c0 c1 c2 1b 1c | 1d c6 c7 0e 08 5c 66 23 |) ".....|.....\f#|
|000048d0| 83 27 00 c1 94 13 0d 0e | 08 5c 66 0b 4f c9 0e 08 |.'......|.\f.O...|
|000048e0| 0b 89 54 4f 52 15 0b 54 | 14 82 06 00 0d 0e 08 5c |..TOR..T|.......\|
|000048f0| 66 c2 4f 50 2b 87 22 20 | 5b 22 22 20 30 20 6e 69 |f.OP+." |["" 0 ni|
|00004900| 6c 20 65 6e 64 20 73 74 | 61 72 74 20 72 65 73 75 |l end st|art resu|
|00004910| 6c 74 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |lt strin|g-match |
|00004920| 22 5b 5e 2d 30 2d 39 61 | 2d 7a 41 2d 5a 5f 2e 2f |"[^-0-9a|-zA-Z_./|
|00004930| 5d 22 20 61 72 67 75 6d | 65 6e 74 20 22 5c 5c 22 |]" argum|ent "\\"|
|00004940| 5d 20 36 20 22 5c 0a 51 | 75 6f 74 65 20 61 6e 20 |] 6 "\.Q|uote an |
|00004950| 61 72 67 75 6d 65 6e 74 | 20 66 6f 72 20 70 61 73 |argument| for pas|
|00004960| 73 69 6e 67 20 61 73 20 | 61 72 67 75 6d 65 6e 74 |sing as |argument|
|00004970| 20 74 6f 20 61 6e 20 69 | 6e 66 65 72 69 6f 72 20 | to an i|nferior |
|00004980| 73 68 65 6c 6c 2e 22 5d | 29 0a 28 64 65 66 61 6c |shell."]|).(defal|
|00004990| 69 61 73 20 27 6d 61 6b | 65 2d 73 79 6e 74 61 78 |ias 'mak|e-syntax|
|000049a0| 2d 74 61 62 6c 65 20 23 | 5b 28 26 6f 70 74 69 6f |-table #|[(&optio|
|000049b0| 6e 61 6c 20 6f 6c 64 74 | 61 62 6c 65 29 20 22 08 |nal oldt|able) ".|
|000049c0| 83 08 00 c1 08 21 87 c1 | 20 c2 1b 1c c5 13 c5 c6 |.....!..| .......|
|000049d0| 58 83 21 00 5c 66 0b c7 | 49 88 0b 54 89 13 82 10 |X.!.\f..|I..T....|
|000049e0| 00 c8 13 c8 c9 58 83 35 | 00 5c 66 0b c7 49 88 0b |.....X.5|.\f..I..|
|000049f0| 54 89 13 82 24 00 ca 13 | ca cb 58 83 49 00 5c 66 |T...$...|..X.I.\f|
|00004a00| 0b c7 49 88 0b 54 89 13 | 82 38 00 cc 13 cc cd 58 |..I..T..|.8.....X|
|00004a10| 83 5d 00 5c 66 0b c7 49 | 88 0b 54 89 13 82 4c 00 |.].\f..I|..T...L.|
|00004a20| 5c 66 2a 87 22 20 5b 6f | 6c 64 74 61 62 6c 65 20 |\f*." [o|ldtable |
|00004a30| 63 6f 70 79 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |copy-syn|tax-tabl|
|00004a40| 65 20 6e 69 6c 20 69 20 | 74 61 62 6c 65 20 30 20 |e nil i |table 0 |
|00004a50| 33 31 20 31 33 20 36 35 | 20 39 30 20 39 37 20 31 |31 13 65| 90 97 1|
|00004a60| 32 32 20 31 32 38 20 32 | 35 35 5d 20 34 20 22 5c |22 128 2|55] 4 "\|
|00004a70| 0a 52 65 74 75 72 6e 20 | 61 20 6e 65 77 20 73 79 |.Return |a new sy|
|00004a80| 6e 74 61 78 20 74 61 62 | 6c 65 2e 0a 49 74 20 69 |ntax tab|le..It i|
|00004a90| 6e 68 65 72 69 74 73 20 | 61 6c 6c 20 6c 65 74 74 |nherits |all lett|
|00004aa0| 65 72 73 20 61 6e 64 20 | 63 6f 6e 74 72 6f 6c 20 |ers and |control |
|00004ab0| 63 68 61 72 61 63 74 65 | 72 73 20 66 72 6f 6d 20 |characte|rs from |
|00004ac0| 74 68 65 20 73 74 61 6e | 64 61 72 64 0a 73 79 6e |the stan|dard.syn|
|00004ad0| 74 61 78 20 74 61 62 6c | 65 3b 20 6f 74 68 65 72 |tax tabl|e; other|
|00004ae0| 20 63 68 61 72 61 63 74 | 65 72 73 20 61 72 65 20 | charact|ers are |
|00004af0| 63 6f 70 69 65 64 20 66 | 72 6f 6d 20 74 68 65 20 |copied f|rom the |
|00004b00| 73 74 61 6e 64 61 72 64 | 20 73 79 6e 74 61 78 20 |standard| syntax |
|00004b10| 74 61 62 6c 65 2e 22 5d | 29 0a |table."]|). |
+--------+-------------------------+-------------------------+--------+--------+
