gnu1987/emacs18.41/lisp/dabbrev.elc

(provide (quote dabbrevs))

(defvar dabbrevs-limit nil "\
*Limits region searched by dabbrevs-expand to that many chars away (local).")

(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.  Buffer-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))

(defun dabbrev-expand (arg) "\
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.

A positive prefix argument, 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." (interactive "*P") (byte-code "ЈÔÕ!ˆÐÐÐÐÐÐЊ?…&	=…&
ƒ:‰ˆ‰ˆ
‰‚u?ƒMƒIÖ‚JׂQØ!‰ˆ`‰ˆÙÚ!ˆ`‰
ˆÛ`\"‰ˆ‰ˆÐ‰ˆÐ‰ˆÜÝ!ÞQ‰ˆ×Y…ÊÖ]‰ˆ…”bˆ
×V…¢ßÒ\"‰…ºà ‰ˆ	B‰ˆ
S‰ˆ‚•ˆ	†ÃЉˆÖ^‰
ˆ×X…Ó	?…
Ö[]‰ˆ…åbˆ
×V…óßÐ\"‰…
à ‰ˆ	B‰ˆ
S‰ˆ‚æˆÚ‰
)ˆÔá!ˆ	?ƒH
â
\"Љ
ˆ?…6
ã ˆä
G!ˆcˆåƒA
æ‚B
ç\")‚a
ã ˆä
G!ˆ	cˆ‰ˆ	‰ˆ‰.‡" [abbrev expansion old which loc n pattern arg last-command this-command last-dabbrevs-abbrev-location last-dabbrevs-abbreviation last-dabbrevs-expansion last-dabbrevs-direction dabbrevs-backward-only last-dabbrevs-expansion-location nil last-dabbrev-table t first message "Searching for dynamic expansion..." 1 0 prefix-numeric-value forward-word -1 buffer-substring "\\b" regexp-quote "\\(\\sw\\|\\s_\\)+" dabbrevs-search point-marker "" string= undo-boundary delete-backward-char error "No dynamic expansion for \"%s\" found." "No further dynamic expansions for \"%s\" found."] 18))

(defun dabbrevs-search (pattern reverse) (byte-code "ÅÅŒ
…Ê`Ë
ƒÌ‚Í\"\\\"ˆÅ‰ˆÅ‰ˆ	?…*?…ƒ:ÎÅÇ#‚@ÏÅÇ#?‰ˆ?…{ÐÑÒ!ÓÒ!\"‰ˆ	…dÔ@	\"?…qA‰ˆ‚Xˆ…zʼn)ˆ‚#ˆ	)*‡" [missing result dabbrevs-limit last-dabbrevs-abbrev-location reverse nil pattern t test last-dabbrev-table narrow-to-region * -1 1 re-search-backward re-search-forward buffer-substring match-beginning 0 match-end string=] 12))