/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / avoid.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 31 3a 31 | 32 20 31 39 39 35 0a 3b | 14:11:1|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 61 | 63 6b 61 67 65 73 2f 61 |/lisp/pa|ckages/a|
|00000090| 76 6f 69 64 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |void.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 70 72 6f 76 |cs 19.")|)..(prov|
|000001f0| 69 64 65 20 27 61 76 6f | 69 64 29 0a 28 64 65 66 |ide 'avo|id).(def|
|00000200| 76 61 72 20 6d 6f 75 73 | 65 2d 61 76 6f 69 64 61 |var mous|e-avoida|
|00000210| 6e 63 65 2d 6d 6f 64 65 | 20 6e 69 6c 20 22 5c 0a |nce-mode| nil "\.|
|00000220| 56 61 6c 75 65 20 69 73 | 20 74 20 6f 72 20 61 20 |Value is| t or a |
|00000230| 73 79 6d 62 6f 6c 20 69 | 66 20 74 68 65 20 6d 6f |symbol i|f the mo|
|00000240| 75 73 65 20 70 6f 69 6e | 74 65 72 20 73 68 6f 75 |use poin|ter shou|
|00000250| 6c 64 20 61 76 6f 69 64 | 20 74 68 65 20 63 75 72 |ld avoid| the cur|
|00000260| 73 6f 72 2e 0a 53 65 65 | 20 66 75 6e 63 74 69 6f |sor..See| functio|
|00000270| 6e 20 60 6d 6f 75 73 65 | 2d 61 76 6f 69 64 61 6e |n `mouse|-avoidan|
|00000280| 63 65 2d 6d 6f 64 65 27 | 20 66 6f 72 20 70 6f 73 |ce-mode'| for pos|
|00000290| 73 69 62 6c 65 20 76 61 | 6c 75 65 73 2e 20 20 43 |sible va|lues.  C|
|000002a0| 68 61 6e 67 69 6e 67 20 | 74 68 69 73 0a 76 61 72 |hanging |this.var|
|000002b0| 69 61 62 6c 65 20 69 73 | 20 4e 4f 54 20 74 68 65 |iable is| NOT the|
|000002c0| 20 72 65 63 6f 6d 6d 65 | 6e 64 65 64 20 77 61 79 | recomme|nded way|
|000002d0| 20 74 6f 20 63 68 61 6e | 67 65 20 6d 6f 64 65 73 | to chan|ge modes|
|000002e0| 3b 20 75 73 65 20 74 68 | 61 74 20 66 75 6e 63 74 |; use th|at funct|
|000002f0| 69 6f 6e 20 0a 69 6e 73 | 74 65 61 64 2e 22 29 0a |ion .ins|tead.").|
|00000300| 28 64 65 66 76 61 72 20 | 6d 6f 75 73 65 2d 61 76 |(defvar |mouse-av|
|00000310| 6f 69 64 61 6e 63 65 2d | 6e 75 64 67 65 2d 64 69 |oidance-|nudge-di|
|00000320| 73 74 20 31 35 20 22 5c | 0a 2a 41 76 65 72 61 67 |st 15 "\|.*Averag|
|00000330| 65 20 64 69 73 74 61 6e | 63 65 20 74 68 61 74 20 |e distan|ce that |
|00000340| 6d 6f 75 73 65 20 77 69 | 6c 6c 20 62 65 20 6d 6f |mouse wi|ll be mo|
|00000350| 76 65 64 20 77 68 65 6e | 20 61 70 70 72 6f 61 63 |ved when| approac|
|00000360| 68 65 64 20 62 79 20 63 | 75 72 73 6f 72 2e 0a 4f |hed by c|ursor..O|
|00000370| 6e 6c 79 20 61 70 70 6c | 69 65 73 20 69 6e 20 6d |nly appl|ies in m|
|00000380| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 6d |ouse-avo|idance-m|
|00000390| 6f 64 65 20 60 6a 75 6d | 70 27 20 61 6e 64 20 69 |ode `jum|p' and i|
|000003a0| 74 73 20 64 65 72 69 76 | 61 74 69 76 65 73 2e 0a |ts deriv|atives..|
|000003b0| 46 6f 72 20 62 65 73 74 | 20 72 65 73 75 6c 74 73 |For best| results|
|000003c0| 20 6d 61 6b 65 20 74 68 | 69 73 20 6c 61 72 67 65 | make th|is large|
|000003d0| 72 20 74 68 61 6e 20 60 | 6d 6f 75 73 65 2d 61 76 |r than `|mouse-av|
|000003e0| 6f 69 64 61 6e 63 65 2d | 74 68 72 65 73 68 6f 6c |oidance-|threshol|
|000003f0| 64 27 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 6f |d'.").(d|efvar mo|
|00000400| 75 73 65 2d 61 76 6f 69 | 64 61 6e 63 65 2d 6e 75 |use-avoi|dance-nu|
|00000410| 64 67 65 2d 76 61 72 20 | 31 30 20 22 5c 0a 2a 56 |dge-var |10 "\.*V|
|00000420| 61 72 69 61 62 69 6c 69 | 74 79 20 6f 66 20 60 6d |ariabili|ty of `m|
|00000430| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 6e |ouse-avo|idance-n|
|00000440| 75 64 67 65 2d 64 69 73 | 74 27 20 28 77 68 69 63 |udge-dis|t' (whic|
|00000450| 68 20 73 65 65 29 2e 22 | 29 0a 28 64 65 66 76 61 |h see)."|).(defva|
|00000460| 72 20 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 |r mouse-|avoidanc|
|00000470| 65 2d 61 6e 69 6d 61 74 | 69 6f 6e 2d 64 65 6c 61 |e-animat|ion-dela|
|00000480| 79 20 30 2e 30 31 20 22 | 5c 0a 44 65 6c 61 79 20 |y 0.01 "|\.Delay |
|00000490| 62 65 74 77 65 65 6e 20 | 61 6e 69 6d 61 74 69 6f |between |animatio|
|000004a0| 6e 20 73 74 65 70 73 2c | 20 69 6e 20 73 65 63 6f |n steps,| in seco|
|000004b0| 6e 64 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |nds.").(|defvar m|
|000004c0| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 74 |ouse-avo|idance-t|
|000004d0| 68 72 65 73 68 6f 6c 64 | 20 35 20 22 5c 0a 2a 4d |hreshold| 5 "\.*M|
|000004e0| 6f 75 73 65 2d 70 6f 69 | 6e 74 65 72 27 73 20 66 |ouse-poi|nter's f|
|000004f0| 6c 69 67 68 74 20 64 69 | 73 74 61 6e 63 65 2e 0a |light di|stance..|
|00000500| 49 66 20 74 68 65 20 63 | 75 72 73 6f 72 20 67 65 |If the c|ursor ge|
|00000510| 74 73 20 63 6c 6f 73 65 | 72 20 74 68 61 6e 20 74 |ts close|r than t|
|00000520| 68 69 73 2c 20 74 68 65 | 20 6d 6f 75 73 65 20 70 |his, the| mouse p|
|00000530| 6f 69 6e 74 65 72 20 77 | 69 6c 6c 20 6d 6f 76 65 |ointer w|ill move|
|00000540| 20 61 77 61 79 2e 0a 4f | 6e 6c 79 20 61 70 70 6c | away..O|nly appl|
|00000550| 69 65 73 20 69 6e 20 6d | 6f 75 73 65 2d 61 76 6f |ies in m|ouse-avo|
|00000560| 69 64 61 6e 63 65 2d 6d | 6f 64 65 73 20 60 61 6e |idance-m|odes `an|
|00000570| 69 6d 61 74 65 27 20 61 | 6e 64 20 60 6a 75 6d 70 |imate' a|nd `jump|
|00000580| 27 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |'.").(by|te-code |
|00000590| 22 c0 c1 21 ac 82 c2 11 | c0 c3 21 ac 82 c2 13 c0 |"..!....|..!.....|
|000005a0| c4 21 ac 82 c5 14 c2 87 | 22 20 5b 62 6f 75 6e 64 |.!......|" [bound|
|000005b0| 70 20 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 |p mouse-|avoidanc|
|000005c0| 65 2d 73 74 61 74 65 20 | 6e 69 6c 20 6d 6f 75 73 |e-state |nil mous|
|000005d0| 65 2d 61 76 6f 69 64 61 | 6e 63 65 2d 70 6f 69 6e |e-avoida|nce-poin|
|000005e0| 74 65 72 2d 73 68 61 70 | 65 73 20 6d 6f 75 73 65 |ter-shap|es mouse|
|000005f0| 2d 61 76 6f 69 64 61 6e | 63 65 2d 6e 2d 70 6f 69 |-avoidan|ce-n-poi|
|00000600| 6e 74 65 72 2d 73 68 61 | 70 65 73 20 30 5d 20 32 |nter-sha|pes 0] 2|
|00000610| 29 0a 28 66 73 65 74 20 | 27 6d 6f 75 73 65 2d 61 |).(fset |'mouse-a|
|00000620| 76 6f 69 64 61 6e 63 65 | 2d 70 6f 69 6e 74 2d 70 |voidance|-point-p|
|00000630| 6f 73 69 74 69 6f 6e 20 | 23 5b 6e 69 6c 20 22 c0 |osition |#[nil ".|
|00000640| 20 19 60 1a 69 1b c4 1d | c6 09 5c 6e 5c 22 15 c7 | .`.i...|..\n\"..|
|00000650| 20 0b 0d 2c 42 42 87 22 | 20 5b 77 69 6e 64 6f 77 | ..,BB."| [window|
|00000660| 2d 73 74 61 72 74 20 62 | 65 67 20 70 6f 73 20 63 |-start b|eg pos c|
|00000670| 6f 6c 20 6e 69 6c 20 72 | 6f 77 20 63 6f 75 6e 74 |ol nil r|ow count|
|00000680| 2d 6c 69 6e 65 73 20 73 | 65 6c 65 63 74 65 64 2d |-lines s|elected-|
|00000690| 77 69 6e 64 6f 77 5d 20 | 33 20 22 5c 0a 52 65 74 |window] |3 "\.Ret|
|000006a0| 75 72 6e 73 20 28 57 49 | 4e 44 4f 57 20 58 20 2e |urns (WI|NDOW X .|
|000006b0| 20 59 29 20 6f 66 20 63 | 75 72 72 65 6e 74 20 70 | Y) of c|urrent p|
|000006c0| 6f 69 6e 74 20 2d 20 61 | 6e 61 6c 6f 67 6f 75 73 |oint - a|nalogous|
|000006d0| 20 74 6f 20 6d 6f 75 73 | 65 2d 70 6f 73 69 74 69 | to mous|e-positi|
|000006e0| 6f 6e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |on"]).(b|yte-code|
|000006f0| 20 22 c0 c1 4d 88 c2 c3 | 4d 87 22 20 5b 6d 6f 75 | "..M...|M." [mou|
|00000700| 73 65 2d 61 76 6f 69 64 | 61 6e 63 65 2d 73 65 74 |se-avoid|ance-set|
|00000710| 2d 6d 6f 75 73 65 2d 70 | 6f 73 69 74 69 6f 6e 20 |-mouse-p|osition |
|00000720| 23 5b 28 70 6f 73 29 20 | 22 c0 20 19 c2 09 21 88 |#[(pos) |". ...!.|
|00000730| c3 c4 09 21 0d 40 0d 41 | 23 88 29 c6 87 22 20 5b |...!.@.A|#.).." [|
|00000740| 73 65 6c 65 63 74 65 64 | 2d 66 72 61 6d 65 20 66 |selected|-frame f|
|00000750| 20 72 61 69 73 65 2d 66 | 72 61 6d 65 20 73 65 74 | raise-f|rame set|
|00000760| 2d 6d 6f 75 73 65 2d 70 | 6f 73 69 74 69 6f 6e 20 |-mouse-p|osition |
|00000770| 66 72 61 6d 65 2d 73 65 | 6c 65 63 74 65 64 2d 77 |frame-se|lected-w|
|00000780| 69 6e 64 6f 77 20 70 6f | 73 20 74 5d 20 34 5d 20 |indow po|s t] 4] |
|00000790| 6d 6f 75 73 65 2d 61 76 | 6f 69 64 61 6e 63 65 2d |mouse-av|oidance-|
|000007a0| 74 6f 6f 2d 63 6c 6f 73 | 65 2d 70 20 23 5b 28 6d |too-clos|e-p #[(m|
|000007b0| 6f 75 73 65 29 20 22 c0 | 20 19 5c 6e 40 09 40 3d |ouse) ".| .\n@.@=|
|000007c0| ad 9d 5c 6e 41 40 ad 98 | c3 5c 6e 41 40 09 41 40 |..\nA@..|.\nA@.A@|
|000007d0| 5a 21 0c 57 ad 8b c3 5c | 6e 41 41 09 41 41 5a 21 |Z!.W...\|nAA.AAZ!|
|000007e0| 0c 57 29 87 22 20 5b 6d | 6f 75 73 65 2d 61 76 6f |.W)." [m|ouse-avo|
|000007f0| 69 64 61 6e 63 65 2d 70 | 6f 69 6e 74 2d 70 6f 73 |idance-p|oint-pos|
|00000800| 69 74 69 6f 6e 20 70 6f | 69 6e 74 20 6d 6f 75 73 |ition po|int mous|
|00000810| 65 20 61 62 73 20 6d 6f | 75 73 65 2d 61 76 6f 69 |e abs mo|use-avoi|
|00000820| 64 61 6e 63 65 2d 74 68 | 72 65 73 68 6f 6c 64 5d |dance-th|reshold]|
|00000830| 20 33 5d 5d 20 32 29 0a | 28 66 73 65 74 20 27 6d | 3]] 2).|(fset 'm|
|00000840| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 62 |ouse-avo|idance-b|
|00000850| 61 6e 69 73 68 2d 64 65 | 73 74 69 6e 61 74 69 6f |anish-de|stinatio|
|00000860| 6e 20 23 5b 6e 69 6c 20 | 22 c0 20 53 c1 42 87 22 |n #[nil |". S.B."|
|00000870| 20 5b 66 72 61 6d 65 2d | 77 69 64 74 68 20 30 5d | [frame-|width 0]|
|00000880| 20 32 20 22 5c 0a 54 68 | 65 20 70 6f 73 69 74 69 | 2 "\.Th|e positi|
|00000890| 6f 6e 20 74 6f 20 77 68 | 69 63 68 20 6d 6f 75 73 |on to wh|ich mous|
|000008a0| 65 2d 61 76 6f 69 64 61 | 6e 63 65 2d 6d 6f 64 65 |e-avoida|nce-mode|
|000008b0| 20 60 62 61 6e 69 73 68 | 27 20 6d 6f 76 65 73 20 | `banish|' moves |
|000008c0| 74 68 65 20 6d 6f 75 73 | 65 2e 0a 59 6f 75 20 63 |the mous|e..You c|
|000008d0| 61 6e 20 72 65 64 65 66 | 69 6e 65 20 74 68 69 73 |an redef|ine this|
|000008e0| 20 69 66 20 79 6f 75 20 | 77 61 6e 74 20 74 68 65 | if you |want the|
|000008f0| 20 6d 6f 75 73 65 20 62 | 61 6e 69 73 68 65 64 20 | mouse b|anished |
|00000900| 74 6f 20 61 20 64 69 66 | 66 65 72 65 6e 74 20 63 |to a dif|ferent c|
|00000910| 6f 72 6e 65 72 2e 22 5d | 29 0a 28 62 79 74 65 2d |orner."]|).(byte-|
|00000920| 63 6f 64 65 20 22 c0 c1 | 4d 88 c2 c3 4d 88 c2 c4 |code "..|M...M...|
|00000930| 4e c5 3e ac 85 c6 c7 c2 | 5c 22 88 c8 c2 c4 c9 23 |N.>.....|\".....#|
|00000940| 88 ca cb 4d 87 22 20 5b | 6d 6f 75 73 65 2d 61 76 |...M." [|mouse-av|
|00000950| 6f 69 64 61 6e 63 65 2d | 62 61 6e 69 73 68 2d 6d |oidance-|banish-m|
|00000960| 6f 75 73 65 20 23 5b 6e | 69 6c 20 22 c0 c1 20 21 |ouse #[n|il ".. !|
|00000970| 87 22 20 5b 6d 6f 75 73 | 65 2d 61 76 6f 69 64 61 |." [mous|e-avoida|
|00000980| 6e 63 65 2d 73 65 74 2d | 6d 6f 75 73 65 2d 70 6f |nce-set-|mouse-po|
|00000990| 73 69 74 69 6f 6e 20 6d | 6f 75 73 65 2d 61 76 6f |sition m|ouse-avo|
|000009a0| 69 64 61 6e 63 65 2d 62 | 61 6e 69 73 68 2d 64 65 |idance-b|anish-de|
|000009b0| 73 74 69 6e 61 74 69 6f | 6e 5d 20 32 5d 20 6d 6f |stinatio|n] 2] mo|
|000009c0| 75 73 65 2d 61 76 6f 69 | 64 61 6e 63 65 2d 64 65 |use-avoi|dance-de|
|000009d0| 6c 74 61 20 23 5b 28 63 | 75 72 20 64 65 6c 74 61 |lta #[(c|ur delta|
|000009e0| 20 64 69 73 74 20 76 61 | 72 20 6d 69 6e 20 6d 61 | dist va|r min ma|
|000009f0| 78 29 20 22 08 09 5a 5c | 6e 5b 0b 5b 5c 5c 5d 5c |x) "..Z\|n[.[\\]\|
|00000a00| 6e 5b 0b 5c 5c 5c 6e 0b | 5b 5c 5c 0c 09 5a 5c 6e |n[.\\\n.|[\\..Z\n|
|00000a10| 0b 5c 5c 5e 1d 1e 06 1e | 07 1e 08 0e 07 08 09 5a |.\\^....|.......Z|
|00000a20| 57 ab 86 c9 16 08 c9 16 | 07 0e 06 0c 09 5a 56 ab |W.......|.....ZV.|
|00000a30| 85 c9 16 06 c9 15 0e 08 | ab 8b 0e 5c 6e 0e 08 57 |........|...\n..W|
|00000a40| ab 84 0e 08 aa c5 0e 07 | ab 8b 0e 5c 6e 0e 07 57 |........|...\n..W|
|00000a50| ab 84 0e 5c 6e aa b6 0e | 07 ab 8a 0e 5c 6e cb 57 |...\n...|....\n.W|
|00000a60| ab 84 0e 07 aa a8 0e 06 | ab 8b 0e 5c 6e 0e 06 57 |........|...\n..W|
|00000a70| ab 84 0e 06 aa 99 0d ab | 8a 0e 5c 6e 0d 57 ab 84 |........|..\n.W..|
|00000a80| 0e 5c 6e aa 8c 0d ae 89 | 0e 07 ae 85 0e 06 ae 81 |.\n.....|........|
|00000a90| cb 2c 87 22 20 5b 6d 69 | 6e 20 63 75 72 20 64 69 |.,." [mi|n cur di|
|00000aa0| 73 74 20 76 61 72 20 6d | 61 78 20 52 32 20 4c 32 |st var m|ax R2 L2|
|00000ab0| 20 52 31 20 4c 31 20 6e | 69 6c 20 64 65 6c 74 61 | R1 L1 n|il delta|
|00000ac0| 20 30 5d 20 36 5d 20 62 | 79 74 65 2d 6f 70 74 69 | 0] 6] b|yte-opti|
|00000ad0| 6d 69 7a 65 72 20 28 6e | 69 6c 20 62 79 74 65 2d |mizer (n|il byte-|
|00000ae0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|00000af0| 78 70 61 6e 64 29 20 65 | 72 72 6f 72 20 22 25 73 |xpand) e|rror "%s|
|00000b00| 20 61 6c 72 65 61 64 79 | 20 68 61 73 20 61 20 62 | already| has a b|
|00000b10| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 2c 20 63 |yte-opti|mizer, c|
|00000b20| 61 6e 27 74 20 6d 61 6b | 65 20 69 74 20 69 6e 6c |an't mak|e it inl|
|00000b30| 69 6e 65 22 20 70 75 74 | 20 62 79 74 65 2d 63 6f |ine" put| byte-co|
|00000b40| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000b50| 61 6e 64 20 6d 6f 75 73 | 65 2d 61 76 6f 69 64 61 |and mous|e-avoida|
|00000b60| 6e 63 65 2d 6e 75 64 67 | 65 2d 6d 6f 75 73 65 20 |nce-nudg|e-mouse |
|00000b70| 23 5b 6e 69 6c 20 22 c0 | 20 89 19 41 89 1a 40 c3 |#[nil ".| ..A..@.|
|00000b80| 0c 21 0d 40 5a 0e 06 0c | c7 c8 20 1e 09 1e 5c 6e |.!.@Z...|.. ...\n|
|00000b90| 1e 0b 1e 0c 1e 0d 19 0e | 5c 6e 09 5a 0e 0c 5b 0e |........|\n.Z..[.|
|00000ba0| 0b 5b 5c 5c 5d 0e 0c 5b | 0e 0b 5c 5c 0e 0c 0e 0b |.[\\]..[|..\\....|
|00000bb0| 5b 5c 5c 0e 09 09 5a 0e | 0c 0e 0b 5c 5c 5e 1e 0e |[\\...Z.|...\\^..|
|00000bc0| 1e 0f 1e 10 1e 11 0e 10 | 0e 5c 6e 09 5a 57 ab 86 |........|.\n.ZW..|
|00000bd0| d2 16 11 d2 16 10 0e 0f | 0e 09 09 5a 56 ab 86 d2 |........|...ZV...|
|00000be0| 16 0f d2 16 0e 0e 11 ab | 8b 0e 0d 0e 11 57 ab 84 |........|.....W..|
|00000bf0| 0e 11 aa c8 0e 10 ab 8b | 0e 0d 0e 10 57 ab 84 0e |........|....W...|
|00000c00| 0d aa b9 0e 10 ab 8a 0e | 0d c7 57 ab 84 0e 10 aa |........|..W.....|
|00000c10| ab 0e 0f ab 8b 0e 0d 0e | 0f 57 ab 84 0e 0f aa 9c |........|.W......|
|00000c20| 0e 0e ab 8b 0e 0d 0e 0e | 57 ab 84 0e 0d aa 8d 0e |........|W.......|
|00000c30| 0e ae 89 0e 10 ae 85 0e | 0f ae 81 c7 2e 5c 6e 1e |........|.....\n.|
|00000c40| 13 5c 6e 41 c3 0c 21 0d | 41 5a 0e 06 0c c7 d4 20 |.\nA..!.|AZ..... |
|00000c50| 1e 09 1e 5c 6e 1e 0b 1e | 0c 1e 0d 19 0e 5c 6e 09 |...\n...|.....\n.|
|00000c60| 5a 0e 0c 5b 0e 0b 5b 5c | 5c 5d 0e 0c 5b 0e 0b 5c |Z..[..[\|\]..[..\|
|00000c70| 5c 0e 0c 0e 0b 5b 5c 5c | 0e 09 09 5a 0e 0c 0e 0b |\....[\\|...Z....|
|00000c80| 5c 5c 5e 1e 0e 1e 0f 1e | 10 1e 11 0e 10 0e 5c 6e |\\^.....|......\n|
|00000c90| 09 5a 57 ab 86 d2 16 11 | d2 16 10 0e 0f 0e 09 09 |.ZW.....|........|
|00000ca0| 5a 56 ab 86 d2 16 0f d2 | 16 0e 0e 11 ab 8b 0e 0d |ZV......|........|
|00000cb0| 0e 11 57 ab 84 0e 11 aa | c8 0e 10 ab 8b 0e 0d 0e |..W.....|........|
|00000cc0| 10 57 ab 84 0e 0d aa b9 | 0e 10 ab 8a 0e 0d c7 57 |.W......|.......W|
|00000cd0| ab 84 0e 10 aa ab 0e 0f | ab 8b 0e 0d 0e 0f 57 ab |........|......W.|
|00000ce0| 84 0e 0f aa 9c 0e 0e ab | 8b 0e 0d 0e 0e 57 ab 84 |........|.....W..|
|00000cf0| 0e 0d aa 8d 0e 0e ae 89 | 0e 10 ae 85 0e 0f ae 81 |........|........|
|00000d00| c7 2e 5c 6e 1e 15 0d 40 | 0e 13 5c 5c 0d 41 0e 15 |..\n...@|..\\.A..|
|00000d10| 5c 5c 42 15 0e 16 d7 3d | ac 86 0e 16 d8 3d ab cd |\\B....=|.....=..|
|00000d20| d9 da db dc 20 5c 22 41 | 1e 1d 1e 1e 0e 1e df 58 |.... \"A|.......X|
|00000d30| ad b9 e0 5c 6e 40 e1 0e | 1e 0e 13 5f 21 5c 5c 5c |...\n@..|..._!\\\|
|00000d40| 6e 41 e1 0e 1e 0e 15 5f | 21 5c 5c 42 21 88 0e 1e |nA....._|!\\B!...|
|00000d50| e2 e3 0e 06 a5 5d 5c 5c | 16 1e 0e 16 d8 3d ab 89 |.....]\\|.....=..|
|00000d60| e4 20 16 25 e6 0e 1d 21 | 88 e7 0e 28 21 88 aa 41 |. .%...!|...(!..A|
|00000d70| 2a aa 8f e0 09 41 40 0e | 13 5c 5c 09 41 41 0e 15 |*....A@.|.\\.AA..|
|00000d80| 5c 5c 42 21 2c 87 22 20 | 5b 6d 6f 75 73 65 2d 70 |\\B!,." |[mouse-p|
|00000d90| 6f 73 69 74 69 6f 6e 20 | 63 75 72 20 63 75 72 2d |osition |cur cur-|
|00000da0| 70 6f 73 20 72 61 6e 64 | 6f 6d 20 6d 6f 75 73 65 |pos rand|om mouse|
|00000db0| 2d 61 76 6f 69 64 61 6e | 63 65 2d 6e 75 64 67 65 |-avoidan|ce-nudge|
|00000dc0| 2d 76 61 72 20 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |-var mou|se-avoid|
|00000dd0| 61 6e 63 65 2d 73 74 61 | 74 65 20 6d 6f 75 73 65 |ance-sta|te mouse|
|00000de0| 2d 61 76 6f 69 64 61 6e | 63 65 2d 6e 75 64 67 65 |-avoidan|ce-nudge|
|00000df0| 2d 64 69 73 74 20 30 20 | 66 72 61 6d 65 2d 77 69 |-dist 0 |frame-wi|
|00000e00| 64 74 68 20 6d 61 78 20 | 6d 69 6e 20 76 61 72 20 |dth max |min var |
|00000e10| 64 69 73 74 20 64 65 6c | 74 61 20 52 32 20 4c 32 |dist del|ta R2 L2|
|00000e20| 20 52 31 20 4c 31 20 6e | 69 6c 20 64 65 6c 74 61 | R1 L1 n|il delta|
|00000e30| 78 20 77 69 6e 64 6f 77 | 2d 68 65 69 67 68 74 20 |x window|-height |
|00000e40| 64 65 6c 74 61 79 20 6d | 6f 75 73 65 2d 61 76 6f |deltay m|ouse-avo|
|00000e50| 69 64 61 6e 63 65 2d 6d | 6f 64 65 20 61 6e 69 6d |idance-m|ode anim|
|00000e60| 61 74 65 20 70 72 6f 74 | 65 75 73 20 30 2e 30 20 |ate prot|eus 0.0 |
|00000e70| 61 73 73 6f 63 20 6d 6f | 75 73 65 2d 63 6f 6c 6f |assoc mo|use-colo|
|00000e80| 72 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |r frame-|paramete|
|00000e90| 72 73 20 63 6f 6c 6f 72 | 20 69 20 31 20 6d 6f 75 |rs color| i 1 mou|
|00000ea0| 73 65 2d 61 76 6f 69 64 | 61 6e 63 65 2d 73 65 74 |se-avoid|ance-set|
|00000eb0| 2d 6d 6f 75 73 65 2d 70 | 6f 73 69 74 69 6f 6e 20 |-mouse-p|osition |
|00000ec0| 72 6f 75 6e 64 20 30 2e | 31 20 31 2e 30 20 6d 6f |round 0.|1 1.0 mo|
|00000ed0| 75 73 65 2d 61 76 6f 69 | 64 61 6e 63 65 2d 72 61 |use-avoi|dance-ra|
|00000ee0| 6e 64 6f 6d 2d 73 68 61 | 70 65 20 78 2d 70 6f 69 |ndom-sha|pe x-poi|
|00000ef0| 6e 74 65 72 2d 73 68 61 | 70 65 20 73 65 74 2d 6d |nter-sha|pe set-m|
|00000f00| 6f 75 73 65 2d 63 6f 6c | 6f 72 20 73 69 74 2d 66 |ouse-col|or sit-f|
|00000f10| 6f 72 20 6d 6f 75 73 65 | 2d 61 76 6f 69 64 61 6e |or mouse|-avoidan|
|00000f20| 63 65 2d 61 6e 69 6d 61 | 74 69 6f 6e 2d 64 65 6c |ce-anima|tion-del|
|00000f30| 61 79 5d 20 37 5d 5d 20 | 34 29 0a 28 66 73 65 74 |ay] 7]] |4).(fset|
|00000f40| 20 27 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 | 'mouse-|avoidanc|
|00000f50| 65 2d 72 61 6e 64 6f 6d | 2d 73 68 61 70 65 20 23 |e-random|-shape #|
|00000f60| 5b 6e 69 6c 20 22 08 ac | 8d c1 c2 c3 c4 0d c6 23 |[nil "..|.......#|
|00000f70| 5c 22 89 10 47 16 07 c8 | 0e 07 21 08 38 87 22 20 |\"..G...|..!.8." |
|00000f80| 5b 6d 6f 75 73 65 2d 61 | 76 6f 69 64 61 6e 63 65 |[mouse-a|voidance|
|00000f90| 2d 70 6f 69 6e 74 65 72 | 2d 73 68 61 70 65 73 20 |-pointer|-shapes |
|00000fa0| 6d 61 70 63 61 72 20 23 | 5b 28 78 29 20 22 c0 09 |mapcar #|[(x) "..|
|00000fb0| 21 4a 87 22 20 5b 69 6e | 74 65 72 6e 20 78 5d 20 |!J." [in|tern x] |
|00000fc0| 32 5d 20 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 69 6f |2] all-c|ompletio|
|00000fd0| 6e 73 20 22 78 2d 70 6f | 69 6e 74 65 72 2d 22 20 |ns "x-po|inter-" |
|00000fe0| 6f 62 61 72 72 61 79 20 | 28 6c 61 6d 62 64 61 20 |obarray |(lambda |
|00000ff0| 28 78 29 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(x) (and| (boundp|
|00001000| 20 78 29 20 28 69 6e 74 | 65 67 65 72 70 20 28 73 | x) (int|egerp (s|
|00001010| 79 6d 62 6f 6c 2d 76 61 | 6c 75 65 20 78 29 29 29 |ymbol-va|lue x)))|
|00001020| 29 20 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 |) mouse-|avoidanc|
|00001030| 65 2d 6e 2d 70 6f 69 6e | 74 65 72 2d 73 68 61 70 |e-n-poin|ter-shap|
|00001040| 65 73 20 72 61 6e 64 6f | 6d 5d 20 37 20 22 5c 0a |es rando|m] 7 "\.|
|00001050| 52 65 74 75 72 6e 20 61 | 20 72 61 6e 64 6f 6d 20 |Return a| random |
|00001060| 63 75 72 73 6f 72 20 73 | 68 61 70 65 2e 0a 54 68 |cursor s|hape..Th|
|00001070| 69 73 20 61 73 73 75 6d | 65 73 20 74 68 61 74 20 |is assum|es that |
|00001080| 61 6e 79 20 76 61 72 69 | 61 62 6c 65 20 77 68 6f |any vari|able who|
|00001090| 73 65 20 6e 61 6d 65 20 | 62 65 67 69 6e 73 20 77 |se name |begins w|
|000010a0| 69 74 68 20 78 2d 70 6f | 69 6e 74 65 72 2d 20 61 |ith x-po|inter- a|
|000010b0| 6e 64 0a 68 61 73 20 61 | 6e 20 69 6e 74 65 67 65 |nd.has a|n intege|
|000010c0| 72 20 76 61 6c 75 65 20 | 69 73 20 61 20 76 61 6c |r value |is a val|
|000010d0| 69 64 20 63 75 72 73 6f | 72 20 73 68 61 70 65 2e |id curso|r shape.|
|000010e0| 20 20 59 6f 75 20 6d 69 | 67 68 74 20 77 61 6e 74 |  You mi|ght want|
|000010f0| 20 74 6f 0a 72 65 64 65 | 66 69 6e 65 20 74 68 69 | to.rede|fine thi|
|00001100| 73 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 73 75 |s functi|on to su|
|00001110| 69 74 20 79 6f 75 72 20 | 6f 77 6e 20 74 61 73 74 |it your |own tast|
|00001120| 65 73 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |es."]).(|byte-cod|
|00001130| 65 20 22 c0 c1 4d 88 c2 | c3 4d 88 c4 c5 4d 87 22 |e "..M..|.M...M."|
|00001140| 20 5b 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 | [mouse-|avoidanc|
|00001150| 65 2d 62 61 6e 69 73 68 | 2d 68 6f 6f 6b 20 23 5b |e-banish|-hook #[|
|00001160| 6e 69 6c 20 22 08 3f ad | 88 c1 c2 20 21 ad 82 c3 |nil ".?.|... !...|
|00001170| 20 87 22 20 5b 65 78 65 | 63 75 74 69 6e 67 2d 6b | ." [exe|cuting-k|
|00001180| 62 64 2d 6d 61 63 72 6f | 20 6d 6f 75 73 65 2d 61 |bd-macro| mouse-a|
|00001190| 76 6f 69 64 61 6e 63 65 | 2d 6b 62 64 2d 63 6f 6d |voidance|-kbd-com|
|000011a0| 6d 61 6e 64 20 74 68 69 | 73 2d 63 6f 6d 6d 61 6e |mand thi|s-comman|
|000011b0| 64 2d 6b 65 79 73 20 6d | 6f 75 73 65 2d 61 76 6f |d-keys m|ouse-avo|
|000011c0| 69 64 61 6e 63 65 2d 62 | 61 6e 69 73 68 2d 6d 6f |idance-b|anish-mo|
|000011d0| 75 73 65 5d 20 32 5d 20 | 6d 6f 75 73 65 2d 61 76 |use] 2] |mouse-av|
|000011e0| 6f 69 64 61 6e 63 65 2d | 65 78 69 6c 65 2d 68 6f |oidance-|exile-ho|
|000011f0| 6f 6b 20 23 5b 6e 69 6c | 20 22 08 3f ad c1 c1 c2 |ok #[nil| ".?....|
|00001200| 20 21 ad bb c3 20 1c 0d | ac 8b c6 0c 21 ab 86 0c | !... ..|....!...|
|00001210| 15 c7 20 aa a9 0d ad a6 | c6 0d 21 3f ad a0 0c 40 |.. .....|..!?...@|
|00001220| 0e 08 c9 57 ab 84 ca 20 | aa 82 cb 20 3d ab 8c 0c |...W... |... =...|
|00001230| 41 cc 20 9a ab 85 cd 0d | 41 21 88 ce 89 15 29 87 |A. .....|A!....).|
|00001240| 22 20 5b 65 78 65 63 75 | 74 69 6e 67 2d 6b 62 64 |" [execu|ting-kbd|
|00001250| 2d 6d 61 63 72 6f 20 6d | 6f 75 73 65 2d 61 76 6f |-macro m|ouse-avo|
|00001260| 69 64 61 6e 63 65 2d 6b | 62 64 2d 63 6f 6d 6d 61 |idance-k|bd-comma|
|00001270| 6e 64 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 2d |nd this-|command-|
|00001280| 6b 65 79 73 20 6d 6f 75 | 73 65 2d 70 6f 73 69 74 |keys mou|se-posit|
|00001290| 69 6f 6e 20 6d 70 20 6d | 6f 75 73 65 2d 61 76 6f |ion mp m|ouse-avo|
|000012a0| 69 64 61 6e 63 65 2d 73 | 74 61 74 65 20 6d 6f 75 |idance-s|tate mou|
|000012b0| 73 65 2d 61 76 6f 69 64 | 61 6e 63 65 2d 74 6f 6f |se-avoid|ance-too|
|000012c0| 2d 63 6c 6f 73 65 2d 70 | 20 6d 6f 75 73 65 2d 61 |-close-p| mouse-a|
|000012d0| 76 6f 69 64 61 6e 63 65 | 2d 62 61 6e 69 73 68 2d |voidance|-banish-|
|000012e0| 6d 6f 75 73 65 20 65 6d | 61 63 73 2d 6d 69 6e 6f |mouse em|acs-mino|
|000012f0| 72 2d 76 65 72 73 69 6f | 6e 20 31 32 20 73 65 6c |r-versio|n 12 sel|
|00001300| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 73 65 6c 65 |ected-fr|ame sele|
|00001310| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 6d 6f 75 73 |cted-win|dow mous|
|00001320| 65 2d 61 76 6f 69 64 61 | 6e 63 65 2d 62 61 6e 69 |e-avoida|nce-bani|
|00001330| 73 68 2d 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 6d |sh-desti|nation m|
|00001340| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 73 |ouse-avo|idance-s|
|00001350| 65 74 2d 6d 6f 75 73 65 | 2d 70 6f 73 69 74 69 6f |et-mouse|-positio|
|00001360| 6e 20 6e 69 6c 5d 20 33 | 5d 20 6d 6f 75 73 65 2d |n nil] 3|] mouse-|
|00001370| 61 76 6f 69 64 61 6e 63 | 65 2d 66 61 6e 63 79 2d |avoidanc|e-fancy-|
|00001380| 68 6f 6f 6b 20 23 5b 6e | 69 6c 20 22 08 3f ad af |hook #[n|il ".?..|
|00001390| c1 c2 20 21 ad a9 c3 c4 | 20 21 ad a3 c4 20 1d c6 |.. !....| !... ..|
|000013a0| 20 88 0e 07 c8 57 ab 84 | c9 20 aa 82 ca 20 0d 40 | ....W..|. ... .@|
|000013b0| 3d 3f ad 8a cb 0d 40 0d | 41 40 0d 41 41 23 29 87 |=?....@.|A@.AA#).|
|000013c0| 22 20 5b 65 78 65 63 75 | 74 69 6e 67 2d 6b 62 64 |" [execu|ting-kbd|
|000013d0| 2d 6d 61 63 72 6f 20 6d | 6f 75 73 65 2d 61 76 6f |-macro m|ouse-avo|
|000013e0| 69 64 61 6e 63 65 2d 6b | 62 64 2d 63 6f 6d 6d 61 |idance-k|bd-comma|
|000013f0| 6e 64 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 2d |nd this-|command-|
|00001400| 6b 65 79 73 20 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |keys mou|se-avoid|
|00001410| 61 6e 63 65 2d 74 6f 6f | 2d 63 6c 6f 73 65 2d 70 |ance-too|-close-p|
|00001420| 20 6d 6f 75 73 65 2d 70 | 6f 73 69 74 69 6f 6e 20 | mouse-p|osition |
|00001430| 6f 6c 64 2d 70 6f 73 20 | 6d 6f 75 73 65 2d 61 76 |old-pos |mouse-av|
|00001440| 6f 69 64 61 6e 63 65 2d | 6e 75 64 67 65 2d 6d 6f |oidance-|nudge-mo|
|00001450| 75 73 65 20 65 6d 61 63 | 73 2d 6d 69 6e 6f 72 2d |use emac|s-minor-|
|00001460| 76 65 72 73 69 6f 6e 20 | 31 32 20 73 65 6c 65 63 |version |12 selec|
|00001470| 74 65 64 2d 66 72 61 6d | 65 20 73 65 6c 65 63 74 |ted-fram|e select|
|00001480| 65 64 2d 77 69 6e 64 6f | 77 20 73 65 74 2d 6d 6f |ed-windo|w set-mo|
|00001490| 75 73 65 2d 70 6f 73 69 | 74 69 6f 6e 5d 20 34 5d |use-posi|tion] 4]|
|000014a0| 5d 20 32 29 0a 28 66 73 | 65 74 20 27 6d 6f 75 73 |] 2).(fs|et 'mous|
|000014b0| 65 2d 61 76 6f 69 64 61 | 6e 63 65 2d 6b 62 64 2d |e-avoida|nce-kbd-|
|000014c0| 63 6f 6d 6d 61 6e 64 20 | 23 5b 28 6b 65 79 29 20 |command |#[(key) |
|000014d0| 22 08 ac 82 c1 87 c2 08 | 21 ac 82 c3 87 c4 c5 8d |".......|!.......|
|000014e0| 87 22 20 5b 6b 65 79 20 | 6e 69 6c 20 76 65 63 74 |." [key |nil vect|
|000014f0| 6f 72 70 20 74 20 64 6f | 6e 65 20 28 62 79 74 65 |orp t do|ne (byte|
|00001500| 2d 63 6f 64 65 20 22 c0 | 09 47 1a 89 1b 5c 6e 57 |-code ".|.G...\nW|
|00001510| ab 91 09 0b 48 3c ab 85 | c4 c5 c6 5c 22 88 0b 54 |....H<..|...\"..T|
|00001520| 89 13 aa 6b 2a c7 87 22 | 20 5b 30 20 6b 65 79 20 |...k*.."| [0 key |
|00001530| 6c 20 69 20 74 68 72 6f | 77 20 64 6f 6e 65 20 6e |l i thro|w done n|
|00001540| 69 6c 20 74 5d 20 34 29 | 5d 20 32 20 22 5c 0a 52 |il t] 4)|] 2 "\.R|
|00001550| 65 74 75 72 6e 20 74 20 | 69 66 20 74 68 65 20 4b |eturn t |if the K|
|00001560| 45 59 53 45 51 45 4e 43 | 45 20 69 73 20 63 6f 6d |EYSEQENC|E is com|
|00001570| 70 6f 73 65 64 20 6f 66 | 20 6b 65 79 62 6f 61 72 |posed of| keyboar|
|00001580| 64 20 65 76 65 6e 74 73 | 20 6f 6e 6c 79 2e 0a 52 |d events| only..R|
|00001590| 65 74 75 72 6e 20 6e 69 | 6c 20 69 66 20 74 68 65 |eturn ni|l if the|
|000015a0| 72 65 20 61 72 65 20 61 | 6e 79 20 6c 69 73 74 73 |re are a|ny lists|
|000015b0| 20 69 6e 20 74 68 65 20 | 6b 65 79 20 73 65 71 75 | in the |key sequ|
|000015c0| 65 6e 63 65 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ence."])|.(fset '|
|000015d0| 6d 6f 75 73 65 2d 61 76 | 6f 69 64 61 6e 63 65 2d |mouse-av|oidance-|
|000015e0| 6d 6f 64 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |mode #[(|&optiona|
|000015f0| 6c 20 6d 6f 64 65 29 20 | 22 08 c1 3d ab 82 c2 10 |l mode) |"..=....|
|00001600| c3 c4 c5 0e 06 c7 5c 22 | 5c 22 16 06 c3 c8 c5 0e |......\"|\"......|
|00001610| 06 c7 5c 22 5c 22 16 06 | c3 c9 c5 0e 06 c7 5c 22 |..\"\"..|......\"|
|00001620| 5c 22 16 06 08 ca 3d ab | 85 c7 16 0b aa d8 08 cc |\"....=.|........|
|00001630| 3d ac 8a 08 c2 3d ac 85 | 08 cd 3d ab 8f ce c6 c9 |=....=..|..=.....|
|00001640| 5c 22 88 08 16 0b cf 89 | 42 16 10 aa ba 08 d1 3d |\"......|B......=|
|00001650| ab 8d ce c6 c8 5c 22 88 | 08 16 0b c7 16 10 aa a8 |.....\".|........|
|00001660| 08 d2 3d ac 96 08 d3 3d | ac 91 08 ac 84 0e 0b ab |..=....=|........|
|00001670| 8a 08 ab 91 d4 08 21 cf | 56 ab 8a ce c6 c4 5c 22 |......!.|V.....\"|
|00001680| 88 d2 16 0b aa 83 c7 16 | 0b d5 20 87 22 20 5b 6d |........|.. ." [m|
|00001690| 6f 64 65 20 63 61 74 2d | 61 6e 64 2d 6d 6f 75 73 |ode cat-|and-mous|
|000016a0| 65 20 61 6e 69 6d 61 74 | 65 20 64 65 6c 65 74 65 |e animat|e delete|
|000016b0| 20 6d 6f 75 73 65 2d 61 | 76 6f 69 64 61 6e 63 65 | mouse-a|voidance|
|000016c0| 2d 62 61 6e 69 73 68 2d | 68 6f 6f 6b 20 61 70 70 |-banish-|hook app|
|000016d0| 65 6e 64 20 70 6f 73 74 | 2d 63 6f 6d 6d 61 6e 64 |end post|-command|
|000016e0| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 6d 6f 75 73 65 2d |-hook ni|l mouse-|
|000016f0| 61 76 6f 69 64 61 6e 63 | 65 2d 65 78 69 6c 65 2d |avoidanc|e-exile-|
|00001700| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |hook mou|se-avoid|
|00001710| 61 6e 63 65 2d 66 61 6e | 63 79 2d 68 6f 6f 6b 20 |ance-fan|cy-hook |
|00001720| 6e 6f 6e 65 20 6d 6f 75 | 73 65 2d 61 76 6f 69 64 |none mou|se-avoid|
|00001730| 61 6e 63 65 2d 6d 6f 64 | 65 20 6a 75 6d 70 20 70 |ance-mod|e jump p|
|00001740| 72 6f 74 65 75 73 20 61 | 64 64 2d 68 6f 6f 6b 20 |roteus a|dd-hook |
|00001750| 30 20 6d 6f 75 73 65 2d | 61 76 6f 69 64 61 6e 63 |0 mouse-|avoidanc|
|00001760| 65 2d 73 74 61 74 65 20 | 65 78 69 6c 65 20 62 61 |e-state |exile ba|
|00001770| 6e 69 73 68 20 74 20 70 | 72 65 66 69 78 2d 6e 75 |nish t p|refix-nu|
|00001780| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 66 6f 72 63 |meric-va|lue forc|
|00001790| 65 2d 6d 6f 64 65 2d 6c | 69 6e 65 2d 75 70 64 61 |e-mode-l|ine-upda|
|000017a0| 74 65 5d 20 35 20 22 5c | 0a 53 65 74 20 63 75 72 |te] 5 "\|.Set cur|
|000017b0| 73 6f 72 20 61 76 6f 69 | 64 61 6e 63 65 20 6d 6f |sor avoi|dance mo|
|000017c0| 64 65 20 74 6f 20 4d 4f | 44 45 2e 0a 4d 4f 44 45 |de to MO|DE..MODE|
|000017d0| 20 73 68 6f 75 6c 64 20 | 62 65 20 6f 6e 65 20 6f | should |be one o|
|000017e0| 66 20 74 68 65 20 73 79 | 6d 62 6f 6c 73 20 60 62 |f the sy|mbols `b|
|000017f0| 61 6e 69 73 68 27 2c 20 | 60 65 78 69 6c 65 27 2c |anish', |`exile',|
|00001800| 20 60 6a 75 6d 70 27 2c | 20 60 61 6e 69 6d 61 74 | `jump',| `animat|
|00001810| 65 27 2c 0a 60 63 61 74 | 2d 61 6e 64 2d 6d 6f 75 |e',.`cat|-and-mou|
|00001820| 73 65 27 2c 20 60 70 72 | 6f 74 65 75 73 27 2c 20 |se', `pr|oteus', |
|00001830| 6f 72 20 60 6e 6f 6e 65 | 27 2e 0a 0a 49 66 20 4d |or `none|'...If M|
|00001840| 4f 44 45 20 69 73 20 6e | 69 6c 2c 20 74 6f 67 67 |ODE is n|il, togg|
|00001850| 6c 65 20 6d 6f 75 73 65 | 20 61 76 6f 69 64 61 6e |le mouse| avoidan|
|00001860| 63 65 20 62 65 74 77 65 | 65 6e 20 60 6e 6f 6e 65 |ce betwe|en `none|
|00001870| 60 20 61 6e 64 20 60 62 | 61 6e 69 73 68 27 0a 6d |` and `b|anish'.m|
|00001880| 6f 64 65 73 2e 20 20 50 | 6f 73 69 74 69 76 65 20 |odes.  P|ositive |
|00001890| 6e 75 6d 62 65 72 73 20 | 61 6e 64 20 73 79 6d 62 |numbers |and symb|
|000018a0| 6f 6c 73 20 6f 74 68 65 | 72 20 74 68 61 6e 20 74 |ols othe|r than t|
|000018b0| 68 65 20 61 62 6f 76 65 | 20 61 72 65 20 74 72 65 |he above| are tre|
|000018c0| 61 74 65 64 0a 61 73 20 | 65 71 75 69 76 61 6c 65 |ated.as |equivale|
|000018d0| 6e 74 20 74 6f 20 60 62 | 61 6e 69 73 68 27 3b 20 |nt to `b|anish'; |
|000018e0| 6e 65 67 61 74 69 76 65 | 20 6e 75 6d 62 65 72 73 |negative| numbers|
|000018f0| 20 61 6e 64 20 60 2d 27 | 20 61 72 65 20 65 71 75 | and `-'| are equ|
|00001900| 69 76 61 6c 65 6e 74 20 | 74 6f 20 60 6e 6f 6e 65 |ivalent |to `none|
|00001910| 27 2e 0a 0a 45 66 66 65 | 63 74 73 20 6f 66 20 74 |'...Effe|cts of t|
|00001920| 68 65 20 64 69 66 66 65 | 72 65 6e 74 20 6d 6f 64 |he diffe|rent mod|
|00001930| 65 73 3a 20 0a 20 2a 20 | 62 61 6e 69 73 68 3a 20 |es: . * |banish: |
|00001940| 4d 6f 76 65 20 74 68 65 | 20 6d 6f 75 73 65 20 74 |Move the| mouse t|
|00001950| 6f 20 74 68 65 20 75 70 | 70 65 72 2d 72 69 67 68 |o the up|per-righ|
|00001960| 74 20 63 6f 72 6e 65 72 | 20 6f 6e 20 61 6e 79 20 |t corner| on any |
|00001970| 6b 65 79 70 72 65 73 73 | 2e 0a 20 2a 20 65 78 69 |keypress|.. * exi|
|00001980| 6c 65 3a 20 4d 6f 76 65 | 20 74 68 65 20 6d 6f 75 |le: Move| the mou|
|00001990| 73 65 20 74 6f 20 74 68 | 65 20 63 6f 72 6e 65 72 |se to th|e corner|
|000019a0| 20 6f 6e 6c 79 20 69 66 | 20 74 68 65 20 63 75 72 | only if| the cur|
|000019b0| 73 6f 72 20 67 65 74 73 | 20 74 6f 6f 20 63 6c 6f |sor gets| too clo|
|000019c0| 73 65 2c 0a 20 20 20 20 | 20 61 6e 64 20 61 6c 6c |se,.    | and all|
|000019d0| 6f 77 20 69 74 20 74 6f | 20 72 65 74 75 72 6e 20 |ow it to| return |
|000019e0| 6f 6e 63 65 20 74 68 65 | 20 63 75 72 73 6f 72 20 |once the| cursor |
|000019f0| 69 73 20 6f 75 74 20 6f | 66 20 74 68 65 20 77 61 |is out o|f the wa|
|00001a00| 79 2e 0a 20 2a 20 6a 75 | 6d 70 3a 20 49 66 20 74 |y.. * ju|mp: If t|
|00001a10| 68 65 20 63 75 72 73 6f | 72 20 67 65 74 73 20 74 |he curso|r gets t|
|00001a20| 6f 6f 20 63 6c 6f 73 65 | 20 74 6f 20 74 68 65 20 |oo close| to the |
|00001a30| 6d 6f 75 73 65 2c 20 64 | 69 73 70 6c 61 63 65 20 |mouse, d|isplace |
|00001a40| 74 68 65 20 6d 6f 75 73 | 65 0a 20 20 20 20 20 61 |the mous|e.     a|
|00001a50| 20 72 61 6e 64 6f 6d 20 | 64 69 73 74 61 6e 63 65 | random |distance|
|00001a60| 20 26 20 64 69 72 65 63 | 74 69 6f 6e 2e 0a 20 2a | & direc|tion.. *|
|00001a70| 20 61 6e 69 6d 61 74 65 | 3a 20 41 73 20 60 6a 75 | animate|: As `ju|
|00001a80| 6d 70 27 2c 20 62 75 74 | 20 73 68 6f 77 73 20 73 |mp', but| shows s|
|00001a90| 74 65 70 73 20 61 6c 6f | 6e 67 20 74 68 65 20 77 |teps alo|ng the w|
|00001aa0| 61 79 20 66 6f 72 20 69 | 6c 6c 75 73 69 6f 6e 20 |ay for i|llusion |
|00001ab0| 6f 66 20 6d 6f 74 69 6f | 6e 2e 0a 20 2a 20 63 61 |of motio|n.. * ca|
|00001ac0| 74 2d 61 6e 64 2d 6d 6f | 75 73 65 3a 20 53 61 6d |t-and-mo|use: Sam|
|00001ad0| 65 20 61 73 20 60 61 6e | 69 6d 61 74 65 27 2e 0a |e as `an|imate'..|
|00001ae0| 20 2a 20 70 72 6f 74 65 | 75 73 3a 20 41 73 20 60 | * prote|us: As `|
|00001af0| 61 6e 69 6d 61 74 65 27 | 2c 20 62 75 74 20 63 68 |animate'|, but ch|
|00001b00| 61 6e 67 65 73 20 74 68 | 65 20 73 68 61 70 65 20 |anges th|e shape |
|00001b10| 6f 66 20 74 68 65 20 6d | 6f 75 73 65 20 70 6f 69 |of the m|ouse poi|
|00001b20| 6e 74 65 72 20 74 6f 6f | 2e 0a 0a 57 68 65 6e 65 |nter too|...Whene|
|00001b30| 76 65 72 20 74 68 65 20 | 6d 6f 75 73 65 20 69 73 |ver the |mouse is|
|00001b40| 20 6d 6f 76 65 64 2c 20 | 74 68 65 20 66 72 61 6d | moved, |the fram|
|00001b50| 65 20 69 73 20 61 6c 73 | 6f 20 72 61 69 73 65 64 |e is als|o raised|
|00001b60| 2e 0a 0a 28 73 65 65 20 | 60 6d 6f 75 73 65 2d 61 |...(see |`mouse-a|
|00001b70| 76 6f 69 64 61 6e 63 65 | 2d 74 68 72 65 73 68 6f |voidance|-thresho|
|00001b80| 6c 64 27 20 66 6f 72 20 | 64 65 66 69 6e 69 74 69 |ld' for |definiti|
|00001b90| 6f 6e 20 6f 66 20 5c 22 | 74 6f 6f 20 63 6c 6f 73 |on of \"|too clos|
|00001ba0| 65 5c 22 2c 0a 61 6e 64 | 20 60 6d 6f 75 73 65 2d |e\",.and| `mouse-|
|00001bb0| 61 76 6f 69 64 61 6e 63 | 65 2d 6e 75 64 67 65 2d |avoidanc|e-nudge-|
|00001bc0| 64 69 73 74 27 20 61 6e | 64 20 60 6d 6f 75 73 65 |dist' an|d `mouse|
|00001bd0| 2d 61 76 6f 69 64 61 6e | 63 65 2d 6e 75 64 67 65 |-avoidan|ce-nudge|
|00001be0| 2d 76 61 72 27 20 66 6f | 72 0a 64 65 66 69 6e 69 |-var' fo|r.defini|
|00001bf0| 74 69 6f 6e 20 6f 66 20 | 5c 22 72 61 6e 64 6f 6d |tion of |\"random|
|00001c00| 20 64 69 73 74 61 6e 63 | 65 5c 22 2e 29 22 20 28 | distanc|e\".)" (|
|00001c10| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 c4 |byte-cod|e ".....|
|00001c20| c5 24 21 43 87 22 20 5b | 69 6e 74 65 72 6e 20 63 |.$!C." [|intern c|
|00001c30| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|00001c40| 53 65 6c 65 63 74 20 63 | 75 72 73 6f 72 20 61 76 |Select c|ursor av|
|00001c50| 6f 69 64 61 6e 63 65 20 | 74 65 63 68 6e 69 71 75 |oidance |techniqu|
|00001c60| 65 20 28 53 50 41 43 45 | 20 66 6f 72 20 6c 69 73 |e (SPACE| for lis|
|00001c70| 74 29 3a 20 22 20 28 28 | 22 62 61 6e 69 73 68 22 |t): " ((|"banish"|
|00001c80| 29 20 28 22 65 78 69 6c | 65 22 29 20 28 22 6a 75 |) ("exil|e") ("ju|
|00001c90| 6d 70 22 29 20 28 22 61 | 6e 69 6d 61 74 65 22 29 |mp") ("a|nimate")|
|00001ca0| 20 28 22 63 61 74 2d 61 | 6e 64 2d 6d 6f 75 73 65 | ("cat-a|nd-mouse|
|00001cb0| 22 29 20 28 22 70 72 6f | 74 65 75 73 22 29 20 28 |") ("pro|teus") (|
|00001cc0| 22 6e 6f 6e 65 22 29 29 | 20 6e 69 6c 20 74 5d 20 |"none"))| nil t] |
|00001cd0| 36 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |6)]).(by|te-code |
|00001ce0| 22 c0 09 9e ac 84 c2 09 | 42 11 c0 87 22 20 5b 6d |".......|B..." [m|
|00001cf0| 6f 75 73 65 2d 61 76 6f | 69 64 61 6e 63 65 2d 6d |ouse-avo|idance-m|
|00001d00| 6f 64 65 20 6d 69 6e 6f | 72 2d 6d 6f 64 65 2d 61 |ode mino|r-mode-a|
|00001d10| 6c 69 73 74 20 28 6d 6f | 75 73 65 2d 61 76 6f 69 |list (mo|use-avoi|
|00001d20| 64 61 6e 63 65 2d 6d 6f | 64 65 20 22 20 41 76 6f |dance-mo|de " Avo|
|00001d30| 69 64 22 29 5d 20 32 29 | 0a                      |id")] 2)|.       |
+--------+-------------------------+-------------------------+--------+--------+