Current File : //usr/local/share/emacs/27.2/lisp/textmodes/makeinfo.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\306\307\310%\210\311\312\313\314\315\316\307\304&\210\311\317\320\321\315\316\307\304&\210\300\322!\207" [require compile info custom-declare-group makeinfo nil "Run makeinfo conveniently." :group docs custom-declare-variable makeinfo-run-command "makeinfo" "Command used to run `makeinfo' subjob.\nThe name of the file is appended to this string, separated by a space." :type string makeinfo-options "--fill-column=70" "String containing options for running `makeinfo'.\nDo not include `--footnote-style' or `--paragraph-indent';\nthe proper way to specify those is with the Texinfo commands\n`@footnotestyle' and `@paragraphindent'." texinfo] 8)
#@54 Process that runs `makeinfo'. Should start out nil.
(defvar makeinfo-compilation-process nil (#$ . 1109))
#@70 Temporary file name used for text being sent as input to `makeinfo'.
(defvar makeinfo-temp-file nil (#$ . 1222))
#@52 Info file name used for text output by `makeinfo'.
(defvar makeinfo-output-file-name nil (#$ . 1341))
#@59 Node name to visit in output file, for `makeinfo-buffer'.
(defvar makeinfo-output-node-name nil (#$ . 1449))
#@248 Make Info file from region of current Texinfo file, and switch to it.
This command does not offer the `next-error' feature since it would
apply to a temporary file, not the original; use the `makeinfo-buffer'
command to gain use of `next-error'.
(defalias 'makeinfo-region #[(region-beginning region-end) "\306\211\211\307\310\311 \312\313\314\311 \"\206 \311 G#!\315P\212\214~\210eb\210\212\316y\210`) \317\320\f\321#\203: \322\224\322\225{\202> \323\324!\210eb\210\325 \f\321#\326 \210`\203k \325 \306\321#\326 \210`\203k \327 ^ \306\211%\210\202\211 eb\210\325\330\f\321#\210\326 \210`\322y\210`\327 ^ \306\211%\210\327 ] \321\306%\210\212\331 \332!\332 \260\321\333#.\207" [filename-or-header-end filename-or-header-beginning filename-or-header makeinfo-temp-file search-end makeinfo-output-file-name nil make-temp-file substring buffer-file-name 0 string-match "\\.tex" ".texinfo" 100 re-search-forward "^@setfilename[ ]+\\([^ \n]+\\)[ ]*" t 1 error "The texinfo file needs a line saying: @setfilename <name>" search-forward beginning-of-line write-region "@setfilename" makeinfo-compile " " makeinfo-compilation-sentinel-region tex-start-of-header tex-end-of-header region-beginning region-end makeinfo-run-command makeinfo-options] 7 (#$ . 1565) "r"])
#@213 This function is used to disable `next-error' if the user has
used `makeinfo-region'. Since the compilation process is used on
a temporary file in that case, calling `next-error' would give
nonsensical results.
(defalias 'makeinfo-next-error #[(arg reset) "\300\301!\207" [error "Use `makeinfo-buffer' to gain use of the `next-error' command"] 2 (#$ . 2861)])
(defalias 'makeinfo-compile #[(command disable-errors sentinel) "\305!r q\210\n\203 \306\202 \307)\310\311 !\f\")\207" [command buffer disable-errors next-error-function sentinel compilation-start makeinfo-next-error compilation-next-error-function set-process-sentinel get-buffer-process] 3])
#@61 Sentinel for `makeinfo-compile' run from `makeinfo-region'.
(defalias 'makeinfo-compilation-sentinel-region #[(proc msg) "\305 \"\210\306!\307>\205C \310\n!\203 \311\n!\210\312 !\211 \203, r\fq\210\313\314\211\"\210)\2020 \315 !\316 \203< \317\f!\210\202@ \320\f!\210)eb\207" [proc msg makeinfo-temp-file makeinfo-output-file-name buffer compilation-sentinel process-status (signal exit) file-exists-p delete-file get-file-buffer revert-buffer t find-file-noselect window-dedicated-p switch-to-buffer-other-window switch-to-buffer] 4 (#$ . 3527)])
#@66 Return the name of the node containing point, in a texinfo file.
(defalias 'makeinfo-current-node #[nil "\212\300\210\301\302e\303#\203 \304\305!\202 \306)\207" [nil re-search-backward "^@node\\s-+\\([^,\n]+\\)" t match-string 1 "Top"] 4 (#$ . 4085)])
#@117 Make Info file from current buffer.
Use the \[next-error] command to move to the next error
(if there are errors).
(defalias 'makeinfo-buffer #[nil "\204 \306\307!\210\202 \310 \203 \311\312!\203 \313 \210\212eb\210\212\314y\210`)\315\316 \317#\2037 \320\321\224\321\225{!\202; \306\322!\210*\323 \212\324! \325
\326\326\327!\260\330\331#*\207" [buffer-file-name search-end makeinfo-output-file-name makeinfo-output-node-name default-directory makeinfo-run-command error "Buffer not visiting any file" buffer-modified-p y-or-n-p "Buffer modified; do you want to save it? " save-buffer 100 re-search-forward "^@setfilename[ ]+\\([^ \n]+\\)[ ]*" t expand-file-name 1 "The texinfo file needs a line saying: @setfilename <name>" makeinfo-current-node file-name-directory makeinfo-compile " " file-name-nondirectory nil makeinfo-compilation-sentinel-buffer makeinfo-options] 7 (#$ . 4347) nil])
#@61 Sentinel for `makeinfo-compile' run from `makeinfo-buffer'.
(defalias 'makeinfo-compilation-sentinel-buffer #[(proc msg) "\304 \"\210\305!\306>\205 \307\n!\205 \310\n \"\207" [proc msg makeinfo-output-file-name makeinfo-output-node-name compilation-sentinel process-status (signal exit) file-exists-p Info-revert-find-node] 3 (#$ . 5260)])
#@166 Redisplay `*compilation*' buffer so most recent output can be seen.
The last line of the buffer is displayed on
line LINE of the window, or centered if LINE is nil.
(defalias 'makeinfo-recenter-compilation-buffer #[(linenum) "\303\304!p\211\204 \305\306!\202/ \307 !\210\310 !\210db\210\311\n\203& \312\n!\202* \313 \314\245!\210\307!*\207" [old-buffer makeinfo-buffer linenum get-buffer "*compilation*" message "No *compilation* buffer" pop-to-buffer bury-buffer recenter prefix-numeric-value window-height 2] 4 (#$ . 5611) "P"])
(provide 'makeinfo)
Mini Shell