ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/ia.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312
\"\n\203U \f\204U \n\313N\203D \312
\n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312
\"\n\203\315 \f\204\315 \n\313N\203\274 \312
\n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\360 !\202\364 \317!)\207" [overload property mode symbol bind name semantic-ia-insert-tag nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-ia-insert-tag-default mode-local-active-mode major-mode #1=#:override tag] 5 (#$ . 831)])
(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 (#$ . 1799)])
(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 (#$ . 2194)])
#@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 (#$ . 2566) "d"])
#@64 *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 '(#$ . -4065) :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 (#$ . 4323) "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 (#$ . 5146) "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 (#$ . 5656) "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 \211 A@) *=\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+\211 0 1\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 (#$ . 6015) "P"])
#@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 push-tag-mark semantic-go-to-tag switch-to-buffer pulse-momentary-highlight-one-line] 5 (#$ . 7354)])
#@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 \211 A@)!*=\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 push-tag-mark semantic-decoration-include-visit error "Could not find suitable jump point for %s" secondclass class] 6 (#$ . 8062) "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 (#$ . 9323) "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 (#$ . 9645) "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 (#$ . 10860) "sType Name: "])
(provide 'semantic/ia)
Kontol Shell Bypass