| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/dabbrev.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:13 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/dabbrev.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\315DD\316\317\320\306\301&\210\311\321\313\314\322DD\323\317\324\306\301&\210\311\325\313\314\326DD\327\317\330\306\301&\210\311\331\313\314\332DD\333\317\320\306\301&\210\311\334\313\314\335DD\336\317\337\306\301&\210\311\340\313\314\341DD\342\317\320\306\301&\210\311\343\313\314\344DD\345\317\346\306\301\347\350& \210\311\351\313\314\352DD\353\317\354\306\301&\210\311\355\313\314\356DD\357\317\360\306\301&\210\311\361\313\314\362DD\363\317\320\306\301&\210\311\364\313\314\365DD\366\317\367\306\301\347\370& \210\311\371\313\314\372DD\373\317\374\306\301\347\375& \210\311\376\313\314\377DD\201@ \317\201A \306\301&\207" [custom-declare-group dabbrev nil "Dynamic Abbreviations." :tag "Dynamic Abbreviations" :group abbrev convenience custom-declare-variable dabbrev-backward-only funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, `dabbrev-expand' only looks backwards." :type boolean dabbrev-limit #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Limits region searched by `dabbrev-expand' to this many chars away." (choice (const :tag "off" nil) integer) dabbrev-abbrev-skip-leading-regexp #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Regexp for skipping leading characters of an abbreviation.\n\nExample: Set this to \"\\\\$\" for programming languages\nin which variable names may appear with or without a leading `$'.\n(For example, in Makefiles.)\n\nSet this to nil if no characters should be skipped." (choice regexp (const :tag "off" nil)) dabbrev-eliminate-newlines #[0 "\300\207" [t] 1 "\n\n(fn)"] "Non-nil means dabbrev should not insert newlines.\nInstead it converts them to spaces." dabbrev-case-fold-search #[0 "\300\207" [case-fold-search] 1 "\n\n(fn)"] "Control whether dabbrev searches should ignore case.\nA value of nil means case is significant.\nA value of `case-fold-search' means case is significant\n if `case-fold-search' is nil.\nAny other non-nil version means case is not significant." (choice (const :tag "off" nil) (const :tag "like search" case-fold-search) (other :tag "on" t)) dabbrev-upcase-means-case-search #[0 "\300\207" [nil] 1 "\n\n(fn)"] "The significance of an uppercase character in an abbreviation.\nA nil value means case fold search when searching for possible expansions;\nnon-nil means case sensitive search.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' says to ignore case." dabbrev-case-distinction #[0 "\300\207" [case-replace] 1 "\n\n(fn)"] "Whether dabbrev treats expansions as the same if they differ in case.\n\nA value of nil means treat them as different.\nA value of `case-replace' means distinguish them if `case-replace' is nil.\nAny other non-nil value means to treat them as the same.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' specifies to ignore case." (choice (const :tag "off" nil) (const :tag "based on `case-replace'" case-replace) (other :tag "on" t)) :version "22.1" dabbrev-case-replace #[0 "\300\207" [case-replace] 1 "\n\n(fn)"] "Whether dabbrev applies the abbreviations's case pattern to the expansion.\n\nA value of nil means preserve the expansion's case pattern.\nA value of `case-replace' means preserve it if `case-replace' is nil.\nAny other non-nil value means modify the expansion\nby applying the abbreviation's case pattern to it.\n\nThis variable has an effect only when the value of\n`dabbrev-case-fold-search' specifies to ignore case." (choice (const :tag "off" nil) (const :tag "based on `case-replace'" case-replace) (other :tag "on" t)) dabbrev-abbrev-char-regexp #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Regexp to recognize a character in an abbreviation or expansion.\nThis regexp will be surrounded with \\\\( ... \\\\) when actually used.\n\nSet this variable to \"\\\\sw\" if you want ordinary words or\n\"\\\\sw\\\\|\\\\s_\" if you want symbols (including characters whose\nsyntax is \"symbol\" as well as those whose syntax is \"word\".\n\nThe value nil has a special meaning: the abbreviation is from point to\nprevious word-start, but the search is for symbols.\n\nFor instance, if you are programming in Lisp, `yes-or-no-p' is a symbol,\nwhile `yes', `or', `no' and `p' are considered words. If this\nvariable is nil, then expanding `yes-or-no-' looks for a symbol\nstarting with or containing `no-'. If you set this variable to\n\"\\\\sw\\\\|\\\\s_\", that expansion looks for a symbol starting with\n`yes-or-no-'. Finally, if you set this variable to \"\\\\sw\", then\nexpanding `yes-or-no-' signals an error because `-' is not part of a word;\nbut expanding `yes-or-no' looks for a word starting with `no'.\n\nThe recommended value is nil, which will make dabbrev default to\nusing \"\\\\sw\\\\|\\\\s_\"." (choice (const nil) regexp) dabbrev-check-all-buffers #[0 "\300\207" [t] 1 "\n\n(fn)"] "Non-nil means dabbrev package should search *all* buffers.\n\nDabbrev always searches the current buffer first. Then, if\n`dabbrev-check-other-buffers' says so, it searches the buffers\ndesignated by `dabbrev-select-buffers-function'.\n\nThen, if `dabbrev-check-all-buffers' is non-nil, dabbrev searches\nall the other buffers, except those named in `dabbrev-ignored-buffer-names',\nor matched by `dabbrev-ignored-regexps'." dabbrev-ignored-buffer-names #[0 "\300\207" [("*Messages*" "*Buffer List*")] 1 "\n\n(fn)"] "List of buffer names that dabbrev should not check.\nSee also `dabbrev-ignored-buffer-regexps'." (repeat (string :tag "Buffer name")) "20.3" dabbrev-ignored-buffer-regexps #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of regexps matching names of buffers that dabbrev should not check.\nSee also `dabbrev-ignored-buffer-names'." (repeat regexp) "21.1" dabbrev-check-other-buffers #[0 "\300\207" [t] 1 "\n\n(fn)"] "Should \\[dabbrev-expand] look in other buffers?\nnil: Don't look in other buffers.\nt: Also look for expansions in the buffers pointed out by\n `dabbrev-select-buffers-function'.\nAnything else: When we can't find any more expansions in\nthe current buffer, then ask the user whether to look in other\nbuffers too.\n\nThe default value is t." (choice (const :tag "off" nil) (const :tag "on" t) (other :tag "ask" other))] 10)
#@282 A function that selects buffers that should be searched by dabbrev.
The function should take no arguments and return a list of buffers to
search for expansions. See the source of `dabbrev--select-buffers'
for an example.
A mode setting this variable should make it buffer local.
(defvar dabbrev-select-buffers-function 'dabbrev--select-buffers (#$ . 6763))
(byte-code "\300\301\302\303\304DD\305\306\303\307\310&\210\300\311\302\303\312DD\313\307\310%\207" [custom-declare-variable dabbrev-friend-buffer-function funcall function #[0 "\300\207" [dabbrev--same-major-mode-p] 1 "\n\n(fn)"] "A function to decide whether dabbrev should search OTHER-BUFFER.\nThe function should take one argument, OTHER-BUFFER, and return\nnon-nil if that buffer should be searched. Have a look at\n`dabbrev--same-major-mode-p' for an example.\n\nThe value of `dabbrev-friend-buffer-function' has an effect only if\nthe value of `dabbrev-select-buffers-function' uses it. The function\n`dabbrev--select-buffers' is one function you can use here.\n\nA mode setting this variable should make it buffer local." :type :group dabbrev dabbrev-search-these-buffers-only #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, a list of buffers which dabbrev should search.\nIf this variable is non-nil, dabbrev will only look in these buffers.\nIt will not even look in the current buffer if it is not a member of\nthis list."] 8)
(defvar dabbrev--last-table nil)
(defvar dabbrev--last-abbreviation nil)
(defvar dabbrev--last-abbrev-location nil)
(defvar dabbrev--last-direction 0)
(defvar dabbrev--last-expansion nil)
(defvar dabbrev--last-expansion-location nil)
(defvar dabbrev--friend-buffer-list nil)
(defvar dabbrev--last-buffer nil)
(defvar dabbrev--last-buffer-found nil)
(defvar dabbrev--last-case-pattern nil)
(defvar dabbrev--check-other-buffers dabbrev-check-other-buffers)
(defvar dabbrev--abbrev-char-regexp nil)
(defvar dabbrev--progress-reporter nil)
#@46 Get the buffer from which mini-buffer.
(fn)
(defalias 'dabbrev--minibuffer-origin #[0 "\300\301 !\207" [window-buffer minibuffer-selected-window] 2 (#$ . 8706)])
(put 'dabbrev--minibuffer-origin 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'dabbrev-filter-elements '(macro . #[771 "\300\301\302E\303\302E\304\302\303\305BB\306\303\301\307
\310BBEE\311BBBB\312BBBB\207" [let dabbrev-result dabbrev-tail setq while ((car dabbrev-tail)) if cons (dabbrev-result) ((setq dabbrev-tail (cdr dabbrev-tail))) ((nreverse dabbrev-result))] 16 "\n\n(fn ELEMENT LIST CONDITION)"]))
(defalias 'dabbrev--ignore-case-p #[257 "\301=\203\n \202 \205 \n?\206 \211\227\230\207" [dabbrev-case-fold-search case-fold-search dabbrev-upcase-means-case-search] 3 "\n\n(fn ABBREV)"])
#@437 Completion on current word.
Like \[dabbrev-expand] but finds all expansions in the current buffer
and presents suggestions for completion.
With a prefix argument ARG, it searches all buffers accepted by the
function pointed out by `dabbrev-friend-buffer-function' to find the
completions.
If the prefix argument is 16 (which comes from \[universal-argument] \[universal-argument]),
then it searches *all* buffers.
(fn &optional ARG)
(defalias 'dabbrev-completion #[256 "\302 \210\211\205 \303\211\205 \304!\305U\306 \307!\210`\310!\210`\311!\312C\313\314\315\316\317 #\320\"\321\322%\323#*\207" [dabbrev-check-other-buffers dabbrev-check-all-buffers dabbrev--reset-global-variables t prefix-numeric-value 16 dabbrev--abbrev-at-point search-backward search-forward dabbrev--ignore-case-p uninitialized make-byte-code 771 "\211\306=\203 \306\307\310B\311BB\207\302@\312=\203j \212\300\313\300\301\"\301 \211:\2041 \314\315\300
\203. \316\202/ \317#\210\302\301\203; \204? \202e \300\211\226\230\203M \320\321\"\202e \300\322\323O\300\322\323O\226\230\203a \320\324\"\202e \320\325\"\240\210)\210)\326\302@$\207" vconcat vector [dabbrev--last-abbreviation completion-ignore-case dabbrev--check-other-buffers metadata cycle-sort-function identity ((category . dabbrev)) uninitialized dabbrev--find-all-expansions user-error "No dynamic expansion for \"%s\" found%s" "" " in this-buffer" mapcar upcase 0 1 capitalize downcase complete-with-action dabbrev-case-replace] 9 "\n\n(fn S P A)" completion-in-region] 14 (#$ . 9495) "*P"])
#@827 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 still no suitable word is found, then look in the
buffers accepted by the function pointed out by variable
`dabbrev-friend-buffer-function'.
A positive prefix argument, N, says to take the Nth backward *distinct*
possibility. A negative argument says search forward.
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.
The variable `dabbrev-backward-only' may be used to limit the
direction of search to backward if set non-nil.
See also `dabbrev-abbrev-char-regexp' and \[dabbrev-completion].
(fn ARG)
(defalias 'dabbrev-expand #[257 "\306\211\211\211\211`\212\2047 \307!\2037 \310!\2037 \n=\204+ \311\312 !\2037 `U\2037 \262\f\262
\262\202\273 h\313=\203\226 \307!\203\226 \310!\203\226 `TU\203\226 \314\262\212\214~\210&\203` &q\210
\315=\204s
\316=\203z '`W\203z '\fG\\''b\210\317\320(\321Q!\210\322'`\"\262`'*\323\202\273 \324 \210\204\253 )\203\247 \315\202\257 \316\202\257 \325!\262\326 \262\327\262\306\262\204\312 \330\331 !#\262)\204\375 \324 \210\203\354 \212\211*B*\332!\210c\210``G\\|\210)\333\334\203\366 \335\202\367 \336#\202V&+=\204\337\312 !\204\340\341\342&!\"\210&+\202 \340\306!\210p&=\204+&\204>'\247\203>'`V\203>\343'!'\211*B*\344$\210\345 \211\207" [dabbrev--last-abbrev-location last-command this-command dabbrev--last-abbreviation dabbrev--last-expansion dabbrev--last-direction nil markerp marker-position window-minibuffer-p selected-window 32 " " 1 0 re-search-forward "\\(?:" "\\)+" buffer-substring-no-properties -1 dabbrev--reset-global-variables prefix-numeric-value dabbrev--abbrev-at-point t dabbrev--find-expansion dabbrev--ignore-case-p search-backward user-error "No%s dynamic expansion for `%s' found" " further" "" minibuffer-window-active-p message "Expansion found in '%s'" buffer-name copy-marker dabbrev--substitute-expansion point-marker dabbrev--last-buffer dabbrev--last-expansion-location dabbrev--abbrev-char-regexp dabbrev-backward-only buffer-undo-list dabbrev--last-buffer-found] 12 (#$ . 11059) "*P"])
#@85 Check if OTHER-BUFFER has the same major mode as current buffer.
(fn OTHER-BUFFER)
(defalias 'dabbrev--same-major-mode-p #[257 "rq\210)=\207" [major-mode] 3 (#$ . 13430)])
#@93 Back over all abbrev type characters and then moves forward over
all skip characters.
(fn)
(defalias 'dabbrev--goto-start-of-abbrev #[0 "\302 \303\304\305\306\307\310!\311\"\312\313%DC\216`\314 V\203D \315u\210\316!\203; `\314 V\203; `\317`\320`S#U\204; \315u\210\202 \316!\204D \321u\210 \205T \316 !\205T \321u\210\202H )\207" [dabbrev--abbrev-char-regexp dabbrev-abbrev-skip-leading-regexp match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" minibuffer-prompt-end -1 looking-at field-beginning nil 1] 8 (#$ . 13612)])
#@61 Extract the symbol at point to serve as abbreviation.
(fn)
(defalias 'dabbrev--abbrev-at-point #[0 "o\203 \302\303!\210\212`\304 \305\306\307\310\311\312!\313\"\314\315%DC\216\212\316u\210\317 \206( \320!)\204C \321 \2063 \320\322\323#\203? \324u\210\202C \302\303!\210)\210\325 \210\326`\")\207" [dabbrev--last-abbrev-location dabbrev-abbrev-char-regexp user-error "No possible abbreviation preceding point" match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" -1 looking-at "\\sw\\|\\s_" re-search-backward nil t 1 dabbrev--goto-start-of-abbrev buffer-substring-no-properties] 8 (#$ . 14205)])
#@40 Initialize all global variables.
(fn)
(defalias 'dabbrev--reset-global-variables #[0 "\306\211\306\211\306\211\306\211 \306\n \206 \307\f
\211\207" [dabbrev--last-table dabbrev--last-abbreviation dabbrev--last-abbrev-location dabbrev--last-direction dabbrev--last-expansion dabbrev--last-expansion-location nil "\\sw\\|\\s_" dabbrev--friend-buffer-list dabbrev--last-buffer dabbrev--last-buffer-found dabbrev-abbrev-char-regexp dabbrev--abbrev-char-regexp dabbrev-check-other-buffers dabbrev--check-other-buffers] 3 (#$ . 14872)])
#@499 Return a list of other buffers to search for a possible abbrev.
The current buffer is not included in the list.
This function makes a list of all the buffers returned by `buffer-list',
then discards buffers whose names match `dabbrev-ignored-buffer-names'
or `dabbrev-ignored-buffer-regexps'. It also discards buffers for which
`dabbrev-friend-buffer-function', if it is bound, returns nil when called
with the buffer as argument.
It returns the list of the buffers that are not discarded.
(fn)
(defalias 'dabbrev--select-buffers #[0 "\301\211\211\302 \262\2033 @\262p=\204, \303!\204, \304\300!\203, !\203, \211B\262A\262\202 \237\207" [dabbrev-friend-buffer-function nil buffer-list dabbrev--ignore-buffer-p boundp] 5 (#$ . 15427)])
#@261 Search for ABBREV, backwards if REVERSE, N times.
If IGNORE-CASE is non-nil, ignore case while searching.
Return the expansion found, and save the location of the start
of the expansion in `dabbrev--last-expansion-location'.
(fn ABBREV REVERSE N IGNORE-CASE)
(defalias 'dabbrev--try-find #[1028 "\212\214~\210\304\203\f b\210\304\262\211\305V\203< \306\205. \n\303=\203- \202. \n#\211\262\203< \211S\262\202 )\266\211\203E `\211\262*\207" [dabbrev--last-expansion-location case-fold-search dabbrev-case-distinction case-replace nil 0 dabbrev--search] 12 (#$ . 16186)])
#@142 Return a list of all possible expansions of ABBREV.
If IGNORE-CASE is non-nil, accept matches which differ in case.
(fn ABBREV IGNORE-CASE)
(defalias 'dabbrev--find-all-expansions #[514 "\300\211\212eb\210\301\302#\211\262\203 \211B\262\202 )\207" [nil dabbrev--find-expansion -1] 8 (#$ . 16783)])
#@69 Return non-nil if BUFFER should be ignored by dabbrev.
(fn BUFFER)
(defalias 'dabbrev--ignore-buffer-p #[257 "\302!\211\235\206# \303\203! \211\204! \304@\"\262A\262\202 \262\207" [dabbrev-ignored-buffer-names dabbrev-ignored-buffer-regexps buffer-name nil string-match] 7 (#$ . 17096)])
#@509 Find one occurrence of ABBREV, and return the expansion.
DIRECTION > 0 means look that many times backwards.
DIRECTION < 0 means look that many times forward.
DIRECTION = 0 means try both backward and forward.
IGNORE-CASE non-nil means ignore case when searching.
This sets `dabbrev--last-direction' to 1 or -1 according
to the direction in which the occurrence was actually found.
It sets `dabbrev--last-expansion-location' to the location
of the start of the occurrence.
(fn ABBREV DIRECTION IGNORE-CASE)
(defalias 'dabbrev--find-expansion #[771 "\212\203 q\210 \204% \306Y\203% \307^\211\203% \310\311\307]$\206\240 \203- \203E \306X\203E \312\211\203E \310\313\307[]$\206\240 \312\204^ \204^ \314 \315\316 G[\306\211\307\317&\313\211\204\231 \203\231 \211A@\211q\210\f G[
\247\203\204
@Y\205\211 \320
\"*\210e\310\313\307$\262\202_ \321\f!\210\211\262)\207" [dabbrev--last-buffer dabbrev-search-these-buffers-only dabbrev--last-direction dabbrev--friend-buffer-list dabbrev--progress-reporter value 0 1 dabbrev--try-find t -1 nil dabbrev--make-friend-buffer-list make-progress-reporter "Scanning for dabbrevs..." 1.5 progress-reporter-do-update progress-reporter-done reporter dabbrev--last-expansion-location] 11 (#$ . 17403)])
(defalias 'dabbrev--make-friend-buffer-list #[0 "\304\305\"C\204` \203` \306=\204 \307\310!\211\203` \211\n \240\210 \203X \211\311@\312\211\211\313 \262\203Q @\262\211@>\204J \314!\204J \211B\262A\262\202/ \237\266\203\"\240\210\211\315p@\"\240\210\211@\203u \316\317\320\321\322\323!\324\"\325\326%!\210\327\330 !\203\220 \204\220 \211\331\332 !\315\331\332 !@\"B\240\210\211@\207" [dabbrev-search-these-buffers-only dabbrev--check-other-buffers dabbrev-select-buffers-function dabbrev-check-all-buffers mapcar get-buffer t y-or-n-p "Scan other buffers also? " append nil buffer-list dabbrev--ignore-buffer-p delq walk-windows make-byte-code 257 "\211\301 =?\205 \302!\300@>\205 \300\302!\303\302!\300@\"B\240\207" vconcat vector [selected-window window-buffer delq] 6 "\n\n(fn W)" window-minibuffer-p selected-window window-buffer minibuffer-selected-window] 9 "\n\n(fn)"])
(defalias 'dabbrev--safe-replace-match #[769 "\301=\203\f \302#\207\303#\207" [major-mode picture-mode picture-replace-match replace-match] 7 "\n\n(fn STRING &optional FIXEDCASE LITERAL)"])
#@504 Replace OLD with EXPANSION in the buffer.
OLD is text currently in the buffer, perhaps the abbreviation
or perhaps another expansion that was tried previously.
ABBREV is the abbreviation we are expanding.
It is " " if we are copying subsequent words.
EXPANSION is the expansion substring to be used this time.
RECORD-CASE-PATTERN, if non-nil, means set `dabbrev--last-case-pattern'
to record whether we upcased the expansion, downcased it, or did neither.
(fn OLD ABBREV EXPANSION RECORD-CASE-PATTERN)
(defalias 'dabbrev--substitute-expansion #[1028 "\304!\205 \301=\203 \202 \305\232\203# \n\203 \n!\262\306\262\307\306O\310\311\"\211\203` \211\227\230\204> \211\226\230\203U \211\227\230\204c \211\226\230\203U GZ\307V\204c \312GO\230\203c \306\262\266\211\227\230\203v \211\227\230\203v \306\262\211\203~ \227\262\203\232 \211\205\231 \211\226\232\203\221 \313\202\231 \211\227\232\205\231 \314 \203\304 \305\232\203\250 \312\202\252 G\310\315#\203\303 \312\224T\262\316\305\306\211$\262\202\252 \210\203\321 \212\317!\210)\202\331 \317!\210\320!\210\321?\322#\207" [dabbrev-case-replace case-replace dabbrev--last-case-pattern dabbrev-eliminate-newlines dabbrev--ignore-case-p " " nil 1 string-match "[[:alpha:]]" 0 upcase downcase "[\n ]+" replace-match search-backward search-forward dabbrev--safe-replace-match t] 11 (#$ . 19787)])
#@793 Search for something that could be used to expand ABBREV.
Second arg, REVERSE, is t for reverse search, nil for forward.
The variable `dabbrev-limit' controls the maximum search region size.
Third argument IGNORE-CASE non-nil means treat case as insignificant while
looking for a match and when comparing with previous matches. Also if
that's non-nil and the match is found at the beginning of a sentence
and is in lower case except for the initial then it is converted to
all lower case for return.
Table of expansions already seen is examined in buffer
`dabbrev--last-table' so that only distinct possibilities are found
by dabbrev-re-expand.
Returns the expansion found, or nil if not found.
Leaves point at the location of the start of the expansion.
(fn ABBREV REVERSE IGNORE-CASE)
(defalias 'dabbrev--search #[771 "\305 \306\307\310\311\312\313!\314\"\315\316%DC\216\317!\320\321R\317!\322\323R\324\325\211\325\262\214\n\203> ` \203: \n[\202; \n\\}\210\204\264 \203O \326\325\324#\202T \327\325\324#\203\264 \310\224b\210\330 \210\331!\203\243 \327!\210\332\310!\262\262\203y \227\262\325\211\211\f\262\203\231 @\262\230\203\222 \211B\262A\262\202 \237\266\203\203\243 \325\262\203\255 \310\224\202\257 \310\225b\210\202> \205\275 \fB\211*\266\205)\207" [dabbrev--abbrev-char-regexp inhibit-point-motion-hooks dabbrev-limit dabbrev--last-expansion-location dabbrev--last-table match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" regexp-quote "\\(" "\\)" "\\(\\(" "\\)+\\)" t nil re-search-backward re-search-forward dabbrev--goto-start-of-abbrev looking-at match-string-no-properties] 14 (#$ . 21185)])
(provide 'dabbrev)