;ELC ;;; Compiled ;;; in Emacs version 27.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\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\203rN\205tJ\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\345N\205\347J\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*\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 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)