/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / vm / vm-minibuf.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 32 39 3a 35 | 34 20 31 39 39 35 0a 3b | 14:29:5|4 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 76 6d |e/editor|/lisp/vm|
|00000090| 2f 76 6d 2d 6d 69 6e 69 | 62 75 66 2e 65 6c 0a 3b |/vm-mini|buf.el.;|
|000000a0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000b0| 20 31 39 2e 31 33 20 58 | 45 6d 61 63 73 20 4c 75 | 19.13 X|Emacs Lu|
|000000c0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000d0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 3b 20 |p versio|n 2.25; |
|000000e0| 31 2d 53 65 70 2d 39 34 | 2e 0a 3b 3b 3b 20 6f 70 |1-Sep-94|..;;; op|
|000000f0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000100| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000110| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000120| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000130| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000140| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000150| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000160| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000170| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000180| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000190| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001a0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001b0| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|000001c0| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001d0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001e0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 22 29 29 |for Emac|s 19."))|
|000001f0| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000200| 21 88 c2 c3 4d 88 c4 c5 | 4d 87 22 20 5b 70 72 6f |!...M...|M." [pro|
|00000210| 76 69 64 65 20 76 6d 2d | 6d 69 6e 69 62 75 66 20 |vide vm-|minibuf |
|00000220| 76 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 2d 63 6f |vm-minib|uffer-co|
|00000230| 6d 70 6c 65 74 65 2d 77 | 6f 72 64 20 23 5b 28 26 |mplete-w|ord #[(&|
|00000240| 6f 70 74 69 6f 6e 61 6c | 20 65 78 69 74 69 6e 67 |optional| exiting|
|00000250| 29 20 22 60 c0 89 89 89 | 89 89 89 89 19 1a 1b 1c |) "`....|........|
|00000260| 1d 1e 06 1e 07 1e 08 1e | 09 6d ac 85 67 ca 3e ab |........|.m..g.>.|
|00000270| 8e cb c0 78 88 6d ac 83 | c0 75 88 60 15 aa 86 cc |...x.m..|.u.`....|
|00000280| c0 77 88 60 15 cc c0 78 | 88 60 16 06 0e 09 62 88 |.w.`...x|.`....b.|
|00000290| 0e 06 0d 7b 13 cd ce 0b | 21 50 12 cf 5c 6e 0e 10 |...{....|!P..\n..|
|000002a0| 5c 22 16 08 d1 d2 0e 08 | 5c 22 16 08 d1 d2 0e 10 |\"......|\"......|
|000002b0| 5c 22 16 07 0e 08 ab 86 | d3 0b 0e 08 5c 22 11 09 |\"......|....\"..|
|000002c0| ac a6 0e 14 ab a2 0e 07 | ab 9e d5 1e 16 d3 0b d7 |........|........|
|000002d0| 0e 16 4f 0e 07 5c 22 89 | 11 ac 87 0e 16 53 16 16 |..O..\".|.....S..|
|000002e0| aa 6c 0b d7 0e 16 4f 11 | 29 09 d8 3d ab aa 0e 08 |.l....O.|)..=....|
|000002f0| 41 ab 90 0e 19 da 3d ac | 8a 0e 1b 3f ad fd dc dd |A.....=.|...?....|
|00000300| 21 aa f8 0e 1e ab 87 0d | 62 88 df 63 aa ed 0e 1b |!.......|b..c....|
|00000310| 3f ad e8 dc e0 21 aa e3 | 09 47 0b 47 5a 89 14 d7 |?....!..|.G.GZ...|
|00000320| 56 ab 98 0d 62 88 09 0c | 5b c0 4f 63 88 0e 1e ad |V...b...|[.Oc....|
|00000330| ca 0e 08 41 3f ad c4 df | 63 aa c0 0c d7 55 ab 9a |...A?...|c....U..|
|00000340| 0e 1b 3f ad b6 0e 21 ac | 85 dc e2 21 aa ad e3 e4 |..?...!.|...!....|
|00000350| d1 e5 0e 08 5c 22 e6 5c | 22 21 aa a1 0e 14 ab 8d |....\".\|"!......|
|00000360| 0d 62 88 e7 0c 21 88 da | 0e 1b 21 aa 90 0e 1e ab |.b...!..|..!.....|
|00000370| 84 df 63 aa 88 0e 1b 3f | ad 83 dc e8 21 2e 09 87 |..c....?|....!...|
|00000380| 22 20 5b 6e 69 6c 20 63 | 6f 6d 70 6c 65 74 69 6f |" [nil c|ompletio|
|00000390| 6e 20 77 6f 72 64 2d 70 | 72 65 66 69 78 2d 72 65 |n word-p|refix-re|
|000003a0| 67 65 78 70 20 77 6f 72 | 64 20 64 69 66 66 20 65 |gexp wor|d diff e|
|000003b0| 6e 64 20 62 65 67 20 63 | 2d 6c 69 73 74 20 74 72 |nd beg c|-list tr|
|000003c0| 69 6d 6d 65 64 2d 63 2d | 6c 69 73 74 20 6f 70 6f |immed-c-|list opo|
|000003d0| 69 6e 74 20 28 39 20 31 | 30 20 33 32 29 20 22 20 |int (9 1|0 32) " |
|000003e0| 09 5c 6e 22 20 22 5e 20 | 09 5c 6e 22 20 22 5e 22 |.\n" "^ |.\n" "^"|
|000003f0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 76 6d | regexp-|quote vm|
|00000400| 2d 64 65 6c 65 74 65 2d | 6e 6f 6e 2d 6d 61 74 63 |-delete-|non-matc|
|00000410| 68 69 6e 67 2d 73 74 72 | 69 6e 67 73 20 76 6d 2d |hing-str|ings vm-|
|00000420| 6d 69 6e 69 62 75 66 66 | 65 72 2d 63 6f 6d 70 6c |minibuff|er-compl|
|00000430| 65 74 69 6f 6e 2d 74 61 | 62 6c 65 20 6d 61 70 63 |etion-ta|ble mapc|
|00000440| 61 72 20 6c 69 73 74 20 | 74 72 79 2d 63 6f 6d 70 |ar list |try-comp|
|00000450| 6c 65 74 69 6f 6e 20 76 | 6d 2d 63 6f 6d 70 6c 65 |letion v|m-comple|
|00000460| 74 69 6f 6e 2d 61 75 74 | 6f 2d 63 6f 72 72 65 63 |tion-aut|o-correc|
|00000470| 74 20 2d 31 20 69 20 30 | 20 74 20 6c 61 73 74 2d |t -1 i 0| t last-|
|00000480| 63 6f 6d 6d 61 6e 64 20 | 76 6d 2d 6d 69 6e 69 62 |command |vm-minib|
|00000490| 75 66 66 65 72 2d 63 6f | 6d 70 6c 65 74 65 2d 77 |uffer-co|mplete-w|
|000004a0| 6f 72 64 20 65 78 69 74 | 69 6e 67 20 76 6d 2d 6d |ord exit|ing vm-m|
|000004b0| 69 6e 69 62 75 66 66 65 | 72 2d 63 6f 6d 70 6c 65 |inibuffe|r-comple|
|000004c0| 74 69 6f 6e 2d 6d 65 73 | 73 61 67 65 20 22 5b 43 |tion-mes|sage "[C|
|000004d0| 6f 6d 70 6c 65 74 65 2c | 20 62 75 74 20 6e 6f 74 |omplete,| but not|
|000004e0| 20 75 6e 69 71 75 65 5d | 22 20 76 6d 2d 63 6f 6d | unique]|" vm-com|
|000004f0| 70 6c 65 74 69 6f 6e 2d | 61 75 74 6f 2d 73 70 61 |pletion-|auto-spa|
|00000500| 63 65 20 22 20 22 20 22 | 5b 53 6f 6c 65 20 63 6f |ce " " "|[Sole co|
|00000510| 6d 70 6c 65 74 69 6f 6e | 5d 22 20 63 6f 6d 70 6c |mpletion|]" compl|
|00000520| 65 74 69 6f 6e 2d 61 75 | 74 6f 2d 68 65 6c 70 20 |etion-au|to-help |
|00000530| 22 5b 41 6d 62 69 67 75 | 6f 75 73 5d 22 20 76 6d |"[Ambigu|ous]" vm|
|00000540| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 73 68 6f 77 |-minibuf|fer-show|
|00000550| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 73 6f 72 |-complet|ions sor|
|00000560| 74 20 63 61 72 20 73 74 | 72 69 6e 67 2d 6c 65 73 |t car st|ring-les|
|00000570| 73 70 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 22 |sp delet|e-char "|
|00000580| 5b 4e 6f 20 6d 61 74 63 | 68 5d 22 5d 20 31 30 20 |[No matc|h]"] 10 |
|00000590| 6e 69 6c 20 6e 69 6c 5d | 20 76 6d 2d 6d 69 6e 69 |nil nil]| vm-mini|
|000005a0| 62 75 66 66 65 72 2d 63 | 6f 6d 70 6c 65 74 65 2d |buffer-c|omplete-|
|000005b0| 77 6f 72 64 2d 61 6e 64 | 2d 65 78 69 74 20 23 5b |word-and|-exit #[|
|000005c0| 6e 69 6c 20 22 c0 c1 21 | 88 c2 20 87 22 20 5b 76 |nil "..!|.. ." [v|
|000005d0| 6d 2d 6d 69 6e 69 62 75 | 66 66 65 72 2d 63 6f 6d |m-minibu|ffer-com|
|000005e0| 70 6c 65 74 65 2d 77 6f | 72 64 20 74 20 65 78 69 |plete-wo|rd t exi|
|000005f0| 74 2d 6d 69 6e 69 62 75 | 66 66 65 72 5d 20 32 20 |t-minibu|ffer] 2 |
|00000600| 6e 69 6c 20 6e 69 6c 5d | 5d 20 32 29 0a 28 66 73 |nil nil]|] 2).(fs|
|00000610| 65 74 20 27 76 6d 2d 6d | 69 6e 69 62 75 66 66 65 |et 'vm-m|inibuffe|
|00000620| 72 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 6d 65 73 |r-comple|tion-mes|
|00000630| 73 61 67 65 20 23 5b 28 | 73 74 72 69 6e 67 20 26 |sage #[(|string &|
|00000640| 6f 70 74 69 6f 6e 61 6c | 20 73 65 63 6f 6e 64 73 |optional| seconds|
|00000650| 29 20 22 c0 c1 1a 1b 8a | 64 62 88 60 13 c4 0d b1 |) ".....|db.`....|
|00000660| 02 88 29 c6 0e 07 ae 81 | c8 21 88 0b 64 7c 2a 87 |..).....|.!..d|*.|
|00000670| 22 20 5b 6e 69 6c 20 74 | 20 69 6e 68 69 62 69 74 |" [nil t| inhibit|
|00000680| 2d 71 75 69 74 20 6f 6d | 61 78 20 22 20 22 20 73 |-quit om|ax " " s|
|00000690| 74 72 69 6e 67 20 73 69 | 74 2d 66 6f 72 20 73 65 |tring si|t-for se|
|000006a0| 63 6f 6e 64 73 20 32 5d | 20 32 20 22 5c 0a 42 72 |conds 2]| 2 "\.Br|
|000006b0| 69 65 66 6c 79 20 64 69 | 73 70 6c 61 79 20 53 54 |iefly di|splay ST|
|000006c0| 52 49 4e 47 20 74 6f 20 | 74 68 65 20 72 69 67 68 |RING to |the righ|
|000006d0| 74 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t of the| current|
|000006e0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 69 6e 70 75 | minibuf|fer inpu|
|000006f0| 74 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 73 65 63 6f |t..Optio|nal seco|
|00000700| 6e 64 20 61 72 67 20 53 | 45 43 4f 4e 44 53 20 73 |nd arg S|ECONDS s|
|00000710| 70 65 63 69 66 69 65 73 | 20 68 6f 77 20 6c 6f 6e |pecifies| how lon|
|00000720| 67 20 74 6f 20 6b 65 65 | 70 20 74 68 65 20 6d 65 |g to kee|p the me|
|00000730| 73 73 61 67 65 20 76 69 | 73 69 62 6c 65 3b 0a 74 |ssage vi|sible;.t|
|00000740| 68 65 20 64 65 66 61 75 | 6c 74 20 69 73 20 32 20 |he defau|lt is 2 |
|00000750| 73 65 63 6f 6e 64 73 2e | 0a 0a 41 20 6b 65 79 70 |seconds.|..A keyp|
|00000760| 72 65 73 73 20 63 61 75 | 73 65 73 20 74 68 65 20 |ress cau|ses the |
|00000770| 69 6d 6d 65 64 69 61 74 | 65 20 65 72 61 73 75 72 |immediat|e erasur|
|00000780| 65 20 6f 66 20 74 68 65 | 20 53 54 52 49 4e 47 2c |e of the| STRING,|
|00000790| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 6f 66 20 63 | and ret|urn of c|
|000007a0| 6f 6e 74 72 6f 6c 0a 74 | 6f 20 74 68 65 20 63 61 |ontrol.t|o the ca|
|000007b0| 6c 6c 69 6e 67 20 70 72 | 6f 67 72 61 6d 2e 22 5d |lling pr|ogram."]|
|000007c0| 29 0a 28 66 73 65 74 20 | 27 76 6d 2d 6d 69 6e 69 |).(fset |'vm-mini|
|000007d0| 62 75 66 66 65 72 2d 72 | 65 70 6c 61 63 65 2d 77 |buffer-r|eplace-w|
|000007e0| 6f 72 64 20 23 5b 28 77 | 6f 72 64 29 20 22 64 62 |ord #[(w|ord) "db|
|000007f0| 88 c0 c1 78 88 60 64 7c | 88 5c 6e 63 87 22 20 5b |...x.`d||.\nc." [|
|00000800| 22 5e 20 09 5c 6e 22 20 | 6e 69 6c 20 77 6f 72 64 |"^ .\n" |nil word|
|00000810| 5d 20 32 5d 29 0a 28 66 | 73 65 74 20 27 76 6d 2d |] 2]).(f|set 'vm-|
|00000820| 6d 69 6e 69 62 75 66 66 | 65 72 2d 73 68 6f 77 2d |minibuff|er-show-|
|00000830| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 23 5b 28 6c |completi|ons #[(l|
|00000840| 69 73 74 29 20 22 8a c0 | c1 21 71 88 c2 13 c4 c5 |ist) "..|.!q.....|
|00000850| 20 21 88 c6 70 21 88 c7 | 20 88 c8 63 88 c9 13 ca | !..p!..| ..c....|
|00000860| 0e 0b cc cd 20 0e 0e 44 | 23 88 65 62 29 87 22 20 |.... ..D|#.eb)." |
|00000870| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |[get-buf|fer-crea|
|00000880| 74 65 20 22 20 2a 43 6f | 6d 70 6c 65 74 69 6f 6e |te " *Co|mpletion|
|00000890| 73 2a 22 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |s*" nil |buffer-r|
|000008a0| 65 61 64 2d 6f 6e 6c 79 | 20 75 73 65 2d 6c 6f 63 |ead-only| use-loc|
|000008b0| 61 6c 2d 6d 61 70 20 6d | 61 6b 65 2d 73 70 61 72 |al-map m|ake-spar|
|000008c0| 73 65 2d 6b 65 79 6d 61 | 70 20 64 69 73 70 6c 61 |se-keyma|p displa|
|000008d0| 79 2d 62 75 66 66 65 72 | 20 65 72 61 73 65 2d 62 |y-buffer| erase-b|
|000008e0| 75 66 66 65 72 20 22 50 | 6f 73 73 69 62 6c 65 20 |uffer "P|ossible |
|000008f0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 61 72 65 3a |completi|ons are:|
|00000900| 5c 6e 22 20 74 20 76 6d | 2d 73 68 6f 77 2d 6c 69 |\n" t vm|-show-li|
|00000910| 73 74 20 6c 69 73 74 20 | 76 6d 2d 6d 69 6e 69 62 |st list |vm-minib|
|00000920| 75 66 66 65 72 2d 72 65 | 70 6c 61 63 65 2d 77 6f |uffer-re|place-wo|
|00000930| 72 64 20 63 75 72 72 65 | 6e 74 2d 6c 6f 63 61 6c |rd curre|nt-local|
|00000940| 2d 6d 61 70 20 6d 69 6e | 69 62 75 66 66 65 72 2d |-map min|ibuffer-|
|00000950| 6c 6f 63 61 6c 2d 6d 61 | 70 5d 20 35 20 22 5c 0a |local-ma|p] 5 "\.|
|00000960| 44 69 73 70 6c 61 79 20 | 4c 49 53 54 20 69 6e 20 |Display |LIST in |
|00000970| 61 20 6d 75 6c 74 69 2d | 63 6f 6c 75 6d 6e 20 6c |a multi-|column l|
|00000980| 69 73 74 69 6e 67 20 69 | 6e 20 74 68 65 20 5c 22 |isting i|n the \"|
|00000990| 20 2a 43 6f 6d 70 6c 65 | 74 69 6f 6e 73 2a 5c 22 | *Comple|tions*\"|
|000009a0| 20 62 75 66 66 65 72 2e | 0a 4c 49 53 54 20 73 68 | buffer.|.LIST sh|
|000009b0| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 20 6f |ould be |a list o|
|000009c0| 66 20 73 74 72 69 6e 67 | 73 2e 22 5d 29 0a 28 66 |f string|s."]).(f|
|000009d0| 73 65 74 20 27 76 6d 2d | 73 68 6f 77 2d 6c 69 73 |set 'vm-|show-lis|
|000009e0| 74 20 23 5b 28 6c 69 73 | 74 20 26 6f 70 74 69 6f |t #[(lis|t &optio|
|000009f0| 6e 61 6c 20 66 75 6e 63 | 74 69 6f 6e 20 6b 65 79 |nal func|tion key|
|00000a00| 6d 61 70 73 29 20 22 08 | ac 88 c1 20 ad 83 c1 20 |maps) ".|... ... |
|00000a10| 43 10 8a c2 89 89 89 89 | 89 89 89 89 89 89 89 1b |C.......|........|
|00000a20| 1c 1d 1e 06 1e 07 1e 08 | 1e 09 1e 5c 6e 1e 0b 1e |........|...\n...|
|00000a30| 0c 1e 0d 1e 0e 0e 0f ab | f4 08 ab f1 d0 20 ab ed |........|..... ..|
|00000a40| d1 d2 d3 d4 d5 d6 d7 0e | 0f d7 44 45 45 46 14 08 |........|..DEEF..|
|00000a50| ab db 08 40 13 d8 20 ab | 94 d9 0b da 0c 23 88 d9 |...@.. .|.....#..|
|00000a60| 0b db 0c 23 88 d9 0b dc | 0c 23 88 aa ba dd 20 ab |...#....|.#.... .|
|00000a70| b6 d9 0b de df 23 88 d9 | 0b e0 df 23 88 d9 0b e1 |.....#..|...#....|
|00000a80| 0c 23 88 d9 0b e2 df 23 | 88 d9 0b e3 df 23 88 d9 |.#.....#|.....#..|
|00000a90| 0b e4 0c 23 88 d9 0b e5 | df 23 88 d9 0b e6 df 23 |...#....|.#.....#|
|00000aa0| 88 d9 0b e7 0c 23 88 08 | 41 89 10 ac 25 e8 70 21 |.....#..|A...%.p!|
|00000ab0| 16 06 0e 29 16 08 ea 16 | 09 ea 16 0c 0e 08 ab 96 |...)....|........|
|00000ac0| 0e 0c 0e 08 40 47 5d 16 | 0c 0e 09 54 16 09 0e 08 |....@G].|...T....|
|00000ad0| 41 89 16 08 ac 6a 0e 0c | eb 5c 5c 16 0c ec ed 0e |A....j..|.\\.....|
|00000ae0| 06 21 ee 5a 0e 0c a5 5d | 16 5c 6e 0e 09 0e 5c 6e |.!.Z...]|.\n...\n|
|00000af0| a5 16 0b 0e 09 0e 5c 6e | a6 ea 55 ab 83 ea aa 81 |......\n|..U.....|
|00000b00| ec 0e 0b 5c 5c 16 0b 0e | 5c 6e 16 07 c2 16 0d 0e |...\\...|\n......|
|00000b10| 07 ea 55 ac 92 0e 0c 0e | 07 5f 0e 0d 42 16 0d 0e |..U.....|._..B...|
|00000b20| 07 53 89 16 07 aa 6a 0e | 29 16 08 ea 16 07 0e 08 |.S....j.|).......|
|00000b30| ad b2 60 15 0e 08 40 63 | 88 0e 0f ab 85 ef 0d 60 |..`...@c|.......`|
|00000b40| 5c 22 88 0e 07 54 16 07 | 0e 08 41 16 08 0e 07 0e |\"...T..|..A.....|
|00000b50| 5c 6e a6 ea 55 ab 85 f0 | 63 88 aa 54 0e 0d 1e 31 |\n..U...|c..T...1|
|00000b60| f2 20 88 29 aa 4a 2e 0d | 87 22 20 5b 6b 65 79 6d |. .).J..|." [keym|
|00000b70| 61 70 73 20 63 75 72 72 | 65 6e 74 2d 6c 6f 63 61 |aps curr|ent-loca|
|00000b80| 6c 2d 6d 61 70 20 6e 69 | 6c 20 6b 65 79 6d 61 70 |l-map ni|l keymap|
|00000b90| 20 63 6f 6d 6d 61 6e 64 | 20 73 74 61 72 74 20 77 | command| start w|
|00000ba0| 20 69 20 71 20 6c 69 73 | 74 2d 6c 65 6e 67 74 68 | i q lis|t-length|
|00000bb0| 20 63 6f 6c 75 6d 6e 73 | 20 72 6f 77 73 20 6c 6f | columns| rows lo|
|00000bc0| 6e 67 65 73 74 20 74 61 | 62 2d 73 74 6f 70 73 20 |ngest ta|b-stops |
|00000bd0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00000be0| 20 66 75 6e 63 74 69 6f | 6e 20 76 6d 2d 6d 6f 75 | functio|n vm-mou|
|00000bf0| 73 65 2d 73 75 70 70 6f | 72 74 2d 70 6f 73 73 69 |se-suppo|rt-possi|
|00000c00| 62 6c 65 2d 70 20 6c 61 | 6d 62 64 61 20 28 65 29 |ble-p la|mbda (e)|
|00000c10| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 65 | (intera|ctive "e|
|00000c20| 22 29 20 6c 65 74 20 28 | 28 73 74 72 69 6e 67 20 |") let (|(string |
|00000c30| 28 76 6d 2d 6d 6f 75 73 | 65 2d 67 65 74 2d 6d 6f |(vm-mous|e-get-mo|
|00000c40| 75 73 65 2d 74 72 61 63 | 6b 2d 73 74 72 69 6e 67 |use-trac|k-string|
|00000c50| 20 65 29 29 29 20 61 6e | 64 20 73 74 72 69 6e 67 | e))) an|d string|
|00000c60| 20 76 6d 2d 6d 6f 75 73 | 65 2d 78 65 6d 61 63 73 | vm-mous|e-xemacs|
|00000c70| 2d 6d 6f 75 73 65 2d 70 | 20 64 65 66 69 6e 65 2d |-mouse-p| define-|
|00000c80| 6b 65 79 20 62 75 74 74 | 6f 6e 31 20 62 75 74 74 |key butt|on1 butt|
|00000c90| 6f 6e 32 20 62 75 74 74 | 6f 6e 33 20 76 6d 2d 6d |on2 butt|on3 vm-m|
|00000ca0| 6f 75 73 65 2d 66 73 66 | 65 6d 61 63 73 2d 6d 6f |ouse-fsf|emacs-mo|
|00000cb0| 75 73 65 2d 70 20 5b 64 | 6f 77 6e 2d 6d 6f 75 73 |use-p [d|own-mous|
|00000cc0| 65 2d 31 5d 20 69 67 6e | 6f 72 65 20 5b 64 72 61 |e-1] ign|ore [dra|
|00000cd0| 67 2d 6d 6f 75 73 65 2d | 31 5d 20 5b 6d 6f 75 73 |g-mouse-|1] [mous|
|00000ce0| 65 2d 31 5d 20 5b 64 72 | 61 67 2d 6d 6f 75 73 65 |e-1] [dr|ag-mouse|
|00000cf0| 2d 32 5d 20 5b 64 6f 77 | 6e 2d 6d 6f 75 73 65 2d |-2] [dow|n-mouse-|
|00000d00| 32 5d 20 5b 6d 6f 75 73 | 65 2d 32 5d 20 5b 64 72 |2] [mous|e-2] [dr|
|00000d10| 61 67 2d 6d 6f 75 73 65 | 2d 33 5d 20 5b 64 6f 77 |ag-mouse|-3] [dow|
|00000d20| 6e 2d 6d 6f 75 73 65 2d | 33 5d 20 5b 6d 6f 75 73 |n-mouse-|3] [mous|
|00000d30| 65 2d 33 5d 20 76 6d 2d | 67 65 74 2d 62 75 66 66 |e-3] vm-|get-buff|
|00000d40| 65 72 2d 77 69 6e 64 6f | 77 20 6c 69 73 74 20 30 |er-windo|w list 0|
|00000d50| 20 33 20 31 20 77 69 6e | 64 6f 77 2d 77 69 64 74 | 3 1 win|dow-widt|
|00000d60| 68 20 32 20 76 6d 2d 6d | 6f 75 73 65 2d 73 65 74 |h 2 vm-m|ouse-set|
|00000d70| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 68 69 67 |-mouse-t|rack-hig|
|00000d80| 68 6c 69 67 68 74 20 22 | 5c 6e 22 20 74 61 62 2d |hlight "|\n" tab-|
|00000d90| 73 74 6f 70 2d 6c 69 73 | 74 20 74 61 62 2d 74 6f |stop-lis|t tab-to|
|00000da0| 2d 74 61 62 2d 73 74 6f | 70 5d 20 31 33 20 22 5c |-tab-sto|p] 13 "\|
|00000db0| 0a 44 69 73 70 6c 61 79 | 20 4c 49 53 54 20 69 6e |.Display| LIST in|
|00000dc0| 20 61 20 6d 75 6c 74 69 | 2d 63 6f 6c 75 6d 6e 20 | a multi|-column |
|00000dd0| 6c 69 73 74 69 6e 67 20 | 69 6e 20 74 68 65 20 63 |listing |in the c|
|00000de0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 61 74 |urrent b|uffer at|
|00000df0| 20 70 6f 69 6e 74 2e 0a | 54 68 65 20 63 75 72 72 | point..|The curr|
|00000e00| 65 6e 74 20 62 75 66 66 | 65 72 20 6d 75 73 74 20 |ent buff|er must |
|00000e10| 62 65 20 64 69 73 70 6c | 61 79 65 64 20 69 6e 20 |be displ|ayed in |
|00000e20| 73 6f 6d 65 20 77 69 6e | 64 6f 77 20 61 74 20 74 |some win|dow at t|
|00000e30| 68 65 20 74 69 6d 65 0a | 74 68 69 73 20 66 75 6e |he time.|this fun|
|00000e40| 63 74 69 6f 6e 20 69 73 | 20 63 61 6c 6c 65 64 2e |ction is| called.|
|00000e50| 0a 0a 4c 49 53 54 20 73 | 68 6f 75 6c 64 20 62 65 |..LIST s|hould be|
|00000e60| 20 61 20 6c 69 73 74 20 | 6f 66 20 73 74 72 69 6e | a list |of strin|
|00000e70| 67 73 2e 0a 0a 4f 70 74 | 69 6f 6e 61 6c 20 73 65 |gs...Opt|ional se|
|00000e80| 63 6f 6e 64 20 61 72 67 | 75 6d 65 6e 74 20 46 55 |cond arg|ument FU|
|00000e90| 4e 43 54 49 4f 4e 20 77 | 69 6c 6c 20 62 65 20 63 |NCTION w|ill be c|
|00000ea0| 61 6c 6c 65 64 20 69 66 | 20 74 68 65 20 6d 6f 75 |alled if| the mou|
|00000eb0| 73 65 20 69 73 0a 63 6c | 69 63 6b 65 64 20 6f 6e |se is.cl|icked on|
|00000ec0| 20 6f 6e 65 20 6f 66 20 | 74 68 65 20 73 74 72 69 | one of |the stri|
|00000ed0| 6e 67 73 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ngs in t|he curre|
|00000ee0| 6e 74 20 62 75 66 66 65 | 72 2e 20 20 54 68 65 20 |nt buffe|r.  The |
|00000ef0| 73 74 72 69 6e 67 0a 63 | 6c 69 63 6b 65 64 20 75 |string.c|licked u|
|00000f00| 70 6f 6e 20 77 69 6c 6c | 20 62 65 20 70 61 73 73 |pon will| be pass|
|00000f10| 65 64 20 74 6f 20 46 55 | 4e 43 54 49 4f 4e 20 61 |ed to FU|NCTION a|
|00000f20| 73 20 69 74 73 20 73 6f | 6c 65 20 61 72 67 75 6d |s its so|le argum|
|00000f30| 65 6e 74 2e 0a 0a 4f 70 | 74 69 6f 6e 61 6c 20 74 |ent...Op|tional t|
|00000f40| 68 69 72 64 20 61 72 67 | 75 6d 65 6e 74 20 4b 45 |hird arg|ument KE|
|00000f50| 59 4d 41 50 53 20 73 70 | 65 63 69 66 69 65 73 20 |YMAPS sp|ecifies |
|00000f60| 61 20 6c 69 73 74 73 20 | 6f 66 20 6b 65 79 6d 61 |a lists |of keyma|
|00000f70| 70 73 0a 77 68 65 72 65 | 20 74 68 65 20 46 55 4e |ps.where| the FUN|
|00000f80| 43 54 49 4f 4e 20 73 68 | 6f 75 6c 64 20 62 65 20 |CTION sh|ould be |
|00000f90| 62 6f 75 6e 64 20 74 6f | 20 74 68 65 20 6d 6f 75 |bound to| the mou|
|00000fa0| 73 65 20 63 6c 69 63 6b | 73 2e 20 20 42 79 0a 64 |se click|s.  By.d|
|00000fb0| 65 66 61 75 6c 74 20 74 | 68 65 20 6c 6f 63 61 6c |efault t|he local|
|00000fc0| 20 6b 65 79 6d 61 70 20 | 6f 66 20 74 68 65 20 63 | keymap |of the c|
|00000fd0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 69 73 |urrent b|uffer is|
|00000fe0| 20 75 73 65 64 2e 22 5d | 29 0a 28 62 79 74 65 2d | used."]|).(byte-|
|00000ff0| 63 6f 64 65 20 22 c0 c1 | 4d 88 c2 c3 4d 88 c4 c5 |code "..|M...M...|
|00001000| 4d 88 c6 c7 4d 87 22 20 | 5b 76 6d 2d 6d 69 6e 69 |M...M." |[vm-mini|
|00001010| 62 75 66 66 65 72 2d 63 | 6f 6d 70 6c 65 74 69 6f |buffer-c|ompletio|
|00001020| 6e 2d 68 65 6c 70 20 23 | 5b 6e 69 6c 20 22 60 c0 |n-help #|[nil "`.|
|00001030| 89 89 89 89 19 1a 1b 1c | 1d 1e 06 6d ac 85 67 c7 |........|...m..g.|
|00001040| 3e ab 8e c8 c0 78 88 6d | ac 83 c0 75 88 60 13 aa |>....x.m|...u.`..|
|00001050| 86 c9 c0 77 88 60 13 c9 | c0 78 88 60 14 0e 06 62 |...w.`..|.x.`...b|
|00001060| 88 0c 0b 7b 12 ca cb 5c | 6e 21 50 11 cc 09 0e 0d |...{...\|n!P.....|
|00001070| 5c 22 15 ce 0d cf 5c 22 | 89 15 ab 85 d0 0d 21 aa |\"....\"|......!.|
|00001080| 83 d1 d2 21 2e 06 87 22 | 20 5b 6e 69 6c 20 77 6f |...!..."| [nil wo|
|00001090| 72 64 2d 70 72 65 66 69 | 78 2d 72 65 67 65 78 70 |rd-prefi|x-regexp|
|000010a0| 20 77 6f 72 64 20 65 6e | 64 20 62 65 67 20 63 2d | word en|d beg c-|
|000010b0| 6c 69 73 74 20 6f 70 6f | 69 6e 74 20 28 39 20 31 |list opo|int (9 1|
|000010c0| 30 20 33 32 29 20 22 20 | 09 5c 6e 22 20 22 5e 20 |0 32) " |.\n" "^ |
|000010d0| 09 5c 6e 22 20 22 5e 22 | 20 72 65 67 65 78 70 2d |.\n" "^"| regexp-|
|000010e0| 71 75 6f 74 65 20 76 6d | 2d 64 65 6c 65 74 65 2d |quote vm|-delete-|
|000010f0| 6e 6f 6e 2d 6d 61 74 63 | 68 69 6e 67 2d 73 74 72 |non-matc|hing-str|
|00001100| 69 6e 67 73 20 76 6d 2d | 6d 69 6e 69 62 75 66 66 |ings vm-|minibuff|
|00001110| 65 72 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 74 61 |er-compl|etion-ta|
|00001120| 62 6c 65 20 73 6f 72 74 | 20 73 74 72 69 6e 67 2d |ble sort| string-|
|00001130| 6c 65 73 73 70 20 76 6d | 2d 6d 69 6e 69 62 75 66 |lessp vm|-minibuf|
|00001140| 66 65 72 2d 73 68 6f 77 | 2d 63 6f 6d 70 6c 65 74 |fer-show|-complet|
|00001150| 69 6f 6e 73 20 76 6d 2d | 6d 69 6e 69 62 75 66 66 |ions vm-|minibuff|
|00001160| 65 72 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6d 65 |er-compl|etion-me|
|00001170| 73 73 61 67 65 20 22 20 | 5b 4e 6f 20 6d 61 74 63 |ssage " |[No matc|
|00001180| 68 5d 22 5d 20 37 20 6e | 69 6c 20 6e 69 6c 5d 20 |h]"] 7 n|il nil] |
|00001190| 76 6d 2d 6b 65 79 62 6f | 61 72 64 2d 72 65 61 64 |vm-keybo|ard-read|
|000011a0| 2d 73 74 72 69 6e 67 20 | 23 5b 28 70 72 6f 6d 70 |-string |#[(promp|
|000011b0| 74 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 6c 69 73 |t comple|tion-lis|
|000011c0| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 6d 75 6c 74 |t &optio|nal mult|
|000011d0| 69 2d 77 6f 72 64 29 20 | 22 c0 09 21 5c 6e 0b 1c |i-word) |"..!\n..|
|000011e0| 1d 19 c6 09 c7 c8 23 88 | c6 09 c9 c8 23 88 c6 09 |......#.|....#...|
|000011f0| ca cb 23 88 5c 6e ac 86 | c6 09 cc cd 23 88 ce 0e |..#.\n..|....#...|
|00001200| 0f 21 2b 87 22 20 5b 63 | 6f 70 79 2d 6b 65 79 6d |.!+." [c|opy-keym|
|00001210| 61 70 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 6c 6f |ap minib|uffer-lo|
|00001220| 63 61 6c 2d 6d 61 70 20 | 6d 75 6c 74 69 2d 77 6f |cal-map |multi-wo|
|00001230| 72 64 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6c 69 |rd compl|etion-li|
|00001240| 73 74 20 76 6d 2d 6d 69 | 6e 69 62 75 66 66 65 72 |st vm-mi|nibuffer|
|00001250| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 74 61 62 6c |-complet|ion-tabl|
|00001260| 65 20 76 6d 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |e vm-com|pletion-|
|00001270| 61 75 74 6f 2d 73 70 61 | 63 65 20 64 65 66 69 6e |auto-spa|ce defin|
|00001280| 65 2d 6b 65 79 20 22 09 | 22 20 76 6d 2d 6d 69 6e |e-key ".|" vm-min|
|00001290| 69 62 75 66 66 65 72 2d | 63 6f 6d 70 6c 65 74 65 |ibuffer-|complete|
|000012a0| 2d 77 6f 72 64 20 22 20 | 22 20 22 3f 22 20 76 6d |-word " |" "?" vm|
|000012b0| 2d 6d 69 6e 69 62 75 66 | 66 65 72 2d 63 6f 6d 70 |-minibuf|fer-comp|
|000012c0| 6c 65 74 69 6f 6e 2d 68 | 65 6c 70 20 22 0d 22 20 |letion-h|elp "." |
|000012d0| 76 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 2d 63 6f |vm-minib|uffer-co|
|000012e0| 6d 70 6c 65 74 65 2d 77 | 6f 72 64 2d 61 6e 64 2d |mplete-w|ord-and-|
|000012f0| 65 78 69 74 20 72 65 61 | 64 2d 73 74 72 69 6e 67 |exit rea|d-string|
|00001300| 20 70 72 6f 6d 70 74 5d | 20 34 5d 20 76 6d 2d 72 | prompt]| 4] vm-r|
|00001310| 65 61 64 2d 73 74 72 69 | 6e 67 20 23 5b 28 70 72 |ead-stri|ng #[(pr|
|00001320| 6f 6d 70 74 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ompt com|pletion-|
|00001330| 6c 69 73 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6d |list &op|tional m|
|00001340| 75 6c 74 69 2d 77 6f 72 | 64 29 20 22 08 40 3a ab |ulti-wor|d) ".@:.|
|00001350| 86 c1 c2 08 5c 22 9f 10 | 08 ab bb c3 20 ab b7 c4 |....\"..|.... ...|
|00001360| 20 ab 9a c5 0e 06 21 ac | 8c c7 0e 06 21 ac 86 c8 | .....!.|....!...|
|00001370| 0e 06 21 ab 88 c9 0e 5c | 6e 08 0e 0b 23 87 cc 20 |..!....\|n...#.. |
|00001380| ab 8d 0e 0d 3c ab 88 c9 | 0e 5c 6e 08 0e 0b 23 87 |....<...|.\n...#.|
|00001390| ce 0e 5c 6e 08 0e 0b 23 | 87 ce 0e 5c 6e 08 0e 0b |..\n...#|...\n...|
|000013a0| 23 87 22 20 5b 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |#." [com|pletion-|
|000013b0| 6c 69 73 74 20 6d 61 70 | 63 61 72 20 63 61 72 20 |list map|car car |
|000013c0| 76 6d 2d 6d 6f 75 73 65 | 2d 73 75 70 70 6f 72 74 |vm-mouse|-support|
|000013d0| 2d 70 6f 73 73 69 62 6c | 65 2d 70 20 76 6d 2d 6d |-possibl|e-p vm-m|
|000013e0| 6f 75 73 65 2d 78 65 6d | 61 63 73 2d 6d 6f 75 73 |ouse-xem|acs-mous|
|000013f0| 65 2d 70 20 62 75 74 74 | 6f 6e 2d 70 72 65 73 73 |e-p butt|on-press|
|00001400| 2d 65 76 65 6e 74 2d 70 | 20 6c 61 73 74 2d 63 6f |-event-p| last-co|
|00001410| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 20 62 75 74 74 |mmand-ev|ent butt|
|00001420| 6f 6e 2d 72 65 6c 65 61 | 73 65 2d 65 76 65 6e 74 |on-relea|se-event|
|00001430| 2d 70 20 6d 65 6e 75 2d | 65 76 65 6e 74 2d 70 20 |-p menu-|event-p |
|00001440| 76 6d 2d 6d 6f 75 73 65 | 2d 72 65 61 64 2d 73 74 |vm-mouse|-read-st|
|00001450| 72 69 6e 67 20 70 72 6f | 6d 70 74 20 6d 75 6c 74 |ring pro|mpt mult|
|00001460| 69 2d 77 6f 72 64 20 76 | 6d 2d 6d 6f 75 73 65 2d |i-word v|m-mouse-|
|00001470| 66 73 66 65 6d 61 63 73 | 2d 6d 6f 75 73 65 2d 70 |fsfemacs|-mouse-p|
|00001480| 20 6c 61 73 74 2d 6e 6f | 6e 6d 65 6e 75 2d 65 76 | last-no|nmenu-ev|
|00001490| 65 6e 74 20 76 6d 2d 6b | 65 79 62 6f 61 72 64 2d |ent vm-k|eyboard-|
|000014a0| 72 65 61 64 2d 73 74 72 | 69 6e 67 5d 20 34 5d 20 |read-str|ing] 4] |
|000014b0| 76 6d 2d 72 65 61 64 2d | 6e 75 6d 62 65 72 20 23 |vm-read-|number #|
|000014c0| 5b 28 70 72 6f 6d 70 74 | 29 20 22 c0 19 c2 c3 c4 |[(prompt|) ".....|
|000014d0| 0d 21 89 11 5c 22 ab 76 | c6 09 21 29 87 22 20 5b |.!..\".v|..!)." [|
|000014e0| 6e 69 6c 20 72 65 73 75 | 6c 74 20 73 74 72 69 6e |nil resu|lt strin|
|000014f0| 67 2d 6d 61 74 63 68 20 | 22 5e 5b 20 09 5d 2a 2d |g-match |"^[ .]*-|
|00001500| 3f 5b 30 2d 39 5d 2b 22 | 20 72 65 61 64 2d 73 74 |?[0-9]+"| read-st|
|00001510| 72 69 6e 67 20 70 72 6f | 6d 70 74 20 73 74 72 69 |ring pro|mpt stri|
|00001520| 6e 67 2d 74 6f 2d 69 6e | 74 5d 20 34 5d 5d 20 32 |ng-to-in|t] 4]] 2|
|00001530| 29 0a 28 66 73 65 74 20 | 27 76 6d 2d 72 65 61 64 |).(fset |'vm-read|
|00001540| 2d 70 61 73 73 77 6f 72 | 64 20 23 5b 28 70 72 6f |-passwor|d #[(pro|
|00001550| 6d 70 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 63 6f |mpt &opt|ional co|
|00001560| 6e 66 69 72 6d 29 20 22 | c0 c1 8d 87 22 20 5b 72 |nfirm) "|...." [r|
|00001570| 65 74 75 72 6e 2d 76 61 | 6c 75 65 20 28 62 79 74 |eturn-va|lue (byt|
|00001580| 65 2d 63 6f 64 65 20 22 | 8a c0 c1 c2 89 c3 c2 89 |e-code "|........|
|00001590| 89 89 1c 1d 1e 06 1e 07 | 1e 08 1e 09 1e 5c 6e 1e |........|.....\n.|
|000015a0| 0b 1e 0c cd 8e 8a ce cf | 21 89 16 5c 6e 71 88 d0 |........|!..\nq..|
|000015b0| 20 88 d1 d2 0e 13 d4 0e | 08 d5 20 5c 22 23 88 d6 | .......|.. \"#..|
|000015c0| 20 89 16 06 d7 3e ac a2 | 0e 06 d8 9e 41 89 14 ab | ....>..|....A...|
|000015d0| 87 d9 da db 8f 88 aa 84 | 0e 06 63 88 d1 d2 0e 13 |........|..c.....|
|000015e0| d4 0e 08 d5 20 5c 22 23 | 88 aa 55 0e 1c ab ac 0e |.... \"#|..U.....|
|000015f0| 07 ab a8 0e 07 dd 20 98 | ac 99 d1 0e 13 d4 0e 08 |...... .|........|
|00001600| d5 20 5c 22 de 51 21 88 | df 20 88 e0 e1 21 88 c2 |. \".Q!.|. ...!..|
|00001610| 16 07 aa 1e e2 e3 0e 07 | 5c 22 88 aa 16 0e 1c ab |........|\"......|
|00001620| 98 dd 20 16 07 d1 0e 13 | d4 0e 08 d5 20 5c 22 e4 |.. .....|.... \".|
|00001630| 51 21 88 e0 e1 21 88 82 | 25 00 d1 e5 21 88 e2 e3 |Q!...!..|%...!...|
|00001640| dd 20 5c 22 88 82 25 00 | 22 20 5b 74 20 30 20 6e |. \"..%.|" [t 0 n|
|00001650| 69 6c 20 22 78 78 78 78 | 78 78 78 78 78 78 78 78 |il "xxxx|xxxxxxxx|
|00001660| 78 78 78 78 78 78 78 78 | 78 78 78 78 78 78 78 78 |xxxxxxxx|xxxxxxxx|
|00001670| 78 78 22 20 66 6f 72 6d | 20 64 6f 6e 65 20 63 68 |xx" form| done ch|
|00001680| 61 72 20 73 74 72 69 6e | 67 20 78 78 78 20 68 65 |ar strin|g xxx he|
|00001690| 6c 70 2d 66 6f 72 6d 20 | 69 6e 70 75 74 2d 62 75 |lp-form |input-bu|
|000016a0| 66 66 65 72 20 65 63 68 | 6f 2d 6b 65 79 73 74 72 |ffer ech|o-keystr|
|000016b0| 6f 6b 65 73 20 63 75 72 | 73 6f 72 2d 69 6e 2d 65 |okes cur|sor-in-e|
|000016c0| 63 68 6f 2d 61 72 65 61 | 20 28 28 62 79 74 65 2d |cho-area| ((byte-|
|000016d0| 63 6f 64 65 20 22 08 ab | 84 c1 08 21 88 c1 87 22 |code "..|...!..."|
|000016e0| 20 5b 69 6e 70 75 74 2d | 62 75 66 66 65 72 20 6b | [input-|buffer k|
|000016f0| 69 6c 6c 2d 62 75 66 66 | 65 72 5d 20 32 29 29 20 |ill-buff|er] 2)) |
|00001700| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001710| 65 20 22 20 2a 70 61 73 | 73 77 6f 72 64 2a 22 20 |e " *pas|sword*" |
|00001720| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 76 6d 2d |erase-bu|ffer vm-|
|00001730| 75 6e 73 61 76 65 64 2d | 6d 65 73 73 61 67 65 20 |unsaved-|message |
|00001740| 22 25 73 25 73 22 20 70 | 72 6f 6d 70 74 20 76 6d |"%s%s" p|rompt vm|
|00001750| 2d 74 72 75 6e 63 61 74 | 65 2d 73 74 72 69 6e 67 |-truncat|e-string|
|00001760| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 72 65 61 | buffer-|size rea|
|00001770| 64 2d 63 68 61 72 20 28 | 31 33 20 31 30 29 20 28 |d-char (|13 10) (|
|00001780| 28 38 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d |(8 delet|e-char -|
|00001790| 31 29 20 28 31 32 37 20 | 64 65 6c 65 74 65 2d 63 |1) (127 |delete-c|
|000017a0| 68 61 72 20 2d 31 29 20 | 28 32 31 20 64 65 6c 65 |har -1) |(21 dele|
|000017b0| 74 65 2d 72 65 67 69 6f | 6e 20 31 20 28 70 6f 69 |te-regio|n 1 (poi|
|000017c0| 6e 74 29 29 20 28 32 34 | 20 64 65 6c 65 74 65 2d |nt)) (24| delete-|
|000017d0| 72 65 67 69 6f 6e 20 31 | 20 28 70 6f 69 6e 74 29 |region 1| (point)|
|000017e0| 29 20 28 31 37 20 71 75 | 6f 74 65 64 2d 69 6e 73 |) (17 qu|oted-ins|
|000017f0| 65 72 74 20 31 29 20 28 | 32 32 20 71 75 6f 74 65 |ert 1) (|22 quote|
|00001800| 64 2d 69 6e 73 65 72 74 | 20 31 29 29 20 65 72 72 |d-insert| 1)) err|
|00001810| 6f 72 2d 64 61 74 61 20 | 28 65 76 61 6c 20 66 6f |or-data |(eval fo|
|00001820| 72 6d 29 20 28 28 65 72 | 72 6f 72 29 29 20 63 6f |rm) ((er|ror)) co|
|00001830| 6e 66 69 72 6d 20 62 75 | 66 66 65 72 2d 73 74 72 |nfirm bu|ffer-str|
|00001840| 69 6e 67 20 22 20 5b 4d | 69 73 6d 61 74 63 68 2e |ing " [M|ismatch.|
|00001850| 2e 2e 20 74 72 79 20 61 | 67 61 69 6e 2e 5d 22 20 |.. try a|gain.]" |
|00001860| 64 69 6e 67 20 73 69 74 | 2d 66 6f 72 20 32 20 74 |ding sit|-for 2 t|
|00001870| 68 72 6f 77 20 72 65 74 | 75 72 6e 2d 76 61 6c 75 |hrow ret|urn-valu|
|00001880| 65 20 22 20 5b 52 65 74 | 79 70 65 20 74 6f 20 63 |e " [Ret|ype to c|
|00001890| 6f 6e 66 69 72 6d 2e 2e | 2e 5d 22 20 22 22 5d 20 |onfirm..|.]" ""] |
|000018a0| 31 30 29 5d 20 32 20 22 | 5c 0a 52 65 61 64 20 61 |10)] 2 "|\.Read a|
|000018b0| 6e 64 20 72 65 74 75 72 | 6e 20 61 20 70 61 73 73 |nd retur|n a pass|
|000018c0| 77 6f 72 64 20 66 72 6f | 6d 20 74 68 65 20 6d 69 |word fro|m the mi|
|000018d0| 6e 69 62 75 66 66 65 72 | 2c 20 70 72 6f 6d 70 74 |nibuffer|, prompt|
|000018e0| 69 6e 67 20 77 69 74 68 | 20 50 52 4f 4d 50 54 2e |ing with| PROMPT.|
|000018f0| 0a 4f 70 74 69 6f 6e 61 | 6c 20 73 65 63 6f 6e 64 |.Optiona|l second|
|00001900| 20 61 72 67 75 6d 65 6e | 74 20 43 4f 4e 46 49 52 | argumen|t CONFIR|
|00001910| 4d 20 6e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |M non-ni|l means |
|00001920| 74 68 61 74 20 74 68 65 | 20 75 73 65 72 20 77 69 |that the| user wi|
|00001930| 6c 6c 20 62 65 20 61 73 | 6b 65 64 0a 20 20 74 6f |ll be as|ked.  to|
|00001940| 20 74 79 70 65 20 74 68 | 65 20 70 61 73 73 77 6f | type th|e passwo|
|00001950| 72 64 20 61 20 73 65 63 | 6f 6e 64 20 74 69 6d 65 |rd a sec|ond time|
|00001960| 20 66 6f 72 20 63 6f 6e | 66 69 72 6d 61 74 69 6f | for con|firmatio|
|00001970| 6e 20 61 6e 64 20 69 66 | 20 74 68 65 72 65 20 69 |n and if| there i|
|00001980| 73 20 61 0a 20 20 6d 69 | 73 6d 61 74 63 68 2c 20 |s a.  mi|smatch, |
|00001990| 74 68 65 20 70 72 6f 63 | 65 73 73 20 69 73 20 72 |the proc|ess is r|
|000019a0| 65 70 65 61 74 65 64 2e | 0a 0a 4c 69 6e 65 20 65 |epeated.|..Line e|
|000019b0| 64 69 74 69 6e 67 20 6b | 65 79 73 20 61 72 65 3a |diting k|eys are:|
|000019c0| 0a 20 20 43 2d 68 2c 20 | 44 45 4c 09 72 75 62 6f |.  C-h, |DEL.rubo|
|000019d0| 75 74 0a 20 20 43 2d 75 | 2c 20 43 2d 78 20 20 20 |ut.  C-u|, C-x   |
|000019e0| 20 20 20 6c 69 6e 65 20 | 6b 69 6c 6c 0a 20 20 43 |   line |kill.  C|
|000019f0| 2d 71 2c 20 43 2d 76 20 | 20 20 20 20 20 6c 69 74 |-q, C-v |     lit|
|00001a00| 65 72 61 6c 20 6e 65 78 | 74 22 5d 29 0a 28 66 73 |eral nex|t"]).(fs|
|00001a10| 65 74 20 27 76 6d 2d 6b | 65 79 62 6f 61 72 64 2d |et 'vm-k|eyboard-|
|00001a20| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 23 |read-fil|e-name #|
|00001a30| 5b 28 70 72 6f 6d 70 74 | 20 26 6f 70 74 69 6f 6e |[(prompt| &option|
|00001a40| 61 6c 20 64 69 72 20 64 | 65 66 61 75 6c 74 20 6d |al dir d|efault m|
|00001a50| 75 73 74 2d 6d 61 74 63 | 68 20 69 6e 69 74 69 61 |ust-matc|h initia|
|00001a60| 6c 20 68 69 73 74 6f 72 | 79 29 20 22 08 4a 19 c2 |l histor|y) ".J..|
|00001a70| 8e c3 c4 c5 8f 2a 87 22 | 20 5b 68 69 73 74 6f 72 |.....*."| [histor|
|00001a80| 79 20 6f 6c 64 76 61 6c | 75 65 20 28 28 62 79 74 |y oldval|ue ((byt|
|00001a90| 65 2d 63 6f 64 65 20 22 | 08 ab 84 08 09 4c 88 c2 |e-code "|.....L..|
|00001aa0| 87 22 20 5b 68 69 73 74 | 6f 72 79 20 6f 6c 64 76 |." [hist|ory oldv|
|00001ab0| 61 6c 75 65 20 6e 69 6c | 5d 20 32 29 29 20 6e 69 |alue nil|] 2)) ni|
|00001ac0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |l (byte-|code "..|
|00001ad0| 5c 6e 0b 0c 0d 0e 06 26 | 06 87 22 20 5b 72 65 61 |\n.....&|.." [rea|
|00001ae0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 70 72 6f 6d |d-file-n|ame prom|
|00001af0| 70 74 20 64 69 72 20 64 | 65 66 61 75 6c 74 20 6d |pt dir d|efault m|
|00001b00| 75 73 74 2d 6d 61 74 63 | 68 20 69 6e 69 74 69 61 |ust-matc|h initia|
|00001b10| 6c 20 68 69 73 74 6f 72 | 79 5d 20 37 29 20 28 28 |l histor|y] 7) ((|
|00001b20| 77 72 6f 6e 67 2d 6e 75 | 6d 62 65 72 2d 6f 66 2d |wrong-nu|mber-of-|
|00001b30| 61 72 67 75 6d 65 6e 74 | 73 20 28 62 79 74 65 2d |argument|s (byte-|
|00001b40| 63 6f 64 65 20 22 08 ab | 94 08 4a c1 1a 1b c4 0d |code "..|..J.....|
|00001b50| 0e 06 0e 07 0e 08 0e 09 | 25 89 12 2a 87 c4 0d 0e |........|%..*....|
|00001b60| 06 0e 07 0e 08 0e 09 25 | 87 22 20 5b 68 69 73 74 |.......%|." [hist|
|00001b70| 6f 72 79 20 6e 69 6c 20 | 66 69 6c 65 20 66 69 6c |ory nil |file fil|
|00001b80| 65 2d 6e 61 6d 65 2d 68 | 69 73 74 6f 72 79 20 72 |e-name-h|istory r|
|00001b90| 65 61 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 70 72 |ead-file|-name pr|
|00001ba0| 6f 6d 70 74 20 64 69 72 | 20 64 65 66 61 75 6c 74 |ompt dir| default|
|00001bb0| 20 6d 75 73 74 2d 6d 61 | 74 63 68 20 69 6e 69 74 | must-ma|tch init|
|00001bc0| 69 61 6c 5d 20 37 29 29 | 29 5d 20 33 20 22 5c 0a |ial] 7))|)] 3 "\.|
|00001bd0| 4c 69 6b 65 20 72 65 61 | 64 2d 66 69 6c 65 2d 6e |Like rea|d-file-n|
|00001be0| 61 6d 65 2c 20 65 78 63 | 65 70 74 20 48 49 53 54 |ame, exc|ept HIST|
|00001bf0| 4f 52 59 27 73 20 76 61 | 6c 75 65 20 69 73 20 75 |ORY's va|lue is u|
|00001c00| 6e 61 6c 74 65 72 65 64 | 2e 22 5d 29 0a 28 66 73 |naltered|."]).(fs|
|00001c10| 65 74 20 27 76 6d 2d 72 | 65 61 64 2d 66 69 6c 65 |et 'vm-r|ead-file|
|00001c20| 2d 6e 61 6d 65 20 23 5b | 28 70 72 6f 6d 70 74 20 |-name #[|(prompt |
|00001c30| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 69 72 20 64 65 |&optiona|l dir de|
|00001c40| 66 61 75 6c 74 20 6d 75 | 73 74 2d 6d 61 74 63 68 |fault mu|st-match|
|00001c50| 20 69 6e 69 74 69 61 6c | 20 68 69 73 74 6f 72 79 | initial| history|
|00001c60| 29 20 22 c0 20 ab cc c1 | 20 ab 9f c2 0b 21 ac 8a |) ". ...| ....!..|
|00001c70| c4 0b 21 ac 85 c5 0b 21 | ab 90 c6 0e 07 0e 08 0e |..!....!|........|
|00001c80| 09 0e 5c 6e 0e 0b 0e 0c | 26 06 87 cd 20 ab 95 0e |..\n....|&... ...|
|00001c90| 0e 3c ab 90 c6 0e 07 0e | 08 0e 09 0e 5c 6e 0e 0b |.<......|....\n..|
|00001ca0| 0e 0c 26 06 87 cf 0e 07 | 0e 08 0e 09 0e 5c 6e 0e |..&.....|.....\n.|
|00001cb0| 0b 0e 0c 26 06 87 cf 0e | 07 0e 08 0e 09 0e 5c 6e |...&....|......\n|
|00001cc0| 0e 0b 0e 0c 26 06 87 22 | 20 5b 76 6d 2d 6d 6f 75 |....&.."| [vm-mou|
|00001cd0| 73 65 2d 73 75 70 70 6f | 72 74 2d 70 6f 73 73 69 |se-suppo|rt-possi|
|00001ce0| 62 6c 65 2d 70 20 76 6d | 2d 6d 6f 75 73 65 2d 78 |ble-p vm|-mouse-x|
|00001cf0| 65 6d 61 63 73 2d 6d 6f | 75 73 65 2d 70 20 62 75 |emacs-mo|use-p bu|
|00001d00| 74 74 6f 6e 2d 70 72 65 | 73 73 2d 65 76 65 6e 74 |tton-pre|ss-event|
|00001d10| 2d 70 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |-p last-|command-|
|00001d20| 65 76 65 6e 74 20 62 75 | 74 74 6f 6e 2d 72 65 6c |event bu|tton-rel|
|00001d30| 65 61 73 65 2d 65 76 65 | 6e 74 2d 70 20 6d 65 6e |ease-eve|nt-p men|
|00001d40| 75 2d 65 76 65 6e 74 2d | 70 20 76 6d 2d 6d 6f 75 |u-event-|p vm-mou|
|00001d50| 73 65 2d 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |se-read-|file-nam|
|00001d60| 65 20 70 72 6f 6d 70 74 | 20 64 69 72 20 64 65 66 |e prompt| dir def|
|00001d70| 61 75 6c 74 20 6d 75 73 | 74 2d 6d 61 74 63 68 20 |ault mus|t-match |
|00001d80| 69 6e 69 74 69 61 6c 20 | 68 69 73 74 6f 72 79 20 |initial |history |
|00001d90| 76 6d 2d 6d 6f 75 73 65 | 2d 66 73 66 65 6d 61 63 |vm-mouse|-fsfemac|
|00001da0| 73 2d 6d 6f 75 73 65 2d | 70 20 6c 61 73 74 2d 6e |s-mouse-|p last-n|
|00001db0| 6f 6e 6d 65 6e 75 2d 65 | 76 65 6e 74 20 76 6d 2d |onmenu-e|vent vm-|
|00001dc0| 6b 65 79 62 6f 61 72 64 | 2d 72 65 61 64 2d 66 69 |keyboard|-read-fi|
|00001dd0| 6c 65 2d 6e 61 6d 65 5d | 20 37 20 22 5c 0a 4c 69 |le-name]| 7 "\.Li|
|00001de0| 6b 65 20 72 65 61 64 2d | 66 69 6c 65 2d 6e 61 6d |ke read-|file-nam|
|00001df0| 65 2c 20 65 78 63 65 70 | 74 20 61 20 6d 6f 75 73 |e, excep|t a mous|
|00001e00| 65 20 69 6e 74 65 72 66 | 61 63 65 20 69 73 20 75 |e interf|ace is u|
|00001e10| 73 65 64 20 69 66 20 61 | 20 6d 6f 75 73 65 0a 63 |sed if a| mouse.c|
|00001e20| 6c 69 63 6b 20 6d 6f 75 | 73 65 20 74 72 69 67 67 |lick mou|se trigg|
|00001e30| 65 72 65 64 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ered the| current|
|00001e40| 20 63 6f 6d 6d 61 6e 64 | 2e 22 5d 29 0a          | command|."]).   |
+--------+-------------------------+-------------------------+--------+--------+