|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ a ┃
Length: 7349 (0x1cb5)
Names: »abbrev.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/abbrev.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 61 62 62 72 65 76 2d 6d 6f 64 65 20 28 61 72 67 29 20 22 5c 0a 54 6f 67 ┆ (defun abbrev-mode (arg) "\ Tog┆
0x0020…0040 67 6c 65 20 61 62 62 72 65 76 20 6d 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 2c 20 74 75 72 6e 20 ┆gle abbrev mode. With arg, turn ┆
0x0040…0060 61 62 62 72 65 76 20 6d 6f 64 65 20 6f 6e 20 69 66 66 20 61 72 67 20 69 73 20 70 6f 73 69 74 69 ┆abbrev mode on iff arg is positi┆
0x0060…0080 76 65 2e 0a 49 6e 20 61 62 62 72 65 76 20 6d 6f 64 65 2c 20 69 6e 73 65 72 74 69 6e 67 20 61 6e ┆ve. In abbrev mode, inserting an┆
0x0080…00a0 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 63 61 75 73 65 73 20 69 74 20 74 6f 20 65 78 70 61 6e ┆ abbreviation causes it to expan┆
0x00a0…00c0 64 0a 61 6e 64 20 62 65 20 72 65 70 6c 61 63 65 64 20 62 79 20 69 74 73 20 65 78 70 61 6e 73 69 ┆d and be replaced by its expansi┆
0x00c0…00e0 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 ┆on." (interactive "P") (byte-cod┆
0x00e0…0100 65 20 22 c2 88 09 3f 83 0c 00 08 3f 82 11 00 c3 09 21 c4 56 89 10 88 c5 c6 20 21 87 22 20 5b 61 ┆e " ? ? ! V ! " [a┆
0x0100…0120 62 62 72 65 76 2d 6d 6f 64 65 20 61 72 67 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 ┆bbrev-mode arg nil prefix-numeri┆
0x0120…0140 63 2d 76 61 6c 75 65 20 30 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 ┆c-value 0 set-buffer-modified-p ┆
0x0140…0160 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 ┆buffer-modified-p] 4)) (defvar ┆
0x0160…0180 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 ┆edit-abbrevs-map nil "\ Keymap u┆
0x0180…01a0 73 65 64 20 69 6e 20 65 64 69 74 2d 61 62 62 72 65 76 73 2e 22 29 0a 0a 28 69 66 20 65 64 69 74 ┆sed in edit-abbrevs.") (if edit┆
0x01a0…01c0 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 65 64 69 74 2d 61 62 62 72 ┆-abbrevs-map nil (setq edit-abbr┆
0x01c0…01e0 65 76 73 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 ┆evs-map (make-sparse-keymap)) (d┆
0x01e0…0200 65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 22 18 13 22 20 ┆efine-key edit-abbrevs-map " " ┆
0x0200…0220 28 71 75 6f 74 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 29 29 20 28 ┆(quote edit-abbrevs-redefine)) (┆
0x0220…0240 64 65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 22 03 03 22 ┆define-key edit-abbrevs-map " "┆
0x0240…0260 20 28 71 75 6f 74 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 29 29 29 ┆ (quote edit-abbrevs-redefine)))┆
0x0260…0280 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 61 6c 6c 2d 61 62 62 72 65 76 73 20 6e 69 6c 20 22 5c ┆ (defun kill-all-abbrevs nil "\┆
0x0280…02a0 0a 55 6e 64 65 66 69 6e 65 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62 72 65 76 73 2e 22 20 ┆ Undefine all defined abbrevs." ┆
0x02a0…02c0 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 18 08 85 ┆(interactive) (byte-code " ┆
0x02c0…02e0 16 00 c3 08 40 4a 21 88 08 41 89 10 88 82 04 00 29 87 22 20 5b 74 61 62 6c 65 73 20 61 62 62 72 ┆ @J! A ) " [tables abbr┆
0x02e0…0300 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 73 74 20 6e 69 6c 20 63 6c 65 61 72 2d 61 62 62 ┆ev-table-name-list nil clear-abb┆
0x0300…0320 72 65 76 2d 74 61 62 6c 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 61 62 ┆rev-table] 4)) (defun insert-ab┆
0x0320…0340 62 72 65 76 73 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 66 74 65 72 20 70 6f 69 6e 74 20 ┆brevs nil "\ Insert after point ┆
0x0340…0360 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62 ┆a description of all defined abb┆
0x0360…0380 72 65 76 73 2e 0a 4d 61 72 6b 20 69 73 20 73 65 74 20 61 66 74 65 72 20 74 68 65 20 69 6e 73 65 ┆revs. Mark is set after the inse┆
0x0380…03a0 72 74 65 64 20 74 65 78 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d ┆rted text." (interactive) (byte-┆
0x03a0…03c0 63 6f 64 65 20 22 c3 88 c4 8a 09 18 08 85 18 00 c5 08 40 c2 5c 22 88 08 41 89 10 88 82 06 00 29 ┆code " @ \" A )┆
0x03c0…03e0 88 60 29 21 87 22 20 5b 74 61 62 6c 65 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 ┆ `)! " [tables abbrev-table-name┆
0x03e0…0400 2d 6c 69 73 74 20 74 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 20 69 6e 73 65 72 74 2d 61 62 62 ┆-list t nil push-mark insert-abb┆
0x0400…0420 72 65 76 2d 74 61 62 6c 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 ┆rev-table-description] 5)) (def┆
0x0420…0440 75 6e 20 6c 69 73 74 2d 61 62 62 72 65 76 73 20 6e 69 6c 20 22 5c 0a 44 69 73 70 6c 61 79 20 61 ┆un list-abbrevs nil "\ Display a┆
0x0440…0460 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62 72 65 76 73 2e 22 20 28 ┆ list of all defined abbrevs." (┆
0x0460…0480 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 21 87 ┆interactive) (byte-code " ! ┆
0x0480…04a0 22 20 5b 6e 69 6c 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 70 72 65 70 61 72 65 2d 61 62 ┆" [nil display-buffer prepare-ab┆
0x04a0…04c0 62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 ┆brev-list-buffer] 3)) (defun pr┆
0x04c0…04e0 65 70 61 72 65 2d 61 62 62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 62 79 ┆epare-abbrev-list-buffer nil (by┆
0x04e0…0500 74 65 2d 63 6f 64 65 20 22 8a c4 c5 21 71 88 c6 20 88 09 18 08 85 1d 00 c7 08 40 c2 5c 22 88 08 ┆te-code " !q @ \" ┆
0x0500…0520 41 89 10 88 82 0b 00 29 88 65 62 88 c8 c3 21 88 c9 20 29 88 c4 c5 21 87 22 20 5b 74 61 62 6c 65 ┆A ) eb ! ) ! " [table┆
0x0520…0540 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 73 74 20 74 20 6e 69 6c 20 67 ┆s abbrev-table-name-list t nil g┆
0x0540…0560 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 41 62 62 72 65 76 73 2a 22 20 65 72 61 ┆et-buffer-create "*Abbrevs*" era┆
0x0560…0580 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 64 65 ┆se-buffer insert-abbrev-table-de┆
0x0580…05a0 73 63 72 69 70 74 69 6f 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 ┆scription set-buffer-modified-p ┆
0x05a0…05c0 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 6f 64 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 65 ┆edit-abbrevs-mode] 7)) (defun e┆
0x05c0…05e0 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f ┆dit-abbrevs-mode nil "\ Major mo┆
0x05e0…0600 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 62 62 72 65 ┆de for editing the list of abbre┆
0x0600…0620 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 5c 5c 7b 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d ┆v definitions. \\{edit-abbrevs-m┆
0x0620…0640 61 70 7d 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 ┆ap}" (interactive) (byte-code " ┆
0x0640…0660 88 c4 89 10 88 c5 89 11 88 c6 0a 21 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d ┆ ! " [major-mode mode-┆
0x0660…0680 6e 61 6d 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 65 64 69 74 2d 61 ┆name edit-abbrevs-map nil edit-a┆
0x0680…06a0 62 62 72 65 76 73 2d 6d 6f 64 65 20 22 45 64 69 74 2d 41 62 62 72 65 76 73 22 20 75 73 65 2d 6c ┆bbrevs-mode "Edit-Abbrevs" use-l┆
0x06a0…06c0 6f 63 61 6c 2d 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 61 62 62 72 65 ┆ocal-map] 2)) (defun edit-abbre┆
0x06c0…06e0 76 73 20 6e 69 6c 20 22 5c 0a 41 6c 74 65 72 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f ┆vs nil "\ Alter abbrev definitio┆
0x06e0…0700 6e 73 20 62 79 20 65 64 69 74 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 6d 2e 0a 53 65 ┆ns by editing a list of them. Se┆
0x0700…0720 6c 65 63 74 73 20 61 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 20 6c 69 73 74 ┆lects a buffer containing a list┆
0x0720…0740 20 6f 66 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 59 6f 75 20 63 61 6e 20 ┆ of abbrev definitions. You can ┆
0x0740…0760 65 64 69 74 20 74 68 65 6d 20 61 6e 64 20 74 79 70 65 20 43 2d 63 20 43 2d 63 20 74 6f 20 72 65 ┆edit them and type C-c C-c to re┆
0x0760…0780 64 65 66 69 6e 65 20 61 62 62 72 65 76 73 0a 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 79 6f 75 72 ┆define abbrevs according to your┆
0x0780…07a0 20 65 64 69 74 69 6e 67 2e 0a 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 61 20 68 65 61 64 ┆ editing. Buffer contains a head┆
0x07a0…07c0 65 72 20 6c 69 6e 65 20 66 6f 72 20 65 61 63 68 20 61 62 62 72 65 76 20 74 61 62 6c 65 2c 0a 20 ┆er line for each abbrev table, ┆
0x07c0…07e0 77 68 69 63 68 20 69 73 20 74 68 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 20 6e 61 6d 65 20 69 ┆which is the abbrev table name i┆
0x07e0…0800 6e 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 54 68 69 73 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20 ┆n parentheses. This is followed ┆
0x0800…0820 62 79 20 6f 6e 65 20 6c 69 6e 65 20 70 65 72 20 61 62 62 72 65 76 20 69 6e 20 74 68 61 74 20 74 ┆by one line per abbrev in that t┆
0x0820…0840 61 62 6c 65 3a 0a 4e 41 4d 45 20 20 20 55 53 45 43 4f 55 4e 54 20 20 20 45 58 50 41 4e 53 49 4f ┆able: NAME USECOUNT EXPANSIO┆
0x0840…0860 4e 20 20 20 48 4f 4f 4b 0a 77 68 65 72 65 20 4e 41 4d 45 20 61 6e 64 20 45 58 50 41 4e 53 49 4f ┆N HOOK where NAME and EXPANSIO┆
0x0860…0880 4e 20 61 72 65 20 73 74 72 69 6e 67 73 20 77 69 74 68 20 71 75 6f 74 65 73 2c 0a 55 53 45 43 4f ┆N are strings with quotes, USECO┆
0x0880…08a0 55 4e 54 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 61 6e 64 20 48 4f 4f 4b 20 69 73 20 61 ┆UNT is an integer, and HOOK is a┆
0x08a0…08c0 6e 79 20 76 61 6c 69 64 20 66 75 6e 63 74 69 6f 6e 0a 6f 72 20 6d 61 79 20 62 65 20 6f 6d 69 74 ┆ny valid function or may be omit┆
0x08c0…08e0 74 65 64 20 28 69 74 20 69 73 20 75 73 75 61 6c 6c 79 20 6f 6d 69 74 74 65 64 29 2e 22 20 28 69 ┆ted (it is usually omitted)." (i┆
0x08e0…0900 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 21 87 22 ┆nteractive) (byte-code " ! "┆
0x0900…0920 20 5b 6e 69 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 70 72 65 70 61 72 65 2d 61 ┆ [nil switch-to-buffer prepare-a┆
0x0920…0940 62 62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 65 ┆bbrev-list-buffer] 3)) (defun e┆
0x0940…0960 64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 20 6e 69 6c 20 22 5c 0a 52 65 64 65 ┆dit-abbrevs-redefine nil "\ Rede┆
0x0960…0980 66 69 6e 65 20 61 62 62 72 65 76 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 75 72 72 65 6e ┆fine abbrevs according to curren┆
0x0980…09a0 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆t buffer contents" (interactive)┆
0x09a0…09c0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c0 21 88 c3 c1 21 87 22 20 5b 74 20 6e 69 6c 20 ┆ (byte-code " ! ! " [t nil ┆
0x09c0…09e0 64 65 66 69 6e 65 2d 61 62 62 72 65 76 73 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 ┆define-abbrevs set-buffer-modifi┆
0x09e0…0a00 65 64 2d 70 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 73 ┆ed-p] 3)) (defun define-abbrevs┆
0x0a00…0a20 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 61 62 62 72 65 ┆ (&optional arg) "\ Define abbre┆
0x0a20…0a40 76 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 75 72 72 65 6e 74 20 76 69 73 69 62 6c 65 20 ┆vs according to current visible ┆
0x0a40…0a60 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 2e 0a 53 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 ┆buffer contents. See documentati┆
0x0a60…0a80 6f 6e 20 6f 66 20 65 64 69 74 2d 61 62 62 72 65 76 73 20 66 6f 72 20 69 6e 66 6f 20 6f 6e 20 74 ┆on of edit-abbrevs for info on t┆
0x0a80…0aa0 68 65 20 66 6f 72 6d 61 74 20 6f 66 20 74 68 65 0a 74 65 78 74 20 79 6f 75 20 6d 75 73 74 20 68 ┆he format of the text you must h┆
0x0aa0…0ac0 61 76 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 ┆ave in the buffer. With argument┆
0x0ac0…0ae0 2c 20 65 6c 69 6d 69 6e 61 74 65 20 61 6c 6c 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f ┆, eliminate all abbrev definitio┆
0x0ae0…0b00 6e 73 20 65 78 63 65 70 74 0a 74 68 65 20 6f 6e 65 73 20 64 65 66 69 6e 65 64 20 66 72 6f 6d 20 ┆ns except the ones defined from ┆
0x0b00…0b20 74 68 65 20 62 75 66 66 65 72 20 6e 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 ┆the buffer now." (interactive "P┆
0x0b20…0b40 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 85 08 00 ca 20 88 8a 65 62 88 6d 3f 85 17 ┆") (byte-code " eb m? ┆
0x0b40…0b60 00 cb cc c1 c2 23 85 6f 00 70 1b cd 0b 21 1c c1 1d ce cf 21 88 ce cf 21 88 6c 3f 85 65 00 cd 0b ┆ # o p ! ! ! l? e ┆
0x0b60…0b80 21 16 06 cd 0b 21 16 07 cd 0b 21 89 16 08 88 d0 d1 21 88 6c 3f 85 4c 00 cd 0b 21 89 16 09 88 d0 ┆! ! ! ! l? L ! ┆
0x0b80…0ba0 d1 21 88 0e 06 0e 08 0e 09 0e 07 46 0d 42 89 15 88 82 26 00 88 d2 0c 0d 5c 22 2b 88 82 0d 00 29 ┆ ! F B & \"+ )┆
0x0ba0…0bc0 87 22 20 5b 61 72 67 20 6e 69 6c 20 74 20 62 75 66 20 74 61 62 6c 65 20 61 62 62 72 65 76 73 20 ┆ " [arg nil t buf table abbrevs ┆
0x0bc0…0be0 6e 61 6d 65 20 63 6f 75 6e 74 20 65 78 70 20 68 6f 6f 6b 20 6b 69 6c 6c 2d 61 6c 6c 2d 61 62 62 ┆name count exp hook kill-all-abb┆
0x0be0…0c00 72 65 76 73 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 28 22 20 72 65 61 64 ┆revs re-search-forward "^(" read┆
0x0c00…0c20 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 ┆ forward-line 1 skip-chars-backw┆
0x0c20…0c40 61 72 64 20 22 20 09 0a 0c 22 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 5d 20 ┆ard " " define-abbrev-table] ┆
0x0c40…0c60 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 61 62 62 72 65 76 2d 66 69 6c 65 20 28 66 ┆17)) (defun read-abbrev-file (f┆
0x0c60…0c80 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 71 75 69 65 74 6c 79 29 20 22 5c 0a 52 65 61 64 20 61 ┆ile &optional quietly) "\ Read a┆
0x0c80…0ca0 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 72 6f 6d 20 66 69 6c 65 20 77 72 69 74 ┆bbrev definitions from file writ┆
0x0ca0…0cc0 74 65 6e 20 77 69 74 68 20 77 72 69 74 65 2d 61 62 62 72 65 76 2d 66 69 6c 65 2e 0a 54 61 6b 65 ┆ten with write-abbrev-file. Take┆
0x0cc0…0ce0 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 2e 22 20 28 69 6e 74 65 72 ┆s file name as argument." (inter┆
0x0ce0…0d00 61 63 74 69 76 65 20 22 66 52 65 61 64 20 61 62 62 72 65 76 20 66 69 6c 65 3a 20 22 29 20 28 62 ┆active "fRead abbrev file: ") (b┆
0x0d00…0d20 79 74 65 2d 63 6f 64 65 20 22 c2 88 c7 08 85 0b 00 08 47 c8 56 83 12 00 08 82 13 00 09 c2 0b 23 ┆yte-code " G V #┆
0x0d20…0d40 88 c5 14 c2 89 16 06 87 22 20 5b 66 69 6c 65 20 61 62 62 72 65 76 2d 66 69 6c 65 2d 6e 61 6d 65 ┆ " [file abbrev-file-name┆
0x0d40…0d60 20 6e 69 6c 20 71 75 69 65 74 6c 79 20 73 61 76 65 2d 61 62 62 72 65 76 73 20 74 20 61 62 62 72 ┆ nil quietly save-abbrevs t abbr┆
0x0d60…0d80 65 76 73 2d 63 68 61 6e 67 65 64 20 6c 6f 61 64 20 30 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 ┆evs-changed load 0] 4)) (defun ┆
0x0d80…0da0 71 75 69 65 74 6c 79 2d 72 65 61 64 2d 61 62 62 72 65 76 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 ┆quietly-read-abbrev-file (file) ┆
0x0da0…0dc0 22 5c 0a 52 65 61 64 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 72 6f 6d 20 ┆"\ Read abbrev definitions from ┆
0x0dc0…0de0 66 69 6c 65 20 77 72 69 74 74 65 6e 20 77 69 74 68 20 77 72 69 74 65 2d 61 62 62 72 65 76 2d 66 ┆file written with write-abbrev-f┆
0x0de0…0e00 69 6c 65 2e 0a 54 61 6b 65 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 ┆ile. Takes file name as argument┆
0x0e00…0e20 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c1 5c 22 87 22 20 5b 66 69 6c 65 20 74 20 72 ┆." (byte-code " \" " [file t r┆
0x0e20…0e40 65 61 64 2d 61 62 62 72 65 76 2d 66 69 6c 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 77 72 69 ┆ead-abbrev-file] 3)) (defun wri┆
0x0e40…0e60 74 65 2d 61 62 62 72 65 76 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 57 72 69 74 65 20 61 ┆te-abbrev-file (file) "\ Write a┆
0x0e60…0e80 6c 6c 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 6f 20 66 69 6c 65 20 6f 66 ┆ll abbrev definitions to file of┆
0x0e80…0ea0 20 4c 69 73 70 20 63 6f 64 65 2e 0a 54 68 65 20 66 69 6c 65 20 63 61 6e 20 62 65 20 6c 6f 61 64 ┆ Lisp code. The file can be load┆
0x0ea0…0ec0 65 64 20 74 6f 20 64 65 66 69 6e 65 20 74 68 65 20 73 61 6d 65 20 61 62 62 72 65 76 73 2e 22 20 ┆ed to define the same abbrevs." ┆
0x0ec0…0ee0 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 57 72 69 74 65 20 61 62 62 72 65 76 20 66 69 6c 65 ┆(interactive "FWrite abbrev file┆
0x0ee0…0f00 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 08 85 0a 00 08 47 c5 56 86 10 00 09 89 ┆: ") (byte-code " G V ┆
0x0f00…0f20 10 88 8a c6 c7 21 71 88 c8 20 88 0b 1a 0a 85 2e 00 c9 0a 40 c4 5c 22 88 0a 41 89 12 88 82 1c 00 ┆ !q . @ \" A ┆
0x0f20…0f40 29 88 ca cb 64 08 23 88 c8 20 29 87 22 20 5b 66 69 6c 65 20 61 62 62 72 65 76 2d 66 69 6c 65 2d ┆) d # ) " [file abbrev-file-┆
0x0f40…0f60 6e 61 6d 65 20 74 61 62 6c 65 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 ┆name tables abbrev-table-name-li┆
0x0f60…0f80 73 74 20 6e 69 6c 20 30 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 77 72 69 ┆st nil 0 get-buffer-create " wri┆
0x0f80…0fa0 74 65 2d 61 62 62 72 65 76 2d 66 69 6c 65 22 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 ┆te-abbrev-file" erase-buffer ins┆
0x0fa0…0fc0 65 72 74 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 77 72 69 ┆ert-abbrev-table-description wri┆
0x0fc0…0fe0 74 65 2d 72 65 67 69 6f 6e 20 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 6d 6f 64 ┆te-region 1] 7)) (defun add-mod┆
0x0fe0…1000 65 2d 61 62 62 72 65 76 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6d 6f 64 65 2d 73 70 ┆e-abbrev (arg) "\ Define mode-sp┆
0x1000…1020 65 63 69 66 69 63 20 61 62 62 72 65 76 20 66 6f 72 20 6c 61 73 74 20 77 6f 72 64 28 73 29 20 62 ┆ecific abbrev for last word(s) b┆
0x1020…1040 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 68 6f 77 20 6d 61 6e ┆efore point. Argument is how man┆
0x1040…1060 79 20 77 6f 72 64 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 66 6f 72 6d 20 74 68 65 20 65 78 ┆y words before point form the ex┆
0x1060…1080 70 61 6e 73 69 6f 6e 3b 0a 6f 72 20 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 65 20 72 65 67 69 6f ┆pansion; or zero means the regio┆
0x1080…10a0 6e 20 69 73 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 ┆n is the expansion. A negative a┆
0x10a0…10c0 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 74 6f 20 75 6e 64 65 66 69 6e 65 20 74 68 65 20 73 70 ┆rgument means to undefine the sp┆
0x10c0…10e0 65 63 69 66 69 65 64 20 61 62 62 72 65 76 2e 0a 52 65 61 64 73 20 74 68 65 20 61 62 62 72 65 76 ┆ecified abbrev. Reads the abbrev┆
0x10e0…1100 69 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 ┆iation in the minibuffer." (inte┆
0x1100…1120 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 83 0b 00 ┆ractive "p") (byte-code " ┆
0x1120…1140 09 82 12 00 0a 86 12 00 c6 c7 21 c8 0b 23 87 22 20 5b 6f 6e 6c 79 2d 67 6c 6f 62 61 6c 2d 61 62 ┆ ! # " [only-global-ab┆
0x1140…1160 62 72 65 76 73 20 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d ┆brevs global-abbrev-table local-┆
0x1160…1180 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 6e 69 6c 20 61 64 64 2d 61 62 62 72 65 76 20 ┆abbrev-table arg nil add-abbrev ┆
0x1180…11a0 65 72 72 6f 72 20 22 4e 6f 20 70 65 72 2d 6d 6f 64 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 2e ┆error "No per-mode abbrev table.┆
0x11a0…11c0 22 20 22 4d 6f 64 65 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 67 6c 6f 62 61 6c ┆" "Mode"] 5)) (defun add-global┆
0x11c0…11e0 2d 61 62 62 72 65 76 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 67 6c 6f 62 61 6c 20 28 ┆-abbrev (arg) "\ Define global (┆
0x11e0…1200 61 6c 6c 20 6d 6f 64 65 73 29 20 61 62 62 72 65 76 20 66 6f 72 20 6c 61 73 74 20 77 6f 72 64 28 ┆all modes) abbrev for last word(┆
0x1200…1220 73 29 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 68 6f 77 ┆s) before point. Argument is how┆
0x1220…1240 20 6d 61 6e 79 20 77 6f 72 64 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 66 6f 72 6d 20 74 68 ┆ many words before point form th┆
0x1240…1260 65 20 65 78 70 61 6e 73 69 6f 6e 3b 0a 6f 72 20 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 65 20 72 ┆e expansion; or zero means the r┆
0x1260…1280 65 67 69 6f 6e 20 69 73 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 41 20 6e 65 67 61 74 69 ┆egion is the expansion. A negati┆
0x1280…12a0 76 65 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 74 6f 20 75 6e 64 65 66 69 6e 65 20 74 68 ┆ve argument means to undefine th┆
0x12a0…12c0 65 20 73 70 65 63 69 66 69 65 64 20 61 62 62 72 65 76 2e 0a 52 65 61 64 73 20 74 68 65 20 61 62 ┆e specified abbrev. Reads the ab┆
0x12c0…12e0 62 72 65 76 69 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 ┆breviation in the minibuffer." (┆
0x12e0…1300 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 ┆interactive "p") (byte-code " ┆
0x1300…1320 08 c4 09 23 87 22 20 5b 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 ┆ # " [global-abbrev-table arg ┆
0x1320…1340 6e 69 6c 20 61 64 64 2d 61 62 62 72 65 76 20 22 47 6c 6f 62 61 6c 22 5d 20 34 29 29 0a 0a 28 64 ┆nil add-abbrev "Global"] 4)) (d┆
0x1340…1360 65 66 75 6e 20 61 64 64 2d 61 62 62 72 65 76 20 28 74 61 62 6c 65 20 74 79 70 65 20 61 72 67 29 ┆efun add-abbrev (table type arg)┆
0x1360…1380 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c5 59 85 1c 00 c6 60 09 c5 55 83 13 00 c7 20 82 1b 00 ┆ (byte-code " Y ` U ┆
0x1380…13a0 8a c8 09 5b 21 88 60 29 5c 22 c9 1a 18 ca cb cc 0b 08 23 21 89 12 88 08 3f 86 40 00 cd 0a 0c 5c ┆ [! `)\" #! ? @ \┆
0x13a0…13c0 22 3f 86 40 00 ce cb cf 0a cd 0a 0c 5c 22 23 21 85 4a 00 d0 0c d1 0a 21 08 23 2a 87 22 20 5b 65 ┆"? @ \"#! J ! #* " [e┆
0x13c0…13e0 78 70 20 61 72 67 20 6e 61 6d 65 20 74 79 70 65 20 74 61 62 6c 65 20 30 20 62 75 66 66 65 72 2d ┆xp arg name type table 0 buffer-┆
0x13e0…1400 73 75 62 73 74 72 69 6e 67 20 6d 61 72 6b 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 6e 69 6c 20 ┆substring mark forward-word nil ┆
0x1400…1420 72 65 61 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 20 61 62 62 72 65 76 20 66 6f ┆read-string format "%s abbrev fo┆
0x1420…1440 72 20 5c 22 25 73 5c 22 3a 20 22 20 61 62 62 72 65 76 2d 65 78 70 61 6e 73 69 6f 6e 20 79 2d 6f ┆r \"%s\": " abbrev-expansion y-o┆
0x1440…1460 72 2d 6e 2d 70 20 22 25 73 20 65 78 70 61 6e 64 73 20 74 6f 20 5c 22 25 73 5c 22 3b 20 72 65 64 ┆r-n-p "%s expands to \"%s\"; red┆
0x1460…1480 65 66 69 6e 65 3f 20 22 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 20 64 6f 77 6e 63 61 73 65 5d ┆efine? " define-abbrev downcase]┆
0x1480…14a0 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 6d 6f 64 65 2d 61 ┆ 14)) (defun inverse-add-mode-a┆
0x14a0…14c0 62 62 72 65 76 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6c 61 73 74 20 77 6f 72 64 20 ┆bbrev (arg) "\ Define last word ┆
0x14c0…14e0 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 61 73 20 61 20 6d 6f 64 65 2d 73 70 65 63 69 66 69 63 20 ┆before point as a mode-specific ┆
0x14e0…1500 61 62 62 72 65 76 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 20 4e 2c 20 64 65 66 69 6e 65 73 ┆abbrev. With argument N, defines┆
0x1500…1520 20 74 68 65 20 4e 74 68 20 77 6f 72 64 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 52 65 61 64 ┆ the Nth word before point. Read┆
0x1520…1540 73 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 ┆s the expansion in the minibuffe┆
0x1540…1560 72 2e 0a 45 78 70 61 6e 64 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 61 66 74 65 ┆r. Expands the abbreviation afte┆
0x1560…1580 72 20 64 65 66 69 6e 69 6e 67 20 69 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 ┆r defining it." (interactive "p"┆
0x1580…15a0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 83 0b 00 09 82 12 00 0a 86 12 00 c6 c7 21 ┆) (byte-code " !┆
0x15a0…15c0 c8 0b 23 87 22 20 5b 6f 6e 6c 79 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 73 20 67 6c 6f 62 61 ┆ # " [only-global-abbrevs globa┆
0x15c0…15e0 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c ┆l-abbrev-table local-abbrev-tabl┆
0x15e0…1600 65 20 61 72 67 20 6e 69 6c 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 65 72 72 ┆e arg nil inverse-add-abbrev err┆
0x1600…1620 6f 72 20 22 4e 6f 20 70 65 72 2d 6d 6f 64 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 2e 22 20 22 ┆or "No per-mode abbrev table." "┆
0x1620…1640 4d 6f 64 65 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 67 ┆Mode"] 5)) (defun inverse-add-g┆
0x1640…1660 6c 6f 62 61 6c 2d 61 62 62 72 65 76 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6c 61 73 ┆lobal-abbrev (arg) "\ Define las┆
0x1660…1680 74 20 77 6f 72 64 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 61 73 20 61 20 67 6c 6f 62 61 6c 20 ┆t word before point as a global ┆
0x1680…16a0 28 6d 6f 64 65 2d 69 6e 64 65 70 65 6e 64 65 6e 74 29 20 61 62 62 72 65 76 2e 0a 57 69 74 68 20 ┆(mode-independent) abbrev. With ┆
0x16a0…16c0 61 72 67 75 6d 65 6e 74 20 4e 2c 20 64 65 66 69 6e 65 73 20 74 68 65 20 4e 74 68 20 77 6f 72 64 ┆argument N, defines the Nth word┆
0x16c0…16e0 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 52 65 61 64 73 20 74 68 65 20 65 78 70 61 6e 73 69 ┆ before point. Reads the expansi┆
0x16e0…1700 6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 45 78 70 61 6e 64 73 20 74 68 ┆on in the minibuffer. Expands th┆
0x1700…1720 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 61 66 74 65 72 20 64 65 66 69 6e 69 6e 67 20 69 74 ┆e abbreviation after defining it┆
0x1720…1740 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆." (interactive "p") (byte-code ┆
0x1740…1760 22 c2 88 c3 08 c4 09 23 87 22 20 5b 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 ┆" # " [global-abbrev-table ┆
0x1760…1780 61 72 67 20 6e 69 6c 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 22 47 6c 6f 62 ┆arg nil inverse-add-abbrev "Glob┆
0x1780…17a0 61 6c 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 ┆al"] 4)) (defun inverse-add-abb┆
0x17a0…17c0 72 65 76 20 28 74 61 62 6c 65 20 74 79 70 65 20 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆rev (table type arg) (byte-code ┆
0x17c0…17e0 22 c6 c6 c6 1a 19 18 8a c7 0b 5b 21 88 c8 60 c7 c9 21 88 60 89 11 5c 22 89 10 29 88 ca cb cc 0c ┆" [! ` ! ` \" ) ┆
0x17e0…1800 08 23 21 89 12 88 cd 08 0d 5c 22 3f 86 36 00 ce cb cf 08 cd 08 0d 5c 22 23 21 85 48 00 d0 0d d1 ┆ #! \"? 6 \"#! H ┆
0x1800…1820 08 21 0a 23 88 8a 09 62 88 d2 20 29 2b 87 22 20 5b 6e 61 6d 65 20 6e 61 6d 65 6c 6f 63 20 65 78 ┆ ! # b )+ " [name nameloc ex┆
0x1820…1840 70 20 61 72 67 20 74 79 70 65 20 74 61 62 6c 65 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 ┆p arg type table nil forward-wor┆
0x1840…1860 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 31 20 72 65 61 64 2d 73 74 72 69 6e 67 ┆d buffer-substring 1 read-string┆
0x1860…1880 20 66 6f 72 6d 61 74 20 22 25 73 20 65 78 70 61 6e 73 69 6f 6e 20 66 6f 72 20 5c 22 25 73 5c 22 ┆ format "%s expansion for \"%s\"┆
0x1880…18a0 3a 20 22 20 61 62 62 72 65 76 2d 65 78 70 61 6e 73 69 6f 6e 20 79 2d 6f 72 2d 6e 2d 70 20 22 25 ┆: " abbrev-expansion y-or-n-p "%┆
0x18a0…18c0 73 20 65 78 70 61 6e 64 73 20 74 6f 20 5c 22 25 73 5c 22 3b 20 72 65 64 65 66 69 6e 65 3f 20 22 ┆s expands to \"%s\"; redefine? "┆
0x18c0…18e0 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 20 64 6f 77 6e 63 61 73 65 20 65 78 70 61 6e 64 2d 61 ┆ define-abbrev downcase expand-a┆
0x18e0…1900 62 62 72 65 76 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 62 62 72 65 76 2d 70 72 65 66 69 ┆bbrev] 14)) (defun abbrev-prefi┆
0x1900…1920 78 2d 6d 61 72 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 61 72 6b 20 63 ┆x-mark (&optional arg) "\ Mark c┆
[…truncated at 200 lines…]