|
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 - metrics - downloadIndex: a
Length: 7437 (0x1d0d)
Names: »abbrev.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆t buffer contents." (interactive┆
0x09a0…09c0 29 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 ┆) (byte-code " ! ! " [t nil┆
0x09c0…09e0 20 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 ┆ define-abbrevs set-buffer-modif┆
0x09e0…0a00 69 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 ┆ied-p] 3)) (defun define-abbrev┆
0x0a00…0a20 73 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 ┆s (&optional arg) "\ Define abbr┆
0x0a20…0a40 65 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 ┆evs according to current visible┆
0x0a40…0a60 20 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 ┆ buffer contents. See documentat┆
0x0a60…0a80 69 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 ┆ion of edit-abbrevs for info on ┆
0x0a80…0aa0 74 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 ┆the format of the text you must ┆
0x0aa0…0ac0 68 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 ┆have in the buffer. With argumen┆
0x0ac0…0ae0 74 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 ┆t, eliminate all abbrev definiti┆
0x0ae0…0b00 6f 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 ┆ons except the ones defined from┆
0x0b00…0b20 20 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 ┆ the buffer now." (interactive "┆
0x0b20…0b40 50 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 ┆P") (byte-code " eb m? ┆
0x0b40…0b60 17 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 ┆ # o p ! ! ! l? e ┆
0x0b60…0b80 0b 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 ┆ ! ! ! ! l? L ! ┆
0x0b80…0ba0 d0 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 ┆ ! F B & \"+ ┆
0x0ba0…0bc0 29 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 ┆) " [arg nil t buf table abbrevs┆
0x0bc0…0be0 20 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 ┆ name count exp hook kill-all-ab┆
0x0be0…0c00 62 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 ┆brevs re-search-forward "^(" rea┆
0x0c00…0c20 64 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 ┆d forward-line 1 skip-chars-back┆
0x0c20…0c40 77 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 ┆ward " " define-abbrev-table]┆
0x0c40…0c60 20 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 ┆ 17)) (defun read-abbrev-file (┆
0x0c60…0c80 66 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 ┆file &optional quietly) "\ Read ┆
0x0c80…0ca0 61 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 ┆abbrev definitions from file wri┆
0x0ca0…0cc0 74 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 ┆tten with write-abbrev-file. Tak┆
0x0cc0…0ce0 65 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 2e 0a 4f 70 74 69 6f 6e ┆es file name as argument. Option┆
0x0ce0…0d00 61 6c 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 ┆al second argument non-nil means┆
0x0d00…0d20 20 64 6f 6e 27 74 20 70 72 69 6e 74 20 61 6e 79 74 68 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 ┆ don't print anything." (interac┆
0x0d20…0d40 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 79 74 ┆tive "fRead abbrev file: ") (byt┆
0x0d40…0d60 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 88 c5 ┆e-code " G V # ┆
0x0d60…0d80 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 20 6e ┆ " [file abbrev-file-name n┆
0x0d80…0da0 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 65 76 ┆il quietly save-abbrevs t abbrev┆
0x0da0…0dc0 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 71 75 ┆s-changed load 0] 4)) (defun qu┆
0x0dc0…0de0 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 22 5c ┆ietly-read-abbrev-file (file) "\┆
0x0de0…0e00 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 66 69 ┆ Read abbrev definitions from fi┆
0x0e00…0e20 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 69 6c ┆le written with write-abbrev-fil┆
0x0e20…0e40 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 2e 20 ┆e. Takes file name as argument. ┆
0x0e40…0e60 20 44 6f 65 73 20 6e 6f 74 20 70 72 69 6e 74 20 61 6e 79 74 68 69 6e 67 2e 22 20 28 62 79 74 65 ┆ Does not print anything." (byte┆
0x0e60…0e80 2d 63 6f 64 65 20 22 c2 08 c1 5c 22 87 22 20 5b 66 69 6c 65 20 74 20 72 65 61 64 2d 61 62 62 72 ┆-code " \" " [file t read-abbr┆
0x0e80…0ea0 65 76 2d 66 69 6c 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d 61 62 62 72 65 ┆ev-file] 3)) (defun write-abbre┆
0x0ea0…0ec0 76 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 57 72 69 74 65 20 61 6c 6c 20 61 62 62 72 65 ┆v-file (file) "\ Write all abbre┆
0x0ec0…0ee0 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 6f 20 66 69 6c 65 20 6f 66 20 4c 69 73 70 20 63 6f ┆v definitions to file of Lisp co┆
0x0ee0…0f00 64 65 2e 0a 54 68 65 20 66 69 6c 65 20 63 61 6e 20 62 65 20 6c 6f 61 64 65 64 20 74 6f 20 64 65 ┆de. The file can be loaded to de┆
0x0f00…0f20 66 69 6e 65 20 74 68 65 20 73 61 6d 65 20 61 62 62 72 65 76 73 2e 22 20 28 69 6e 74 65 72 61 63 ┆fine the same abbrevs." (interac┆
0x0f20…0f40 74 69 76 65 20 22 46 57 72 69 74 65 20 61 62 62 72 65 76 20 66 69 6c 65 3a 20 22 29 20 28 62 79 ┆tive "FWrite abbrev file: ") (by┆
0x0f40…0f60 74 65 2d 63 6f 64 65 20 22 c4 88 08 85 0a 00 08 47 c5 56 86 10 00 09 89 10 88 8a c6 c7 21 71 88 ┆te-code " G V !q ┆
0x0f60…0f80 c8 20 88 0b 1a 0a 85 2e 00 c9 0a 40 c4 5c 22 88 0a 41 89 12 88 82 1c 00 29 88 ca cb 64 08 23 88 ┆ . @ \" A ) d # ┆
0x0f80…0fa0 c8 20 29 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 20 74 61 62 ┆ ) " [file abbrev-file-name tab┆
0x0fa0…0fc0 6c 65 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 6e 69 6c 20 30 ┆les abbrev-table-name-list nil 0┆
0x0fc0…0fe0 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 77 72 69 74 65 2d 61 62 62 72 65 ┆ get-buffer-create " write-abbre┆
0x0fe0…1000 76 2d 66 69 6c 65 22 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 61 62 62 72 ┆v-file" erase-buffer insert-abbr┆
0x1000…1020 65 76 2d 74 61 62 6c 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 77 72 69 74 65 2d 72 65 67 69 6f ┆ev-table-description write-regio┆
0x1020…1040 6e 20 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 6d 6f 64 65 2d 61 62 62 72 65 76 ┆n 1] 7)) (defun add-mode-abbrev┆
0x1040…1060 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6d 6f 64 65 2d 73 70 65 63 69 66 69 63 20 61 ┆ (arg) "\ Define mode-specific a┆
0x1060…1080 62 62 72 65 76 20 66 6f 72 20 6c 61 73 74 20 77 6f 72 64 28 73 29 20 62 65 66 6f 72 65 20 70 6f ┆bbrev for last word(s) before po┆
0x1080…10a0 69 6e 74 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 68 6f 77 20 6d 61 6e 79 20 77 6f 72 64 73 20 ┆int. Argument is how many words ┆
0x10a0…10c0 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 66 6f 72 6d 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 3b ┆before point form the expansion;┆
0x10c0…10e0 0a 6f 72 20 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73 20 74 68 65 ┆ or zero means the region is the┆
0x10e0…1100 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 ┆ expansion. A negative argument ┆
0x1100…1120 6d 65 61 6e 73 20 74 6f 20 75 6e 64 65 66 69 6e 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 ┆means to undefine the specified ┆
0x1120…1140 61 62 62 72 65 76 2e 0a 52 65 61 64 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 69 ┆abbrev. Reads the abbreviation i┆
0x1140…1160 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆n the minibuffer." (interactive ┆
0x1160…1180 22 70 22 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 ┆"p") (byte-code " ┆
0x1180…11a0 c6 c7 21 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 ┆ ! # " [only-global-abbrevs gl┆
0x11a0…11c0 6f 62 61 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 ┆obal-abbrev-table local-abbrev-t┆
0x11c0…11e0 61 62 6c 65 20 61 72 67 20 6e 69 6c 20 61 64 64 2d 61 62 62 72 65 76 20 65 72 72 6f 72 20 22 4e ┆able arg nil add-abbrev error "N┆
0x11e0…1200 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 4d 6f 64 65 22 ┆o per-mode abbrev table." "Mode"┆
0x1200…1220 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 20 ┆] 5)) (defun add-global-abbrev ┆
0x1220…1240 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 67 6c 6f 62 61 6c 20 28 61 6c 6c 20 6d 6f 64 65 ┆(arg) "\ Define global (all mode┆
0x1240…1260 73 29 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 65 66 6f 72 ┆s) abbrev for last word(s) befor┆
0x1260…1280 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 79 20 77 6f ┆e point. Argument is how many wo┆
0x1280…12a0 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 70 61 6e 73 ┆rds before point form the expans┆
0x12a0…12c0 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 6e 20 69 73 ┆ion; or zero means the region is┆
0x12c0…12e0 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 72 67 75 6d ┆ the expansion. A negative argum┆
0x12e0…1300 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 65 63 69 66 ┆ent means to undefine the specif┆
0x1300…1320 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 69 61 74 69 ┆ied abbrev. Reads the abbreviati┆
0x1320…1340 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 72 61 63 74 ┆on in the minibuffer." (interact┆
0x1340…1360 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c4 09 23 87 22 20 5b ┆ive "p") (byte-code " # " [┆
0x1360…1380 67 6c 6f 62 61 6c 2d 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 ┆global-abbrev-table arg nil add-┆
0x1380…13a0 61 62 62 72 65 76 20 22 47 6c 6f 62 61 6c 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 ┆abbrev "Global"] 4)) (defun add┆
0x13a0…13c0 2d 61 62 62 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 ┆-abbrev (table type arg) (byte-c┆
0x13c0…13e0 6f 64 65 20 22 09 c5 59 85 1c 00 c6 60 09 c5 55 83 13 00 c7 20 82 1b 00 8a c8 09 5b 21 88 60 29 ┆ode " Y ` U [! `)┆
0x13e0…1400 5c 22 c9 1a 18 ca cb cc 0b 08 23 21 89 12 88 08 3f 86 40 00 cd 0a 0c 5c 22 3f 86 40 00 ce cb cf ┆\" #! ? @ \"? @ ┆
0x1400…1420 0a cd 0a 0c 5c 22 23 21 85 4a 00 d0 0c d1 0a 21 08 23 2a 87 22 20 5b 65 78 70 20 61 72 67 20 6e ┆ \"#! J ! #* " [exp arg n┆
0x1420…1440 61 6d 65 20 74 79 70 65 20 74 61 62 6c 65 20 30 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e ┆ame type table 0 buffer-substrin┆
0x1440…1460 67 20 6d 61 72 6b 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 6e 69 6c 20 72 65 61 64 2d 73 74 72 ┆g mark forward-word nil read-str┆
0x1460…1480 69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 20 61 62 62 72 65 76 20 66 6f 72 20 5c 22 25 73 5c 22 ┆ing format "%s abbrev for \"%s\"┆
0x1480…14a0 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 "%┆
0x14a0…14c0 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? "┆
0x14c0…14e0 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 20 64 6f 77 6e 63 61 73 65 5d 20 31 34 29 29 0a 0a 28 ┆ define-abbrev downcase] 14)) (┆
0x14e0…1500 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 6d 6f 64 65 2d 61 62 62 72 65 76 20 28 61 ┆defun inverse-add-mode-abbrev (a┆
0x1500…1520 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6c 61 73 74 20 77 6f 72 64 20 62 65 66 6f 72 65 20 70 ┆rg) "\ Define last word before p┆
0x1520…1540 6f 69 6e 74 20 61 73 20 61 20 6d 6f 64 65 2d 73 70 65 63 69 66 69 63 20 61 62 62 72 65 76 2e 0a ┆oint as a mode-specific abbrev. ┆
0x1540…1560 57 69 74 68 20 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 ┆With argument N, defines the Nth┆
0x1560…1580 20 77 6f 72 64 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 ┆ word before point. Reads the ex┆
0x1580…15a0 70 61 6e 73 69 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 ┆pansion in the minibuffer. Expan┆
0x15a0…15c0 64 73 20 74 68 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 ┆ds the abbreviation after defini┆
0x15c0…15e0 6e 67 20 69 74 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 ┆ng it." (interactive "p") (byte-┆
0x15e0…1600 63 6f 64 65 20 22 c4 88 c5 08 83 0b 00 09 82 12 00 0a 86 12 00 c6 c7 21 c8 0b 23 87 22 20 5b 6f ┆code " ! # " [o┆
0x1600…1620 6e 6c 79 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 73 20 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 ┆nly-global-abbrevs global-abbrev┆
0x1620…1640 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 6e 69 ┆-table local-abbrev-table arg ni┆
0x1640…1660 6c 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 65 72 72 6f 72 20 22 4e 6f 20 70 ┆l inverse-add-abbrev error "No p┆
0x1660…1680 65 72 2d 6d 6f 64 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 2e 22 20 22 4d 6f 64 65 22 5d 20 35 ┆er-mode abbrev table." "Mode"] 5┆
0x1680…16a0 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 67 6c 6f 62 61 6c 2d 61 62 ┆)) (defun inverse-add-global-ab┆
0x16a0…16c0 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 62 ┆brev (arg) "\ Define last word b┆
0x16c0…16e0 65 66 6f 72 65 20 70 6f 69 6e 74 20 61 73 20 61 20 67 6c 6f 62 61 6c 20 28 6d 6f 64 65 2d 69 6e ┆efore point as a global (mode-in┆
0x16e0…1700 64 65 70 65 6e 64 65 6e 74 29 20 61 62 62 72 65 76 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 ┆dependent) abbrev. With argument┆
0x1700…1720 20 4e 2c 20 64 65 66 69 6e 65 73 20 74 68 65 20 4e 74 68 20 77 6f 72 64 20 62 65 66 6f 72 65 20 ┆ N, defines the Nth word before ┆
0x1720…1740 70 6f 69 6e 74 2e 0a 52 65 61 64 73 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 69 6e 20 74 68 ┆point. Reads the expansion in th┆
0x1740…1760 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 45 78 70 61 6e 64 73 20 74 68 65 20 61 62 62 72 65 76 ┆e minibuffer. Expands the abbrev┆
0x1760…1780 69 61 74 69 6f 6e 20 61 66 74 65 72 20 64 65 66 69 6e 69 6e 67 20 69 74 2e 22 20 28 69 6e 74 65 ┆iation after defining it." (inte┆
0x1780…17a0 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 08 c4 09 23 ┆ractive "p") (byte-code " #┆
0x17a0…17c0 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 6e 69 6c 20 ┆ " [global-abbrev-table arg nil ┆
0x17c0…17e0 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 22 47 6c 6f 62 61 6c 22 5d 20 34 29 29 ┆inverse-add-abbrev "Global"] 4))┆
0x17e0…1800 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 28 74 61 62 ┆ (defun inverse-add-abbrev (tab┆
0x1800…1820 6c 65 20 74 79 70 65 20 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 c6 c6 1a 19 18 8a ┆le type arg) (byte-code " ┆
0x1820…1840 c7 0b 5b 21 88 c8 60 c7 c9 21 88 60 89 11 5c 22 89 10 29 88 ca cb cc 0c 08 23 21 89 12 88 cd 08 ┆ [! ` ! ` \" ) #! ┆
0x1840…1860 0d 5c 22 3f 86 36 00 ce cb cf 08 cd 08 0d 5c 22 23 21 85 48 00 d0 0d d1 08 21 0a 23 88 8a 09 62 ┆ \"? 6 \"#! H ! # b┆
0x1860…1880 88 d2 20 29 2b 87 22 20 5b 6e 61 6d 65 20 6e 61 6d 65 6c 6f 63 20 65 78 70 20 61 72 67 20 74 79 ┆ )+ " [name nameloc exp arg ty┆
0x1880…18a0 70 65 20 74 61 62 6c 65 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72 ┆pe table nil forward-word buffer┆
0x18a0…18c0 2d 73 75 62 73 74 72 69 6e 67 20 31 20 72 65 61 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 ┆-substring 1 read-string format ┆
0x18c0…18e0 22 25 73 20 65 78 70 61 6e 73 69 6f 6e 20 66 6f 72 20 5c 22 25 73 5c 22 3a 20 22 20 61 62 62 72 ┆"%s expansion for \"%s\": " abbr┆
0x18e0…1900 65 76 2d 65 78 70 61 6e 73 69 6f 6e 20 79 2d 6f 72 2d 6e 2d 70 20 22 25 73 20 65 78 70 61 6e 64 ┆ev-expansion y-or-n-p "%s expand┆
0x1900…1920 73 20 74 6f 20 5c 22 25 73 5c 22 3b 20 72 65 64 65 66 69 6e 65 3f 20 22 20 64 65 66 69 6e 65 2d ┆s to \"%s\"; redefine? " define-┆
[…truncated at 200 lines…]