;ELC ;;; Compiled ;;; in Emacs version 27.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 "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\311\312\313\314\315&\207" [semantic-format-tag-custom-list require semantic/analyze semantic/format pulse semantic/senator semantic/analyze/refs custom-declare-variable semantic-ia-completion-format-tag-function 'semantic-format-tag-prototype "Function used to convert a tag to a string during completion." :group semantic :type] 8) #@57 Insert TAG into the current buffer based on completion. (defalias 'semantic-ia-insert-tag #[(tag) "\305\211\306\307\310!\306\204\"\211\262\204\" \262\n\205 \311\n\"\262\203M\211\204M\302N\203<\311\302N\"\211\262\204\"\211\312N\206F\211\313N\262\262\202\"\266\203\211\262\205a\211\203_N\205aJ\266\203\206\326\211\211\314N\262\205\326\211\211\314N\262\306\307\310!\306\204\225\211\262\204\225 \262\n\205\223\311\n\"\262\203\300\211\204\300\302N\203\257\311\302N\"\211\262\204\225\211\312N\206\271\211\313N\262\262\202\225\266\203\211\262\205\324\211\203\322N\205\324J\266\203\262\211\203\343 \f!\202\346\315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-ia-insert-tag nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-ia-insert-tag-default] 13 (#$ . 829)]) (put 'semantic-ia-insert-tag 'mode-local-overload t) #@57 Insert TAG into the current buffer based on completion. (defalias 'semantic-ia-insert-tag-default #[(tag) "\211@)c\210\211A@)\211\302=\203\303c\202\304)\207" [tag tt function "(" nil] 3 (#$ . 1835)]) (defalias 'semantic-ia-get-completions 'semantic-ia-get-completions-deprecated "`Semantic-ia-get-completions' is obsolete.\nUse `semantic-analyze-possible-completions' instead.") #@221 A function to help transition away from `semantic-ia-get-completions'. Return completions based on CONTEXT at POINT. You should not use this, nor the aliased version. Use `semantic-analyze-possible-completions' instead. (defalias 'semantic-ia-get-completions-deprecated #[(context point) "\301!\207" [context semantic-analyze-possible-completions] 2 (#$ . 2230)]) #@150 Complete the current symbol at POS. If POS is nil, default to point. Completion options are calculated with `semantic-analyze-possible-completions'. (defalias 'semantic-ia-complete-symbol #[(&optional pos) "\205  \204\n`\306 !\307\n!\310\311\n\312\"!@\211\3131G :\205C @;\205C A@9\205C A@\205C\314 8<\205C\315 8<0\202I\210\316)\203S\f\211@) \204b\317\n!\205\n\320 \202\n\f\227\f\230 \321\f\206n\322 \"\211!;\203\277!\f\206~\322\230\204\277\323! \"\"\311\n\324\"@\203\254\311\n\324\"A\203\254\311\n\324\"@\311\n\324\"A|\210\311\n\324\"@b\210\"\203\270\325\"!\202\273!c)\202 \311\n\324\"A\203\316\311\n\324\"Ab\210#$r\326\327!q\210p\330 \210$#\316\211%&\331\211'\331()\332 \210\333\334!\210+\211*+\335\336, \"!\337*!\210+*+\207" [semantic-new-buffer-fcn-was-run pos a syms pre tag semantic-analyze-current-context semantic-analyze-possible-completions reverse eieio-oref prefix (error) 2 3 nil semantic-analyze-context-p semantic-complete-symbol try-completion "" semantic-find-first-tag-by-name bounds semantic-ia-insert-tag get-buffer-create "*Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list mapcar internal-temp-output-buffer-show completion-ignore-case tc tok default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output semantic-ia-completion-format-tag-function] 5 (#$ . 2602) "d"]) #@63 Function used to convert a tag to a string during completion. (custom-declare-variable 'semantic-ia-completion-menu-format-tag-function ''semantic-format-tag-uml-concise-prototype '(#$ . 4101) :group 'semantic :type semantic-format-tag-custom-list) #@136 Complete the current symbol via a menu based at POINT. Completion options are calculated with `semantic-analyze-possible-completions'. (defalias 'semantic-ia-complete-symbol-menu #[(point) "\306\307!\210\310!\311 !\211\204\312\313!\202r\314\315\n\"\316\317 B\320\321 D\322#\211\205q\f\3231W :\205S @;\205S A@9\205S A@\205S\324 8<\205S\325 8<0\202Y\210\317)\204b\fA\326H\327 \330\"@\327 \330\"A|\210\331\f!**\207" [point a syms menu ans tag require imenu semantic-analyze-current-context semantic-analyze-possible-completions message "No smart completions found." mapcar #[(tag) " !\302 !B\207" [semantic-ia-completion-menu-format-tag-function tag vector] 3] imenu--mouse-menu nil down-mouse-1 posn-at-point "Completions" (error) 2 3 0 eieio-oref bounds semantic-ia-insert-tag] 5 (#$ . 4357) "d"]) #@43 Pop up a tooltip for completion at POINT. (defalias 'semantic-ia-complete-tip #[(point) "\306!\307 !\310i\311 Z\312 \"\212\214~\210\313 `}\210eb\210\314\315 !T*\316\317\n\320#\321\322!\203=\322 \323 \324\211 \f&\202@\325 !-\207" [point a syms x y str semantic-analyze-current-context semantic-analyze-possible-completions mod window-hscroll window-width window-start vertical-motion buffer-size mapconcat semantic-tag-name "\n" fboundp x-show-tip selected-frame nil message] 7 (#$ . 5180) "d"]) #@47 Display a summary for the symbol under POINT. (defalias 'semantic-ia-show-summary #[(point) "\303!\211\205 \304 !\211\203\305\306\307\n\310\311#\"\202\305\312!*\207" [point ctxt pf semantic-analyze-current-context semantic-analyze-interesting-tag message "%s" semantic-format-tag-summarize nil t "No summary info available"] 7 (#$ . 5690) "P"]) #@60 Display a list of all variants for the symbol under POINT. (defalias 'semantic-ia-show-variants #[(point) "\306!\307\310 !\203\311 \312\"Ab\210\306`!\313 \314\315#\211G\316U\203}\n@\317\211\211A@) *=\203} %\320\n@\211\321&\322\f\323\f8)&\"+!\307'\211(\203x\n@\211@)(@\211@)\230\203o(@'B'(A\211(\204V'\237+\nG\324U\203\212\325\326!\202\334\nG\316U\203\235\325\327\330\n@\307\331#\"\202\334)*r\332\333!q\210p\334 \210*)\307\211+,\331\211-\331./\335 \210\336\337!\210+\21101\340\n\341p#\210\3420!\210+\343\344\333!!*\207" [point ctxt comp class tag semantic-case-fold semantic-analyze-current-context nil semantic-analyze-context-functionarg-p eieio-oref bounds semantic-analyze-possible-completions no-unique no-tc 1 type semantic-something-to-tag-table :members plist-get 2 0 message "No Variants found." "%s" semantic-format-tag-summarize t get-buffer-create "*Symbol Variants*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook semantic-analyze-princ-sequence "" internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window case-fold-search attribute result tags default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 7 (#$ . 6049) "d"]) #@92 Jump to DEST, a Semantic tag. This helper manages the mark, buffer switching, and pulsing. (defalias 'semantic-ia--fast-jump-helper #[(dest) "\305!\203\306!\307 \310\"\211\203\n@*\311!\204.\312\313\f\314\f8) \"*\2034\315!\204;\316\317\320!\"\210\321 \210\322\323!\203G\323 \210\324!\210\325p!\210\326`!\207" [dest refs impl attribute tag semantic-tag-prototype-p semantic-analyze-tag-references semantic-analyze-refs-impl t semantic-tag-with-position-p :line plist-get 2 semantic-tag-file-name error "Tag %s has no buffer information" semantic-format-tag-name push-mark fboundp xref-push-marker-stack semantic-go-to-tag pop-to-buffer-same-window pulse-momentary-highlight-one-line] 5 (#$ . 7388)]) #@151 Jump to the tag referred to by the code at POINT. Uses `semantic-analyze-current-context' output to identify an accurate origin of the code at point. (defalias 'semantic-ia-fast-jump #[(point) "\306!\211\205\307\310 \311\"!\211@\nA@ \3121C :\205? @;\205? A@9\205? A@\205?\313 8<\205?\314 8<0\202E\210\315)\203O\316 !\202\f\3171| :\205x @;\205x A@9\205x A@\205x\313 8<\205x\314 8<0\202~\210\315)\203\360\307\310 \320\"!@ \321 !\203\250\322\323\324  \211@)#!\203\250\316 !\202\354\f\3251\325 :\205\321 @;\205\321 A@9\205\321 A@\205\321\313 8<\205\321\314 8<0\202\327\210\315)\205\354\322\323\324 \f\211@)#!\205\354\316\f!)\202\326 \327!\211\211A@)!*=\203\330\331!\210\332 \210\333\334!\203\334 \210\335 \202\336\337 \",\207" [point ctxt pf first second tag semantic-analyze-current-context reverse eieio-oref prefix (error) 2 3 nil semantic-ia--fast-jump-helper (error) prefixtypes semantic-tag-with-position-p y-or-n-p format-message "Could not find `%s'. Jump to %s? " (error) semantic-current-tag include require semantic/decorate/include push-mark fboundp xref-push-marker-stack semantic-decoration-include-visit error "Could not find suitable jump point for %s" secondclass class] 6 (#$ . 8114) "d"]) #@164 Jump to the tag referred to by the point clicked on. See `semantic-ia-fast-jump' for details on how it works. This command is meant to be bound to a mouse event. (defalias 'semantic-ia-fast-mouse-jump #[(evt) "\301\212\302\303!!\210`)!\207" [evt semantic-ia-fast-jump posn-set-point event-end] 4 (#$ . 9384) "e"]) #@63 Display the code-level documentation for the symbol at POINT. (defalias 'semantic-ia-show-doc #[(point) "\306!\307\310 \311\"!\211@;\203\312\313!\202\311\n@\3141E :\205A @;\205A A@9\205A A@\205A\315 8<\205A\316 8<0\202G\210\317)\203\306\320\n@!\211\203Z\f\321\230\203d\312\322\323\n@!\"\202\302 \"r\324\325!q\210p\326 \210\"\317\211#$\327\211%\327&'\330 \210\331\332!\210+\211()\333\334!\210\333\323\n@!!\210\333\335!\210\333\335!\210\333\336!\210\333\335!\210\333\335!\210\f\203\271\333\f!\202\274\333\337!\340(!\210+)\202\311\312\341!*\207" [point ctxt pf tag doc default-directory semantic-analyze-current-context reverse eieio-oref prefix message "Incomplete symbol name." (error) 2 3 nil semantic-documentation-for-tag "" "Doc unavailable for: %s" semantic-format-tag-prototype get-buffer-create "*TAG DOCUMENTATION*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "Tag: " "\n" "Snarfed Documentation: " " Documentation unavailable." internal-temp-output-buffer-show "Unknown tag." #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 9706) "d"]) #@164 Display all known parts for the datatype TYPENAME. If the type in question is a class, all methods and other accessible parts of the parent classes are displayed. (defalias 'semantic-ia-describe-class #[(typename) "\306!\211\30711\n:\205-\n@;\205-\nA@9\205-\nA@\205-\310\n8<\205-\311\n8<0\2023\210\312)\204<\313\314 \"\210 r\315\316!q\210p\317 \210\f\312\211\320\211\320\321 \210\322\323!\210+\211 \324\325 !!\210\324\326!\210\324\327!\210\330 !\211!\205\226\324\331!\210\324\325!@!!\210\324\326!\210!A\211!\204|\312)\332!\210,\207" [typename class tag default-directory #1=#:old-dir buffer-read-only semantic-analyze-find-tag (error) 2 3 nil error "Cannot find class %s" get-buffer-create "*TAG DOCUMENTATION*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ semantic-format-tag-summarize "\n" " Type Members:\n" semantic-analyze-scoped-type-parts " " internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output parts] 4 (#$ . 10921) "sType Name: "]) (provide 'semantic/ia)