Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
semantic /
Delete
Unzip
Name
Size
Permission
Date
Action
analyze
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
bovine
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
decorate
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
symref
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
wisent
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
analyze.elc
22.96
KB
-rw-r--r--
2023-06-07 04:12
bovine.elc
5.3
KB
-rw-r--r--
2023-06-07 04:12
chart.elc
4.46
KB
-rw-r--r--
2023-06-07 04:12
complete.elc
60.95
KB
-rw-r--r--
2023-06-07 04:12
ctxt.elc
33.49
KB
-rw-r--r--
2023-06-07 04:13
db-debug.elc
2.91
KB
-rw-r--r--
2023-06-07 04:13
db-ebrowse.elc
18.33
KB
-rw-r--r--
2023-06-07 04:13
db-el.elc
10.99
KB
-rw-r--r--
2023-06-07 04:13
db-file.elc
13.46
KB
-rw-r--r--
2023-06-07 04:13
db-find.elc
41.29
KB
-rw-r--r--
2023-06-07 04:13
db-global.elc
7.24
KB
-rw-r--r--
2023-06-07 04:13
db-javascript.elc
8.8
KB
-rw-r--r--
2023-06-07 04:13
db-mode.elc
6.46
KB
-rw-r--r--
2023-06-07 04:13
db-ref.elc
4.23
KB
-rw-r--r--
2023-06-07 04:13
db-typecache.elc
16.64
KB
-rw-r--r--
2023-06-07 04:13
db.elc
31.92
KB
-rw-r--r--
2023-06-07 04:13
debug.elc
15.22
KB
-rw-r--r--
2023-06-07 04:13
decorate.elc
9.35
KB
-rw-r--r--
2023-06-07 04:13
dep.elc
7.65
KB
-rw-r--r--
2023-06-07 04:13
doc.elc
4.01
KB
-rw-r--r--
2023-06-07 04:13
ede-grammar.elc
7.78
KB
-rw-r--r--
2023-06-07 04:13
edit.elc
21.61
KB
-rw-r--r--
2023-06-07 04:13
find.elc
24.33
KB
-rw-r--r--
2023-06-07 04:13
format.elc
34.35
KB
-rw-r--r--
2023-06-07 04:13
fw.elc
11.69
KB
-rw-r--r--
2023-06-07 04:13
grammar-wy.elc
54.27
KB
-rw-r--r--
2023-06-07 04:13
grammar.elc
76.45
KB
-rw-r--r--
2023-06-07 04:13
html.elc
7.55
KB
-rw-r--r--
2023-06-07 04:13
ia-sb.elc
9.94
KB
-rw-r--r--
2023-06-07 04:13
ia.elc
11.97
KB
-rw-r--r--
2023-06-07 04:13
idle.elc
55.48
KB
-rw-r--r--
2023-06-07 04:13
imenu.elc
12.47
KB
-rw-r--r--
2023-06-07 04:13
java.elc
16.67
KB
-rw-r--r--
2023-06-07 04:13
lex-spp.elc
29.99
KB
-rw-r--r--
2023-06-07 04:13
lex.elc
78.19
KB
-rw-r--r--
2023-06-07 04:13
loaddefs.el
59.31
KB
-rw-r--r--
2023-06-07 04:00
mru-bookmark.elc
12.75
KB
-rw-r--r--
2023-06-07 04:13
sb.elc
11.13
KB
-rw-r--r--
2023-06-07 04:13
scope.elc
23.66
KB
-rw-r--r--
2023-06-07 04:13
senator.elc
26.04
KB
-rw-r--r--
2023-06-07 04:13
sort.elc
18.89
KB
-rw-r--r--
2023-06-07 04:13
symref.elc
13
KB
-rw-r--r--
2023-06-07 04:13
tag-file.elc
6.7
KB
-rw-r--r--
2023-06-07 04:13
tag-ls.elc
24.51
KB
-rw-r--r--
2023-06-07 04:13
tag-write.elc
4.04
KB
-rw-r--r--
2023-06-07 04:13
tag.elc
54.79
KB
-rw-r--r--
2023-06-07 04:13
texi.elc
17.29
KB
-rw-r--r--
2023-06-07 04:13
util-modes.elc
38.76
KB
-rw-r--r--
2023-06-07 04:13
util.elc
13.23
KB
-rw-r--r--
2023-06-07 04:13
wisent.elc
8.21
KB
-rw-r--r--
2023-06-07 04:13
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:12:59 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/complete.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!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require semantic eieio-opt semantic/analyze semantic/ctxt semantic/decorate semantic/format semantic/idle] 2) #@55 The overlay currently active while completing inline. (defvar semantic-complete-inline-overlay nil (#$ . 778)) #@41 Non-nil if inline completion is active. (defalias 'semantic-completion-inline-active-p #[nil "\203 \301!\204 \302!\210\303\207" [semantic-complete-inline-overlay semantic-overlay-live-p semantic-overlay-delete nil] 2 (#$ . 895)]) #@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 #[nil "\203 \301 \207\302 \207" [semantic-complete-inline-overlay semantic-complete-inline-text minibuffer-contents] 1 (#$ . 1139)]) #@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 #[nil "\203 \301 \207\302 \207" [semantic-complete-inline-overlay semantic-complete-inline-delete-text delete-minibuffer-contents] 1 (#$ . 1513)]) #@74 Display the string FMT formatted with ARGS at the end of the minibuffer. (defalias 'semantic-completion-message #[(fmt &rest args) "\203\n \303\304 \n#\207\304\305 \303\306 \n#P!\207" [semantic-complete-inline-overlay fmt args apply message buffer-string format] 6 (#$ . 1826)]) #@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 (#$ . 2113)) #@90 The tag display engine for the current completion operation. Value should be a ... what? (defvar semantic-completion-display-engine nil (#$ . 2319)) #@53 Keymap used while completing across a list of tags. (defvar semantic-complete-key-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\314#\210\302\320\316#\210)\207" [km 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 "" ""] 4) (#$ . 2474)) #@89 Default history variable for any unhistoried prompt. Keeps STRINGS only in the history. (defvar semantic-completion-default-history nil (#$ . 2979)) #@623 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 DISPLAYOR is an object used to display a list of possible completions for a given prefix. See`semantic-completion-display-engine' for details on DISPLAYOR. 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. (defalias 'semantic-complete-read-tag-engine #[(collector displayor prompt default-tag initial-input history) "\n\306\211 \307!\211 \306\310\311\217)\205 \211 @)\211 \203N \312\313\"\203E \314\211\224O\315\316\314\224\306O\260\202N \317\320R\321\216\322\306\206^ \323&\210) .\207" [collector semantic-completion-collector-engine displayor semantic-completion-display-engine semantic-complete-active-default semantic-complete-current-matched-tag nil semantic-complete-default-to-tag (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) string-match ":" 0 " (default " ")" " (" "): " ((byte-code "\302!\210\303 !\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-collector-cleanup semantic-displayor-cleanup] 2)) read-from-minibuffer semantic-completion-default-history default-tag default-as-tag tag default-as-string prompt initial-input semantic-complete-key-map history] 8 (#$ . 3135)]) #@53 The current default tag calculated for this prompt. (defvar semantic-complete-active-default nil (#$ . 4777)) #@55 Convert a calculated or passed in DEFAULT into a tag. (defalias 'semantic-complete-default-to-tag #[(default) "\306\307\310\217)\203 \211\207\204 \311 \205` <\203) @;\203) @\202C ;\2032 \202C 9\203= \312!\202C \313\314\315D\"\306\212\316\f \306#\210)\317\f!\211 \203[ \320 \321\") *\207" [default tag semantic-complete-active-default str semantic-completion-collector-engine ml nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) 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] 5 (#$ . 4893)]) #@61 Variable used to pass the tags being matched to the prompt. (defvar semantic-complete-current-matched-tag nil (#$ . 5618)) #@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 #[nil " \306 \307\211 \f\310\230\203 \202\245 \212\311\f\307#\210)\312 \210\313 !\211\204\245 \314!\211\203\243 \315 !\316U\203E \317 \320\"\202\245 \321 !\203P \322\202\245 \323\324 \320\"@\211 @)\316\315 ! !!\203\220 W\203\220 \324 \"@\211 @)\230\204\210 \307! T \202g !\203\235 \317 \320\"\202\237 \322,\202\245 \325\n \307\326\327\217)\203\270 \n\"\330\331\332\"\210\n-\207" [semantic-completion-collector-engine semantic-completion-display-engine answer matchlist contents displayor semantic-completion-text nil "" semantic-collector-calculate-completions semantic-complete-try-completion semantic-displayor-current-focus semantic-collector-current-exact-match semanticdb-find-result-length 1 semanticdb-find-result-nth-in-buffer 0 semantic-displayor-focus-abstract-child-p "Not Unique" t semanticdb-find-result-nth "No Match" (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) add-hook pre-command-hook #[nil "\301\211\207" [semantic-complete-current-matched-tag nil] 2] collector semantic-complete-active-default tag max cnt firstname allsame semantic-complete-current-matched-tag] 6 (#$ . 5748)]) #@27 Accept the current input. (defalias 'semantic-complete-done #[nil "\301 \211;\203 \302\303\304Q!\202 \305 )\207" [ans semantic-complete-current-match semantic-completion-message " [" "]" exit-minibuffer] 5 (#$ . 7270) nil]) #@47 Complete the partial input in the minibuffer. (defalias 'semantic-complete-complete-space #[nil "\300\301!\207" [semantic-complete-do-completion t] 2 (#$ . 7504) nil]) #@66 Complete the partial input in the minibuffer as far as possible. (defalias 'semantic-complete-complete-tab #[nil "\300 \207" [semantic-complete-do-completion] 1 (#$ . 7678) nil]) #@240 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. (defalias 'semantic-complete-hack-word-boundaries #[(original new) "\306 \307\216 \nG\310O\311\312 \" \311\313 \"\211 \203( \314V\203( \n \314 OP\2026 \f\2035 \n \314\fOP\2026 -\207" [save-match-data-internal new original diff end start match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil string-match "\\>" "\\<" 0] 5 (#$ . 7864)]) #@100 Try a completion for the current minibuffer. If PARTIAL, do partial completion stopping at spaces. (defalias 'semantic-complete-try-completion #[(&optional partial) "\306\307 \"\211\204 \310\311!\210\312 \202\204 ;\203I \307 \230\2034 \n\205\204 \313!\211\2050 \314 \210 c)\202\204 \n\203A \307 \315\f \")\314 \210 c\202\204 <\203\203 @ \316\317\320\217)\203\203 \307 @\211 @)\230\204p \314 \210 @\211 @)c\210 G\321U\203} \310\322!\202\204 \310\323!\202\204 \316)\207" [semantic-completion-collector-engine comp partial newcomp orig tag 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 nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) 1 " [Complete]" " [Complete, but not unique]"] 4 (#$ . 8496)]) #@159 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. (defalias 'semantic-complete-do-completion #[(&optional partial inline) "\n\306 \307 \212\310 \f #\210)\311 !\211 \312=\203' \313\314!\210\312\202\210 \315=\2045 \316=\203? \317 !\210\315\202\210 \320=\204M \321=\203] \322 \323 \f\"\f#\210\324 !\210\202\210 \325=\203k \326 !\210\202\210 \327=\203} \330 !\210\331 !\210\202\210 \332=\203\210 \313\333!\210) ,\207" [semantic-completion-collector-engine collector semantic-completion-display-engine displayor contents ans 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-displayor-set-completions semantic-collector-all-completions semantic-displayor-show-request scroll semantic-displayor-scroll-request focus semantic-displayor-focus-next semantic-displayor-focus-request empty " [No Match]" partial na] 6 (#$ . 9442)]) #@58 Keymap used while performing Semantic inline completion. (defvar semantic-complete-inline-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210)\207" [km 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 "?" #[nil "\300\301!\207" [describe-variable semantic-complete-inline-map] 2 nil nil]] 4) (#$ . 10588)) (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 #[nil "\303!\304!\211 U\203 \305\202 \306\n \"*\207" [semantic-complete-inline-overlay e s semantic-overlay-start semantic-overlay-end "" buffer-substring-no-properties] 4 (#$ . 11500)]) #@66 Delete the text currently being completed in the current buffer. (defalias 'semantic-complete-inline-delete-text #[nil "\301!\302!|\207" [semantic-complete-inline-overlay semantic-overlay-start semantic-overlay-end] 3 (#$ . 11856)]) #@54 This completion thing is DONE, OR, insert a newline. (defalias 'semantic-complete-inline-done #[nil "\305 !\211\203 \306 \n\211@) G\307Oc\210\310 )\202* \307\311\312\217\211 \205) \f )*\207" [semantic-completion-display-engine displayor tag txt fcn semantic-displayor-current-focus semantic-completion-text nil semantic-complete-inline-exit (byte-code "\300\301 \302 \"\207" [lookup-key current-active-maps this-command-keys] 3) ((error (byte-code "\300\301 \302 \"\207" [lookup-key current-global-map this-command-keys] 3)))] 4 (#$ . 12097) nil]) #@22 Quit an inline edit. (defalias 'semantic-complete-inline-quit #[nil "\300 \210\301 \207" [semantic-complete-inline-exit keyboard-quit] 1 (#$ . 12657) nil]) #@30 Exit inline completion mode. (defalias 'semantic-complete-inline-exit #[nil "\300\301\302\"\210\303\304\305\217\210\300\306\307\"\207" [remove-hook pre-command-hook semantic-complete-pre-command-hook nil (byte-code "\203 \305!\210 \203 \306 !\210\n\203. \307\n\310\"\311\n! \312\n!\210\313 p=\203- \314\f!\210*\313\211\313\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-complete-inline-overlay buf wc semantic-collector-cleanup semantic-displayor-cleanup semantic-overlay-get window-config-start semantic-overlay-buffer semantic-overlay-delete nil set-window-configuration] 4) ((error)) post-command-hook semantic-complete-post-command-hook] 3 (#$ . 12819) nil]) #@380 Used to redefine what commands are being run while completing. When installed as a `pre-command-hook' the special keymap `semantic-complete-inline-map' is queried to replace commands normally run. Commands which edit what is in the region of interest operate normally. Commands which would take us out of the region of interest, or our quit hook, will exit this completion mode. (defalias 'semantic-complete-pre-command-hook #[nil "\303\304 \305#\306 !\203 \211\202 \305)\207" [semantic-complete-inline-map fcn this-command lookup-key this-command-keys nil commandp] 4 (#$ . 13537)]) #@205 Used to determine if we need to exit inline completion mode. If completion mode is active, check to see if we are within the bounds of `semantic-complete-inline-overlay', or within a reasonable distance. (defalias 'semantic-complete-post-command-hook #[nil "\300\301\302\217\207" [nil (byte-code "\204 \306 \207\307!\310!\311!\312 \np=\203' `\fX\204' ` V\203, \306 \202^ \313 \211\203O \314\230\204O `\fU\204O \212\315u\210\316\317!)\204O \306 \202^ \320 \321 \312#\203\\ \312\202^ \322 ,\207" [semantic-complete-inline-overlay txt b e s semantic-complete-inline-map semantic-complete-inline-exit semantic-overlay-start semantic-overlay-end semantic-overlay-buffer nil semantic-completion-text "" -1 looking-at "\\(\\w\\|\\s_\\)" lookup-key this-command-keys semantic-complete-inline-force-display] 4) ((error (semantic-complete-inline-exit)))] 3 (#$ . 14134)]) #@124 Force the display of whatever the current completions are. DO NOT CALL THIS IF THE INLINE COMPLETION ENGINE IS NOT ACTIVE. (defalias 'semantic-complete-inline-force-display #[nil "\300\301\302\217\207" [e (byte-code "\212 \305 \211 \205 \306\f\n\307#\210\310 \311\f\n\"\n#\210\312 !,\207" [semantic-completion-collector-engine semantic-completion-display-engine contents displayor collector semantic-completion-text semantic-collector-calculate-completions nil semantic-displayor-set-completions semantic-collector-all-completions semantic-displayor-show-request] 6) ((error (message "Bug Showing Completions: %S" e)))] 3 (#$ . 15013)]) #@628 Perform completion based on semantic tags in a buffer. 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 DISPLAYOR is an object used to display a list of possible completions for a given prefix. See`semantic-completion-display-engine' for details on DISPLAYOR. BUFFER is the buffer in which completion will take place. START is a location for the start of the full symbol. If the symbol being completed is "foo.ba", then START is on the "f" character. END is at the end of the current symbol being completed. (defalias 'semantic-complete-inline-tag-engine #[(collector displayor buffer start end) "\n\306\f \307\310%\311\312\313#\210\311\314\315 #\210\316\317\320\"\210\316\321\322\"\210\323 \207" [collector semantic-completion-collector-engine displayor semantic-completion-display-engine start end semantic-make-overlay nil t semantic-overlay-put face semantic-complete-inline-face window-config-start current-window-configuration add-hook pre-command-hook semantic-complete-pre-command-hook post-command-hook semantic-complete-post-command-hook semantic-complete-inline-force-display buffer semantic-complete-inline-overlay] 6 (#$ . 15661)]) #@28 Perform inline completion. (defalias 'semantic-complete-inline-TAB #[nil "\301\302\303\"\211\304=\203 \305 \202 \306=\205 \307 )\207" [cmpl semantic-complete-do-completion nil t complete semantic-complete-inline-force-display done semantic-complete-inline-done] 4 (#$ . 16942) nil]) #@39 Focus forwards through the displayor. (defalias 'semantic-complete-inline-down #[nil "\302 !\210\303 !)\207" [semantic-completion-display-engine displayor semantic-displayor-focus-next semantic-displayor-focus-request] 2 (#$ . 17236) nil]) #@40 Focus backwards through the displayor. (defalias 'semantic-complete-inline-up #[nil "\302 !\210\303 !)\207" [semantic-completion-display-engine displayor semantic-displayor-focus-previous semantic-displayor-focus-request] 2 (#$ . 17484) nil]) #@974 Determine what the next completion action should be. PARTIAL is non-nil if we are doing partial completion. First, the collector can determine if we should perform a completion or not. If there is nothing to complete, then the displayor determines if we are to show a completion list, scroll, or perhaps do a focus (if it is capable.) Expected return values are: done -> We have a singular match empty -> There are no matches to the current text complete -> Perform a completion action complete-whitespace -> Complete next whitespace type character. display -> Show the list of completions scroll -> The completions have been shown, and the user keeps hitting the complete button. If possible, scroll the completions focus -> The displayor knows how to shift focus among possible completions. Let it do that. displayend -> Whatever options the displayor had for repeating options, there are none left. Try something new. (defalias 'semantic-complete-next-action #[(partial) "\305 \"\306\n!\211 \204 \202 \f\307=\203 \203 \202 \f*\207" [semantic-completion-collector-engine partial semantic-completion-display-engine ans2 ans1 semantic-collector-next-action semantic-displayor-next-action done] 4 (#$ . 17736)]) #@43 List of collectors active in this buffer. (defvar semantic-collector-per-buffer-list nil (#$ . 19015)) (make-variable-buffer-local 'semantic-collector-per-buffer-list) #@48 List of global collectors active this session. (defvar semantic-collector-list nil (#$ . 19189)) (byte-code "\300\301\302\303\304$\210\300\305\306\307\310$\210\311\312\313\312\314\"\"\210\315\312\302\305\316$\210\311\317\313\317\320\"\"\210\315\317\302\301\321$\210\311\322\313\322\323\"\"\210\315\322\302\301\324$\210\311\325\313\325\326\"\"\210\315\325\302\301\327$\210\311\330\313\330\331\"\"\210\315\330\302\301\332$\210\311\312\313\312\333\"\"\210\315\312\302\301\334$\210\311\335\313\335\336\"\"\210\315\335\302\301\337$\210\311\340\313\340\341\"\"\210\315\340\302\301\342$\210\311\343\313\343\344\"\"\210\315\343\302\301\345$\210\311\346\313\346\347\"\"\210\315\346\302\301\350$\210\311\351\313\351\344\"\"\210\315\351\302\301\352$\210\311\353\313\353\354\"\"\210\315\353\302\301\355$\210\311\356\313\356\357\"\"\210\315\356\302\301\360$\210\311\361\313\361\362\"\"\210\315\361\302\301\363$\210\311\364\313\364\365\"\"\210\315\364\302\301\366$\210\300\367\370\302\371$\210\311\372\313\372\373\"\"\210\315\372\374\367\375$\207" [eieio-defclass semantic-collector-abstract nil ((buffer :initarg :buffer :type buffer :documentation "Originating buffer for this collector.\nSome collectors use a given buffer as a starting place while looking up\ntags.") (cache :initform nil :type (or null semanticdb-find-result-with-nil) :documentation "Cache of tags.\nThese tags are re-used during a completion session.\nSometimes these tags are cached between completion sessions.") (last-all-completions :initarg nil :type semanticdb-find-result-with-nil :documentation "Last result of `all-completions'.\nThis result can be used for refined completions as `last-prefix' gets\ncloser to a specific result.") (last-prefix :type string :protection :protected :documentation "The last queried prefix.\nThis prefix can be used to cache intermediate completion offers.\nmaking the action of homing in on a token faster.") (last-completion :type (or null string) :documentation "The last calculated completion.\nThis completion is calculated and saved for future use.") (last-whitespace-completion :type (or null string) :documentation "The last whitespace completion.\nFor partial completion, SPC will disambiguate over whitespace type\ncharacters. This is the last calculated version.") (current-exact-match :type list :protection :protected :documentation "The list of matched tags.\nWhen tokens are matched, they are added to this list.")) ("Root class for completion engines.\nThe baseclass provides basic functionality for interacting with\na completion displayor object, and tracking the current progress\nof a completion." :abstract t) semantic-collector-analyze-completions (semantic-collector-abstract) ((context :initarg :context :type semantic-analyze-context :documentation "An analysis context.\nSpecifies some context location from whence completion lists will be drawn.") (first-pass-completions :type list :documentation "List of valid completion tags.\nThis list of tags is generated when completion starts. All searches\nderive from this list.")) ("Completion engine that uses the context analyzer to provide options.\nThe only options available for completion are those which can be logically\ninserted into the current context.") eieio--defalias semantic-collector-calculate-completions-raw eieio--defgeneric-init-form #1="calculate the completions for prefix from completionlist." eieio--defmethod #[(obj prefix completionlist) "\306\307\"\204 \310\307\311\312\313\"!#\210r\312\211\313\"\314\"q\210 )\nG\315\312\307\"!\316 \211 \203P \317\n\320\316 @\211 @)\320 &\321=\203I @\fB A\211\204. \f\237+BC\207" [obj semanticdb-current-table prefix l result tags slot-boundp first-pass-completions eieio-oset semantic-analyze-possible-completions eieio-oref context buffer semantic-something-to-tag-table nil compare-strings 0 t tag semantic-case-fold] 10 #1#] semantic-collector-cleanup #2="Clean up any mess this collector may have." #[(obj) "\300\207" [nil] 1 #2#] semantic-collector-next-action #3="What should we do next? OBJ can be used to determine the next action.\nPARTIAL indicates if we are doing a partial completion." #[(obj partial) "\306\307\"\203l \310 \311\307\"\230\203l \312!\313 !\314\310 \"\313 ! \203B \n\315U\203B \203B \f\315V\203B =\203B \316\202j \203P \n\315U\203P \317\202j \204\\ \204\\ \320\202j \205j \321\310 \"\205j \322,\207\323\207" [obj cem cemlen cac caclen last-command slot-boundp last-completion semantic-completion-text eieio-oref semantic-collector-current-exact-match semanticdb-find-result-length semantic-collector-all-completions 1 nil done empty semantic-collector-try-completion-whitespace complete-whitespace complete this-command partial] 4 #3#] semantic-collector-last-prefix= #4="Return non-nil if OBJ's prefix matches PREFIX." #[(obj last-prefix) "\302\301\"\205 \303\301\" \230\207" [obj last-prefix slot-boundp eieio-oref] 3 #4#] semantic-collector-get-cache #5="Get the raw cache of tags for completion.\nCalculate the cache if there isn't one." #[(obj) "\301\302\"\206\n \303!\207" [obj eieio-oref cache semantic-collector-calculate-cache] 3 #5#] #6="Calculate the completions for prefix from completionlist.\nOutput must be in semanticdb Find result format." #[(obj prefix completionlist) "r\306\307\"q\210 )\nG\310\311\f!!\312 \211 \203? \313\n\314\312@\211 @)\314 &\315=\2036 @ BA\211\204 \237+ \205N BC*\207" [obj semanticdb-current-table prefix l completionlist result eieio-oref buffer semantic-something-to-tag-table semanticdb-strip-find-results nil compare-strings 0 t tags tag semantic-case-fold table] 10 #6#] semantic-collector-calculate-completions #7="Calculate completions for prefix as setup for other queries." #[(obj prefix partial) "\306\n \" \307\n\305\"\205 \310\n\305\" \f\204* \2031 \311 \312\313 \312 G&\314=\2031 \310\n\315\"\202e \205e G\316V\205e \311 \312\313 \312 G&\314=\205e \317`! \320\n\321#\210\307\n\322\"\203c \323\n\322\"\210)\313 \f\203p \202v \324\n # \313\211 \f\204\217 \320\n\305 #\210\320\n\315 #\210\325 \326 !\" \320\n\327\313#\210\320\n\330\313#\210 \205\333 \320\n\331 \314=\203\276 \320\n\330 #\210 \202\332 \332 \"\211 \203\324 \320\n\330 #\210 \202\332 \206\332 #.\207" [semantic-case-fold case-fold-search obj prefix same-prefix-p last-prefix semantic-collector-last-prefix= slot-boundp eieio-oref compare-strings 0 nil t last-all-completions 1 semantic-analyze-current-context eieio-oset context first-pass-completions slot-makeunbound semantic-collector-calculate-completions-raw try-completion semanticdb-strip-find-results last-whitespace-completion current-exact-match last-completion semanticdb-find-tags-by-name completionlist answer completion complete-not-uniq] 8 #7#] semantic-collector-try-completion-whitespace #8="For OBJ, do whitespace completion based on PREFIX.\nThis implies that if there are two completions, one matching\nthe test \"prefix\\>\", and one not, the one matching the full\nword version of PREFIX will be chosen, and that text returned.\nThis function requires that `semantic-collector-calculate-completions'\nhas been run first." #[(obj prefix) "\306 \"\307 \310Q\311 \n\" \312\f! \f\205g \313 GT \314\f\" W\203K @\211 @)GW\203K T\314\f\"\202& \205f \242\205f \315\316@\211 @)\313O#+,\207" [obj prefix ac matchme compare numtag semantic-collector-all-completions "^" "\\>" semanticdb-find-tags-by-name-regexp semanticdb-find-result-length 0 semanticdb-find-result-nth eieio-oset last-whitespace-completion idx cutlen twws tag] 7 #8#] semantic-collector-current-exact-match #9="Return the active valid MATCH from the semantic collector.\nFor now, just return the first element from our list of available\nmatches. For semanticdb based results, make sure the file is loaded\ninto a buffer." #[(obj) "\301\302\"\205 \303\302\"\207" [obj slot-boundp current-exact-match eieio-oref] 3 #9#] semantic-collector-current-whitespace-completion #10="Return the active whitespace completion value." #[(obj) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-whitespace-completion eieio-oref] 3 #10#] semantic-collector-get-match #[(obj) "\301\302\"\205 \303\304\302\"\305\"\207" [obj slot-boundp current-exact-match semanticdb-find-result-nth-in-buffer eieio-oref 0] 4 "Return the active valid MATCH from the semantic collector.\nFor now, just return the first element from our list of available\nmatches. For semanticdb based results, make sure the file is loaded\ninto a buffer."] semantic-collector-all-completions #11="For OBJ, retrieve all completions matching PREFIX.\nThe returned list consists of all the tags currently\nmatching PREFIX." #[(obj prefix) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-all-completions eieio-oref] 3 #11#] semantic-collector-try-completion #12="For OBJ, attempt to match PREFIX.\nSee `try-completion' for details on how this works.\nReturn nil for no match.\nReturn a string for a partial match.\nFor a unique match of PREFIX, return the list of all tags\nwith that name." #[(obj prefix) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-completion eieio-oref] 3 #12#] semantic-collector-calculate-cache #13="Calculate the completion cache for OBJ." #[(obj) "\300\207" [nil] 1 #13#] semantic-collector-flush #14="Flush THIS collector object, clearing any caches and prefix." #[(this) "\301\302\303#\210\304\305\"\210\304\306\"\210\304\307\"\210\304\310\"\207" [this eieio-oset cache nil slot-makeunbound last-prefix last-completion last-all-completions current-exact-match] 4 #14#] semantic-collector-buffer-abstract (semantic-collector-abstract) ("Root class for per-buffer completion engines.\nThese collectors track themselves on a per-buffer basis." :abstract t) constructor #15="Reuse previously created objects of this type in buffer." :STATIC #[(this newname &rest fields) "\305 \203 \n\204 \306 @! =\203 @\202 \n\204* \307 \310\300\f\"\210\f)\311\n\312\"\210\311\n\313\"\210\311\n\314\"\210\n*\207" [semantic-collector-per-buffer-list bl old this new nil object-class call-next-method add-to-list slot-makeunbound last-completion last-prefix current-exact-match] 3 #15#]] 5) #@86 Flush all buffer collector objects. NEWCACHE is the new tag table, but we ignore it. (defalias 'semantic-collector-buffer-flush #[(newcache) "\300\301\302\217\207" [nil (byte-code "\211\205 @\203 \302 @!\210 A\211\204 \303)\207" [semantic-collector-per-buffer-list l semantic-collector-flush nil] 3) ((error))] 3 (#$ . 29427)]) (byte-code "\301\302\303\"\210\304\305\306\307\310$\210\311\312\313\312\314\"\"\210\315\312\307\305\316$\210\304\317\320\321\322$\210\304\323\324\307\325$\210\311\326\313\326\327\"\"\210\315\326\307\323\330$\210\304\331\332\307\333$\210\311\326\313\326\327\"\"\210\315\326\307\331\334$\210\304\335\336\337\340$\210\311\326\313\326\327\"\"\210\315\326\307\335\341$\210\304\342\307\343\344$\210\311\345\313\345\346\"\"\210\315\345\307\342\347$\210\311\350\313\350\351\"\"\210\315\350\307\342\352$\210\311\353\313\353\354\"\"\210\315\353\307\342\355$\210\311\356\313\356\357\"\"\210\315\356\307\342\360$\210\311\361\313\361\362\"\"\210\315\361\307\342\363$\210\311\364\313\364\365\"\"\210\315\364\307\342\366$\210\311\367\313\367\370\"\"\210\315\367\307\342\371$\210\311\372\313\372\373\"\"\210\315\372\307\342\374$\210\311\375\313\375\376\"\"\210\315\375\307\342\377$\210\201@ \201A \201B \201C \201D \201E \201F &\210\304\201G \201H \307\201I $\210\311\356\313\356\357\"\"\210\315\356\307\201G \201J $\210\304\201K \201L \201M \201N $\210\311\350\313\350\351\"\"\210\315\350\307\201K \201O $\210\311\353\313\353\354\"\"\210\315\353\307\201K \201P $\210\311\367\313\367\201Q \"\"\210\315\367\307\201K \201R $\210\311\372\313\372\201S \"\"\210\315\372\307\201K \201T $\210\311\201U \313\201U \201V \"\"\210\315\201U \307\201K \201W $\210\311\375\313\375\201X \"\"\210\315\375\307\201K \201Y $\210\304\201Z \201[ \201\\ \201] $\210\311\361\313\361\201^ \"\"\210\315\361\307\201Z \201_ $\210\201@ \201` \201a \201b \201D \201E \201c \201d \201F \201e & \210\201@ \201f \201g \201h \201D \201E \201c \201d \201F \201i & \210\201@ \201j \201k \201l \201D \201E \201c \201d \201F \201i \201m \201n & \210\304\201o \201p \201q \201r $\210\311\201s \313\201s \201t \"\"\210\315\201s \201u \201o \201v $\210\311\356\313\356\357\"\"\210\315\356\307\201o \201w $\210\201x \201y !\203\236\201z \201{ \201y \"\210\202\251\201z \201{ \201| \"\210\307\207" [semantic-format-tag-custom-list add-hook semantic-after-toplevel-cache-change-hook semantic-collector-buffer-flush eieio-defclass semantic-collector-buffer-deep (semantic-collector-buffer-abstract) nil ("Completion engine for tags in the current buffer.\nWhen searching for a tag, uses semantic deep search functions.\nBasics search only in the current buffer.") eieio--defalias semantic-collector-calculate-cache eieio--defgeneric-init-form #1="Calculate the completion cache for OBJ.\nUses `semantic-flatten-tags-table'" eieio--defmethod #[(obj) "\302\303 \304\305\306\"!BC#\207" [obj semanticdb-current-table eieio-oset cache semantic-flatten-tags-table eieio-oref buffer] 8 #1#] semantic-collector-project-abstract (semantic-collector-abstract) ((path :initarg :path :initform nil :documentation "List of database tables to search.\nAt creation time, it can be anything accepted by\n`semanticdb-find-translate-path' as a PATH argument.")) ("Root class for project wide completion engines.\nUses semanticdb for searching all tags in the current project." :abstract t) semantic-collector-project (semantic-collector-project-abstract) ("Completion engine for tags in a project.") semantic-collector-calculate-completions-raw #2="Calculate the completions for prefix from completionlist." #[(obj prefix completionlist) "\302\303 \304\"\"\207" [prefix obj semanticdb-find-tags-for-completion eieio-oref path] 5 #2#] semantic-collector-project-brutish (semantic-collector-project-abstract) ("Completion engine for tags in a project.") #[(obj prefix completionlist) "\302\303!\210\304\305 \306\"\"\207" [prefix obj require semantic/db-find semanticdb-brute-deep-find-tags-for-completion eieio-oref path] 5 "Calculate the completions for prefix from completionlist."] semantic-collector-local-members (semantic-collector-project-abstract) ((scope :initform nil :type (or null semantic-scope-cache) :documentation "The scope the local members are being completed from.")) ("Completion engine for tags in a project.") #[(obj prefix completionlist) "\306\301\"\206 \307\301\310 #\306 \301\"\306 \311\" G \312\n!\313 \211 \203K \314 \315\313@\211 @)\315\f&\316=\203B @ BA\211\204% \237-BC\207" [obj scope localstuff prefix l result eieio-oref eieio-oset semantic-calculate-scope :table semantic-something-to-tag-table nil compare-strings 0 t tags tag semantic-case-fold] 10 "Calculate the completions for prefix from completionlist."] semantic-displayor-abstract ((table :type (or null semanticdb-find-result-with-nil) :initform nil :protection :protected :documentation "List of tags this displayor is showing.") (last-prefix :type string :protection :protected :documentation "Prefix associated with slot `table'")) ("Abstract displayor baseclass.\nManages the display of some number of tags.\nProvides the basics for a displayor, including interacting with\na collector, and tracking tables of completion to display." :abstract t) semantic-displayor-cleanup #3="Clean up any mess this displayor may have." #[(obj) "\300\207" [nil] 1 #3#] semantic-displayor-next-action #4="The next action to take on the minibuffer related to display." #[(obj) "\303\304\"\203 \305=\204 \306\304\"\307 \230\203 \n =\203 \310\207\311\207" [obj this-command last-command slot-boundp last-prefix semantic-complete-inline-TAB eieio-oref semantic-completion-text scroll display] 3 #4#] semantic-displayor-set-completions #5="Set the list of tags to be completed over to TABLE." #[(obj table prefix) "\303\301 #\210\303\304\n#\207" [obj table prefix eieio-oset last-prefix] 4 #5#] semantic-displayor-show-request #6="A request to show the current tags table." #[(obj) "\300 \207" [ding] 1 #6#] semantic-displayor-focus-request #7="A request to for the displayor to focus on some tag option." #[(obj) "\300 \207" [ding] 1 #7#] semantic-displayor-scroll-request #8="A request to for the displayor to scroll the completion list (if needed)." #[(obj) "\300 \207" [scroll-other-window] 1 #8#] semantic-displayor-focus-previous #9="Set the current focus to the previous item." #[(obj) "\300\207" [nil] 1 #9#] semantic-displayor-focus-next #10="Set the current focus to the next item." #[(obj) "\300\207" [nil] 1 #10#] semantic-displayor-current-focus #11="Return a single tag currently in focus.\nThis object type doesn't do focus, so will never have a focus object." #[(obj) "\300\207" [nil] 1 #11#] custom-declare-variable semantic-completion-displayor-format-tag-function #'semantic-format-tag-name "*A Tag format function to use when showing completions." :group semantic :type semantic-displayor-traditional (semantic-displayor-abstract) ("Display options in *Completions* buffer.\nTraditional display mechanism for a list of possible completions.\nCompletions are showin in a new buffer and listed with the ability\nto click on the items to aid in completion.") #[(obj) "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320\321\322\"!\"!\323!\210+\207" [default-directory #:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Completions*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list mapcar semanticdb-strip-find-results eieio-oref table internal-temp-output-buffer-show inhibit-read-only #:buf standard-output semantic-completion-displayor-format-tag-function obj] 8 "A request to show the current tags table."] semantic-displayor-focus-abstract (semantic-displayor-abstract) ((focus :type number :protection :protected :documentation "A tag index from `table' which has focus.\nMultiple calls to the display function can choose to focus on a\ngiven tag, by highlighting its location.") (find-file-focus :allocation :class :initform nil :documentation "Non-nil if focusing requires a tag's buffer be in memory.")) ("Abstract displayor supporting `focus'.\nA displayor which has the ability to focus in on one tag.\nFocusing is a way of differentiating among multiple tags\nwhich have the same name." :abstract t) #[(obj) "\303\304\"\2038 \305\304\"\306 \230\2038 \n=\2038 \303\307\"\2036 \303\310\"\2036 \311\305\310\"!\305\307\"TX\2036 \312\207\307\207\313\207" [obj last-command this-command slot-boundp last-prefix eieio-oref semantic-completion-text focus table semanticdb-find-result-length displayend display] 4 "The next action to take on the minibuffer related to display."] #[(obj table prefix) "\301 \210\302\303\"\207" [obj call-next-method slot-makeunbound focus] 3 "Set the list of tags to be completed over to TABLE."] #12="Set the current focus to the previous item.\nNot meaningful return value." #[(obj) "\301\302\"\2053 \303\302\"\2053 \301\304\"\203 \303\304\"\305X\203* \306\304\307\310\302\"!S#\207\306\304\303\304\"S#\207" [obj slot-boundp table eieio-oref focus 0 eieio-oset semanticdb-find-result-length slot-value] 7 #12#] #13="Set the current focus to the next item.\nNot meaningful return value." #[(obj) "\301\302\"\205; \303\302\"\205; \301\304\"\204 \305\304\306#\210\202( \305\304\303\304\"T#\210\307\310\302\"!\303\304\"X\205; \305\304\306#\207" [obj slot-boundp table eieio-oref focus eieio-oset 0 semanticdb-find-result-length slot-value] 6 #13#] semantic-displayor-focus-tag #14="Return the next tag OBJ should focus on." #[(obj) "\301\302\"\205 \303\302\"\205 \304\305\302\"\303\306\"\"\207" [obj slot-boundp table eieio-oref semanticdb-find-result-nth slot-value focus] 5 #14#] #15="Return the tag currently in focus, or call parent method." #[(obj) "\301\302\"\203= \301\303\"\203= \301\304\"\203= \305 \306\304\"\230\203= \306\307\"\2031 \310\306\303\"\306\302\"\"\207\311\306\303\"\306\302\"\"@\207\312 \207" [obj slot-boundp focus table last-prefix semantic-completion-text eieio-oref find-file-focus semanticdb-find-result-nth-in-buffer semanticdb-find-result-nth call-next-method] 5 #15#] semantic-displayor-traditional-with-focus-highlight (semantic-displayor-focus-abstract semantic-displayor-traditional) ((find-file-focus :initform t)) ("Display completions in *Completions* buffer, with focus highlight.\nA traditional displayor which can focus on a tag by showing it.\nSame as `semantic-displayor-traditional', but with selection between\nmultiple tags with the same name done by 'focusing' on the source\nlocation of the different tags to differentiate them.") #16="Focus in on possible tag completions.\nFocus is performed by cycling through the tags and highlighting\none in the source buffer." #[(obj) "\306\307\310\"!\311!\211@\nA \312\f \"\211 A ( @ \313 )(\204- \f (\314(!\206= \205= \315!\211 *\204| r\316\317!q\210\320 \210\321c\210\322(\323\324#\325\261\210\203i \326c\210\327!\325\261\210*\203x \330c\210\331\332*\"c\210p*)\333*!\203\215 \334\333*!!\210\202\232 \335*\324\"\210\334\333*!!\210\336(!\203\311 (\211 ( (\337(8) +\340+!\203\275 \341+!\202\301 +\342H*b\210\343\344 !\210\334)!\210\345 ,(\211 (@)\211 -,G\323O .\346\331\347.\307\302\"T $!.\f\207" [obj tablelength focus rtag rtable nt semanticdb-find-result-length eieio-oref table semantic-displayor-focus-tag semanticdb-normalize-one-tag selected-window semantic-tag-buffer semanticdb-get-buffer get-buffer-create "*Completion Focus*" erase-buffer "Focus on tag: \n" semantic-format-tag-summarize nil t "\n\n" "From table: \n" object-name "In buffer: \n\n" format "%S" get-buffer-window select-window switch-to-buffer-other-window semantic-tag-with-position-p 4 semantic-overlay-p semantic-overlay-start 0 semantic-momentary-highlight-tag semantic-current-tag semantic-completion-text semantic-completion-message "%s [%d of %d matches]" tag curwin buf o mbc ftn diff] 8 #16#] semantic-displayor-tooltip-mode 'standard "Mode for the tooltip inline completion.\n\nStandard: Show only `semantic-displayor-tooltip-initial-max-tags'\nnumber of completions initially. Pressing TAB will show the\nextended set.\n\nQuiet: Only show completions when we have narrowed all\npossibilities down to a maximum of\n`semantic-displayor-tooltip-initial-max-tags' tags. Pressing TAB\nmultiple times will also show completions.\n\nVerbose: Always show all completions available.\n\nThe absolute maximum number of completions for all mode is\ndetermined through `semantic-displayor-tooltip-max-tags'." :version "24.3" (choice (const :tag "Standard" standard) (const :tag "Quiet" quiet) (const :tag "Verbose" verbose)) semantic-displayor-tooltip-initial-max-tags 5 "Maximum number of tags to be displayed initially.\nSee doc-string of `semantic-displayor-tooltip-mode' for details." integer semantic-displayor-tooltip-max-tags 25 "The maximum number of tags to be displayed.\nMaximum number of completions where we have activated the\nextended completion list through typing TAB or SPACE multiple\ntimes. This limit needs to fit on your screen!\n\nNote: If available, customizing this variable increases\n`x-max-tooltip-size' to force over-sized tooltips when necessary.\nThis will not happen if you directly set this variable via `setq'." :set (lambda (sym var) (set-default sym var) (when (boundp 'x-max-tooltip-size) (setcdr x-max-tooltip-size (max (1+ var) (cdr x-max-tooltip-size))))) semantic-displayor-tooltip (semantic-displayor-traditional) ((mode :initarg :mode :initform (symbol-value 'semantic-displayor-tooltip-mode) :documentation "See `semantic-displayor-tooltip-mode'.") (max-tags-initial :initarg max-tags-initial :initform (symbol-value 'semantic-displayor-tooltip-initial-max-tags) :documentation "See `semantic-displayor-tooltip-initial-max-tags'.") (typing-count :type integer :initform 0 :documentation "Counter holding how many times the user types space or tab continuously before showing tags.") (shown :type boolean :initform nil :documentation "Flag representing whether tooltip has been shown yet.")) ("Display completions options in a tooltip.\nDisplay mechanism using tooltip for a list of possible completions.") initialize-instance #17="Make sure we have tooltips required." :AFTER #[(obj &rest args) "\300\301\302\217\207" [nil (byte-code "\300\301!\207" [require tooltip] 2) ((error))] 3 #17#] #[(obj) "\306\307!\203\n \204 \310 \207\311\312 \303\"!\313\n!\314\f \"\211 G 0\312 \315\" \312 \316\" \312 \317\" \320 1\321\211 2 3\322 ;\203W \322 \323\230\203W \324 \315\312 \315\"T#\210\202] \324 \315\325#\210\326=\203\221 \312 \315\"\327Y\203z \324 \316\330#\210\330\331\332!\2100 V\203\243 \312 \315\"\333W\203\243 \3342\202\243 \335=\203\243 \324 \3364#\2104 2\204+\324 \337\340#\2100 V\203\362 S \233\321\241\210 5U\203\325 \341\3420 Z!\343Q3\202!\344\3420 Z!\343Q3\312 \315\"\333Y\203!\331\345\346\"\210\202!0\347U\203\f1 @\211 6@)\230\203!\3502\202!\3510!\203!\324 \337\321#\2107\203!\35222\353\354 \355#P223P\2112\356=?\205=\3572!.\n\207" [tooltip-mode obj tablelong table semantic-completion-displayor-format-tag-function completions featurep tooltip call-next-method semanticdb-strip-find-results eieio-oref semantic-unique-tag-table-by-name mapcar typing-count mode max-tags-initial semantic-completion-text nil this-command-keys " " eieio-oset 0 quiet 5 standard message "Resetting inline-mode to 'standard'." 2 "..." verbose max-tags shown t "\n[<TAB> " number-to-string " more]" "\n[<n/a> " "Refine search to display results beyond the '%s' limit" "semantic-complete-inline-max-tags-extended" 1 "[COMPLETE]\n" zerop "[NO MATCH]" mapconcat identity "\n" "" semantic-displayor-tooltip-show numcompl matchtxt msg msg-tail semantic-displayor-tooltip-max-tags semantic-displayor-tooltip-initial-max-tags tag semantic-idle-scheduler-verbose-flag] 7 "A request to show the current tags table."] fboundp window-inside-edges defalias semantic-displayor-window-edges window-edges] 12) #@94 Return the location of POINT as positioned on the selected frame. Return a cons cell (X . Y) (defalias 'semantic-displayor-point-position #[nil "\306 \307\301\"\243\242\206 \307\301\"\307\302\"\243\242\206 \307\302\"\310 \311 8) \312\313 ! \314\f@ @ #\314\fA \211 A@)\n#-B\207" [frame left top position point-pix-pos edges selected-frame frame-parameter posn-at-point 2 window-inside-pixel-edges selected-window + x] 6 (#$ . 45545)]) #@42 Display a tooltip with TEXT near cursor. (defalias 'semantic-displayor-tooltip-show #[(text) "\303 \304\305\"\306 @\307 \\BB\310 A\311 \\BB\312\n!*\207" [tooltip-frame-parameters point-pix-pos text semantic-displayor-point-position append nil left frame-char-width top frame-char-height tooltip-show] 4 (#$ . 45996)]) (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\310\311\312\313\314$\210\300\315\302\315\316\"\"\210\304\315\305\311\317$\210\300\320\302\320\321\"\"\210\304\320\305\311\322$\210\300\323\302\323\324\"\"\210\304\323\305\311\325$\210\300\326\302\326\327\"\"\210\304\326\305\311\330$\210\300\331\302\331\332\"\"\210\304\331\305\311\333$\207" [eieio--defalias semantic-displayor-scroll-request eieio--defgeneric-init-form #1="A request to for the displayor to scroll the completion list (if needed)." eieio--defmethod nil semantic-displayor-tooltip #[(obj) "\301\302\303#\210\304!\207" [obj eieio-oset max-tags-initial 30 semantic-displayor-show-request] 4 #1#] eieio-defclass semantic-displayor-ghost (semantic-displayor-focus-abstract) ((ghostoverlay :type overlay :documentation "The overlay the ghost text is displayed in.") (first-show :initform t :documentation "Non nil if we have not seen our first show request.")) ("Cycle completions inline with ghost text.\nCompletion displayor using ghost chars after point for focus options.\nWhichever completion is currently in focus will be displayed as ghost\ntext using overlay options.") semantic-displayor-next-action #2="The next action to take on the inline completion related to display." #[(obj) "\303 \304\301\"\205 \305\301\"\211\306=\205 \205 \307 !\310U?\205# \n*\207" [obj table ans call-next-method slot-boundp eieio-oref displayend semanticdb-find-result-length 1] 5 #2#] semantic-displayor-cleanup #3="Clean up any mess this displayor may have." #[(obj) "\301\302\"\205 \303\304\302\"!\207" [obj slot-boundp ghostoverlay semantic-overlay-delete eieio-oref] 4 #3#] semantic-displayor-set-completions #4="Set the list of tags to be completed over to TABLE." #[(obj table prefix) "\301 \210\302!\207" [obj call-next-method semantic-displayor-cleanup] 2 #4#] semantic-displayor-show-request #5="A request to show the current tags table." #[(obj) "\301!\210\302!\207" [obj semantic-displayor-focus-next semantic-displayor-focus-request] 2 #5#] semantic-displayor-focus-request #6="Focus in on possible tag completions.\nFocus is performed by cycling through the tags and showing a possible\ncompletion text in ghost text." #[(obj) "\306\307\310\"!\311!\211@\211\204 \312\313!\202\205 \314\315\"\203( \316\307\315\"!\2044 \317\315\320``Tp\321$#\210\322 \211@)\fG\323O \307\315\" \324\325 G\326\327 %\210\330 \331 ``T{P#\210+\322 \211@)\260 \324 G G\326\332 %\210\312\333\334 \307\302\"T $!*+\207" [obj tablelength focus tag lp os semanticdb-find-result-length eieio-oref table semantic-displayor-focus-tag semantic-completion-message "No tags to focus on." slot-boundp ghostoverlay semantic-overlay-live-p eieio-oset semantic-make-overlay t semantic-completion-text nil put-text-property 0 face region semantic-overlay-put display bold format "%s [%d of %d matches]" ol mbc ftn] 9 #6#]] 5) #@87 Possible options for inline completion displayors. Use this to enable custom editing. (defvar semantic-complete-inline-custom-type (byte-code "\301\302\303\304\305\306\"\"\"\207" [semantic-displayor-abstract append (radio) mapcar #[(class) "\304@!\305 \306\"\307\n\310\"@\311\312 F+\207" [class C doc doc1 intern documentation-property variable-documentation split-string "\n" const :tag] 4] eieio-build-class-alist t] 7) (#$ . 49233)) #@53 *Class for displayor to use with inline completion. (custom-declare-variable 'semantic-complete-inline-analyzer-displayor-class ''semantic-displayor-traditional '(#$ . -49681) :group 'semantic :type semantic-complete-inline-custom-type) #@453 Ask for a tag by name from the current buffer. Available tags are from the current buffer, at any level. Completion options are presented in a traditional way, with highlighting to resolve same-name collisions. 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 store the history in. (defalias 'semantic-complete-read-tag-buffer-deep #[(prompt &optional default-tag initial-input history) "\304\305\306p#\307\310! \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-buffer-deep :buffer semantic-displayor-traditional-with-focus-highlight "simple"] 7 (#$ . 49925)]) #@442 Ask for a tag by name from the local type members. Available tags are from the current scope. Completion options are presented in a traditional way, with highlighting to resolve same-name collisions. 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 store the history in. (defalias 'semantic-complete-read-tag-local-members #[(prompt &optional default-tag initial-input history) "\304\305\306p#\307\310! \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-local-members :buffer semantic-displayor-traditional-with-focus-highlight "simple"] 7 (#$ . 50721)]) #@459 Ask for a tag by name from the current project. Available tags are from the current project, at the top level. Completion options are presented in a traditional way, with highlighting to resolve same-name collisions. 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 store the history in. (defalias 'semantic-complete-read-tag-project #[(prompt &optional default-tag initial-input history) "\304\305\306p\307p%\310\311! \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-project-brutish :buffer :path semantic-displayor-traditional-with-focus-highlight "simple"] 7 (#$ . 51510)]) #@407 Complete a symbol name by name from within the current project. This is similar to `semantic-complete-read-tag-project', except that the completion interaction is in the buffer where the context was calculated from. Customize `semantic-complete-inline-analyzer-displayor-class' to control how completion options are displayed. See `semantic-complete-inline-tag-engine' for details on how completion works. (defalias 'semantic-complete-inline-tag-project #[nil "\306\307\310p\311p%\312 \211@\313 8@\313 8A \314\n! A@ A\242 \315 \205{ \316\230\203: \205{ \317\315#\210\320\321\"!\322!\211G\323U\203i @\211 @)\211 \230)\203q G\323V\205{ \324\325!p \f%. \207" [collector sbounds syms start end rsym semantic-collector-project-brutish "inline" :buffer :path semantic-ctxt-current-symbol-and-bounds 2 reverse nil "" semantic-collector-calculate-completions semanticdb-strip-find-results semantic-collector-all-completions semantic-unique-tag-table-by-name 1 semantic-complete-inline-tag-engine "inline displayor" thissym nextsym complst tag compname semantic-complete-inline-analyzer-displayor-class] 7 (#$ . 52323)]) #@595 Ask for a tag by name based on the current context. The function `semantic-analyze-current-context' is used to calculate the context. `semantic-analyze-possible-completions' is used to generate the list of possible completions. PROMPT is the first part of the prompt. Additional prompt is added based on the contexts full prefix. CONTEXT is the semantic analyzer context to start with. HISTORY is a symbol representing a variable to store the history in. usually a default-tag and initial-input are available for completion prompts. these are calculated from the CONTEXT variable passed in. (defalias 'semantic-complete-read-tag-analyzer #[(prompt &optional context history) "\204 \305`!\306`!\307 !@ \237A\237\310\311 \312\313\314\"\315%\316\317!r\313\314\"q\210\313\320\"Ab\210 \321\322 \323# \203@ \323\202A \324Q)\325\n\f&*\207" [context syms inp prompt history semantic-analyze-current-context semantic-ctxt-current-symbol reverse semantic-complete-read-tag-engine semantic-collector-analyze-completions :buffer eieio-oref buffer :context semantic-displayor-traditional-with-focus-highlight "simple" bounds mapconcat identity "." "" nil] 8 (#$ . 53480)]) #@461 Complete a symbol name by name based on the current context. This is similar to `semantic-complete-read-tag-analyze', except that the completion interaction is in the buffer where the context was calculated from. CONTEXT is the semantic analyzer context to start with. Customize `semantic-complete-inline-analyzer-displayor-class' to control how completion options are displayed. See `semantic-complete-inline-tag-engine' for details on how completion works. (defalias 'semantic-complete-inline-analyzer #[(context) "\204 \306`!\204 \307\310!\210\311\312\313\314\315\"\316%\317`!\320\n!\211@ A\242 \321 \f\205\204 \f\322\230\203; \205\204 \323 \f\321#\210\324\325 \f\"!\326!\211G\327U\203g @\211 @)\211 \f\230)\203o G\327V\205\204 \330 \331!\314\315\"\314\332\"@\314\332\"A%.\207" [context collector syms rsym thissym nextsym semantic-analyze-current-context error "Nothing to complete on here" semantic-collector-analyze-completions "inline" :buffer eieio-oref buffer :context semantic-ctxt-current-symbol reverse nil "" semantic-collector-calculate-completions semanticdb-strip-find-results semantic-collector-all-completions semantic-unique-tag-table-by-name 1 semantic-complete-inline-tag-engine "inline displayor" bounds complst tag compname semantic-complete-inline-analyzer-displayor-class] 9 (#$ . 54661)]) #@66 *Class for displayor to use with inline completion at idle time. (custom-declare-variable 'semantic-complete-inline-analyzer-idle-displayor-class ''semantic-displayor-ghost '(#$ . -56014) :group 'semantic :type semantic-complete-inline-custom-type) #@450 Complete a symbol name by name based on the current context for idle time. CONTEXT is the semantic analyzer context to start with. This function is used from `semantic-idle-completions-mode'. This is the same as `semantic-complete-inline-analyzer', except that it uses `semantic-complete-inline-analyzer-idle-displayor-class' to control how completions are displayed. See `semantic-complete-inline-tag-engine' for details on how completion works. (defalias 'semantic-complete-inline-analyzer-idle #[(context) "\303\n!)\207" [semantic-complete-inline-analyzer-idle-displayor-class semantic-complete-inline-analyzer-displayor-class context semantic-complete-inline-analyzer] 2 (#$ . 56270)]) #@34 Jump to a local semantic symbol. (defalias 'semantic-complete-jump-local #[nil "\204 \303\304!\210\305\306!\211\307\310\311\217)\205F \312 \210 \211\313 8)\314\n!\203. \315\n!\2021 \n\316H*b\210\317 !\210\320\321 \211A@) \211@)#)\207" [semantic-new-buffer-fcn-was-run tag o error "Buffer was not parsed by Semantic." semantic-complete-read-tag-buffer-deep "Jump to symbol: " nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) push-mark 4 semantic-overlay-p semantic-overlay-start 0 semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 56970) nil]) #@28 Jump to a semantic symbol. (defalias 'semantic-complete-jump #[nil "\204 \302\303!\210\304\305!\211\306\307\310\217)\2053 \311 \210\312 !\210\313p!\210\314 !\210\315\316 \211A@) \211@)#)\207" [semantic-new-buffer-fcn-was-run tag error "Buffer was not parsed by Semantic." semantic-complete-read-tag-project "Jump to symbol: " nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) push-mark semantic-go-to-tag switch-to-buffer semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 57590) nil]) #@28 Jump to a semantic symbol. (defalias 'semantic-complete-jump-local-members #[nil "\204 \303\304!\210\305\306!\211\307\310\311\217)\205? \307\312\313\217\211\204& \303\314\315 !\"\210\316 \210\nb\210\317 !\210\320\321 \211A@) \211@)#))\207" [semantic-new-buffer-fcn-was-run tag start error "Buffer was not parsed by Semantic." semantic-complete-read-tag-local-members "Jump to symbol: " nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) (byte-code "\211\3028)\303 !\203 \304 !\202 \305H*\207" [tag o 4 semantic-overlay-p semantic-overlay-start 0] 3) ((error)) "Tag %s has no location" semantic-format-tag-prototype push-mark semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 58148) nil]) #@255 Perform prompt completion to do in buffer completion. `semantic-analyze-possible-completions' is used to determine the possible values. The minibuffer is used to perform the completion. The result is inserted as a replacement of the text that was there. (defalias 'semantic-complete-analyze-and-replace #[nil "\302`!\212\303\304\")\305\306\"@b\210`\305\306\"A|\210 \211@)c\210\307\310\311 !\"*\207" [c tag semantic-analyze-current-context semantic-complete-read-tag-analyzer "" eieio-oref bounds message "%S" semantic-format-tag-summarize] 5 (#$ . 58918) nil]) #@344 Perform prompt completion to do in buffer completion. `semantic-analyze-possible-completions' is used to determine the possible values. The function returns immediately, leaving the buffer in a mode that will perform the completion. Configure `semantic-complete-inline-analyzer-displayor-class' to change how completion options are displayed. (defalias 'semantic-complete-analyze-inline #[nil "\300 \204 \301\302`!!\210\303\304!\203 \300 \204 \305\306!\207\307 \207" [semantic-completion-inline-active-p semantic-complete-inline-analyzer semantic-analyze-current-context called-interactively-p any message "Inline completion not needed." semantic-complete-inline-TAB] 3 (#$ . 59492) nil]) #@349 Perform prompt completion to do in buffer completion. `semantic-analyze-possible-completions' is used to determine the possible values. The function returns immediately, leaving the buffer in a mode that will perform the completion. Configure `semantic-complete-inline-analyzer-idle-displayor-class' to change how completion options are displayed. (defalias 'semantic-complete-analyze-inline-idle #[nil "\300 \204 \301\302`!!\210\303\304!\205 \300 ?\205 \305\306!\207" [semantic-completion-inline-active-p semantic-complete-inline-analyzer-idle semantic-analyze-current-context called-interactively-p interactive message "Inline completion not needed."] 3 (#$ . 60191) nil]) #@169 Like `self-insert-command', but does completion afterwards. ARG is passed to `self-insert-command'. If ARG is nil, use `semantic-complete-analyze-inline' to complete. (defalias 'semantic-complete-self-insert #[(arg) "\303 \210\304!\210\305 \306\216\212\307\211\310\215)?\205$ \311U\205$ \307\211\312\215)?+\205, \313\314\315\217\207" [arg #1=#:wconfig semantic-current-input-throw-symbol semantic-complete-inline-exit self-insert-command current-window-configuration ((set-window-configuration #1#)) csi (byte-code "\301 \210\203 \302 \204 \303 \203 \304\305\"\210\306\207" [semantic-current-input-throw-symbol semantic-fetch-tags input-pending-p accept-process-output throw csi nil] 3) 1 (byte-code "\301 \210\203 \302 \204 \303 \203 \304\305\"\210\306\207" [semantic-current-input-throw-symbol semantic-analyze-current-context input-pending-p accept-process-output throw csi nil] 3) nil (semantic-complete-analyze-inline) ((error))] 4 (#$ . 60876) "p"]) #@245 Perform inline completion for any symbol in the current project. `semantic-analyze-possible-completions' is used to determine the possible values. The function returns immediately, leaving the buffer in a mode that will perform the completion. (defalias 'semantic-complete-inline-project #[nil "\300 \204 \301 \210\302\303!\205 \300 ?\205 \304\305!\207" [semantic-completion-inline-active-p semantic-complete-inline-tag-project called-interactively-p interactive message "Inline completion not needed."] 2 (#$ . 61855) nil]) (provide 'semantic/complete)