;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'semantic/tag)
#@452 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 return only the lexical analyzer token for it.
If NOSNARF is `lex', then only return the lex token.

(fn &optional TAG NOSNARF)
(defalias 'semantic-documentation-for-tag #[512 "
\204\303 \262\212\304!\203\305!q\210\306\211\307\310\311!\307\2046\211\262\2046	\262\n\2054\312\n\"\262
\203a\211\204a\302N\203P\312\302N\"\211\262\2046\211\313N\206Z\211\314N\262
\262\2026\266\203\211\262\205u\211\203s
N\205uJ\266\203\206\352\211\211\315N\262
\205\352\211\211\315N\262
\307\310\311!\307\204\251\211\262\204\251	\262\n\205\247\312\n\"\262
\203\324\211\204\324\302N\203\303\312\302N\"\211\262\204\251\211\313N\206\315\211\314N\262
\262\202\251\266\203\211\262\205\350\211\203\346
N\205\350J\266\203\262
\211\203\367\211\"\202
\212\316!\210\317p\"\211\206
\304!\205
\320\"\262
)\262
)\207" [mode-local-active-mode major-mode mode-local-symbol-table 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] 14 (#$ . 109)])
(put 'semantic-documentation-for-tag 'mode-local-overload t)
#@326 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.

(fn &optional TAG NOSNARF)
(defalias 'semantic-documentation-comment-preceding-tag #[512 "
\204\301 \262\212\302!\210\303\211\304
8\262
\305
!\203#\306
!\266\202\202(\211\307H\266\202!\211\203J\211\211\304
8\262
\305
!\203B\310
!\266\202\202K\211\311H\266\202\202Ke\205Z\312\313#\205Z\314!\266\202)\207" [comment-start-skip 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] 8 (#$ . 1737)])
(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)
#@229 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.

(fn NOSNARF)
(defalias 'semantic-doc-snarf-comment-for-tag #[257 "\304\211\305>\203\306``T\"@\202\343\306``T\"@\211A@;\203&\211A@\262
\202Z\307
\211\211A@\247\2048\211AA\262
\202<\211A\262
@\262
\211\211A@\247\204P\211AA\262
\202T\211A\262
A\262
\"\262

\204\340\310\311	\312Q\"\203x\211\313\211\224O
\313\225\314OP\262
\202^\310\315\"\203\217\211\313\211\224O
\313\225\314OP\262
\202x\316\302!\203\255\n\203\255\310\n\"\203\255\211\313\211\224O
\313\225\314OP\262
\310\317\"\203\304\211\313\211\224O
\313\225\314OP\262
\202\255\203\340\320\230\204\340\310\321!\322P\"\203\340\211\313\211\224O\262
\211\262
)\207" [semantic-lex-analyzer comment-start-skip block-comment-end comment-end semantic-comment-lexer (lex flex) semantic-lex buffer-substring-no-properties string-match "^\\s-*\\(?:" "\\)" 0 nil "^\\s-*\\s.+\\s-*" boundp "\\s-*\\s\"+\\s-*" "" regexp-quote "$"] 7 (#$ . 2757)])
(provide 'semantic/doc)