| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/semantic/doc.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\314!\312\2045 \211\262\2045 \n\262 \2053 \315 \"\262\203` \211\204` \303N\203O \315\303N\"\211\262\2045 \211\316N\206Y \211\317N\262\262\2025 \266\203\211\262\205t \211\203r N\205t J\266\203\206\351 \211\211\320N\262\205\351 \211\211\320N\262\312\313\314!\312\204\250 \211\262\204\250 \n\262 \205\246 \315 \"\262\203\323 \211\204\323 \303N\203\302 \315\303N\"\211\262\204\250 \211\316N\206\314 \211\317N\262\262\202\250 \266\203\211\262\205\347 \211\203\345 N\205\347 J\266\203\262\211 \203\367 \f
\"\202\212\321!\210\322p\"\211 \206\307!\205\323
\"**\207" [tag mode-local-active-mode major-mode mode-local-symbol-table #1=#:override nosnarf semantic-current-tag semantic-tag-with-position-p semantic-tag-buffer semantic-documentation-for-tag nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-go-to-tag semantic-tag-docstring semantic-documentation-comment-preceding-tag doctmp] 13 (#$ . 433)])
(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 overlayp overlay-start 0 overlay-end 1 re-search-backward t semantic-doc-snarf-comment-for-tag] 5 (#$ . 2074)])
(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\344 \311``T\"@\211A@;\203( \211A@\262\202X \312\211\211A@\247\2048 \211AA\202: \211A\262@\262\211\211A@\247\204N \211AA\202P \211A\262A\262\"\262\n\204\342 \313\314\f\315Q \"\203w \316 \317\211\224#\316 \317\225\"P\202] \313\320 \"\203\216 \316 \317\211\224#\316 \317\225\"P\202w \321\305!\203\254
\203\254 \313
\"\203\254 \316 \317\211\224#\316 \317\225\"P\313\322 \"\203\303 \316 \317\211\224#\316 \317\225\"P\202\254 \203\342 \323\230\204\342 \313\324!\325P \"\203\342 \316 \317\211\224# )*\207" [semantic-ignore-comments semantic-lex-analyzer nosnarf ct comment-start-skip block-comment-end nil semantic-comment-lexer (lex flex) semantic-lex buffer-substring-no-properties string-match "^\\s-*\\(?:" "\\)" substring 0 "^\\s-*\\s.+\\s-*" boundp "\\s-*\\s\"+\\s-*" "" regexp-quote "$" comment-end] 6 (#$ . 3068)])
(provide 'semantic/doc)