%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/cedet/srecode/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/cedet/srecode/texi.elc

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

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(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!!\3121\2112\203\301.2@\2113@)\230\203\2702@1B12A\2112\204\2421\237+\2113\203\3573@\21133\34538)4\3464!\203\350\3474!\202\3544\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 overlayp 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 (#$ . 515) "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\211A@)\n*=\204&	A\211\204	\203^\212	@\211\3138)\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
\332A#+\207" [level tags class tag o dict 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" nl] 5 (#$ . 2131)])
#@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 (#$ . 3047)])
#@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 (#$ . 3676)])
(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 (#$ . 4318)])
#@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) "\305\211\306\307\310!\306\204\"\211\262\204\"	\262\n\205 \311\n\"\262\203M\211\204M\302N\203<\311\302N\"\211\262\204\"\211\312N\206F\211\313N\262\262\202\"\266\203\211\262\205a\211\203_N\205aJ\266\203\206\326\211\211\314N\262\205\326\211\211\314N\262\306\307\310!\306\204\225\211\262\204\225	\262\n\205\223\311\n\"\262\203\300\211\204\300\302N\203\257\311\302N\"\211\262\204\225\211\312N\206\271\211\313N\262\262\202\225\266\203\211\262\205\324\211\203\322N\205\324J\266\203\262\211\203\343\f!\202\346\315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override docstring 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 (#$ . 4680)])
(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#\2035\310\311\n\"\211\312\230\204.\313\230\204.\314\n\305\311\224#\315\316\314\n\311\225\"\260)\311\225\202\n*\207" [start case-fold-search docstring ms nil 0 string-match "\\(^\\|[^{]\\)\\<\\([A-Z0-9_-]+\\)\\>\\($\\|[^}]\\)" match-string 2 "A" "a" substring "@var{" "}"] 8 (#$ . 5793)])
#@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\203q\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 #[nil "\306!\210	\307\211\203@\211@\nAL\210A\211\204\f*\f\310\f!\207" [#1# #2# #4=#:local --dolist-tail-- #3# mode-local-active-mode mode-local--deactivate-bindings nil mode-local--activate-bindings] 3] mode-local--deactivate-bindings mode-local--activate-bindings] 3 (#$ . 6281)])
#@634 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\306\224\306\225#\307	!\310\311\n!\203\312\202\313	\314Q\315\316$\260*\202\303\317\"\203?\310\320\316\315\321%\202-\303\322\"\203Q\310\323\316\315\321%\202?\303\324\"\203c\310\320\316\315\321%\202Q\303\325\"\203u\310\326\316\315\321%\202c\303\327\"\203\207\310\330\316\315\331%\202u\303\332\"\203\231\310\333\316\315\331%\202\207\334!\207" [string vs v string-match "[`‘]\\([-a-zA-Z0-9<>.]+\\)['’]" substring 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 (#$ . 6961)])
(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)

Zerion Mini Shell 1.0