ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/doc.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'semantic/tag)
#@427 Find documentation from TAG and return it as a clean string.
TAG might have DOCUMENTATION set in it already. If not, there may be
some documentation in a comment preceding TAG's definition which we
can look for. When appropriate, this can be overridden by a language specific
enhancement.
Optional argument NOSNARF means to only return the lexical analyzer token for it.
If NOSNARF is `lex', then only return the lex token.
(defalias 'semantic-documentation-for-tag #[(&optional tag nosnarf) "\204 \306 \212\307!\203 \310!q\210\311\211\312\313\211 \314\f!\312 \204@ \211\204@ \205? \315\" \203k
\204k \316N\203Z \315 \316N\"\211\204@ \211\317N\206e \320N)\211\204D
,\211\205~ \n\203| \f\nN\205~ \fJ+\206\372 \211\321N)\205\372 \211\321N)\312\313\211 \314\f!\312 \204\273 \211\204\273 \205\272 \315\" \203\346
\204\346 \316N\203\325 \315 \316N\"\211\204\273 \211\317N\206\340 \320N)\211\204\277
,\211\205\371 \n\203\367 \f\nN\205\371 \fJ+)\211 \203\n\"\202%\212\322!\210\323p\"\211 \206$\307!\205$\324\"**\207" [tag overload property mode symbol bind semantic-current-tag semantic-tag-with-position-p semantic-tag-buffer semantic-documentation-for-tag nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-go-to-tag semantic-tag-docstring semantic-documentation-comment-preceding-tag name mode-local-active-mode major-mode #1=#:override nosnarf doctmp] 5 (#$ . 435)])
(put 'semantic-documentation-for-tag 'mode-local-overload t)
#@298 Find a comment preceding TAG.
If TAG is nil. use the tag under point.
Searches the space between TAG and the preceding tag for a comment,
and converts the comment into clean documentation.
Optional argument NOSNARF with a value of `lex' means to return
just the lexical token and not the string.
(defalias 'semantic-documentation-comment-preceding-tag #[(&optional tag nosnarf) "\204 \306 \212\307!\210\310\211\3118)\312 !\203\" \313 !\202% \314H*!\211\203H \n\211\3118)\312 !\203A \315 !\202D \316H*\202I e\f\205Y \317\f \320#\205Y \321
!+\207" [tag o starttag start comment-start-skip nosnarf semantic-current-tag semantic-go-to-tag semantic-find-tag-by-overlay-prev 4 semantic-overlay-p semantic-overlay-start 0 semantic-overlay-end 1 re-search-backward t semantic-doc-snarf-comment-for-tag] 5 (#$ . 2041)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias semantic-documentation-comment-preceeding-tag semantic-documentation-comment-preceding-tag nil make-obsolete "25.1"] 4)
#@215 Snarf up the comment at POINT for `semantic-documentation-for-tag'.
Attempt to strip out comment syntactic sugar.
Argument NOSNARF means don't modify the found text.
If NOSNARF is `lex', then return the lex token.
(defalias 'semantic-doc-snarf-comment-for-tag #[(nosnarf) "\306\307\n\310>\203 \311``T\"@\202\336 \311``T\"@\211A@;\203' A@\202U \312 \211\211A@\247\2049 AA\202; A)@) \211\211A@\247\204O AA\202Q A)A)\") \n\204\334 \313\314
P\f\"\203s \f\315\211\224O\f\315\225\306OP\202[ \313\316\f\"\203\211 \f\315\211\224O\f\315\225\306OP\202s \317\320!\203\250 \203\250 \313\f\"\203\250 \f\315\211\224O\f\315\225\306OP\313\321\f\"\203\276 \f\315\211\224O\f\315\225\306OP\202\250 \203\334 \322\230\204\334 \313\323!\324P\f\"\203\334 \f\315\211\224O\f)*\207" [semantic-ignore-comments semantic-lex-analyzer nosnarf token ct comment-start-skip nil semantic-comment-lexer (lex flex) semantic-lex buffer-substring-no-properties string-match "^\\s-*" 0 "^\\s-*\\s.+\\s-*" boundp block-comment-end "\\s-*\\s\"+\\s-*" "" regexp-quote "$" comment-end] 5 (#$ . 3063)])
(provide 'semantic/doc)
Kontol Shell Bypass