HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 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*\202Ie\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 (#$ . 2039)])
(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(\211A@\262
\202X\312
\211\211A@\247\2048\211AA\202:\211A\262
@\262
\211\211A@\247\204N\211AA\202P\211A\262
A\262
\"\262
\n\204\334\313\314\fP\"\203u\315\211\224O\315\225\306OP\202]\313\316\"\203\213\315\211\224O\315\225\306OP\202u\317\305!\203\250
\203\250\313
\"\203\250\315\211\224O\315\225\306OP\313\320\"\203\276\315\211\224O\315\225\306OP\202\250\203\334\321\230\204\334\313\322!\323P\"\203\334\315\211\224O)*\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-*" 0 "^\\s-*\\s.+\\s-*" boundp "\\s-*\\s\"+\\s-*" "" regexp-quote "$" comment-end] 6 (#$ . 3061)])
(provide 'semantic/doc)