;;; compiled by roland@geech.gnu.ai.mit.edu on Sun May  9 20:52:25 1993
;;; from file /gd/gnu/emacs/19.0/lisp/dabbrev.el
;;; emacs version 19.5.10.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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‚m „M ƒI Ó‚Q Ô‚Q Õ!`Ö×!ˆ`Ø`\"‰\nÀÀÛÜ\n!ÝQÔYƒ» Ó]ƒŠ bˆÔVƒ­ Þß#‰	ƒ­ à 	BS‰‚‹ 	„µ ÀÓ^ÔXƒü 	„ü Ó[]ƒÖ bˆÔVƒù ÞÀ#‰	ƒù à 	BS‰‚× ×)	„1á\n\"\"À\"„ã ˆäG!ˆ\ncˆå\"ƒ)æ‚*ç\n\")‚„ã ˆè!ˆŠé\nßê#ˆ)ë\n!ˆ…Yá	ÓÀOì	ÓÀO!\"Šé\nßê#ˆ)éƒoì	!‚q	?ê#ˆ)\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 forward-word -1 buffer-substring last-dabbrevs-expansion-location last-dabbrev-table "\\b" regexp-quote "\\(\\sw\\|\\s_\\)+" dabbrevs-search t point-marker string= first undo-boundary delete-backward-char error "No dynamic expansion for \"%s\" found." "No further dynamic expansions for \"%s\" found." search-backward replace-match literal search-forward downcase] 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 "À	ÂÃ#ˆÄÅMˆÆÇ!‡" [define-key esc-map "/" dabbrev-expand dabbrevs-search #[(pattern reverse ignore-case) "À‰	Œƒ Æ`È	ƒ Ê‚ Ë\"\\\"ˆÀÀ„„ „„ 	ƒ9 ÌÀÎ#‚? ÏÀÎ#?‰„# ÐÑÒ!ÓÒ!\"‰ƒy 	ƒg Ö×@!×!\"‚m Ö@\"„y A‰„V ƒ€ À)‚# ƒÔ ŠÑÒ!‰bˆ	ƒÓ ÖËÀO×ËÀO!\"ƒÓ ÖÚP\"ƒÁ ÌÀÎ#ƒÓ ÓÒ!U‚Ì ÝË!ˆÞ ˆ`UƒÓ ×!*,‡" [nil ignore-case case-fold-search result missing dabbrevs-limit narrow-to-region last-dabbrevs-abbrev-location * reverse -1 1 re-search-backward pattern t re-search-forward buffer-substring match-beginning 0 match-end last-dabbrev-table test string= downcase beg paragraph-start "^$\\|" page-delimiter sentence-end forward-char backward-sentence] 7] provide dabbrev] 4)
