Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/complete.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\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 (#$ . 654))
#@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 overlay-buffer delete-overlay nil] 2 (#$ . 771)])
#@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 (#$ . 997)])
#@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 (#$ . 1370)])
#@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\303\304\305 P\306 \n$\207" [semantic-complete-inline-overlay fmt args apply message "%s" buffer-string] 5 (#$ . 1683)])
#@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 (#$ . 1967))
#@90 The tag display engine for the current completion operation.
Value should be a ... what?
(defvar semantic-completion-display-engine nil (#$ . 2173))
#@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) (#$ . 2328))
#@89 Default history variable for any unhistoried prompt.
Keeps STRINGS only in the history.
(defvar semantic-completion-default-history nil (#$ . 2833))
#@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 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.
(defalias 'semantic-complete-read-tag-engine #[(collector displayer prompt default-tag initial-input history) "\n\306\211 \307!\211 \3101B :\205> @;\205> A@9\205> A@\205> \3118<\205> \3128<0\202D \210\306)\205O \211 @)\211 \203~ \313\314\"\203u \315\316\211\224#\317\320\315\316\224\"\260\202~ \321\322R\323\216\324 \306 \206\216 \325&\210)
.\207" [collector semantic-completion-collector-engine displayer semantic-completion-display-engine semantic-complete-active-default semantic-complete-current-matched-tag nil semantic-complete-default-to-tag (error) 2 3 string-match ":" substring 0 " (default " ")" " (" "): " #[nil "\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 default-tag default-as-tag tag default-as-string prompt initial-input semantic-complete-key-map history] 8 (#$ . 2989)])
#@53 The current default tag calculated for this prompt.
(defvar semantic-complete-active-default nil (#$ . 4625))
#@55 Convert a calculated or passed in DEFAULT into a tag.
(defalias 'semantic-complete-default-to-tag #[(default) "\3061- :\205) @;\205) A@9\205) A@\205) \307 8<\205) \310 8<0\202/ \210\311)\2037 \211\207\204> \312 \205\211 <\203R @;\203R @\202l ;\203[ \202l 9\203f \313!\202l \314\315\316D\"\311\212\317\f \311#\210)\320\f!\211 \203\204 \321
\322\") *\207" [default tag semantic-complete-active-default str semantic-completion-collector-engine ml (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] 5 (#$ . 4741)])
#@61 Variable used to pass the tags being matched to the prompt.
(defvar semantic-complete-current-matched-tag nil (#$ . 5449))
#@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 \3261\331 :\205\325 @;\205\325 A@9\205\325 A@\205\325 \327 8<\205\325 \330 8<0\202\333 \210\307)\203\347 \n#\331\332\333\"\210\n-\207" [semantic-completion-collector-engine semantic-completion-display-engine answer matchlist contents displayer 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 #[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 (#$ . 5579)])
#@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 (#$ . 7108) nil])
#@47 Complete the partial input in the minibuffer.
(defalias 'semantic-complete-complete-space #[nil "\300\301!\207" [semantic-complete-do-completion t] 2 (#$ . 7342) 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 (#$ . 7516) 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\310 \nG\"\311\312 \" \311\313 \"\211 \203)
\314V\203) \n\310 \314
#P\2028 \f\2037 \n\310 \314\f#P\2028 -\207" [save-match-data-internal new original diff end start match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] substring string-match "\\>" "\\<" 0] 6 (#$ . 7702)])
#@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\255 ;\203I \307 \230\2034 \n\205\255 \313!\211\2050 \314 \210 c)\202\255 \n\203A \307 \315\f \")\314 \210 c\202\255 <\203\254 @ \3161|
:\205x
@;\205x
A@9\205x
A@\205x \317
8<\205x \320
8<0\202~ \210\321)\203\254 \307 @\211 @)\230\204\231 \314 \210 @\211 @)c\210 G\322U\203\246 \310\323!\202\255 \310\324!\202\255 \321)\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 (error) 2 3 nil 1 " [Complete]" " [Complete, but not unique]"] 4 (#$ . 8342)])
#@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\202z \315=\2045 \316=\203? \317!\210\315\202z \320=\204M \321=\203] \322 \323 \f\"\f#\210\324 !\210\202z \325\267\202z \326 !\210\202z \327 !\210\330 !\210\202z \313\331!\210)
,\207" [semantic-completion-collector-engine collector semantic-completion-display-engine displayer 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-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 100 focus 107 empty 118)) semantic-displayer-scroll-request semantic-displayer-focus-next semantic-displayer-focus-request " [No Match]" partial na] 6 (#$ . 9271)])
#@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) (#$ . 10476))
(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 overlay-start overlay-end "" buffer-substring-no-properties] 4 (#$ . 11387)])
#@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 overlay-start overlay-end] 3 (#$ . 11725)])
#@54 This completion thing is DONE, OR, insert a newline.
(defalias 'semantic-complete-inline-done #[nil "\305 !\211\203 \306 \307\n\211@) G\"c\210\310 )\202; \3111, \312\313 \314 \"0\2023 \210\312\315 \314 \"\211 \205: \f )*\207" [semantic-completion-display-engine displayer tag txt fcn semantic-displayer-current-focus semantic-completion-text substring semantic-complete-inline-exit (error) lookup-key current-active-maps this-command-keys current-global-map] 4 (#$ . 11948) nil])
#@22 Quit an inline edit.
(defalias 'semantic-complete-inline-quit #[nil "\300 \210\301 \207" [semantic-complete-inline-exit keyboard-quit] 1 (#$ . 12440) nil])
#@30 Exit inline completion mode.
(defalias 'semantic-complete-inline-exit #[nil "\305\306\307\"\210\3101@ \203 \311!\210 \203 \312 !\210\n\2037 \313\n\314\"\315\n! \316\n!\210\317 p=\2036 \320\f!\210*\317\211\2110\202D \210\202E \210\305\321\322\"\207" [semantic-completion-collector-engine semantic-completion-display-engine semantic-complete-inline-overlay buf wc remove-hook pre-command-hook semantic-complete-pre-command-hook (error) semantic-collector-cleanup semantic-displayer-cleanup overlay-get window-config-start overlay-buffer delete-overlay nil set-window-configuration post-command-hook semantic-complete-post-command-hook] 4 (#$ . 12602) 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 (#$ . 13272)])
#@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 "\3061s \204
\307 \202q \310\311\"\312!\313!\314!\315 \np=\2038 `\fW\2048 `
W\2048 ` V\203= \307 \202p \316 \211\203` \317\230\204` `\fU\204` \212\320u\210\321\322!)\204` \307 \202p \323\324 \315#\203n \315\202p \325 -0\207\210\307 \207" [semantic-complete-inline-overlay txt b e s os (error) semantic-complete-inline-exit overlay-get semantic-original-start overlay-start overlay-end overlay-buffer nil semantic-completion-text "" -1 looking-at "\\(\\w\\|\\s_\\)" lookup-key this-command-keys semantic-complete-inline-force-display semantic-complete-inline-map] 5 (#$ . 13869)])
#@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 "\3061% \212 \307 \211 \205\" \310\f\n\311#\210\312 \313\f\n\"\n#\210\314 !,0\207 \315\316
\")\207" [semantic-completion-collector-engine semantic-completion-display-engine contents displayer collector e (error) semantic-completion-text semantic-collector-calculate-completions nil semantic-displayer-set-completions semantic-collector-all-completions semantic-displayer-show-request message "Bug Showing Completions: %S"] 6 (#$ . 14727)])
#@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 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.
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 displayer buffer start end) "\n\306\f
\307\310%\311\312\313#\210\311\314\315 #\210\311\316\f#\210\317\320\321\"\210\317\322\323\"\210\324 \207" [collector semantic-completion-collector-engine displayer semantic-completion-display-engine start end make-overlay nil t overlay-put face semantic-complete-inline-face window-config-start current-window-configuration semantic-original-start 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 (#$ . 15356)])
#@28 Perform inline completion.
(defalias 'semantic-complete-inline-TAB #[nil "\301\302\303\"\211\304\267\202 \305 \202 \306 \202 \302)\207" [cmpl semantic-complete-do-completion nil t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (complete 11 done 16)) semantic-complete-inline-force-display semantic-complete-inline-done] 4 (#$ . 16660) nil])
#@39 Focus forwards through the displayer.
(defalias 'semantic-complete-inline-down #[nil "\302 !\210\303 !)\207" [semantic-completion-display-engine displayer semantic-displayer-focus-next semantic-displayer-focus-request] 2 (#$ . 17049) nil])
#@40 Focus backwards through the displayer.
(defalias 'semantic-complete-inline-up #[nil "\302 !\210\303 !)\207" [semantic-completion-display-engine displayer semantic-displayer-focus-previous semantic-displayer-focus-request] 2 (#$ . 17297) 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 displayer 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 displayer knows how to shift focus among possible completions.
Let it do that.
displayend -> Whatever options the displayer 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-displayer-next-action done] 4 (#$ . 17549)])
#@43 List of collectors active in this buffer.
(defvar semantic-collector-per-buffer-list nil (#$ . 18828))
(make-variable-buffer-local 'semantic-collector-per-buffer-list)
#@48 List of global collectors active this session.
(defvar semantic-collector-list nil (#$ . 19002))
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semantic-collector-abstract-p eieio-make-class-predicate semantic-collector-abstract semantic-collector-abstract--eieio-childp eieio-make-child-predicate semantic-collector-abstract-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-abstract) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal 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.")) (:documentation "Root class for completion engines.\nThe baseclass provides basic functionality for interacting with\na completion displayer object, and tracking the current progress\nof a completion." :abstract t)] 6)
#@71 You cannot create a new object of type `semantic-collector-abstract'.
(defalias 'semantic-collector-abstract #[(&rest _) "\300\301!\207" [error "Class semantic-collector-abstract is abstract"] 2 (#$ . 21165)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semantic-collector-analyze-completions-p eieio-make-class-predicate semantic-collector-analyze-completions semantic-collector-analyze-completions--eieio-childp eieio-make-child-predicate semantic-collector-analyze-completions-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-analyze-completions) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "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.")] 6)
#@77 Create a new object of class type `semantic-collector-analyze-completions'.
(defalias 'semantic-collector-analyze-completions #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-collector-analyze-completions] 4 (#$ . 22511)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-collector-analyze-completions compiler-macro semantic-collector-analyze-completions--anon-cmacro] 4)
(defalias 'semantic-collector-analyze-completions--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\301\302\321\302\322%\210\300\323\302\324\302\325%\210\300\326\302\327\302\330%\210\300\331\302\332\302\333%\210\300\334\302\335\302\336%\210\300\337\302\340\302\341%\210\300\342\302\343\302\344%\210\300\345\302\346\302\347%\210\300\350\302\351\302\352%\210\300\353\302\354\302\355%\210\356\357\360\361!\"\210\356\362\363\361!\"\210\356\364\362\"\210\365\364\366\367#\210\370\361\371\362#\372\361\373\302\374$\207" [cl-generic-define-method semantic-collector-calculate-completions-raw nil ((obj semantic-collector-analyze-completions) prefix completionlist) #[(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 "calculate the completions for prefix from completionlist."] semantic-collector-cleanup ((obj semantic-collector-abstract)) #[(obj) "\300\207" [nil] 1 "Clean up any mess this collector may have."] semantic-collector-next-action ((obj semantic-collector-abstract) partial) #[(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 "What should we do next? OBJ can be used to determine the next action.\nPARTIAL indicates if we are doing a partial completion."] semantic-collector-last-prefix= ((obj semantic-collector-abstract) last-prefix) #[(obj last-prefix) "\302\301\"\205
\303\301\" \230\207" [obj last-prefix slot-boundp eieio-oref] 3 "Return non-nil if OBJ's prefix matches PREFIX."] semantic-collector-get-cache ((obj semantic-collector-abstract)) #[(obj) "\301\302\"\206\n \303!\207" [obj eieio-oref cache semantic-collector-calculate-cache] 3 "Get the raw cache of tags for completion.\nCalculate the cache if there isn't one."] ((obj semantic-collector-abstract) prefix completionlist) #[(obj prefix completionlist) "\204 \306 \307\"\206 \310 !r\306 \311\"q\210\n) G \312\313!!\314 \211 \203N \315 \316\314@\211 @)\316\f&\317=\203E @
BA\211\204(
\237+
\205]
BC*\207" [completionlist obj semanticdb-current-table prefix l result eieio-oref cache semantic-collector-calculate-cache buffer semantic-something-to-tag-table semanticdb-strip-find-results nil compare-strings 0 t tags tag semantic-case-fold table] 10 "Calculate the completions for prefix from completionlist.\nOutput must be in semanticdb Find result format."] semantic-collector-calculate-completions ((obj semantic-collector-abstract) prefix partial) #[(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 "Calculate completions for prefix as setup for other queries."] semantic-collector-try-completion-whitespace ((obj semantic-collector-abstract) prefix) #[(obj prefix) "\306 \"\307 \310Q\311 \n\" \312\f! \f\205h \313 GT \314\f\"
W\203K @\211 @)GW\203K T\314\f\"\202& \205g \242\205g \315\316\317@\211 @)\313##+,\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 substring idx cutlen twws tag] 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."] semantic-collector-current-exact-match ((obj semantic-collector-abstract)) #[(obj) "\301\302\"\205 \303\302\"\207" [obj slot-boundp current-exact-match eieio-oref] 3 "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-current-whitespace-completion ((obj semantic-collector-abstract)) #[(obj) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-whitespace-completion eieio-oref] 3 "Return the active whitespace completion value."] semantic-collector-get-match ((obj semantic-collector-abstract)) #[(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 ((obj semantic-collector-abstract) prefix) #[(obj prefix) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-all-completions eieio-oref] 3 "For OBJ, retrieve all completions matching PREFIX.\nThe returned list consists of all the tags currently\nmatching PREFIX."] semantic-collector-try-completion ((obj semantic-collector-abstract) prefix) #[(obj prefix) "\301\302\"\205 \303\302\"\207" [obj slot-boundp last-completion eieio-oref] 3 "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."] semantic-collector-calculate-cache ((obj semantic-collector-abstract)) #[(obj) "\300\207" [nil] 1 "Calculate the completion cache for OBJ."] semantic-collector-flush ((this semantic-collector-abstract)) #[(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 "Flush THIS collector object, clearing any caches and prefix."] defalias semantic-collector-buffer-abstract-p eieio-make-class-predicate semantic-collector-buffer-abstract semantic-collector-buffer-abstract--eieio-childp eieio-make-child-predicate semantic-collector-buffer-abstract-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-buffer-abstract) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-collector-abstract) (:documentation "Root class for per-buffer completion engines.\nThese collectors track themselves on a per-buffer basis." :abstract t)] 6)
#@78 You cannot create a new object of type `semantic-collector-buffer-abstract'.
(defalias 'semantic-collector-buffer-abstract #[(&rest _) "\300\301!\207" [error "Class semantic-collector-buffer-abstract is abstract"] 2 (#$ . 31269)])
(cl-generic-define-method 'make-instance nil '((this (subclass semantic-collector-buffer-abstract)) &rest args) t #[(#1=#:cl--cnm this &rest args) "\306 \203 \n\204 \307 @! =\203 @\202 \n\204/ \f \211 \235\204,
B
)\310\n\311\"\210\310\n\312\"\210\310\n\313\"\210\n*\207" [semantic-collector-per-buffer-list bl old this #1# new nil eieio-object-class slot-makeunbound last-completion last-prefix current-exact-match] 4 "Reuse previously created objects of this type in buffer.\n\n(fn THIS &rest ARGS)"])
#@86 Flush all buffer collector objects.
NEWCACHE is the new tag table, but we ignore it.
(defalias 'semantic-collector-buffer-flush #[(newcache) "\3021 \211\205 @\203 \303 @!\210 A\211\204\n \304)0\207\210\304\207" [semantic-collector-per-buffer-list l (error) semantic-collector-flush nil] 3 (#$ . 32023)])
(byte-code "\300\301\302\"\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [add-hook semantic-after-toplevel-cache-change-hook semantic-collector-buffer-flush defalias semantic-collector-buffer-deep-p eieio-make-class-predicate semantic-collector-buffer-deep semantic-collector-buffer-deep--eieio-childp eieio-make-child-predicate semantic-collector-buffer-deep-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-buffer-deep) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-collector-buffer-abstract) nil (:documentation "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.")] 6)
#@69 Create a new object of class type `semantic-collector-buffer-deep'.
(defalias 'semantic-collector-buffer-deep #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-collector-buffer-deep] 4 (#$ . 33164)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-collector-buffer-deep compiler-macro semantic-collector-buffer-deep--anon-cmacro] 4)
(defalias 'semantic-collector-buffer-deep--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [cl-generic-define-method semantic-collector-calculate-cache nil ((obj semantic-collector-buffer-deep)) #[(obj) "\302\303 \304\305\306\"!BC#\207" [obj semanticdb-current-table eieio-oset cache semantic-flatten-tags-table eieio-oref buffer] 8 "Calculate the completion cache for OBJ.\nUses `semantic-flatten-tags-table'."] defalias semantic-collector-project-abstract-p eieio-make-class-predicate semantic-collector-project-abstract semantic-collector-project-abstract--eieio-childp eieio-make-child-predicate semantic-collector-project-abstract-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-project-abstract) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "Root class for project wide completion engines.\nUses semanticdb for searching all tags in the current project." :abstract t)] 6)
#@79 You cannot create a new object of type `semantic-collector-project-abstract'.
(defalias 'semantic-collector-project-abstract #[(&rest _) "\300\301!\207" [error "Class semantic-collector-project-abstract is abstract"] 2 (#$ . 35021)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semantic-collector-project-p eieio-make-class-predicate semantic-collector-project semantic-collector-project--eieio-childp eieio-make-child-predicate semantic-collector-project-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-collector-project-abstract) nil (:documentation "Completion engine for tags in a project.")] 6)
#@65 Create a new object of class type `semantic-collector-project'.
(defalias 'semantic-collector-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-collector-project] 4 (#$ . 35849)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-collector-project compiler-macro semantic-collector-project--anon-cmacro] 4)
(defalias 'semantic-collector-project--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\302\323$\207" [cl-generic-define-method semantic-collector-calculate-completions-raw nil ((obj semantic-collector-project) prefix completionlist) #[(obj prefix completionlist) "\302\303 \304\"\"\207" [prefix obj semanticdb-find-tags-for-completion eieio-oref path] 5 "Calculate the completions for prefix from completionlist."] defalias semantic-collector-project-brutish-p eieio-make-class-predicate semantic-collector-project-brutish semantic-collector-project-brutish--eieio-childp eieio-make-child-predicate semantic-collector-project-brutish-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-project-brutish) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-collector-project-abstract) (:documentation "Completion engine for tags in a project.")] 6)
#@73 Create a new object of class type `semantic-collector-project-brutish'.
(defalias 'semantic-collector-project-brutish #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-collector-project-brutish] 4 (#$ . 37399)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-collector-project-brutish compiler-macro semantic-collector-project-brutish--anon-cmacro] 4)
(defalias 'semantic-collector-project-brutish--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [cl-generic-define-method semantic-collector-calculate-completions-raw nil ((obj semantic-collector-project-brutish) prefix completionlist) #[(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."] defalias semantic-collector-local-members-p eieio-make-class-predicate semantic-collector-local-members semantic-collector-local-members--eieio-childp eieio-make-child-predicate semantic-collector-local-members-child-p make-obsolete "use (cl-typep ... \\='semantic-collector-local-members) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-collector-project-abstract) ((scope :initform nil :type (or null semantic-scope-cache) :documentation "The scope the local members are being completed from.")) (:documentation "Completion engine for tags in a project.")] 6)
#@71 Create a new object of class type `semantic-collector-local-members'.
(defalias 'semantic-collector-local-members #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-collector-local-members] 4 (#$ . 39176)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-collector-local-members compiler-macro semantic-collector-local-members--anon-cmacro] 4)
(defalias 'semantic-collector-local-members--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\302\322\323$\207" [cl-generic-define-method semantic-collector-calculate-completions-raw nil ((obj semantic-collector-local-members) prefix completionlist) #[(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."] defalias semantic-displayer-abstract-p eieio-make-class-predicate semantic-displayer-abstract semantic-displayer-abstract--eieio-childp eieio-make-child-predicate semantic-displayer-abstract-child-p make-obsolete "use (cl-typep ... \\='semantic-displayer-abstract) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((table :type (or null semanticdb-find-result-with-nil) :initform nil :protection :protected :documentation "List of tags this displayer is showing.") (last-prefix :type string :protection :protected :documentation "Prefix associated with slot `table'.")) (:documentation "Abstract displayer baseclass.\nManages the display of some number of tags.\nProvides the basics for a displayer, including interacting with\na collector, and tracking tables of completion to display." :abstract t)] 6)
#@71 You cannot create a new object of type `semantic-displayer-abstract'.
(defalias 'semantic-displayer-abstract #[(&rest _) "\300\301!\207" [error "Class semantic-displayer-abstract is abstract"] 2 (#$ . 41373)])
(byte-code "\301\302\303\304#\210\305\302\303\306#\210\307\303\304\310\304\311%\210\301\312\313\304#\210\305\312\313\306#\210\307\313\304\314\304\315%\210\301\316\317\304#\210\305\316\317\306#\210\307\317\304\320\304\321%\210\301\322\323\304#\210\305\322\323\306#\210\307\323\304\324\304\325%\210\301\326\327\304#\210\305\326\327\306#\210\307\327\304\330\304\331%\210\301\332\333\304#\210\305\332\333\306#\210\307\333\304\334\304\335%\210\301\336\337\304#\210\305\336\337\306#\210\307\337\304\340\304\341%\210\301\342\343\304#\210\305\342\343\306#\210\307\343\304\344\304\345%\210\301\346\347\304#\210\305\346\347\306#\210\307\347\304\350\304\351%\210\352\353\354\355\356\357\360&\210\301\361\362\363!\"\210\301\364\365\363!\"\210\301\366\364\"\210\305\366\367\370#\210\371\363\372\364#\373\363\374\304\375$\207" [semantic-format-tag-custom-list defalias semantic-displayor-cleanup semantic-displayer-cleanup nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-abstract)) #[(obj) "\300\207" [nil] 1 "Clean up any mess this displayer may have."] semantic-displayor-next-action semantic-displayer-next-action ((obj semantic-displayer-abstract)) #[(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 "The next action to take on the minibuffer related to display."] semantic-displayor-set-completions semantic-displayer-set-completions ((obj semantic-displayer-abstract) table prefix) #[(obj table prefix) "\303\301 #\210\303\304\n#\207" [obj table prefix eieio-oset last-prefix] 4 "Set the list of tags to be completed over to TABLE."] semantic-displayor-show-request semantic-displayer-show-request ((obj semantic-displayer-abstract)) #[(obj) "\300 \207" [ding] 1 "A request to show the current tags table."] semantic-displayor-focus-request semantic-displayer-focus-request ((obj semantic-displayer-abstract)) #[(obj) "\300 \207" [ding] 1 "A request to for the displayer to focus on some tag option."] semantic-displayor-scroll-request semantic-displayer-scroll-request ((obj semantic-displayer-abstract)) #[(obj) "\300 \207" [scroll-other-window] 1 "A request to for the displayer to scroll the completion list (if needed)."] semantic-displayor-focus-previous semantic-displayer-focus-previous ((obj semantic-displayer-abstract)) #[(obj) "\300\207" [nil] 1 "Set the current focus to the previous item."] semantic-displayor-focus-next semantic-displayer-focus-next ((obj semantic-displayer-abstract)) #[(obj) "\300\207" [nil] 1 "Set the current focus to the next item."] semantic-displayor-current-focus semantic-displayer-current-focus ((obj semantic-displayer-abstract)) #[(obj) "\300\207" [nil] 1 "Return a single tag currently in focus.\nThis object type doesn't do focus, so will never have a focus object."] custom-declare-variable semantic-completion-displayer-format-tag-function #'semantic-format-tag-name "A Tag format function to use when showing completions." :group semantic :type semantic-displayer-traditional-p eieio-make-class-predicate semantic-displayer-traditional semantic-displayer-traditional--eieio-childp eieio-make-child-predicate semantic-displayer-traditional-child-p "use (cl-typep ... \\='semantic-displayer-traditional) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-displayer-abstract) (:documentation "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.")] 8)
#@69 Create a new object of class type `semantic-displayer-traditional'.
(defalias 'semantic-displayer-traditional #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-displayer-traditional] 4 (#$ . 45296)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-displayer-traditional compiler-macro semantic-displayer-traditional--anon-cmacro] 4)
(defalias 'semantic-displayer-traditional--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\303\307\303\310%\210\300\311\312\313!\"\210\300\314\315\313!\"\210\300\316\314\"\210\304\316\317\320#\210\321\313\322\314#\323\313\324\325\326$\207" [defalias semantic-displayor-show-request semantic-displayer-show-request nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-traditional)) #[(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-displayer-format-tag-function obj] 8 "A request to show the current tags table."] semantic-displayer-focus-abstract-p eieio-make-class-predicate semantic-displayer-focus-abstract semantic-displayer-focus-abstract--eieio-childp eieio-make-child-predicate semantic-displayer-focus-abstract-child-p "use (cl-typep ... \\='semantic-displayer-focus-abstract) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-displayer-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.")) (:documentation "Abstract displayer supporting `focus'.\nA displayer 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)] 6)
#@77 You cannot create a new object of type `semantic-displayer-focus-abstract'.
(defalias 'semantic-displayer-focus-abstract #[(&rest _) "\300\301!\207" [error "Class semantic-displayer-focus-abstract is abstract"] 2 (#$ . 47830)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\303\307\303\310%\210\300\311\312\303#\210\304\311\312\305#\210\306\312\303\313\314\315%\210\300\316\317\303#\210\304\316\317\305#\210\306\317\303\320\303\321%\210\300\322\323\303#\210\304\322\323\305#\210\306\323\303\324\303\325%\210\300\326\327\303#\210\304\326\327\305#\210\306\327\303\330\303\331%\210\300\332\333\303#\210\304\332\333\305#\210\306\333\303\334\314\335%\210\300\336\337\340!\"\210\300\341\342\340!\"\210\300\343\341\"\210\304\343\344\345#\210\346\340\347\341#\350\340\351\352\353$\207" [defalias semantic-displayor-next-action semantic-displayer-next-action nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-focus-abstract)) #[(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."] semantic-displayor-set-completions semantic-displayer-set-completions ((obj semantic-displayer-focus-abstract) table prefix) t #[(#1=#:cl--cnm obj table prefix) " \210\302 \303\"\207" [#1# obj slot-makeunbound focus] 3 "Set the list of tags to be completed over to TABLE."] semantic-displayor-focus-previous semantic-displayer-focus-previous ((obj semantic-displayer-focus-abstract)) #[(obj) "\302\303\"\2058 \304\303\"\2058 \302\305\"\203 \304\305\"\306X\203. \307\305\310\311 \303\"!S#\2027 \307\305\304\305\"S#)\207" [obj #:object slot-boundp table eieio-oref focus 0 eieio-oset semanticdb-find-result-length slot-value] 7 "Set the current focus to the previous item.\nNot meaningful return value."] semantic-displayor-focus-next semantic-displayer-focus-next ((obj semantic-displayer-focus-abstract)) #[(obj) "\302\303\"\205> \304\303\"\205> \302\305\"\204 \306\305\307#\210\202* \306\305\304\305\"T#\210\310\311 \303\"!\304\305\"X\205= \306\305\307#)\207" [obj #:object slot-boundp table eieio-oref focus eieio-oset 0 semanticdb-find-result-length slot-value] 6 "Set the current focus to the next item.\nNot meaningful return value."] semantic-displayor-focus-tag semantic-displayer-focus-tag ((obj semantic-displayer-focus-abstract)) #[(obj) "\302\303\"\205 \304\303\"\205 \305\306 \303\"\304\307\"\")\207" [obj #:object slot-boundp table eieio-oref semanticdb-find-result-nth slot-value focus] 5 "Return the next tag OBJ should focus on."] semantic-displayor-current-focus semantic-displayer-current-focus ((obj semantic-displayer-focus-abstract)) #[(#2=#:cl--cnm obj) "\302\303\"\203= \302\304\"\203= \302\305\"\203= \306 \307\305\"\230\203= \307\310\"\2031 \311\307\304\"\307\303\"\"\207\312\307\304\"\307\303\"\"@\207 \207" [obj #2# slot-boundp focus table last-prefix semantic-completion-text eieio-oref find-file-focus semanticdb-find-result-nth-in-buffer semanticdb-find-result-nth] 5 "Return the tag currently in focus, or call parent method."] semantic-displayer-traditional-with-focus-highlight-p eieio-make-class-predicate semantic-displayer-traditional-with-focus-highlight semantic-displayer-traditional-with-focus-highlight--eieio-childp eieio-make-child-predicate semantic-displayer-traditional-with-focus-highlight-child-p "use (cl-typep ... \\='semantic-displayer-traditional-with-focus-highlight) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-displayer-focus-abstract semantic-displayer-traditional) ((find-file-focus :initform t)) (:documentation "Display completions in *Completions* buffer, with focus highlight.\nA traditional displayer which can focus on a tag by showing it.\nSame as `semantic-displayer-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.")] 6)
#@90 Create a new object of class type `semantic-displayer-traditional-with-focus-highlight'.
(defalias 'semantic-displayer-traditional-with-focus-highlight #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-displayer-traditional-with-focus-highlight] 4 (#$ . 52056)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-displayer-traditional-with-focus-highlight compiler-macro semantic-displayer-traditional-with-focus-highlight--anon-cmacro] 4)
(defalias 'semantic-displayer-traditional-with-focus-highlight--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\303\307\303\310%\210\311\312\313\314\315\316\317\320\321\322& \210\311\323\324\325\315\316\317\320\321\326& \210\311\327\330\331\315\316\317\320\321\326\332\333& \210\300\334\335\336!\"\210\300\337\340\336!\"\210\300\341\337\"\210\304\341\342\343#\210\344\336\345\337#\346\336\347\350\351$\207" [defalias semantic-displayor-focus-request semantic-displayer-focus-request nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-traditional-with-focus-highlight)) #[(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 )@) .\346.-G\" /\347\331\350/\307\302\"T $!.\f\207" [obj tablelength focus rtag rtable nt semanticdb-find-result-length eieio-oref table semantic-displayer-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" eieio-object-name "In buffer: \n\n" format "%S" get-buffer-window select-window switch-to-buffer-other-window semantic-tag-with-position-p 4 overlayp overlay-start 0 semantic-momentary-highlight-tag semantic-current-tag semantic-completion-text substring semantic-completion-message "%s [%d of %d matches]" tag curwin buf o mbc ftn diff] 8 "Focus in on possible tag completions.\nFocus is performed by cycling through the tags and highlighting\none in the source buffer."] custom-declare-variable semantic-displayer-tooltip-mode 'standard "Mode for the tooltip inline completion.\n\nStandard: Show only `semantic-displayer-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-displayer-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-displayer-tooltip-max-tags'." :group semantic :version "24.3" :type (choice (const :tag "Standard" standard) (const :tag "Quiet" quiet) (const :tag "Verbose" verbose)) semantic-displayer-tooltip-initial-max-tags 5 "Maximum number of tags to be displayed initially.\nSee doc-string of `semantic-displayer-tooltip-mode' for details." integer semantic-displayer-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-displayer-tooltip-p eieio-make-class-predicate semantic-displayer-tooltip semantic-displayer-tooltip--eieio-childp eieio-make-child-predicate semantic-displayer-tooltip-child-p "use (cl-typep ... \\='semantic-displayer-tooltip) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-displayer-traditional) ((mode :initarg :mode :initform (symbol-value 'semantic-displayer-tooltip-mode) :documentation "See `semantic-displayer-tooltip-mode'.") (max-tags-initial :initarg max-tags-initial :initform (symbol-value 'semantic-displayer-tooltip-initial-max-tags) :documentation "See `semantic-displayer-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.")) (:documentation "Display completions options in a tooltip.\nDisplay mechanism using tooltip for a list of possible completions.")] 12)
#@65 Create a new object of class type `semantic-displayer-tooltip'.
(defalias 'semantic-displayer-tooltip #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-displayer-tooltip] 4 (#$ . 57254)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-displayer-tooltip compiler-macro semantic-displayer-tooltip--anon-cmacro] 4)
(defalias 'semantic-displayer-tooltip--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\304#\210\311\307\310\312#\210\300\310\304\313\314\315%\207" [cl-generic-define-method initialize-instance (:after) ((obj semantic-displayer-tooltip) &rest args) nil #[(obj &rest args) "\300\301!\207" [require tooltip] 2 "Make sure we have tooltips required.\n\n(fn OBJ &rest ARGS)"] defalias semantic-displayor-show-request semantic-displayer-show-request make-obsolete "27.1" ((obj semantic-displayer-tooltip)) t #[(#1=#:cl--cnm obj) "\306\307!\203\n \204
\207\310\311\n\304\"!\312 ! \313
\f\"\211 ,G -\311\n\314\" \f\311\n\315\"
\311\n\316\" .\317 /\320\211 0 1\321 ;\203X \321 \322\230\203X \323\n\314\311\n\314\"T#\210\202^ \323\n\314\324#\210
\325\267\202\235 \311\n\314\"\326Y\203{ \323\n\315\327#\210\327
\330\331!\210-.V\203\235 \311\n\314\"\332W\203\235 \3330\202\235 \323\n\3162#\2102.0\204'\323\n\334\335#\210-.V\203\355 .S,\233\320\241\210.3U\203\320 \336\337-.Z!\340Q1\202 \341\337-.Z!\340Q1\311\n\314\"\332Y\203 \330\342\343\"\210\202 -\344U\203/\f@\211 4@)\230\203 \3450\202 -\324U\203 \323\n\334\320#\2105\203 \34600\347\350,\351#P001P\2110\352=?\2059\3530!.\n\207" [tooltip-mode #1# obj tablelong table semantic-completion-displayer-format-tag-function featurep tooltip 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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quiet 101 verbose 146)) 5 standard message "Resetting inline-mode to `standard'." 2 "..." 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" "[NO MATCH]" mapconcat identity "\n" "" semantic-displayer-tooltip-show completions numcompl max-tags matchtxt msg msg-tail semantic-displayer-tooltip-max-tags semantic-displayer-tooltip-initial-max-tags tag semantic-idle-scheduler-verbose-flag] 7 "A request to show the current tags table."]] 6)
#@95 Return the location of POINT as positioned on the selected frame.
Return a cons cell (X . Y).
(defalias 'semantic-displayer-point-position #[nil "\306 \307\310 \"A\303=\203 \311 \202 \312\313\303\"\243\242\206! \313\303\"\n\\\313\304\"\243\242\2061 \313\304\" \314 \3158\262 \316\317 ! \320
@@ #\320
AA@\f#.B\207" [frame default-frame-alist toolbarleft left top point-pix-pos selected-frame assoc tool-bar-position tool-bar-pixel-width 0 frame-parameter posn-at-point 2 window-inside-pixel-edges selected-window + edges] 5 (#$ . 59961)])
#@42 Display a tooltip with TEXT near cursor.
(defalias 'semantic-displayer-tooltip-show #[(text) "\303 \304\305\"\306 @\307 \\BB\310 A\311 \\BB\312\n!*\207" [tooltip-frame-parameters point-pix-pos text semantic-displayer-point-position append nil left frame-char-width top frame-char-height tooltip-show] 4 (#$ . 60522)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\303\307\303\310%\210\300\311\312\313!\"\210\300\314\315\313!\"\210\300\316\314\"\210\304\316\317\320#\210\321\313\322\314#\323\313\324\325\326$\207" [defalias semantic-displayor-scroll-request semantic-displayer-scroll-request nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-tooltip)) #[(obj) "\301\302\303#\210\304!\207" [obj eieio-oset max-tags-initial 30 semantic-displayer-show-request] 4 "A request to for the displayer to scroll the completion list (if needed)."] semantic-displayer-ghost-p eieio-make-class-predicate semantic-displayer-ghost semantic-displayer-ghost--eieio-childp eieio-make-child-predicate semantic-displayer-ghost-child-p "use (cl-typep ... \\='semantic-displayer-ghost) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semantic-displayer-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.")) (:documentation "Cycle completions inline with ghost text.\nCompletion displayer using ghost chars after point for focus options.\nWhichever completion is currently in focus will be displayed as ghost\ntext using overlay options.")] 6)
#@63 Create a new object of class type `semantic-displayer-ghost'.
(defalias 'semantic-displayer-ghost #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-displayer-ghost] 4 (#$ . 62180)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-displayer-ghost compiler-macro semantic-displayer-ghost--anon-cmacro] 4)
(defalias 'semantic-displayer-ghost--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\303\307\310\311%\210\300\312\313\303#\210\304\312\313\305#\210\306\313\303\314\303\315%\210\300\316\317\303#\210\304\316\317\305#\210\306\317\303\320\310\321%\210\300\322\323\303#\210\304\322\323\305#\210\306\323\303\324\303\325%\210\300\326\327\303#\210\304\326\327\305#\210\306\327\303\330\303\331%\207" [defalias semantic-displayor-next-action semantic-displayer-next-action nil make-obsolete "27.1" cl-generic-define-method ((obj semantic-displayer-ghost)) t #[(#1=#:cl--cnm obj) " \304 \302\"\205
\305 \302\"\211\306=\205 \n\205 \307\n!\310U?\205# *\207" [#1# obj table ans slot-boundp eieio-oref displayend semanticdb-find-result-length 1] 5 "The next action to take on the inline completion related to display."] semantic-displayor-cleanup semantic-displayer-cleanup ((obj semantic-displayer-ghost)) #[(obj) "\301\302\"\205
\303\304\302\"!\207" [obj slot-boundp ghostoverlay delete-overlay eieio-oref] 4 "Clean up any mess this displayer may have."] semantic-displayor-set-completions semantic-displayer-set-completions ((obj semantic-displayer-ghost) table prefix) #[(#2=#:cl--cnm obj table prefix) " \210\302 !\207" [#2# obj semantic-displayer-cleanup] 2 "Set the list of tags to be completed over to TABLE."] semantic-displayor-show-request semantic-displayer-show-request ((obj semantic-displayer-ghost)) #[(obj) "\301!\210\302!\207" [obj semantic-displayer-focus-next semantic-displayer-focus-request] 2 "A request to show the current tags table."] semantic-displayor-focus-request semantic-displayer-focus-request ((obj semantic-displayer-ghost)) #[(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 \323 \211@)\fG\" \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-displayer-focus-tag semantic-completion-message "No tags to focus on." slot-boundp ghostoverlay overlay-buffer eieio-oset make-overlay t semantic-completion-text substring put-text-property 0 face region overlay-put display bold format "%s [%d of %d matches]" ol mbc ftn] 9 "Focus in on possible tag completions.\nFocus is performed by cycling through the tags and showing a possible\ncompletion text in ghost text."]] 6)
#@87 Possible options for inline completion displayers.
Use this to enable custom editing.
(defvar semantic-complete-inline-custom-type (byte-code "\300\301\302\303\304\305\306\"\"\"\207" [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 semantic-displayer-abstract t] 7) (#$ . 65198))
#@52 Class for displayer to use with inline completion.
(custom-declare-variable 'semantic-complete-inline-analyzer-displayer-class ''semantic-displayer-traditional '(#$ . 65649) :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 \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-buffer-deep :buffer semantic-displayer-traditional-with-focus-highlight] 7 (#$ . 65891)])
#@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 \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-local-members :buffer semantic-displayer-traditional-with-focus-highlight] 7 (#$ . 66674)])
#@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 \n &\207" [prompt default-tag initial-input history semantic-complete-read-tag-engine semantic-collector-project-brutish :buffer :path semantic-displayer-traditional-with-focus-highlight] 7 (#$ . 67450)])
#@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-displayer-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\307p\310p$\311 \211@\312 8@\312 8A \313\n! A@
A\242 \314 \205y \315\230\2039 \205y \316\314#\210\317\320\"!\321!\211G\322U\203h @\211 @)\211 \230)\203p G\322V\205y \323 p \f%. \207" [collector sbounds syms start end rsym semantic-collector-project-brutish :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 thissym nextsym complst tag compname semantic-complete-inline-analyzer-displayer-class] 7 (#$ . 68250)])
#@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 r\313\314\"q\210\313\317\"Ab\210 \320\321 \322# \203? \322\202@ \323Q)\324\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-displayer-traditional-with-focus-highlight bounds mapconcat identity "." "" nil] 8 (#$ . 69371)])
#@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-displayer-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\n!\211@ A\242 \320 \f\205\202 \f\321\230\203:
\205\202 \322 \f\320#\210\323\324 \f\"!\325!\211G\326U\203f @\211 @)\211 \f\230)\203n G\326V\205\202 \327 \313\314\"\313\330\"@\313\330\"A%.\207" [context collector syms rsym thissym nextsym semantic-analyze-current-context error "Nothing to complete on here" semantic-collector-analyze-completions :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 bounds complst tag compname semantic-complete-inline-analyzer-displayer-class] 9 (#$ . 70539)])
#@65 Class for displayer to use with inline completion at idle time.
(custom-declare-variable 'semantic-complete-inline-analyzer-idle-displayer-class ''semantic-displayer-ghost '(#$ . 71856) :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-displayer-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-displayer-class semantic-complete-inline-analyzer-displayer-class context semantic-complete-inline-analyzer] 2 (#$ . 72110)])
#@34 Jump to a local semantic symbol.
(defalias 'semantic-complete-jump-local #[nil "\204 \303\304!\210\305\306!\211\30719 :\2055 @;\2055 A@9\2055 A@\2055 \310 8<\2055 \311 8<0\202; \210\312)\205x \313 \210\314\315!\203K \315 \210 \211\316 8)\317\n!\203` \320\n!\202c \n\321H*b\210\322 !\210\323\324 \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: " (error) 2 3 nil push-mark fboundp xref-push-marker-stack 4 overlayp overlay-start 0 semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 72810) nil])
#@28 Jump to a semantic symbol.
(defalias 'semantic-complete-jump #[nil "\204 \302\303!\210\304\305!\211\30619 :\2055 @;\2055 A@9\2055 A@\2055 \307 8<\2055 \310 8<0\202; \210\311)\205e \312 \210\313\314!\203K \314 \210\315 !\210\316p!\210\317 !\210\320\321 \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: " (error) 2 3 nil push-mark fboundp xref-push-marker-stack semantic-go-to-tag pop-to-buffer-same-window semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 73443) nil])
#@28 Jump to a semantic symbol.
(defalias 'semantic-complete-jump-local-members #[nil "\204 \304\305!\210\306\307!\211\31019 :\2055 @;\2055 A@9\2055 A@\2055 \311 8<\2055 \312 8<0\202; \210\313)\205\220 \3141` \211\315 8)\316\n!\203X \317\n!\202[ \n\320H*0\202b \210\313\211\204n \304\321\322 !\"\210\323 \210\324\325!\203z \325 \210 b\210\326 !\210\327\330 \211A@) \211@)#))\207" [semantic-new-buffer-fcn-was-run tag o start error "Buffer was not parsed by Semantic." semantic-complete-read-tag-local-members "Jump to symbol: " (error) 2 3 nil (error) 4 overlayp overlay-start 0 "Tag %s has no location" semantic-format-tag-prototype push-mark fboundp xref-push-marker-stack semantic-momentary-highlight-tag message "%S: %s "] 5 (#$ . 74042) 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 (#$ . 74807) 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-displayer-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 (#$ . 75381) 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-displayer-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 (#$ . 76080) 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) "\304 \210\305!\210\306 \307\216\212\310\311 \31029 \312 \210 \2037 \313 \2042 r\314\n!q\210\212\nb\210\315 *\2037 \316 \310\"\210\3170*?\205r \320U\205r \310\311 \3102p \321 \210 \203n \313 \204i r\314\n!q\210\212\nb\210\315 *\203n \316 \310\"\210\3170*?+\205\200 \3221~ \323 0\207\210\317\207" [arg #1=#:wconfig semantic--on-input-start-marker semantic-current-input-throw-symbol semantic-complete-inline-exit self-insert-command current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] csi point-marker semantic-fetch-tags input-pending-p marker-buffer accept-process-output throw nil 1 semantic-analyze-current-context (error) semantic-complete-analyze-inline] 3 (#$ . 76765) "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 (#$ . 77707) nil])
(provide 'semantic/complete)
Mini Shell