;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Jan 16 14:08:16 1994 ;;; from file /home/fsf/rms/e19/lisp/dabbrev.el ;;; emacs version 19.22.22. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defvar dabbrevs-limit nil "\ *Limits region searched by `dabbrevs-expand' to this many chars away.") (make-variable-buffer-local (quote dabbrevs-limit)) (defvar dabbrevs-backward-only nil "\ *If non-NIL, `dabbrevs-expand' only looks backwards.") (defvar last-dabbrevs-table nil "\ Table of expansions seen so far (local)") (make-variable-buffer-local (quote last-dabbrevs-table)) (defvar last-dabbrevs-abbreviation "" "\ Last string we tried to expand (local).") (make-variable-buffer-local (quote last-dabbrevs-abbreviation)) (defvar last-dabbrevs-direction 0 "\ Direction of last dabbrevs search (local)") (make-variable-buffer-local (quote last-dabbrevs-direction)) (defvar last-dabbrevs-abbrev-location nil "\ Location last abbreviation began (local).") (make-variable-buffer-local (quote last-dabbrevs-abbrev-location)) (defvar last-dabbrevs-expansion nil "\ Last expansion of an abbreviation. (local)") (make-variable-buffer-local (quote last-dabbrevs-expansion)) (defvar last-dabbrevs-expansion-location nil "\ Location the last expansion was found. (local)") (make-variable-buffer-local (quote last-dabbrevs-expansion-location)) (defalias 'dabbrev-expand #[(arg) "À‰‰‰‰‰‰ … \n \nŠ „;  =ƒ;ƒ;\n‚k „MƒIÓ‚QÔ‚QÕ !`Övˆ``{‰\nÀÀÙÚ\n!ÛQÔYƒ¹Ó]ƒˆbˆ ÔVƒ«Ü Ý #‰ ƒ«Þ  B S‰‚‰ „³ÀÓ^ÔXƒú „úÓ[]ƒÔbˆ ÔVƒ÷Ü À #‰ ƒ÷Þ  B S‰‚ÕÖ) „A\n˜À„/à ˆá!ˆ\"ã=ƒ(ä\nÝå#ˆ‚/æ\nÝå#ˆçƒ9è‚:é\n\")‚¾à ˆá!ˆŠ\"ã=ƒ[ä\nÝå#ˆ‚bæ\nÝå#ˆ)ê\n!ˆ …x ÓÀO ÓÀO—˜Šæ\nÝå#ˆ)\"ã=ƒžä ƒ” —‚– ?å#ˆ‚°æ ƒ© —‚« ?å#ˆ)\n ‰.‡" [nil case-fold-search case-replace do-case pattern n loc which old expansion abbrev arg last-command this-command last-dabbrevs-abbrev-location last-dabbrevs-abbreviation last-dabbrevs-expansion last-dabbrevs-direction dabbrevs-backward-only 1 0 prefix-numeric-value -1 last-dabbrevs-expansion-location last-dabbrev-table "\\b" regexp-quote "\\(\\sw\\|\\s_\\)+" dabbrevs-search t point-marker first undo-boundary search-backward major-mode picture-mode picture-replace-match literal replace-match error "No dynamic expansion for \"%s\" found." "No further dynamic expansions for \"%s\" found." search-forward] 9 "\ Expand previous word \"dynamically\". Expands to the most recent, preceding word for which this is a prefix. If no suitable preceding word is found, words following point are considered. If `case-fold-search' and `case-replace' are non-nil (usually true) then the substituted word may be case-adjusted to match the abbreviation that you had typed. This takes place if the substituted word, as found, is all lower case, or if it is at the beginning of a sentence and only its first letter was upper case. A positive prefix arg N says to take the Nth backward DISTINCT possibility. A negative argument says search forward. The variable `dabbrev-backward-only' may be used to limit the direction of search to backward if set non-nil. If the cursor has not moved from the end of the previous expansion and no argument is given, replace the previously-made expansion with the next possible expansion not yet tried." "*P"]) (byte-code "ÀÁÂ\"ˆÃÄ!‡" [defalias dabbrevs-search #[(pattern reverse ignore-case) "À‰ Œ ƒ` ƒÈ‚É_\\}ˆÀÀ „{ „{ƒ7Ê ÀÌ#‚=Í ÀÌ#?‰„!ΔΕ{‰ƒp ƒ_@— —˜‚d@ ˜„pA‰„QƒwÀ)‚! ƒÄŠÎ”‰bˆ ƒÃ ÉÀO ÉÀO—˜ƒÃÓP˜ƒ³ÊÀÌ#ƒÃΕU‚½ÉuˆÖ ˆ`UƒÃ —* ,‡" [nil ignore-case case-fold-search result missing dabbrevs-limit last-dabbrevs-abbrev-location reverse -1 1 re-search-backward pattern t re-search-forward 0 last-dabbrev-table test beg paragraph-start "^$\\|" page-delimiter sentence-end backward-sentence] 5] provide dabbrev] 3)