WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/srecode
Viewing File: /usr/share/emacs/24.3/lisp/cedet/srecode/texi.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:59 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/texi.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic semantic/texi srecode/semantic] 2)
#@113 Add an item into the current menu.  Add @node statements as well.
Argument NEWNODE is the name of the new node.
(defalias 'srecode-texi-add-menu #[(newnode) "\306!\210\307 \210\310\311 !\312\211\204\313\314!\210\n@\315\n!\316 \317\230\203*\320 \210\202U	@b\210\321\322	A@\323#\204N	A@b\210\324\325!\204G\313\326!\210\327\330!\210\202U\321\331!\210\320 \210\316 \317\230\205$\312\327\332\333
#\210\334`!\210\335 \315\n!\320 \210\336u\210\320 \210\312-\337\340!\204\213	A@-\202\360\341\342!./0\343\344p!!\3121\2112\203\301.2@\2113@)\230\203\2702@1B12A\2112\204\2421\237+\2113\203\3573@\21133\34538)4\3464!\203\350\3474!\202\3544\342H*-*-\204\374\fb\210\313\350!\210-\205#-b\210n\203\f\336u\210\351c\210\352 \n=\203\327\353\333
#\202#\327\354\333
#+*\207" [major-mode nodebounds currnode newnode returnpoint menuname 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 semantic-overlay-p semantic-overlay-end "Could not find location for new node" "\n" semantic-current-tag "declaration:subnode" "declaration:node" end nname semantic-case-fold case-fold-search result tags tag o] 5 (#$ . 668) "sName of new node: "])
#@166 Add macros into the dictionary DICT based on the current texinfo file.
Adds the following:
  LEVEL - chapter, section, subsection, etc
  NEXTLEVEL - One below level
(defalias 'srecode-semantic-handle-:texi #[(dict) "\306 \210\307\310 !\311\211\203&	@\312\211\211A@)\n*=\204&	A\211\204	\203^\212	@\211\3138)\314\f!\203A\315\f!\202D\f\316H*b\210\317\320!\203S\321y\210\322 \210\317\323!\203]\324\321!)\325
\326\206f\327#\210\330\331\"\325
\332A#+\207" [level tags class tag o dict semantic-fetch-tags reverse semantic-find-tag-by-overlay nil section 4 semantic-overlay-p semantic-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" nl] 5 (#$ . 2303)])
#@139 Add macros into the dictionary DICT based on the current :tag file.
Adds the following:
  TAGDOC - Texinfo formatted doc string for :tag.
(defalias 'srecode-semantic-handle-:texitag #[(dict) "\303\304\"\305\211\204\306!\210\303\304\"\211\204\307\310!\210\311\n\312\"\313\n!\211\2054\314\315\316\n\317\n!	##*\207" [dict doc tag 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] 8 (#$ . 3238)])
#@223 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.
(defalias 'semantic-insert-foreign-tag-texinfo-mode #[(foreign-tag) "\301!\207" [foreign-tag srecode-texi-insert-tag-as-doc] 2 (#$ . 3868)])
(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)
#@50 Insert TAG into the current buffer with SRecode.
(defalias 'srecode-texi-insert-tag-as-doc #[(tag) "\303=\204\n\304\305!\210	\306!\210\307\310!)\207" [major-mode tag 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"] 2 (#$ . 4510)])
#@123 Texify the doc string DOCSTRING.
Takes plain text formatting that may exist, and converts it to
using TeXinfo formatting.
(defalias 'srecode-texi-texify-docstring #[(docstring) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\360!\202\364\317!)\207" [overload property mode symbol bind name srecode-texi-texify-docstring nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete srecode-texi-texify-docstring-default mode-local-active-mode major-mode #1=#:override docstring] 5 (#$ . 4872)])
(put 'srecode-texi-texify-docstring 'mode-local-overload t)
#@97 Texify the doc string DOCSTRING.
Takes a few very generic guesses as to what the formatting is.
(defalias 'srecode-texi-texify-docstring-default #[(docstring) "\304\305\306\307\n#\2034\310\311\n\"\211\312\230\204-\313\230\204-\n\305\311\224O\314\315\n\311\225\304O\260)\311\225\202\n*\207" [start case-fold-search docstring ms nil 0 string-match "\\(^\\|[^{]\\)\\<\\([A-Z0-9_-]+\\)\\>\\($\\|[^}]\\)" match-string 2 "A" "a" "@var{" "}"] 8 (#$ . 5947)])
#@107 Massage TAG's documentation from BUFFER as STRING.
This is to take advantage of TeXinfo's markup symbols.
(defalias 'srecode-texi-massage-to-texinfo #[(tag buffer string) "\212\203q\210\306	!\202$\n\307\310\311\216\312
!\210\313!\306	!,)\207" [buffer string mode-local-active-mode #1=#:new-mode #2=#:old-locals #3=#:mode srecode-texi-texify-docstring nil texinfo-mode ((byte-code "\306!\210	\307\211\203@\211@\nAL\210A\211\204\f*\f\310\f!\207" [#1# #2# #4=#:local --dolist-tail-- #3# mode-local-active-mode deactivate-mode-local-bindings nil activate-mode-local-bindings] 3)) deactivate-mode-local-bindings activate-mode-local-bindings] 3 (#$ . 6420)])
#@626 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.
(defalias 'srecode-texi-texify-docstring-emacs-lisp-mode #[(string) "\303\304\"\203,\305\224\305\225O\306	!\307\310\n!\203\311\202\312	\313Q\314\315$\260*\202\303\316\"\203>\307\317\315\314\320%\202,\303\321\"\203P\307\322\315\314\320%\202>\303\323\"\203b\307\317\315\314\320%\202P\303\324\"\203t\307\325\315\314\320%\202b\303\326\"\203\206\307\327\315\314\330%\202t\303\331\"\203\230\307\332\315\314\330%\202\206\333!\207" [string vs v 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] 6 (#$ . 7103)])
(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)
F1l3 Manager
