| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/semantic/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require semantic eieio-opt semantic/analyze semantic/ctxt semantic/decorate semantic/format semantic/idle semantic/db-find] 2)
#@55 The overlay currently active while completing inline.
(defvar semantic-complete-inline-overlay nil (#$ . 330))
#@41 Non-nil if inline completion is active.
(defalias 'semantic-completion-inline-active-p #[0 "\203 \301!\204 \302!\210\303\207" [semantic-complete-inline-overlay overlay-buffer delete-overlay nil] 2 (#$ . 447)])
#@197 Return the text that is currently in the completion buffer.
For a minibuffer prompt, this is the minibuffer text.
For inline completion, this is the text wrapped in the inline completion
overlay.
(defalias 'semantic-completion-text #[0 "\203 \301 \207\302 \207" [semantic-complete-inline-overlay semantic-complete-inline-text minibuffer-contents] 1 (#$ . 671)])
#@116 Delete the text that is actively being completed.
Presumably if you call this you will insert something new there.
(defalias 'semantic-completion-delete-text #[0 "\203 \301 \207\302 \207" [semantic-complete-inline-overlay semantic-complete-inline-delete-text delete-minibuffer-contents] 1 (#$ . 1042)])
#@95 Display the string FMT formatted with ARGS at the end of the minibuffer.
(fn FMT &rest ARGS)
(defalias 'semantic-completion-message #[385 "\203\n \301\302#\207\301\302\303P\304 $\207" [semantic-complete-inline-overlay apply message "%s" buffer-string] 7 (#$ . 1353)])
#@139 The tag collector for the current completion operation.
Value should be an object of a subclass of
`semantic-completion-engine-abstract'.
(defvar semantic-completion-collector-engine nil (#$ . 1634))
#@90 The tag display engine for the current completion operation.
Value should be a ... what?
(defvar semantic-completion-display-engine nil (#$ . 1840))
#@53 Keymap used while completing across a list of tags.
(defvar semantic-complete-key-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\313#\210\301\317\315#\210\207" [make-sparse-keymap define-key " " semantic-complete-complete-space " " semantic-complete-complete-tab "
" semantic-complete-done "" abort-recursive-edit "\356" next-history-element "\360" previous-history-element "" ""] 5) (#$ . 1995))
#@89 Default history variable for any unhistoried prompt.
Keeps STRINGS only in the history.
(defvar semantic-completion-default-history nil (#$ . 2494))
#@691 Read a semantic tag, and return a tag for the selection.
Argument COLLECTOR is an object which can be used to calculate
a list of possible hits. See `semantic-completion-collector-engine'
for details on COLLECTOR.
Argument DISPLAYER is an object used to display a list of possible
completions for a given prefix. See `semantic-completion-display-engine'
for details on DISPLAYER.
PROMPT is a string to prompt with.
DEFAULT-TAG is a semantic tag or string to use as the default value.
If INITIAL-INPUT is non-nil, insert it in the minibuffer initially.
HISTORY is a symbol representing a variable to story the history in.
(fn COLLECTOR DISPLAYER PROMPT DEFAULT-TAG INITIAL-INPUT HISTORY)
(defalias 'semantic-complete-read-tag-engine #[1542 "\305\211\306!\211\30719 \211:\2053 \211@;\2053 \211A@9\2053 \211A@\2053 \3108<\2053 \3118<0\262\202= \210\305\262\205E \211\211@\262\211\203m \312\313\"\203f \314\211\224O\315\316 \314\224\305O\260\262\202m \317\320R\262\321\216\322\f\305\206{ \323\n&\210),\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-complete-active-default semantic-complete-current-matched-tag semantic-complete-key-map nil semantic-complete-default-to-tag (error) 2 3 string-match ":" 0 " (default " ")" " (" "): " #[0 "\302!\210\303 !\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-collector-cleanup semantic-displayer-cleanup] 2] read-from-minibuffer semantic-completion-default-history] 16 (#$ . 2650)])
#@53 The current default tag calculated for this prompt.
(defvar semantic-complete-active-default nil (#$ . 4191))
#@69 Convert a calculated or passed in DEFAULT into a tag.
(fn DEFAULT)
(defalias 'semantic-complete-default-to-tag #[257 "\211\3021. \211:\205( \211@;\205( \211A@9\205( \211A@\205( \3038<\205( \3048<0\262\2022 \210\305\262\2039 \211\211\207\211\204A \306 \262\211\205\212 \211<\203U \211@;\203U \211@\202o \211;\203^ \211\202o \2119\203i \307!\202o \310\311\312D\"\305\212\313 \305#\210)\314 !\211\203\205 \315\316\"\262\210\211\262\207" [semantic-complete-active-default semantic-completion-collector-engine (error) 2 3 nil semantic-ctxt-current-thing symbol-name signal wrong-type-argument semantic-tag-p semantic-collector-calculate-completions semantic-collector-current-exact-match semanticdb-find-result-nth-in-buffer 0] 7 (#$ . 4307)])
#@61 Variable used to pass the tags being matched to the prompt.
(defvar semantic-complete-current-matched-tag nil (#$ . 5066))
#@278 Calculate a match from the current completion environment.
Save this in our completion variable. Make sure that variable
is cleared if any other keypress is made.
Return value can be:
tag - a single tag that has been matched.
string - a message to show in the minibuffer.
(defalias 'semantic-complete-current-match #[0 " \304 \305\211\306\230\203 \n\262\202\224 \212\307\305#\210)\310 \210\311!\211\262\204\224 \312!\211\262\203\221 \313!\314U\203@ \315\316\"\262\202\224 \317!\203L \320\262\202\224 \321\322\316\"@\211@\262\314\313!\203} W\203} \322\"@\211@\262\230\204v \305\262T\262\202Z \203\213 \315\316\"\266\205\202\224 \266\320\202\224 \323\262\211\3241\302 \211:\205\274 \211@;\205\274 \211A@9\205\274 \211A@\205\274 \3258<\205\274 \3268<0\262\202\306 \210\305\262\203\320 \211\327\330\331\"\210\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-complete-active-default semantic-complete-current-matched-tag semantic-completion-text nil "" semantic-collector-calculate-completions semantic-complete-try-completion semantic-displayer-current-focus semantic-collector-current-exact-match semanticdb-find-result-length 1 semanticdb-find-result-nth-in-buffer 0 semantic-displayer-focus-abstract-child-p "Not Unique" t semanticdb-find-result-nth "No Match" (error) 2 3 add-hook pre-command-hook #[0 "\301\211\207" [semantic-complete-current-matched-tag nil] 2]] 13 (#$ . 5196)])
#@27 Accept the current input.
(defalias 'semantic-complete-done #[0 "\300 \211;\203 \301\302\303Q!\207\304 \207" [semantic-complete-current-match semantic-completion-message " [" "]" exit-minibuffer] 5 (#$ . 6667) nil])
#@47 Complete the partial input in the minibuffer.
(defalias 'semantic-complete-complete-space #[0 "\300\301!\207" [semantic-complete-do-completion t] 2 (#$ . 6891) nil])
#@66 Complete the partial input in the minibuffer as far as possible.
(defalias 'semantic-complete-complete-tab #[0 "\300 \207" [semantic-complete-do-completion] 1 (#$ . 7063) nil])
#@259 Return a string to use for completion.
ORIGINAL is the text in the minibuffer.
NEW is the new text to insert into the minibuffer.
Within the difference bounds of ORIGINAL and NEW, shorten NEW
to the nearest word boundary, and return that.
(fn ORIGINAL NEW)
(defalias 'semantic-complete-hack-word-boundaries #[514 "\300 \301\302\"\216G\303O\304\305\"\304\306\"\211\203) \211\307V\203) \307OP\266\203\202; \2038 \307OP\266\203\202; \266\203)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nil string-match "\\>" "\\<" 0] 10 (#$ . 7247)])
#@124 Try a completion for the current minibuffer.
If PARTIAL, do partial completion stopping at spaces.
(fn &optional PARTIAL)
(defalias 'semantic-complete-try-completion #[256 "\301\302 \"\211\204 \303\304!\210\305 \207\211;\203? \302 \230\203- \205\241 \306!\211\205, \307 \210\211c\207\2039 \302 \310\"\266\202\307 \210\211c\207\211<\203\240 \211@\3111s \211:\205m \211@;\205m \211A@9\205m \211A@\205m \3128<\205m \3138<0\262\202w \210\314\262\203\240 \302 @\211@\262\230\204\221 \307 \210\211@\211@\262c\210\211G\315U\203\234 \303\316!\207\303\317!\207\314\207" [semantic-completion-collector-engine semantic-collector-try-completion semantic-completion-text semantic-completion-message " [No Match]" ding semantic-collector-current-whitespace-completion semantic-completion-delete-text semantic-complete-hack-word-boundaries (error) 2 3 nil 1 " [Complete]" " [Complete, but not unique]"] 6 (#$ . 7845)])
#@190 Do a completion for the current minibuffer.
If PARTIAL, do partial completion stopping at spaces.
if INLINE, then completion is happening inline in a buffer.
(fn &optional PARTIAL INLINE)
(defalias 'semantic-complete-do-completion #[512 " \302 \303\212\304#\210)\305!\211\306=\203 \307\310!\266\306\207\211\311=\204+ \211\312=\2033 \313!\266\311\207\211\314=\204? \211\315=\203P \316\317\"#\210\320!\266\207\211\321\267\210\207\322!\266\207\323!\210\324!\266\207\307\325!\266\207\210\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-completion-text nil semantic-collector-calculate-completions semantic-complete-next-action done semantic-completion-message " [Complete]" complete complete-whitespace semantic-complete-try-completion display displayend semantic-displayer-set-completions semantic-collector-all-completions semantic-displayer-show-request #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scroll 85 focus 91 empty 101)) semantic-displayer-scroll-request semantic-displayer-focus-next semantic-displayer-focus-request " [No Match]"] 12 (#$ . 8772)])
#@58 Keymap used while performing Semantic inline completion.
(defvar semantic-complete-inline-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\207" [make-sparse-keymap define-key " " semantic-complete-inline-TAB "\360" semantic-complete-inline-up "\356" semantic-complete-inline-down "
" semantic-complete-inline-done "\203" semantic-complete-inline-exit "" semantic-complete-inline-quit "?" #[0 "\300\301!\207" [describe-variable semantic-complete-inline-map] 2 nil nil]] 5) (#$ . 9943))
(custom-declare-face 'semantic-complete-inline-face '((((class color) (background dark)) (:underline "yellow")) (((class color) (background light)) (:underline "brown"))) "Face used to show the region being completed inline.\nThe face is used in `semantic-complete-inline-tag-engine'." :group 'semantic-faces)
#@117 Return the text that is being completed inline.
Similar to `minibuffer-contents' when completing in the minibuffer.
(defalias 'semantic-complete-inline-text #[0 "\301!\302!U\203 \303\207\304\"\207" [semantic-complete-inline-overlay overlay-start overlay-end "" buffer-substring-no-properties] 5 (#$ . 10845)])
#@66 Delete the text currently being completed in the current buffer.
(defalias 'semantic-complete-inline-delete-text #[0 "\301!\302!|\207" [semantic-complete-inline-overlay overlay-start overlay-end] 3 (#$ . 11168)])
#@54 This completion thing is DONE, OR, insert a newline.
(defalias 'semantic-complete-inline-done #[0 "\301!\211\203 \302 \211@\262G\303Oc\210\304 \207\3051&