/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / abbrev.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 61 62 62 72 65 76 2d 6d |.(defun |abbrev-m|
|00000010| 6f 64 65 20 28 61 72 67 | 29 20 22 5c 0a 54 6f 67 |ode (arg|) "\.Tog|
|00000020| 67 6c 65 20 61 62 62 72 | 65 76 20 6d 6f 64 65 2e |gle abbr|ev mode.|
|00000030| 0a 57 69 74 68 20 61 72 | 67 2c 20 74 75 72 6e 20 |.With ar|g, turn |
|00000040| 61 62 62 72 65 76 20 6d | 6f 64 65 20 6f 6e 20 69 |abbrev m|ode on i|
|00000050| 66 66 20 61 72 67 20 69 | 73 20 70 6f 73 69 74 69 |ff arg i|s positi|
|00000060| 76 65 2e 0a 49 6e 20 61 | 62 62 72 65 76 20 6d 6f |ve..In a|bbrev mo|
|00000070| 64 65 2c 20 69 6e 73 65 | 72 74 69 6e 67 20 61 6e |de, inse|rting an|
|00000080| 20 61 62 62 72 65 76 69 | 61 74 69 6f 6e 20 63 61 | abbrevi|ation ca|
|00000090| 75 73 65 73 20 69 74 20 | 74 6f 20 65 78 70 61 6e |uses it |to expan|
|000000a0| 64 0a 61 6e 64 20 62 65 | 20 72 65 70 6c 61 63 65 |d.and be| replace|
|000000b0| 64 20 62 79 20 69 74 73 | 20 65 78 70 61 6e 73 69 |d by its| expansi|
|000000c0| 6f 6e 2e 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |on." (in|teractiv|
|000000d0| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|000000e0| 65 20 22 c2 88 09 3f 83 | 0c 00 08 3f 82 11 00 c3 |e "...?.|...?....|
|000000f0| 09 21 c4 56 89 10 88 c5 | c6 20 21 87 22 20 5b 61 |.!.V....|. !." [a|
|00000100| 62 62 72 65 76 2d 6d 6f | 64 65 20 61 72 67 20 6e |bbrev-mo|de arg n|
|00000110| 69 6c 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |il prefi|x-numeri|
|00000120| 63 2d 76 61 6c 75 65 20 | 30 20 73 65 74 2d 62 75 |c-value |0 set-bu|
|00000130| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00000140| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00000150| 70 5d 20 34 29 29 0a 0a | 28 64 65 66 76 61 72 20 |p] 4))..|(defvar |
|00000160| 65 64 69 74 2d 61 62 62 | 72 65 76 73 2d 6d 61 70 |edit-abb|revs-map|
|00000170| 20 6e 69 6c 20 22 5c 0a | 4b 65 79 6d 61 70 20 75 | nil "\.|Keymap u|
|00000180| 73 65 64 20 69 6e 20 65 | 64 69 74 2d 61 62 62 72 |sed in e|dit-abbr|
|00000190| 65 76 73 2e 22 29 0a 0a | 28 69 66 20 65 64 69 74 |evs.")..|(if edit|
|000001a0| 2d 61 62 62 72 65 76 73 | 2d 6d 61 70 20 6e 69 6c |-abbrevs|-map nil|
|000001b0| 20 28 73 65 74 71 20 65 | 64 69 74 2d 61 62 62 72 | (setq e|dit-abbr|
|000001c0| 65 76 73 2d 6d 61 70 20 | 28 6d 61 6b 65 2d 73 70 |evs-map |(make-sp|
|000001d0| 61 72 73 65 2d 6b 65 79 | 6d 61 70 29 29 20 28 64 |arse-key|map)) (d|
|000001e0| 65 66 69 6e 65 2d 6b 65 | 79 20 65 64 69 74 2d 61 |efine-ke|y edit-a|
|000001f0| 62 62 72 65 76 73 2d 6d | 61 70 20 22 18 13 22 20 |bbrevs-m|ap ".." |
|00000200| 28 71 75 6f 74 65 20 65 | 64 69 74 2d 61 62 62 72 |(quote e|dit-abbr|
|00000210| 65 76 73 2d 72 65 64 65 | 66 69 6e 65 29 29 20 28 |evs-rede|fine)) (|
|00000220| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 64 69 74 2d |define-k|ey edit-|
|00000230| 61 62 62 72 65 76 73 2d | 6d 61 70 20 22 03 03 22 |abbrevs-|map ".."|
|00000240| 20 28 71 75 6f 74 65 20 | 65 64 69 74 2d 61 62 62 | (quote |edit-abb|
|00000250| 72 65 76 73 2d 72 65 64 | 65 66 69 6e 65 29 29 29 |revs-red|efine)))|
|00000260| 0a 0a 28 64 65 66 75 6e | 20 6b 69 6c 6c 2d 61 6c |..(defun| kill-al|
|00000270| 6c 2d 61 62 62 72 65 76 | 73 20 6e 69 6c 20 22 5c |l-abbrev|s nil "\|
|00000280| 0a 55 6e 64 65 66 69 6e | 65 20 61 6c 6c 20 64 65 |.Undefin|e all de|
|00000290| 66 69 6e 65 64 20 61 62 | 62 72 65 76 73 2e 22 20 |fined ab|brevs." |
|000002a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|000002b0| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 09 18 08 85 |yte-code| "......|
|000002c0| 16 00 c3 08 40 4a 21 88 | 08 41 89 10 88 82 04 00 |....@J!.|.A......|
|000002d0| 29 87 22 20 5b 74 61 62 | 6c 65 73 20 61 62 62 72 |)." [tab|les abbr|
|000002e0| 65 76 2d 74 61 62 6c 65 | 2d 6e 61 6d 65 2d 6c 69 |ev-table|-name-li|
|000002f0| 73 74 20 6e 69 6c 20 63 | 6c 65 61 72 2d 61 62 62 |st nil c|lear-abb|
|00000300| 72 65 76 2d 74 61 62 6c | 65 5d 20 34 29 29 0a 0a |rev-tabl|e] 4))..|
|00000310| 28 64 65 66 75 6e 20 69 | 6e 73 65 72 74 2d 61 62 |(defun i|nsert-ab|
|00000320| 62 72 65 76 73 20 6e 69 | 6c 20 22 5c 0a 49 6e 73 |brevs ni|l "\.Ins|
|00000330| 65 72 74 20 61 66 74 65 | 72 20 70 6f 69 6e 74 20 |ert afte|r point |
|00000340| 61 20 64 65 73 63 72 69 | 70 74 69 6f 6e 20 6f 66 |a descri|ption of|
|00000350| 20 61 6c 6c 20 64 65 66 | 69 6e 65 64 20 61 62 62 | all def|ined abb|
|00000360| 72 65 76 73 2e 0a 4d 61 | 72 6b 20 69 73 20 73 65 |revs..Ma|rk is se|
|00000370| 74 20 61 66 74 65 72 20 | 74 68 65 20 69 6e 73 65 |t after |the inse|
|00000380| 72 74 65 64 20 74 65 78 | 74 2e 22 20 28 69 6e 74 |rted tex|t." (int|
|00000390| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|000003a0| 63 6f 64 65 20 22 c3 88 | c4 8a 09 18 08 85 18 00 |code "..|........|
|000003b0| c5 08 40 c2 5c 22 88 08 | 41 89 10 88 82 06 00 29 |..@.\"..|A......)|
|000003c0| 88 60 29 21 87 22 20 5b | 74 61 62 6c 65 73 20 61 |.`)!." [|tables a|
|000003d0| 62 62 72 65 76 2d 74 61 | 62 6c 65 2d 6e 61 6d 65 |bbrev-ta|ble-name|
|000003e0| 2d 6c 69 73 74 20 74 20 | 6e 69 6c 20 70 75 73 68 |-list t |nil push|
|000003f0| 2d 6d 61 72 6b 20 69 6e | 73 65 72 74 2d 61 62 62 |-mark in|sert-abb|
|00000400| 72 65 76 2d 74 61 62 6c | 65 2d 64 65 73 63 72 69 |rev-tabl|e-descri|
|00000410| 70 74 69 6f 6e 5d 20 35 | 29 29 0a 0a 28 64 65 66 |ption] 5|))..(def|
|00000420| 75 6e 20 6c 69 73 74 2d | 61 62 62 72 65 76 73 20 |un list-|abbrevs |
|00000430| 6e 69 6c 20 22 5c 0a 44 | 69 73 70 6c 61 79 20 61 |nil "\.D|isplay a|
|00000440| 20 6c 69 73 74 20 6f 66 | 20 61 6c 6c 20 64 65 66 | list of| all def|
|00000450| 69 6e 65 64 20 61 62 62 | 72 65 76 73 2e 22 20 28 |ined abb|revs." (|
|00000460| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000470| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 20 21 87 |te-code |".... !.|
|00000480| 22 20 5b 6e 69 6c 20 64 | 69 73 70 6c 61 79 2d 62 |" [nil d|isplay-b|
|00000490| 75 66 66 65 72 20 70 72 | 65 70 61 72 65 2d 61 62 |uffer pr|epare-ab|
|000004a0| 62 72 65 76 2d 6c 69 73 | 74 2d 62 75 66 66 65 72 |brev-lis|t-buffer|
|000004b0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 3))..(|defun pr|
|000004c0| 65 70 61 72 65 2d 61 62 | 62 72 65 76 2d 6c 69 73 |epare-ab|brev-lis|
|000004d0| 74 2d 62 75 66 66 65 72 | 20 6e 69 6c 20 28 62 79 |t-buffer| nil (by|
|000004e0| 74 65 2d 63 6f 64 65 20 | 22 8a c4 c5 21 71 88 c6 |te-code |"...!q..|
|000004f0| 20 88 09 18 08 85 1d 00 | c7 08 40 c2 5c 22 88 08 | .......|..@.\"..|
|00000500| 41 89 10 88 82 0b 00 29 | 88 65 62 88 c8 c3 21 88 |A......)|.eb...!.|
|00000510| c9 20 29 88 c4 c5 21 87 | 22 20 5b 74 61 62 6c 65 |. )...!.|" [table|
|00000520| 73 20 61 62 62 72 65 76 | 2d 74 61 62 6c 65 2d 6e |s abbrev|-table-n|
|00000530| 61 6d 65 2d 6c 69 73 74 | 20 74 20 6e 69 6c 20 67 |ame-list| t nil g|
|00000540| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00000550| 20 22 2a 41 62 62 72 65 | 76 73 2a 22 20 65 72 61 | "*Abbre|vs*" era|
|00000560| 73 65 2d 62 75 66 66 65 | 72 20 69 6e 73 65 72 74 |se-buffe|r insert|
|00000570| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 2d 64 65 |-abbrev-|table-de|
|00000580| 73 63 72 69 70 74 69 6f | 6e 20 73 65 74 2d 62 75 |scriptio|n set-bu|
|00000590| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000005a0| 65 64 69 74 2d 61 62 62 | 72 65 76 73 2d 6d 6f 64 |edit-abb|revs-mod|
|000005b0| 65 5d 20 37 29 29 0a 0a | 28 64 65 66 75 6e 20 65 |e] 7))..|(defun e|
|000005c0| 64 69 74 2d 61 62 62 72 | 65 76 73 2d 6d 6f 64 65 |dit-abbr|evs-mode|
|000005d0| 20 6e 69 6c 20 22 5c 0a | 4d 61 6a 6f 72 20 6d 6f | nil "\.|Major mo|
|000005e0| 64 65 20 66 6f 72 20 65 | 64 69 74 69 6e 67 20 74 |de for e|diting t|
|000005f0| 68 65 20 6c 69 73 74 20 | 6f 66 20 61 62 62 72 65 |he list |of abbre|
|00000600| 76 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 2e 0a 5c |v defini|tions..\|
|00000610| 5c 7b 65 64 69 74 2d 61 | 62 62 72 65 76 73 2d 6d |\{edit-a|bbrevs-m|
|00000620| 61 70 7d 22 20 28 69 6e | 74 65 72 61 63 74 69 76 |ap}" (in|teractiv|
|00000630| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |e) (byte|-code ".|
|00000640| 88 c4 89 10 88 c5 89 11 | 88 c6 0a 21 87 22 20 5b |........|...!." [|
|00000650| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 6d 6f 64 65 2d |major-mo|de mode-|
|00000660| 6e 61 6d 65 20 65 64 69 | 74 2d 61 62 62 72 65 76 |name edi|t-abbrev|
|00000670| 73 2d 6d 61 70 20 6e 69 | 6c 20 65 64 69 74 2d 61 |s-map ni|l edit-a|
|00000680| 62 62 72 65 76 73 2d 6d | 6f 64 65 20 22 45 64 69 |bbrevs-m|ode "Edi|
|00000690| 74 2d 41 62 62 72 65 76 | 73 22 20 75 73 65 2d 6c |t-Abbrev|s" use-l|
|000006a0| 6f 63 61 6c 2d 6d 61 70 | 5d 20 32 29 29 0a 0a 28 |ocal-map|] 2))..(|
|000006b0| 64 65 66 75 6e 20 65 64 | 69 74 2d 61 62 62 72 65 |defun ed|it-abbre|
|000006c0| 76 73 20 6e 69 6c 20 22 | 5c 0a 41 6c 74 65 72 20 |vs nil "|\.Alter |
|000006d0| 61 62 62 72 65 76 20 64 | 65 66 69 6e 69 74 69 6f |abbrev d|efinitio|
|000006e0| 6e 73 20 62 79 20 65 64 | 69 74 69 6e 67 20 61 20 |ns by ed|iting a |
|000006f0| 6c 69 73 74 20 6f 66 20 | 74 68 65 6d 2e 0a 53 65 |list of |them..Se|
|00000700| 6c 65 63 74 73 20 61 20 | 62 75 66 66 65 72 20 63 |lects a |buffer c|
|00000710| 6f 6e 74 61 69 6e 69 6e | 67 20 61 20 6c 69 73 74 |ontainin|g a list|
|00000720| 20 6f 66 20 61 62 62 72 | 65 76 20 64 65 66 69 6e | of abbr|ev defin|
|00000730| 69 74 69 6f 6e 73 2e 0a | 59 6f 75 20 63 61 6e 20 |itions..|You can |
|00000740| 65 64 69 74 20 74 68 65 | 6d 20 61 6e 64 20 74 79 |edit the|m and ty|
|00000750| 70 65 20 43 2d 63 20 43 | 2d 63 20 74 6f 20 72 65 |pe C-c C|-c to re|
|00000760| 64 65 66 69 6e 65 20 61 | 62 62 72 65 76 73 0a 61 |define a|bbrevs.a|
|00000770| 63 63 6f 72 64 69 6e 67 | 20 74 6f 20 79 6f 75 72 |ccording| to your|
|00000780| 20 65 64 69 74 69 6e 67 | 2e 0a 42 75 66 66 65 72 | editing|..Buffer|
|00000790| 20 63 6f 6e 74 61 69 6e | 73 20 61 20 68 65 61 64 | contain|s a head|
|000007a0| 65 72 20 6c 69 6e 65 20 | 66 6f 72 20 65 61 63 68 |er line |for each|
|000007b0| 20 61 62 62 72 65 76 20 | 74 61 62 6c 65 2c 0a 20 | abbrev |table,. |
|000007c0| 77 68 69 63 68 20 69 73 | 20 74 68 65 20 61 62 62 |which is| the abb|
|000007d0| 72 65 76 20 74 61 62 6c | 65 20 6e 61 6d 65 20 69 |rev tabl|e name i|
|000007e0| 6e 20 70 61 72 65 6e 74 | 68 65 73 65 73 2e 0a 54 |n parent|heses..T|
|000007f0| 68 69 73 20 69 73 20 66 | 6f 6c 6c 6f 77 65 64 20 |his is f|ollowed |
|00000800| 62 79 20 6f 6e 65 20 6c | 69 6e 65 20 70 65 72 20 |by one l|ine per |
|00000810| 61 62 62 72 65 76 20 69 | 6e 20 74 68 61 74 20 74 |abbrev i|n that t|
|00000820| 61 62 6c 65 3a 0a 4e 41 | 4d 45 20 20 20 55 53 45 |able:.NA|ME   USE|
|00000830| 43 4f 55 4e 54 20 20 20 | 45 58 50 41 4e 53 49 4f |COUNT   |EXPANSIO|
|00000840| 4e 20 20 20 48 4f 4f 4b | 0a 77 68 65 72 65 20 4e |N   HOOK|.where N|
|00000850| 41 4d 45 20 61 6e 64 20 | 45 58 50 41 4e 53 49 4f |AME and |EXPANSIO|
|00000860| 4e 20 61 72 65 20 73 74 | 72 69 6e 67 73 20 77 69 |N are st|rings wi|
|00000870| 74 68 20 71 75 6f 74 65 | 73 2c 0a 55 53 45 43 4f |th quote|s,.USECO|
|00000880| 55 4e 54 20 69 73 20 61 | 6e 20 69 6e 74 65 67 65 |UNT is a|n intege|
|00000890| 72 2c 20 61 6e 64 20 48 | 4f 4f 4b 20 69 73 20 61 |r, and H|OOK is a|
|000008a0| 6e 79 20 76 61 6c 69 64 | 20 66 75 6e 63 74 69 6f |ny valid| functio|
|000008b0| 6e 0a 6f 72 20 6d 61 79 | 20 62 65 20 6f 6d 69 74 |n.or may| be omit|
|000008c0| 74 65 64 20 28 69 74 20 | 69 73 20 75 73 75 61 6c |ted (it |is usual|
|000008d0| 6c 79 20 6f 6d 69 74 74 | 65 64 29 2e 22 20 28 69 |ly omitt|ed)." (i|
|000008e0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|000008f0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 20 21 87 22 |e-code "|.... !."|
|00000900| 20 5b 6e 69 6c 20 73 77 | 69 74 63 68 2d 74 6f 2d | [nil sw|itch-to-|
|00000910| 62 75 66 66 65 72 20 70 | 72 65 70 61 72 65 2d 61 |buffer p|repare-a|
|00000920| 62 62 72 65 76 2d 6c 69 | 73 74 2d 62 75 66 66 65 |bbrev-li|st-buffe|
|00000930| 72 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 65 |r] 3))..|(defun e|
|00000940| 64 69 74 2d 61 62 62 72 | 65 76 73 2d 72 65 64 65 |dit-abbr|evs-rede|
|00000950| 66 69 6e 65 20 6e 69 6c | 20 22 5c 0a 52 65 64 65 |fine nil| "\.Rede|
|00000960| 66 69 6e 65 20 61 62 62 | 72 65 76 73 20 61 63 63 |fine abb|revs acc|
|00000970| 6f 72 64 69 6e 67 20 74 | 6f 20 63 75 72 72 65 6e |ording t|o curren|
|00000980| 74 20 62 75 66 66 65 72 | 20 63 6f 6e 74 65 6e 74 |t buffer| content|
|00000990| 73 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |s." (int|eractive|
|000009a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|000009b0| c2 c0 21 88 c3 c1 21 87 | 22 20 5b 74 20 6e 69 6c |..!...!.|" [t nil|
|000009c0| 20 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 73 20 | define-|abbrevs |
|000009d0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000009e0| 69 65 64 2d 70 5d 20 33 | 29 29 0a 0a 28 64 65 66 |ied-p] 3|))..(def|
|000009f0| 75 6e 20 64 65 66 69 6e | 65 2d 61 62 62 72 65 76 |un defin|e-abbrev|
|00000a00| 73 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |s (&opti|onal arg|
|00000a10| 29 20 22 5c 0a 44 65 66 | 69 6e 65 20 61 62 62 72 |) "\.Def|ine abbr|
|00000a20| 65 76 73 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |evs acco|rding to|
|00000a30| 20 63 75 72 72 65 6e 74 | 20 76 69 73 69 62 6c 65 | current| visible|
|00000a40| 20 62 75 66 66 65 72 20 | 63 6f 6e 74 65 6e 74 73 | buffer |contents|
|00000a50| 2e 0a 53 65 65 20 64 6f | 63 75 6d 65 6e 74 61 74 |..See do|cumentat|
|00000a60| 69 6f 6e 20 6f 66 20 65 | 64 69 74 2d 61 62 62 72 |ion of e|dit-abbr|
|00000a70| 65 76 73 20 66 6f 72 20 | 69 6e 66 6f 20 6f 6e 20 |evs for |info on |
|00000a80| 74 68 65 20 66 6f 72 6d | 61 74 20 6f 66 20 74 68 |the form|at of th|
|00000a90| 65 0a 74 65 78 74 20 79 | 6f 75 20 6d 75 73 74 20 |e.text y|ou must |
|00000aa0| 68 61 76 65 20 69 6e 20 | 74 68 65 20 62 75 66 66 |have in |the buff|
|00000ab0| 65 72 2e 0a 57 69 74 68 | 20 61 72 67 75 6d 65 6e |er..With| argumen|
|00000ac0| 74 2c 20 65 6c 69 6d 69 | 6e 61 74 65 20 61 6c 6c |t, elimi|nate all|
|00000ad0| 20 61 62 62 72 65 76 20 | 64 65 66 69 6e 69 74 69 | abbrev |definiti|
|00000ae0| 6f 6e 73 20 65 78 63 65 | 70 74 0a 74 68 65 20 6f |ons exce|pt.the o|
|00000af0| 6e 65 73 20 64 65 66 69 | 6e 65 64 20 66 72 6f 6d |nes defi|ned from|
|00000b00| 20 74 68 65 20 62 75 66 | 66 65 72 20 6e 6f 77 2e | the buf|fer now.|
|00000b10| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |" (inter|active "|
|00000b20| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000b30| c1 88 08 85 08 00 ca 20 | 88 8a 65 62 88 6d 3f 85 |....... |..eb.m?.|
|00000b40| 17 00 cb cc c1 c2 23 85 | 6f 00 70 1b cd 0b 21 1c |......#.|o.p...!.|
|00000b50| c1 1d ce cf 21 88 ce cf | 21 88 6c 3f 85 65 00 cd |....!...|!.l?.e..|
|00000b60| 0b 21 16 06 cd 0b 21 16 | 07 cd 0b 21 89 16 08 88 |.!....!.|...!....|
|00000b70| d0 d1 21 88 6c 3f 85 4c | 00 cd 0b 21 89 16 09 88 |..!.l?.L|...!....|
|00000b80| d0 d1 21 88 0e 06 0e 08 | 0e 09 0e 07 46 0d 42 89 |..!.....|....F.B.|
|00000b90| 15 88 82 26 00 88 d2 0c | 0d 5c 22 2b 88 82 0d 00 |...&....|.\"+....|
|00000ba0| 29 87 22 20 5b 61 72 67 | 20 6e 69 6c 20 74 20 62 |)." [arg| nil t b|
|00000bb0| 75 66 20 74 61 62 6c 65 | 20 61 62 62 72 65 76 73 |uf table| abbrevs|
|00000bc0| 20 6e 61 6d 65 20 63 6f | 75 6e 74 20 65 78 70 20 | name co|unt exp |
|00000bd0| 68 6f 6f 6b 20 6b 69 6c | 6c 2d 61 6c 6c 2d 61 62 |hook kil|l-all-ab|
|00000be0| 62 72 65 76 73 20 72 65 | 2d 73 65 61 72 63 68 2d |brevs re|-search-|
|00000bf0| 66 6f 72 77 61 72 64 20 | 22 5e 28 22 20 72 65 61 |forward |"^(" rea|
|00000c00| 64 20 66 6f 72 77 61 72 | 64 2d 6c 69 6e 65 20 31 |d forwar|d-line 1|
|00000c10| 20 73 6b 69 70 2d 63 68 | 61 72 73 2d 62 61 63 6b | skip-ch|ars-back|
|00000c20| 77 61 72 64 20 22 20 09 | 0a 0c 22 20 64 65 66 69 |ward " .|.." defi|
|00000c30| 6e 65 2d 61 62 62 72 65 | 76 2d 74 61 62 6c 65 5d |ne-abbre|v-table]|
|00000c40| 20 31 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 65 | 17))..(|defun re|
|00000c50| 61 64 2d 61 62 62 72 65 | 76 2d 66 69 6c 65 20 28 |ad-abbre|v-file (|
|00000c60| 66 69 6c 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 71 |file &op|tional q|
|00000c70| 75 69 65 74 6c 79 29 20 | 22 5c 0a 52 65 61 64 20 |uietly) |"\.Read |
|00000c80| 61 62 62 72 65 76 20 64 | 65 66 69 6e 69 74 69 6f |abbrev d|efinitio|
|00000c90| 6e 73 20 66 72 6f 6d 20 | 66 69 6c 65 20 77 72 69 |ns from |file wri|
|00000ca0| 74 74 65 6e 20 77 69 74 | 68 20 77 72 69 74 65 2d |tten wit|h write-|
|00000cb0| 61 62 62 72 65 76 2d 66 | 69 6c 65 2e 0a 54 61 6b |abbrev-f|ile..Tak|
|00000cc0| 65 73 20 66 69 6c 65 20 | 6e 61 6d 65 20 61 73 20 |es file |name as |
|00000cd0| 61 72 67 75 6d 65 6e 74 | 2e 0a 4f 70 74 69 6f 6e |argument|..Option|
|00000ce0| 61 6c 20 73 65 63 6f 6e | 64 20 61 72 67 75 6d 65 |al secon|d argume|
|00000cf0| 6e 74 20 6e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |nt non-n|il means|
|00000d00| 20 64 6f 6e 27 74 20 70 | 72 69 6e 74 20 61 6e 79 | don't p|rint any|
|00000d10| 74 68 69 6e 67 2e 22 20 | 28 69 6e 74 65 72 61 63 |thing." |(interac|
|00000d20| 74 69 76 65 20 22 66 52 | 65 61 64 20 61 62 62 72 |tive "fR|ead abbr|
|00000d30| 65 76 20 66 69 6c 65 3a | 20 22 29 20 28 62 79 74 |ev file:| ") (byt|
|00000d40| 65 2d 63 6f 64 65 20 22 | c2 88 c7 08 85 0b 00 08 |e-code "|........|
|00000d50| 47 c8 56 83 12 00 08 82 | 13 00 09 c2 0b 23 88 c5 |G.V.....|.....#..|
|00000d60| 14 c2 89 16 06 87 22 20 | 5b 66 69 6c 65 20 61 62 |......" |[file ab|
|00000d70| 62 72 65 76 2d 66 69 6c | 65 2d 6e 61 6d 65 20 6e |brev-fil|e-name n|
|00000d80| 69 6c 20 71 75 69 65 74 | 6c 79 20 73 61 76 65 2d |il quiet|ly save-|
|00000d90| 61 62 62 72 65 76 73 20 | 74 20 61 62 62 72 65 76 |abbrevs |t abbrev|
|00000da0| 73 2d 63 68 61 6e 67 65 | 64 20 6c 6f 61 64 20 30 |s-change|d load 0|
|00000db0| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 71 75 |] 4))..(|defun qu|
|00000dc0| 69 65 74 6c 79 2d 72 65 | 61 64 2d 61 62 62 72 65 |ietly-re|ad-abbre|
|00000dd0| 76 2d 66 69 6c 65 20 28 | 66 69 6c 65 29 20 22 5c |v-file (|file) "\|
|00000de0| 0a 52 65 61 64 20 61 62 | 62 72 65 76 20 64 65 66 |.Read ab|brev def|
|00000df0| 69 6e 69 74 69 6f 6e 73 | 20 66 72 6f 6d 20 66 69 |initions| from fi|
|00000e00| 6c 65 20 77 72 69 74 74 | 65 6e 20 77 69 74 68 20 |le writt|en with |
|00000e10| 77 72 69 74 65 2d 61 62 | 62 72 65 76 2d 66 69 6c |write-ab|brev-fil|
|00000e20| 65 2e 0a 54 61 6b 65 73 | 20 66 69 6c 65 20 6e 61 |e..Takes| file na|
|00000e30| 6d 65 20 61 73 20 61 72 | 67 75 6d 65 6e 74 2e 20 |me as ar|gument. |
|00000e40| 20 44 6f 65 73 20 6e 6f | 74 20 70 72 69 6e 74 20 | Does no|t print |
|00000e50| 61 6e 79 74 68 69 6e 67 | 2e 22 20 28 62 79 74 65 |anything|." (byte|
|00000e60| 2d 63 6f 64 65 20 22 c2 | 08 c1 5c 22 87 22 20 5b |-code ".|..\"." [|
|00000e70| 66 69 6c 65 20 74 20 72 | 65 61 64 2d 61 62 62 72 |file t r|ead-abbr|
|00000e80| 65 76 2d 66 69 6c 65 5d | 20 33 29 29 0a 0a 28 64 |ev-file]| 3))..(d|
|00000e90| 65 66 75 6e 20 77 72 69 | 74 65 2d 61 62 62 72 65 |efun wri|te-abbre|
|00000ea0| 76 2d 66 69 6c 65 20 28 | 66 69 6c 65 29 20 22 5c |v-file (|file) "\|
|00000eb0| 0a 57 72 69 74 65 20 61 | 6c 6c 20 61 62 62 72 65 |.Write a|ll abbre|
|00000ec0| 76 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 20 74 6f |v defini|tions to|
|00000ed0| 20 66 69 6c 65 20 6f 66 | 20 4c 69 73 70 20 63 6f | file of| Lisp co|
|00000ee0| 64 65 2e 0a 54 68 65 20 | 66 69 6c 65 20 63 61 6e |de..The |file can|
|00000ef0| 20 62 65 20 6c 6f 61 64 | 65 64 20 74 6f 20 64 65 | be load|ed to de|
|00000f00| 66 69 6e 65 20 74 68 65 | 20 73 61 6d 65 20 61 62 |fine the| same ab|
|00000f10| 62 72 65 76 73 2e 22 20 | 28 69 6e 74 65 72 61 63 |brevs." |(interac|
|00000f20| 74 69 76 65 20 22 46 57 | 72 69 74 65 20 61 62 62 |tive "FW|rite abb|
|00000f30| 72 65 76 20 66 69 6c 65 | 3a 20 22 29 20 28 62 79 |rev file|: ") (by|
|00000f40| 74 65 2d 63 6f 64 65 20 | 22 c4 88 08 85 0a 00 08 |te-code |".......|
|00000f50| 47 c5 56 86 10 00 09 89 | 10 88 8a c6 c7 21 71 88 |G.V.....|.....!q.|
|00000f60| c8 20 88 0b 1a 0a 85 2e | 00 c9 0a 40 c4 5c 22 88 |. ......|...@.\".|
|00000f70| 0a 41 89 12 88 82 1c 00 | 29 88 ca cb 64 08 23 88 |.A......|)...d.#.|
|00000f80| c8 20 29 87 22 20 5b 66 | 69 6c 65 20 61 62 62 72 |. )." [f|ile abbr|
|00000f90| 65 76 2d 66 69 6c 65 2d | 6e 61 6d 65 20 74 61 62 |ev-file-|name tab|
|00000fa0| 6c 65 73 20 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |les abbr|ev-table|
|00000fb0| 2d 6e 61 6d 65 2d 6c 69 | 73 74 20 6e 69 6c 20 30 |-name-li|st nil 0|
|00000fc0| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 | get-buf|fer-crea|
|00000fd0| 74 65 20 22 20 77 72 69 | 74 65 2d 61 62 62 72 65 |te " wri|te-abbre|
|00000fe0| 76 2d 66 69 6c 65 22 20 | 65 72 61 73 65 2d 62 75 |v-file" |erase-bu|
|00000ff0| 66 66 65 72 20 69 6e 73 | 65 72 74 2d 61 62 62 72 |ffer ins|ert-abbr|
|00001000| 65 76 2d 74 61 62 6c 65 | 2d 64 65 73 63 72 69 70 |ev-table|-descrip|
|00001010| 74 69 6f 6e 20 77 72 69 | 74 65 2d 72 65 67 69 6f |tion wri|te-regio|
|00001020| 6e 20 31 5d 20 37 29 29 | 0a 0a 28 64 65 66 75 6e |n 1] 7))|..(defun|
|00001030| 20 61 64 64 2d 6d 6f 64 | 65 2d 61 62 62 72 65 76 | add-mod|e-abbrev|
|00001040| 20 28 61 72 67 29 20 22 | 5c 0a 44 65 66 69 6e 65 | (arg) "|\.Define|
|00001050| 20 6d 6f 64 65 2d 73 70 | 65 63 69 66 69 63 20 61 | mode-sp|ecific a|
|00001060| 62 62 72 65 76 20 66 6f | 72 20 6c 61 73 74 20 77 |bbrev fo|r last w|
|00001070| 6f 72 64 28 73 29 20 62 | 65 66 6f 72 65 20 70 6f |ord(s) b|efore po|
|00001080| 69 6e 74 2e 0a 41 72 67 | 75 6d 65 6e 74 20 69 73 |int..Arg|ument is|
|00001090| 20 68 6f 77 20 6d 61 6e | 79 20 77 6f 72 64 73 20 | how man|y words |
|000010a0| 62 65 66 6f 72 65 20 70 | 6f 69 6e 74 20 66 6f 72 |before p|oint for|
|000010b0| 6d 20 74 68 65 20 65 78 | 70 61 6e 73 69 6f 6e 3b |m the ex|pansion;|
|000010c0| 0a 6f 72 20 7a 65 72 6f | 20 6d 65 61 6e 73 20 74 |.or zero| means t|
|000010d0| 68 65 20 72 65 67 69 6f | 6e 20 69 73 20 74 68 65 |he regio|n is the|
|000010e0| 20 65 78 70 61 6e 73 69 | 6f 6e 2e 0a 41 20 6e 65 | expansi|on..A ne|
|000010f0| 67 61 74 69 76 65 20 61 | 72 67 75 6d 65 6e 74 20 |gative a|rgument |
|00001100| 6d 65 61 6e 73 20 74 6f | 20 75 6e 64 65 66 69 6e |means to| undefin|
|00001110| 65 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |e the sp|ecified |
|00001120| 61 62 62 72 65 76 2e 0a | 52 65 61 64 73 20 74 68 |abbrev..|Reads th|
|00001130| 65 20 61 62 62 72 65 76 | 69 61 74 69 6f 6e 20 69 |e abbrev|iation i|
|00001140| 6e 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |n the mi|nibuffer|
|00001150| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00001160| 22 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"p") (by|te-code |
|00001170| 22 c4 88 c5 08 83 0b 00 | 09 82 12 00 0a 86 12 00 |".......|........|
|00001180| c6 c7 21 c8 0b 23 87 22 | 20 5b 6f 6e 6c 79 2d 67 |..!..#."| [only-g|
|00001190| 6c 6f 62 61 6c 2d 61 62 | 62 72 65 76 73 20 67 6c |lobal-ab|brevs gl|
|000011a0| 6f 62 61 6c 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |obal-abb|rev-tabl|
|000011b0| 65 20 6c 6f 63 61 6c 2d | 61 62 62 72 65 76 2d 74 |e local-|abbrev-t|
|000011c0| 61 62 6c 65 20 61 72 67 | 20 6e 69 6c 20 61 64 64 |able arg| nil add|
|000011d0| 2d 61 62 62 72 65 76 20 | 65 72 72 6f 72 20 22 4e |-abbrev |error "N|
|000011e0| 6f 20 70 65 72 2d 6d 6f | 64 65 20 61 62 62 72 65 |o per-mo|de abbre|
|000011f0| 76 20 74 61 62 6c 65 2e | 22 20 22 4d 6f 64 65 22 |v table.|" "Mode"|
|00001200| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 61 64 |] 5))..(|defun ad|
|00001210| 64 2d 67 6c 6f 62 61 6c | 2d 61 62 62 72 65 76 20 |d-global|-abbrev |
|00001220| 28 61 72 67 29 20 22 5c | 0a 44 65 66 69 6e 65 20 |(arg) "\|.Define |
|00001230| 67 6c 6f 62 61 6c 20 28 | 61 6c 6c 20 6d 6f 64 65 |global (|all mode|
|00001240| 73 29 20 61 62 62 72 65 | 76 20 66 6f 72 20 6c 61 |s) abbre|v for la|
|00001250| 73 74 20 77 6f 72 64 28 | 73 29 20 62 65 66 6f 72 |st word(|s) befor|
|00001260| 65 20 70 6f 69 6e 74 2e | 0a 41 72 67 75 6d 65 6e |e point.|.Argumen|
|00001270| 74 20 69 73 20 68 6f 77 | 20 6d 61 6e 79 20 77 6f |t is how| many wo|
|00001280| 72 64 73 20 62 65 66 6f | 72 65 20 70 6f 69 6e 74 |rds befo|re point|
|00001290| 20 66 6f 72 6d 20 74 68 | 65 20 65 78 70 61 6e 73 | form th|e expans|
|000012a0| 69 6f 6e 3b 0a 6f 72 20 | 7a 65 72 6f 20 6d 65 61 |ion;.or |zero mea|
|000012b0| 6e 73 20 74 68 65 20 72 | 65 67 69 6f 6e 20 69 73 |ns the r|egion is|
|000012c0| 20 74 68 65 20 65 78 70 | 61 6e 73 69 6f 6e 2e 0a | the exp|ansion..|
|000012d0| 41 20 6e 65 67 61 74 69 | 76 65 20 61 72 67 75 6d |A negati|ve argum|
|000012e0| 65 6e 74 20 6d 65 61 6e | 73 20 74 6f 20 75 6e 64 |ent mean|s to und|
|000012f0| 65 66 69 6e 65 20 74 68 | 65 20 73 70 65 63 69 66 |efine th|e specif|
|00001300| 69 65 64 20 61 62 62 72 | 65 76 2e 0a 52 65 61 64 |ied abbr|ev..Read|
|00001310| 73 20 74 68 65 20 61 62 | 62 72 65 76 69 61 74 69 |s the ab|breviati|
|00001320| 6f 6e 20 69 6e 20 74 68 | 65 20 6d 69 6e 69 62 75 |on in th|e minibu|
|00001330| 66 66 65 72 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ffer." (|interact|
|00001340| 69 76 65 20 22 70 22 29 | 20 28 62 79 74 65 2d 63 |ive "p")| (byte-c|
|00001350| 6f 64 65 20 22 c2 88 c3 | 08 c4 09 23 87 22 20 5b |ode "...|...#." [|
|00001360| 67 6c 6f 62 61 6c 2d 61 | 62 62 72 65 76 2d 74 61 |global-a|bbrev-ta|
|00001370| 62 6c 65 20 61 72 67 20 | 6e 69 6c 20 61 64 64 2d |ble arg |nil add-|
|00001380| 61 62 62 72 65 76 20 22 | 47 6c 6f 62 61 6c 22 5d |abbrev "|Global"]|
|00001390| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 61 64 64 | 4))..(d|efun add|
|000013a0| 2d 61 62 62 72 65 76 20 | 28 74 61 62 6c 65 20 74 |-abbrev |(table t|
|000013b0| 79 70 65 20 61 72 67 29 | 20 28 62 79 74 65 2d 63 |ype arg)| (byte-c|
|000013c0| 6f 64 65 20 22 09 c5 59 | 85 1c 00 c6 60 09 c5 55 |ode "..Y|....`..U|
|000013d0| 83 13 00 c7 20 82 1b 00 | 8a c8 09 5b 21 88 60 29 |.... ...|...[!.`)|
|000013e0| 5c 22 c9 1a 18 ca cb cc | 0b 08 23 21 89 12 88 08 |\"......|..#!....|
|000013f0| 3f 86 40 00 cd 0a 0c 5c | 22 3f 86 40 00 ce cb cf |?.@....\|"?.@....|
|00001400| 0a cd 0a 0c 5c 22 23 21 | 85 4a 00 d0 0c d1 0a 21 |....\"#!|.J.....!|
|00001410| 08 23 2a 87 22 20 5b 65 | 78 70 20 61 72 67 20 6e |.#*." [e|xp arg n|
|00001420| 61 6d 65 20 74 79 70 65 | 20 74 61 62 6c 65 20 30 |ame type| table 0|
|00001430| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00001440| 67 20 6d 61 72 6b 20 66 | 6f 72 77 61 72 64 2d 77 |g mark f|orward-w|
|00001450| 6f 72 64 20 6e 69 6c 20 | 72 65 61 64 2d 73 74 72 |ord nil |read-str|
|00001460| 69 6e 67 20 66 6f 72 6d | 61 74 20 22 25 73 20 61 |ing form|at "%s a|
|00001470| 62 62 72 65 76 20 66 6f | 72 20 5c 22 25 73 5c 22 |bbrev fo|r \"%s\"|
|00001480| 3a 20 22 20 61 62 62 72 | 65 76 2d 65 78 70 61 6e |: " abbr|ev-expan|
|00001490| 73 69 6f 6e 20 79 2d 6f | 72 2d 6e 2d 70 20 22 25 |sion y-o|r-n-p "%|
|000014a0| 73 20 65 78 70 61 6e 64 | 73 20 74 6f 20 5c 22 25 |s expand|s to \"%|
|000014b0| 73 5c 22 3b 20 72 65 64 | 65 66 69 6e 65 3f 20 22 |s\"; red|efine? "|
|000014c0| 20 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 20 64 | define-|abbrev d|
|000014d0| 6f 77 6e 63 61 73 65 5d | 20 31 34 29 29 0a 0a 28 |owncase]| 14))..(|
|000014e0| 64 65 66 75 6e 20 69 6e | 76 65 72 73 65 2d 61 64 |defun in|verse-ad|
|000014f0| 64 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 20 28 61 |d-mode-a|bbrev (a|
|00001500| 72 67 29 20 22 5c 0a 44 | 65 66 69 6e 65 20 6c 61 |rg) "\.D|efine la|
|00001510| 73 74 20 77 6f 72 64 20 | 62 65 66 6f 72 65 20 70 |st word |before p|
|00001520| 6f 69 6e 74 20 61 73 20 | 61 20 6d 6f 64 65 2d 73 |oint as |a mode-s|
|00001530| 70 65 63 69 66 69 63 20 | 61 62 62 72 65 76 2e 0a |pecific |abbrev..|
|00001540| 57 69 74 68 20 61 72 67 | 75 6d 65 6e 74 20 4e 2c |With arg|ument N,|
|00001550| 20 64 65 66 69 6e 65 73 | 20 74 68 65 20 4e 74 68 | defines| the Nth|
|00001560| 20 77 6f 72 64 20 62 65 | 66 6f 72 65 20 70 6f 69 | word be|fore poi|
|00001570| 6e 74 2e 0a 52 65 61 64 | 73 20 74 68 65 20 65 78 |nt..Read|s the ex|
|00001580| 70 61 6e 73 69 6f 6e 20 | 69 6e 20 74 68 65 20 6d |pansion |in the m|
|00001590| 69 6e 69 62 75 66 66 65 | 72 2e 0a 45 78 70 61 6e |inibuffe|r..Expan|
|000015a0| 64 73 20 74 68 65 20 61 | 62 62 72 65 76 69 61 74 |ds the a|bbreviat|
|000015b0| 69 6f 6e 20 61 66 74 65 | 72 20 64 65 66 69 6e 69 |ion afte|r defini|
|000015c0| 6e 67 20 69 74 2e 22 20 | 28 69 6e 74 65 72 61 63 |ng it." |(interac|
|000015d0| 74 69 76 65 20 22 70 22 | 29 20 28 62 79 74 65 2d |tive "p"|) (byte-|
|000015e0| 63 6f 64 65 20 22 c4 88 | c5 08 83 0b 00 09 82 12 |code "..|........|
|000015f0| 00 0a 86 12 00 c6 c7 21 | c8 0b 23 87 22 20 5b 6f |.......!|..#." [o|
|00001600| 6e 6c 79 2d 67 6c 6f 62 | 61 6c 2d 61 62 62 72 65 |nly-glob|al-abbre|
|00001610| 76 73 20 67 6c 6f 62 61 | 6c 2d 61 62 62 72 65 76 |vs globa|l-abbrev|
|00001620| 2d 74 61 62 6c 65 20 6c | 6f 63 61 6c 2d 61 62 62 |-table l|ocal-abb|
|00001630| 72 65 76 2d 74 61 62 6c | 65 20 61 72 67 20 6e 69 |rev-tabl|e arg ni|
|00001640| 6c 20 69 6e 76 65 72 73 | 65 2d 61 64 64 2d 61 62 |l invers|e-add-ab|
|00001650| 62 72 65 76 20 65 72 72 | 6f 72 20 22 4e 6f 20 70 |brev err|or "No p|
|00001660| 65 72 2d 6d 6f 64 65 20 | 61 62 62 72 65 76 20 74 |er-mode |abbrev t|
|00001670| 61 62 6c 65 2e 22 20 22 | 4d 6f 64 65 22 5d 20 35 |able." "|Mode"] 5|
|00001680| 29 29 0a 0a 28 64 65 66 | 75 6e 20 69 6e 76 65 72 |))..(def|un inver|
|00001690| 73 65 2d 61 64 64 2d 67 | 6c 6f 62 61 6c 2d 61 62 |se-add-g|lobal-ab|
|000016a0| 62 72 65 76 20 28 61 72 | 67 29 20 22 5c 0a 44 65 |brev (ar|g) "\.De|
|000016b0| 66 69 6e 65 20 6c 61 73 | 74 20 77 6f 72 64 20 62 |fine las|t word b|
|000016c0| 65 66 6f 72 65 20 70 6f | 69 6e 74 20 61 73 20 61 |efore po|int as a|
|000016d0| 20 67 6c 6f 62 61 6c 20 | 28 6d 6f 64 65 2d 69 6e | global |(mode-in|
|000016e0| 64 65 70 65 6e 64 65 6e | 74 29 20 61 62 62 72 65 |dependen|t) abbre|
|000016f0| 76 2e 0a 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |v..With |argument|
|00001700| 20 4e 2c 20 64 65 66 69 | 6e 65 73 20 74 68 65 20 | N, defi|nes the |
|00001710| 4e 74 68 20 77 6f 72 64 | 20 62 65 66 6f 72 65 20 |Nth word| before |
|00001720| 70 6f 69 6e 74 2e 0a 52 | 65 61 64 73 20 74 68 65 |point..R|eads the|
|00001730| 20 65 78 70 61 6e 73 69 | 6f 6e 20 69 6e 20 74 68 | expansi|on in th|
|00001740| 65 20 6d 69 6e 69 62 75 | 66 66 65 72 2e 0a 45 78 |e minibu|ffer..Ex|
|00001750| 70 61 6e 64 73 20 74 68 | 65 20 61 62 62 72 65 76 |pands th|e abbrev|
|00001760| 69 61 74 69 6f 6e 20 61 | 66 74 65 72 20 64 65 66 |iation a|fter def|
|00001770| 69 6e 69 6e 67 20 69 74 | 2e 22 20 28 69 6e 74 65 |ining it|." (inte|
|00001780| 72 61 63 74 69 76 65 20 | 22 70 22 29 20 28 62 79 |ractive |"p") (by|
|00001790| 74 65 2d 63 6f 64 65 20 | 22 c2 88 c3 08 c4 09 23 |te-code |"......#|
|000017a0| 87 22 20 5b 67 6c 6f 62 | 61 6c 2d 61 62 62 72 65 |." [glob|al-abbre|
|000017b0| 76 2d 74 61 62 6c 65 20 | 61 72 67 20 6e 69 6c 20 |v-table |arg nil |
|000017c0| 69 6e 76 65 72 73 65 2d | 61 64 64 2d 61 62 62 72 |inverse-|add-abbr|
|000017d0| 65 76 20 22 47 6c 6f 62 | 61 6c 22 5d 20 34 29 29 |ev "Glob|al"] 4))|
|000017e0| 0a 0a 28 64 65 66 75 6e | 20 69 6e 76 65 72 73 65 |..(defun| inverse|
|000017f0| 2d 61 64 64 2d 61 62 62 | 72 65 76 20 28 74 61 62 |-add-abb|rev (tab|
|00001800| 6c 65 20 74 79 70 65 20 | 61 72 67 29 20 28 62 79 |le type |arg) (by|
|00001810| 74 65 2d 63 6f 64 65 20 | 22 c6 c6 c6 1a 19 18 8a |te-code |".......|
|00001820| c7 0b 5b 21 88 c8 60 c7 | c9 21 88 60 89 11 5c 22 |..[!..`.|.!.`..\"|
|00001830| 89 10 29 88 ca cb cc 0c | 08 23 21 89 12 88 cd 08 |..).....|.#!.....|
|00001840| 0d 5c 22 3f 86 36 00 ce | cb cf 08 cd 08 0d 5c 22 |.\"?.6..|......\"|
|00001850| 23 21 85 48 00 d0 0d d1 | 08 21 0a 23 88 8a 09 62 |#!.H....|.!.#...b|
|00001860| 88 d2 20 29 2b 87 22 20 | 5b 6e 61 6d 65 20 6e 61 |.. )+." |[name na|
|00001870| 6d 65 6c 6f 63 20 65 78 | 70 20 61 72 67 20 74 79 |meloc ex|p arg ty|
|00001880| 70 65 20 74 61 62 6c 65 | 20 6e 69 6c 20 66 6f 72 |pe table| nil for|
|00001890| 77 61 72 64 2d 77 6f 72 | 64 20 62 75 66 66 65 72 |ward-wor|d buffer|
|000018a0| 2d 73 75 62 73 74 72 69 | 6e 67 20 31 20 72 65 61 |-substri|ng 1 rea|
|000018b0| 64 2d 73 74 72 69 6e 67 | 20 66 6f 72 6d 61 74 20 |d-string| format |
|000018c0| 22 25 73 20 65 78 70 61 | 6e 73 69 6f 6e 20 66 6f |"%s expa|nsion fo|
|000018d0| 72 20 5c 22 25 73 5c 22 | 3a 20 22 20 61 62 62 72 |r \"%s\"|: " abbr|
|000018e0| 65 76 2d 65 78 70 61 6e | 73 69 6f 6e 20 79 2d 6f |ev-expan|sion y-o|
|000018f0| 72 2d 6e 2d 70 20 22 25 | 73 20 65 78 70 61 6e 64 |r-n-p "%|s expand|
|00001900| 73 20 74 6f 20 5c 22 25 | 73 5c 22 3b 20 72 65 64 |s to \"%|s\"; red|
|00001910| 65 66 69 6e 65 3f 20 22 | 20 64 65 66 69 6e 65 2d |efine? "| define-|
|00001920| 61 62 62 72 65 76 20 64 | 6f 77 6e 63 61 73 65 20 |abbrev d|owncase |
|00001930| 65 78 70 61 6e 64 2d 61 | 62 62 72 65 76 5d 20 31 |expand-a|bbrev] 1|
|00001940| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 61 62 62 72 |4))..(de|fun abbr|
|00001950| 65 76 2d 70 72 65 66 69 | 78 2d 6d 61 72 6b 20 28 |ev-prefi|x-mark (|
|00001960| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00001970| 5c 0a 4d 61 72 6b 20 63 | 75 72 72 65 6e 74 20 70 |\.Mark c|urrent p|
|00001980| 6f 69 6e 74 20 61 73 20 | 74 68 65 20 62 65 67 69 |oint as |the begi|
|00001990| 6e 6e 69 6e 67 20 6f 66 | 20 61 6e 20 61 62 62 72 |nning of| an abbr|
|000019a0| 65 76 2e 0a 41 62 62 72 | 65 76 20 74 6f 20 62 65 |ev..Abbr|ev to be|
|000019b0| 20 65 78 70 61 6e 64 65 | 64 20 73 74 61 72 74 73 | expande|d starts|
|000019c0| 20 68 65 72 65 20 72 61 | 74 68 65 72 20 74 68 61 | here ra|ther tha|
|000019d0| 6e 20 61 74 0a 62 65 67 | 69 6e 6e 69 6e 67 20 6f |n at.beg|inning o|
|000019e0| 66 20 77 6f 72 64 2e 20 | 20 54 68 69 73 20 77 61 |f word. | This wa|
|000019f0| 79 2c 20 79 6f 75 20 63 | 61 6e 20 65 78 70 61 6e |y, you c|an expan|
|00001a00| 64 20 61 6e 20 61 62 62 | 72 65 76 0a 77 69 74 68 |d an abb|rev.with|
|00001a10| 20 61 20 70 72 65 66 69 | 78 3a 20 69 6e 73 65 72 | a prefi|x: inser|
|00001a20| 74 20 74 68 65 20 70 72 | 65 66 69 78 2c 20 75 73 |t the pr|efix, us|
|00001a30| 65 20 74 68 69 73 20 63 | 6f 6d 6d 61 6e 64 2c 0a |e this c|ommand,.|
|00001a40| 74 68 65 6e 20 69 6e 73 | 65 72 74 20 74 68 65 20 |then ins|ert the |
|00001a50| 61 62 62 72 65 76 2e 22 | 20 28 69 6e 74 65 72 61 |abbrev."| (intera|
|00001a60| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00001a70| 2d 63 6f 64 65 20 22 c3 | 88 08 86 08 00 c4 20 88 |-code ".|...... .|
|00001a80| c5 20 11 70 89 12 88 c6 | 63 87 22 20 5b 61 72 67 |. .p....|c." [arg|
|00001a90| 20 61 62 62 72 65 76 2d | 73 74 61 72 74 2d 6c 6f | abbrev-|start-lo|
|00001aa0| 63 61 74 69 6f 6e 20 61 | 62 62 72 65 76 2d 73 74 |cation a|bbrev-st|
|00001ab0| 61 72 74 2d 6c 6f 63 61 | 74 69 6f 6e 2d 62 75 66 |art-loca|tion-buf|
|00001ac0| 66 65 72 20 6e 69 6c 20 | 65 78 70 61 6e 64 2d 61 |fer nil |expand-a|
|00001ad0| 62 62 72 65 76 20 70 6f | 69 6e 74 2d 6d 61 72 6b |bbrev po|int-mark|
|00001ae0| 65 72 20 22 2d 22 5d 20 | 34 29 29 0a 0a 28 64 65 |er "-"] |4))..(de|
|00001af0| 66 75 6e 20 65 78 70 61 | 6e 64 2d 72 65 67 69 6f |fun expa|nd-regio|
|00001b00| 6e 2d 61 62 62 72 65 76 | 73 20 28 73 74 61 72 74 |n-abbrev|s (start|
|00001b10| 20 65 6e 64 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e | end &op|tional n|
|00001b20| 6f 71 75 65 72 79 29 20 | 22 5c 0a 46 6f 72 20 61 |oquery) |"\.For a|
|00001b30| 62 62 72 65 76 20 6f 63 | 63 75 72 72 65 6e 63 65 |bbrev oc|currence|
|00001b40| 20 69 6e 20 74 68 65 20 | 72 65 67 69 6f 6e 2c 20 | in the |region, |
|00001b50| 6f 66 66 65 72 20 74 6f | 20 65 78 70 61 6e 64 20 |offer to| expand |
|00001b60| 69 74 2e 0a 54 68 65 20 | 75 73 65 72 20 69 73 20 |it..The |user is |
|00001b70| 61 73 6b 65 64 20 74 6f | 20 74 79 70 65 20 79 20 |asked to| type y |
|00001b80| 6f 72 20 6e 20 66 6f 72 | 20 65 61 63 68 20 6f 63 |or n for| each oc|
|00001b90| 63 75 72 72 65 6e 63 65 | 2e 0a 41 20 6e 75 6d 65 |currence|..A nume|
|00001ba0| 72 69 63 20 61 72 67 75 | 6d 65 6e 74 20 6d 65 61 |ric argu|ment mea|
|00001bb0| 6e 73 20 64 6f 6e 27 74 | 20 71 75 65 72 79 3b 20 |ns don't| query; |
|00001bc0| 65 78 70 61 6e 64 20 61 | 6c 6c 20 61 62 62 72 65 |expand a|ll abbre|
|00001bd0| 76 73 2e 0a 43 61 6c 6c | 69 6e 67 20 66 72 6f 6d |vs..Call|ing from|
|00001be0| 20 61 20 70 72 6f 67 72 | 61 6d 2c 20 61 72 67 75 | a progr|am, argu|
|00001bf0| 6d 65 6e 74 73 20 61 72 | 65 20 53 54 41 52 54 20 |ments ar|e START |
|00001c00| 45 4e 44 20 26 6f 70 74 | 69 6f 6e 61 6c 20 4e 4f |END &opt|ional NO|
|00001c10| 51 55 45 52 59 2e 22 20 | 28 69 6e 74 65 72 61 63 |QUERY." |(interac|
|00001c20| 74 69 76 65 20 22 72 22 | 29 20 28 62 79 74 65 2d |tive "r"|) (byte-|
|00001c30| 63 6f 64 65 20 22 c5 88 | 8a 08 09 5e 62 88 64 08 |code "..|...^b.d.|
|00001c40| 09 5d 5a 1a 6d 3f 85 1c | 00 c6 c7 21 88 60 64 0a |.]Z.m?..|...!.`d.|
|00001c50| 5a 58 85 3f 00 c8 20 1b | c9 20 85 3a 00 ca 0b 21 |ZX.?.. .|. .:...!|
|00001c60| 88 cb 20 88 0c 86 35 00 | cc cd 21 85 3a 00 c9 20 |.. ...5.|..!.:.. |
|00001c70| 29 88 82 0e 00 29 29 87 | 22 20 5b 73 74 61 72 74 |)....)).|" [start|
|00001c80| 20 65 6e 64 20 6c 69 6d | 20 6d 6f 64 70 20 6e 6f | end lim| modp no|
|00001c90| 71 75 65 72 79 20 6e 69 | 6c 20 66 6f 72 77 61 72 |query ni|l forwar|
|00001ca0| 64 2d 77 6f 72 64 20 31 | 20 62 75 66 66 65 72 2d |d-word 1| buffer-|
|00001cb0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 65 78 70 61 6e |modified|-p expan|
|00001cc0| 64 2d 61 62 62 72 65 76 | 20 73 65 74 2d 62 75 66 |d-abbrev| set-buf|
|00001cd0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 75 |fer-modi|fied-p u|
|00001ce0| 6e 65 78 70 61 6e 64 2d | 61 62 62 72 65 76 20 79 |nexpand-|abbrev y|
|00001cf0| 2d 6f 72 2d 6e 2d 70 20 | 22 45 78 70 61 6e 64 20 |-or-n-p |"Expand |
|00001d00| 74 68 69 73 3f 20 22 5d | 20 39 29 29 0a          |this? "]| 9)).   |
+--------+-------------------------+-------------------------+--------+--------+