;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon May 29 16:35:02 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/dabbrev.el ;;; emacs version 19.28.92.2. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/dabbrev.el' was compiled for Emacs 19")) #@53 *If non-nil, `dabbrev-expand' only looks backwards. (defvar dabbrev-backward-only nil (#$ . -488)) #@70 *Limits region searched by `dabbrev-expand' to this many chars away. (defvar dabbrev-limit nil (#$ . -593)) #@263 *Regexp for skipping leading characters of an abbreviation. Example: Set this to "\\$" for programming languages in which variable names may appear with or without a leading `$'. (For example, in Makefiles.) Set this to nil if no characters should be skipped. (defvar dabbrev-abbrev-skip-leading-regexp nil (#$ . -708)) #@313 *Non-nil if dabbrev searches should ignore case. A value of nil means case is significant. The value of this variable is an expression; it is evaluated and the resulting value determines the decision. For example: setting this to `case-fold-search' means evaluate that variable to see whether its value is nil. (defvar dabbrev-case-fold-search (quote case-fold-search) (#$ . -1037)) #@225 *The significance of an uppercase character in an abbreviation. nil means case fold search, non-nil means case sensitive search. This variable has an effect only when the value of `dabbrev-case-fold-search' evaluates to t. (defvar dabbrev-upcase-means-case-search nil (#$ . -1428)) #@389 *Non-nil means dabbrev should preserve case when expanding the abbreviation. The value of this variable is an expression; it is evaluated and the resulting value determines the decision. For example, setting this to `case-replace' means evaluate that variable to see if its value is t or nil. This variable has an effect only when the value of `dabbrev-case-fold-search' evaluates to t. (defvar dabbrev-case-replace (quote case-replace) (#$ . -1718)) #@1012 *Regexp to recognize a character in an abbreviation or expansion. This regexp will be surrounded with \\( ... \\) when actually used. Set this variable to "\\sw" if you want ordinary words or "\\sw\\|\\s_" if you want symbols (including characters whose syntax is "symbol" as well as those whose syntax is "word". The value nil has a special meaning: the abbreviation is from point to previous word-start, but the search is for symbols. For instance, if you are programming in Lisp, `yes-or-no-p' is a symbol, while `yes', `or', `no' and `p' are considered words. If this variable is nil, then expanding `yes-or-no-' looks for a symbol starting with or containing `no-'. If you set this variable to "\\sw\\|\\s_", that expansion looks for a symbol starting with `yes-or-no-'. Finally, if you set this variable to "\\sw", then expanding `yes-or-no-' signals an error because `-' is not part of a word; but expanding `yes-or-no' looks for a word starting with `no'. The recommended value is "\\sw\\|\\s_". (defvar dabbrev-abbrev-char-regexp nil (#$ . -2178)) #@324 *Non-nil means dabbrev package should search *all* buffers. Dabbrev always searches the current buffer first. Then, if `dabbrev-check-other-buffers' says so, it searches the buffers designated by `dabbrev-select-buffers-function'. Then, if `dabbrev-check-all-buffers' is non-nil, dabbrev searches all the other buffers. (defvar dabbrev-check-all-buffers t (#$ . -3249)) #@338 *Should \[dabbrev-expand] look in other buffers? nil: Don't look in other buffers. t: Also look for expansions in the buffers pointed out by `dabbrev-select-buffers-function'. Anything else: When we can't find any more expansions in the current buffer, then ask the user whether to look in other buffers too. The default value is t. (defvar dabbrev-check-other-buffers t (#$ . -3629)) #@279 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. Have a look at `dabbrev--select-buffers' for an example. A mode setting this variable should make it buffer local. (defvar dabbrev-select-buffers-function (quote dabbrev--select-buffers) (#$ . 4025)) #@493 *A function to decide whether dabbrev should search OTHER-BUFFER. The function should take one argument, OTHER-BUFFER, and return non-nil if that buffer should be searched. Have a look at `dabbrev--same-major-mode-p' for an example. The value of `dabbrev-friend-buffer-function' has an effect only if the value of `dabbrev-select-buffers-function' uses it. The function `dabbrev--select-buffers' is one function you can use here. A mode setting this variable should make it buffer local. (defvar dabbrev-friend-buffer-function (quote dabbrev--same-major-mode-p) (#$ . -4395)) #@210 If non-nil, a list of buffers which dabbrev should search. If this variable is non-nil, dabbrev will only look in these buffers. It will not even look in the current buffer if it is not a member of this list. (defvar dabbrev-search-these-buffers-only nil (#$ . 4982)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÂÅ BÀÆ!„-ÂÆ BÀÇ!„:ÈÇ BÀÉ!„GÂ É BÀÊ!„TÂ\nÊ BÀË!„aÂ Ë BÀÌ!„nÂ\fÌ BÀÍ!„{Â Í BÀÎ!„ˆÂÎ BÀÏ!„–Ï BÀÑ!„£ÂÑ B‡" [boundp dabbrev--last-obarray nil current-load-list dabbrev--last-table dabbrev--last-abbreviation dabbrev--last-abbrev-location dabbrev--last-direction 0 dabbrev--last-expansion dabbrev--last-expansion-location dabbrev--friend-buffer-list dabbrev--last-buffer dabbrev--last-buffer-found dabbrev--last-completion-buffer dabbrev--check-other-buffers dabbrev-check-other-buffers dabbrev--abbrev-char-regexp] 2) (defalias 'dabbrev--minibuffer-origin #[nil "À A@‡" [buffer-list] 1]) (put (quote dabbrev--minibuffer-origin) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'dabbrev-filter-elements '(macro . #[(element list condition) "ÀÁ EÄ EÆÂÄ ÇBBÈ ÄÁÊ ËBBEEÌBBBBÍBBBB‡" [let dabbrev-result dabbrev-tail element setq list while ((car dabbrev-tail)) if condition cons (dabbrev-result) ((setq dabbrev-tail (cdr dabbrev-tail))) ((nreverse dabbrev-result))] 13])) (byte-code "À ÂÃ#ˆÀ ÄÅ#‡" [define-key esc-map "/" dabbrev-expand [67108911] dabbrev-completion] 4) #@472 Completion on current word. Like \[dabbrev-expand] but finds all expansions in the current buffer and presents suggestions for completion. With a prefix argument, 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 C-u C-u), then it searches *all* buffers. With no prefix argument, it reuses an old completion list if there is a suitable one already. (defalias 'dabbrev-completion #[(&optional arg) "À ˆ … …Ä !ÅUÇ É\n!…* ?†*‰—˜\f ÏŠ „}ƒ}p=„UÒÓ !ƒ}Ô A@=ƒ}ƒ}GGYƒ}ÖGO˜ƒ}×\"‰„úØ\f\"ÚGÖ\"‰GÖV„¨Û܃¥Þ‚¦ß#ˆ\fƒ² „»áâ\"ˆ‚ꉖ˜ƒÌáã\"ˆ‚êÖäOÖäO–˜ƒäáå\"ˆ‚êáæ\"ˆ p×\"));„Þ˜„<——˜„<ç\"GäVƒ-èéêë !\"ˆ‚1èì!ˆíÏ#ˆ‚Pèî!ˆïðç\"!‘ˆèñ!ˆÒÓ !…ZèÏ!.‡" [dabbrev--reset-global-variables arg t dabbrev-check-other-buffers prefix-numeric-value 16 dabbrev-check-all-buffers dabbrev--abbrev-at-point abbrev eval dabbrev-case-fold-search dabbrev-upcase-means-case-search ignore-case-p dabbrev--last-obarray my-obarray nil init dabbrev--last-completion-buffer window-minibuffer-p selected-window buffer-list dabbrev--last-abbreviation 0 try-completion dabbrev--find-all-expansions completion-list make-vector error "No dynamic expansion for \"%s\" found%s" dabbrev--check-other-buffers "" " in this-buffer" dabbrev-case-replace mapcar #[(string) "À \n\"‡" [intern string my-obarray] 3] #[(string) "À –\n\"‡" [intern string my-obarray] 3] 1 #[(string) "ÀÁ\n! \"‡" [intern capitalize string my-obarray] 3] #[(string) "À —\n\"‡" [intern string my-obarray] 3] all-completions message "Repeat `%s' to see all completions" key-description this-command-keys "The only possible completion" dabbrev--substitute-expansion "Making completion list..." " *Completions*" display-completion-list "Making completion list...done"] 6 (#$ . 6422) "*P"]) #@817 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]. (defalias 'dabbrev-expand #[(arg) "À‰‰‰Š „=Æ!ƒ=È!ƒ= \n=„1ËÌ !ƒ=`Uƒ= ‚ºhÐ=ƒÆ!ƒÈ!ƒ`TUƒÑŠƒeqˆÓ=„zÔ=ƒ‚`Wƒ‚G\\bˆÖ×ÙQ!ˆ`{`)Ú‚ºÛ ˆ „±ƒ­Ó‚´Ô‚´Ý !Þ À „Ôß\f à!!…Ò\"?†Ò\f‰—˜#) „Û ˆ\nƒðŠã\n\fGÀO!ˆÔ”Ô•|ˆ)äå\nƒúæ‚ûç\f#‚K(=„éêë!\"ˆ(‚éÀ!ˆp=„'„:§ƒ:`Vƒ:ì!í\n\f #ˆ \f î ‰,‡" [nil direction old expansion abbrev arg markerp dabbrev--last-abbrev-location marker-position last-command this-command window-minibuffer-p selected-window dabbrev--last-abbreviation dabbrev--last-expansion dabbrev--last-direction 32 " " dabbrev--last-buffer 1 0 dabbrev--last-expansion-location re-search-forward "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)" -1 dabbrev--reset-global-variables dabbrev-backward-only prefix-numeric-value dabbrev--abbrev-at-point dabbrev--find-expansion eval dabbrev-case-fold-search dabbrev-upcase-means-case-search search-backward error "No%s dynamic expansion for `%s' found" " further" "" dabbrev--last-buffer-found message "Expansion found in '%s'" buffer-name copy-marker dabbrev--substitute-expansion point-marker] 5 (#$ . 8390) "*P"]) (defalias 'dabbrev--same-major-mode-p #[(other-buffer) "Š qˆ)=‡" [major-mode other-buffer] 2]) (defalias 'dabbrev--goto-start-of-abbrev #[nil "À ÂŽo„%ÃuˆÄ !ƒo„Ãuˆ‚\fÄ !„%Æuˆ…7Ä!…7Æuˆ‚**‡" [match-data match-data ((store-match-data match-data)) -1 looking-at dabbrev--abbrev-char-regexp 1 dabbrev-abbrev-skip-leading-regexp] 2]) (defalias 'dabbrev--abbrev-at-point #[nil "oƒÀÁ!ˆŠ`à ÅŽŠÆuˆÇÈ †ÊËQ!)„:Ì †*ÊÍÎ#ƒ6Ïuˆ‚:ÀÁ!ˆ*Ð ˆ\n`{)‡" [error "No possible abbreviation preceding point" dabbrev--last-abbrev-location match-data match-data ((store-match-data match-data)) -1 looking-at "\\(" dabbrev-abbrev-char-regexp "\\sw\\|\\s_" "\\)+" re-search-backward nil t 1 dabbrev--goto-start-of-abbrev] 4]) (defalias 'dabbrev--reset-global-variables #[nil "ÀÀÀÀÀÀÀÀÀ \n†Ë\f ‰‡" [nil dabbrev--last-table dabbrev--last-abbreviation dabbrev--last-abbrev-location dabbrev--last-direction dabbrev--last-expansion dabbrev--last-expansion-location dabbrev--friend-buffer-list dabbrev--last-buffer dabbrev--last-buffer-found dabbrev-abbrev-char-regexp "\\sw\\|\\s_" dabbrev--abbrev-char-regexp dabbrev-check-other-buffers dabbrev--check-other-buffers] 2]) (defalias 'dabbrev--select-buffers #[nil "ŠÀÁ !ƒ A@qˆpĉ‰ ‰ƒF@ =„=ÈÉ!ƒ= !ƒ= BA‰„ Ÿ-‡" [window-minibuffer-p selected-window buffer-list orig-buffer nil buffer dabbrev-tail dabbrev-result boundp dabbrev-friend-buffer-function] 4]) (defalias 'dabbrev--try-find #[(abbrev reverse n ignore-case) "ŠŒ~ˆÀ\nƒ \nbˆ \f ÇVƒ+È \n #‰ƒ+ S‰‚* ƒ2` +‡" [nil expansion dabbrev--last-expansion-location ignore-case n count case-fold-search 0 dabbrev--search abbrev reverse] 5]) (defalias 'dabbrev--find-all-expansions #[(abbrev ignore-case) "À‰ŠebˆÃ\fÅ#‰ƒ \nB‚)\n*‡" [nil expansion all-expansions dabbrev--find-expansion abbrev -1 ignore-case] 4]) (defalias 'dabbrev--scanning-message #[nil "ÀÁÂp!\"‡" [message "Scanning `%s'" buffer-name] 4]) (defalias 'dabbrev--find-expansion #[(abbrev direction ignore-case) "ÀŠ\nƒ\nqˆÃ ˆ‚*\f„*ÅÆ !ƒ*Ç A@qˆebˆÈ à ˆ\f„S ÊYƒSË ^‰\fƒSÍÏË ]$‰ƒS ‚\fƒ[\nƒ~ ÊXƒ~ȉ\fƒ~ÍÀË []$‰ƒ~ ‚È\f„ö\n„öÒÓ\f\"‰„öƒöÏ=„©ÕÖ!‰ƒöÀÀ ƒõÀ‰‰Ç ‰ƒæ@‰>„ÝBA‰„ÊŸ+ŸÞ\"* „ƒ@A\nqˆÃ ˆeÍÀË$‰ƒú *‡" [nil expansion dabbrev--last-buffer dabbrev--scanning-message dabbrev-search-these-buffers-only window-minibuffer-p selected-window buffer-list -1 direction 0 1 dabbrev--last-direction dabbrev--try-find abbrev t ignore-case dabbrev--friend-buffer-list mapcar get-buffer dabbrev--check-other-buffers y-or-n-p "Scan other buffers also? " friend-buffer-list non-friend-buffer-list dabbrev-select-buffers-function dabbrev-check-all-buffers buffer dabbrev-tail dabbrev-result append dabbrev--last-expansion-location] 6]) (defalias 'dabbrev--safe-replace-match #[(string &optional fixedcase literal) "Á=ƒ\f \f #‡Æ \f #‡" [major-mode picture-mode picture-replace-match string fixedcase literal replace-match] 4]) (defalias 'dabbrev--substitute-expansion #[(old abbrev expansion) "À !…\nƒ ‰—˜…À\f!ƒ$ŠÇ!ˆ)‚(Ç !ˆÈ ?Ê#)‡" [eval dabbrev-case-fold-search dabbrev-upcase-means-case-search abbrev dabbrev-case-replace use-case-replace old search-backward dabbrev--safe-replace-match expansion t] 4]) (defalias 'dabbrev--search #[(abbrev reverse ignore-case) "À ÂŽÃ\f!ÅÇRÃ\f!ÈÉRÊ \f Œƒ5`ƒ0[‚2\\}ˆ „ăHÑ ÊÒ#‚NÓ ÊÒ#ƒÄÔ”bˆÕ ˆ`Ô”Uƒ±Ô”bˆÓ\f!ˆÖ”Ö•{ ƒy — ʉ‰‰ƒ§@ ˜ƒžBA‰„ŠŸ+ƒ±Ê ƒ½Ô”bˆ‚5Ô•bˆ‚5 …ì BÔ”Ô•{ƒéÝ!ƒé—‚ë).‡" [match-data match-data ((store-match-data match-data)) regexp-quote abbrev "\\(" dabbrev--abbrev-char-regexp "\\)" "\\(\\(" "\\)+\\)" nil found-string pattern2 pattern1 dabbrev-limit dabbrev--last-expansion-location reverse re-search-backward t re-search-forward 0 dabbrev--goto-start-of-abbrev 1 ignore-case table-string dabbrev-tail dabbrev-result dabbrev--last-table result eval dabbrev-case-replace] 6]) (provide (quote dabbrev))