HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\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\310 \"\206\310 GO!\314P\212\214~\210eb\210\212\315y\210`)\316\317\f\320#\2039\321\224\321\225{\202=\322\323!\210eb\210\324\f\320#\325 \210`\203j\324\306\320#\325 \210`\203j\326	^\306\211%\210\202\210eb\210\324\327\f\320#\210\325 \210`\321y\210`\326	^\306\211%\210\326]\320\306%\210\212\330\331 \331\260\320\332#.\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 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] 6 (#$ . 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 (#$ . 2847)])
(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 (#$ . 3513)])
#@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 (#$ . 4071)])
#@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 (#$ . 4333) 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 (#$ . 5246)])
#@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 (#$ . 5597) "P"])
(provide 'makeinfo)