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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic semantic/texi srecode/semantic] 2)
#@127 Add an item into the current menu.  Add @node statements as well.
Argument NEWNODE is the name of the new node.

(fn NEWNODE)
(defalias 'srecode-texi-add-menu #[257 "\303!\210\304 \210\305\306 !\307
\204\310\311!\210
@\262\312!\262
\313 \314\230\203*\315 \210\202U\211@b\210\316\317A@\320#\204N\211A@b\210\321\322!\204G\310\323!\210\324\325!\210\202U\316\326!\210\315 \210\313 \314\230\205
\307\324\327\330#\210\331`!\210\332 \262
\312!\262\315 \210\333u\210\315 \210\307\334\335!\204\211A@\262
\202\330\336\337!	\340\341p!!\307
\203\260@\211@\262
\230\203\251
@
B\262

A\262\202\224\211\237\266\202)\211\203\326\211@\211\342
8\262
\343
!\203\317\344
!\266\202\202\324\211\337H\266\202\262\266\211\204\343
b\210\310\345!\210\211\205\n
\211b\210n\203\361\333u\210\346c\210\347 =\203
\324\350\330#\202\n
\324\351\330#\262
\262
\207" [major-mode semantic-case-fold case-fold-search srecode-load-tables-for-mode semantic-fetch-tags reverse semantic-find-tag-by-overlay nil error "Cannot find node to put menu item into" semantic-tag-texi-section-text-bounds semantic-texi-current-environment "menu" beginning-of-line re-search-forward "^@menu" t y-or-n-p "Add menu here? " "Abort" srecode-insert "declaration:menu" "@end menu" "declaration:menuitem" "NAME" set-mark make-marker -1 looking-at "\\* \\([^:]+\\):" match-string 1 semantic-something-to-tag-table semantic-flatten-tags-table 4 overlayp overlay-end "Could not find location for new node" "\n" semantic-current-tag "declaration:subnode" "declaration:node"] 11 (#$ . 191) "sName of new node: "])
#@177 Add macros into the dictionary DICT based on the current texinfo file.
Adds the following:
  LEVEL - chapter, section, subsection, etc
  NEXTLEVEL - One below level

(fn DICT)
(defalias 'srecode-semantic-handle-:texi #[257 "\300 \210\301\302 !\303
\203#
@\304
\211A@\262

=\266\202\204#
A\262\202
\203]\212
@\211\305
8\262
\306
!\203>\307
!\266\202\202C\211\310H\266\202b\210\311\312!\203Q\313y\210\314 \210\311\315!\203\\\316\313!\262
)\317\320\206e\321#\210\322
\323\"\317\324A#\207" [semantic-fetch-tags reverse semantic-find-tag-by-overlay nil section 4 overlayp overlay-start 0 looking-at "@node" 1 beginning-of-line "@\\(\\w+\\)" match-string srecode-dictionary-set-value "LEVEL" "chapter" assoc ((nil . "top") ("top" . "chapter") ("chapter" . "section") ("section" . "subsection") ("subsection" . "subsubsection") ("subsubsection" . "subsubsection")) "NEXTLEVEL"] 8 (#$ . 1787)])
#@150 Add macros into the dictionary DICT based on the current :tag file.
Adds the following:
  TAGDOC - Texinfo formatted doc string for :tag.

(fn DICT)
(defalias 'srecode-semantic-handle-:texitag #[257 "\300
\301\"\302
\204
\303!\210\300\301\"\262
\204\304\305!\210\306\307\"\262\310!\262
\211\2057\311\312\313\314!##\207" [srecode-dictionary-lookup-name "TAG" nil srecode-semantic-handle-:tag error "No tag to insert for :texitag template argument" eieio-oref prime semantic-documentation-for-tag srecode-dictionary-set-value "TAGDOC" srecode-texi-massage-to-texinfo semantic-tag-buffer] 10 (#$ . 2696)])
#@242 Insert FOREIGN-TAG from a foreign buffer in TAGFILE.
Assume TAGFILE is a source buffer, and create a documentation
thingy from it using the `document' tool.
Override `semantic-insert-foreign-tag' in `texinfo-mode' buffers.

(fn FOREIGN-TAG)
(defalias 'semantic-insert-foreign-tag-texinfo-mode #[257 "\300
!\207" [srecode-texi-insert-tag-as-doc] 3 (#$ . 3322)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-texinfo-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@60 Insert TAG into the current buffer with SRecode.

(fn TAG)
(defalias 'srecode-texi-insert-tag-as-doc #[257 "\302=\204\n\303\304!\210\211\305!\210\306\307!)\207" [major-mode srecode-semantic-selected-tag texinfo-mode error "Can only insert tags into texinfo in texinfo mode" srecode-load-tables-for-mode srecode-insert "declaration:function"] 3 (#$ . 3961)])
#@139 Texify the doc string DOCSTRING.
Takes plain text formatting that may exist, and converts it to
using TeXinfo formatting.

(fn DOCSTRING)
(defalias 'srecode-texi-texify-docstring #[257 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\340\211!\207\313!\207" [mode-local-active-mode major-mode mode-local-symbol-table srecode-texi-texify-docstring nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete srecode-texi-texify-docstring-default] 13 (#$ . 4330)])
(put 'srecode-texi-texify-docstring 'mode-local-overload t)
#@113 Texify the doc string DOCSTRING.
Takes a few very generic guesses as to what the formatting is.

(fn DOCSTRING)
(defalias 'srecode-texi-texify-docstring-default #[257 "\301\302
\303\304#\2036\305\306\"\211\307\230\204.\211\310\230\204.\302\306\224O\311\312\306\225\301O\260\262\210\306\225\262
\202)\207" [case-fold-search nil 0 string-match "\\(^\\|[^{]\\)\\<\\([A-Z0-9_-]+\\)\\>\\($\\|[^}]\\)" match-string 2 "A" "a" "@var{" "}"] 11 (#$ . 5422)])
#@131 Massage TAG's documentation from BUFFER as STRING.
This is to take advantage of TeXinfo's markup symbols.

(fn TAG BUFFER STRING)
(defalias 'srecode-texi-massage-to-texinfo #[771 "\212
\203
q\210\301
!\202+\302C\303\304\305$\216\306!\210\303
\307\303!\240\210\301!)\266\203)\207" [mode-local-active-mode srecode-texi-texify-docstring nil texinfo-mode make-closure #[0 "\304\302!\210\301\242\211\203\211@\211@
AL\210
A\266\202\202\210\300\305\300!\207" [V0 V1 V2 mode-local-active-mode mode-local--deactivate-bindings mode-local--activate-bindings] 4] mode-local--deactivate-bindings mode-local--activate-bindings] 11 (#$ . 5894)])
#@648 Take STRING, (a normal doc string), and convert it into a texinfo string.
For instances where CLASS is the class being referenced, do not Xref
that class.

 function   => @dfn{function}
 variable   => @code{variable}
 class      => @code{class} @xref{class}
 unknown    => @code{unknown}
 "text"     => \=`\=`text\='\='
 'quoteme   => @code{quoteme}
 non-nil    => non-@code{nil}
 t          => @code{t}
 :tag       => @code{:tag}
 [ stuff ]  => @code{[ stuff ]}
 Key        => @kbd{Key}     (key is C\-h, M\-h, SPC, RET, TAB and the like)
 ...        => @dots{}
Override `srecode-texi-texify-docstring' in `emacs-lisp-mode'
buffers.

(fn STRING)
(defalias 'srecode-texi-texify-docstring-emacs-lisp-mode #[257 "\300\301\"\203+\211\302\224\302\225O\303
!\304\305!\203\306\202\307\310Q\311\312$\260
\266\203\202\300\313\"\203>\304\314\312\311\315%\262
\202+\300\316\"\203Q\304\317\312\311\315%\262
\202>\300\320\"\203d\304\314\312\311\315%\262
\202Q\300\321\"\203w\304\322\312\311\315%\262
\202d\300\323\"\203\212\304\324\312\311\325%\262
\202w\300\326\"\203\235\304\327\312\311\325%\262
\202\212\330
!\207" [string-match "[`‘]\\([-a-zA-Z0-9<>.]+\\)['’]" 1 intern-soft replace-match fboundp "@dfn{" "@code{" "}" nil t "\\( \\|^\\)\\(nil\\|t\\|'[-a-zA-Z0-9]+\\|:[-a-zA-Z0-9]+\\)\\([. ,]\\|$\\)" "@code{\\2}" 2 "\\( \\|^\\)\\(\\(non-\\)\\(nil\\)\\)\\([. ,]\\|$\\)" "\\3@code{\\4}" "\\( \\|^\\)\\(\\[[^]]+\\]\\)\\( \\|$\\)" "\\( \\|^\\)\\(\\(\\(C-\\|M-\\|S-\\)+\\([^ 	\n]\\|RET\\|SPC\\|TAB\\)\\)\\|\\(RET\\|SPC\\|TAB\\)\\)\\( \\|\\s.\\|$\\)" "@kbd{\\2}" "\"\\(.+\\)\"" "``\\1''" 0 "\\.\\.\\." "@dots{}" srecode-texi-texify-docstring-default] 8 (#$ . 6547)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\311!\207" [put srecode-texi-texify-docstring-emacs-lisp-mode definition-name srecode-texi-texify-docstring mode-local-bind ((srecode-texi-texify-docstring . srecode-texi-texify-docstring-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode provide srecode/texi] 4)