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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\320%\210\300\324!\207" [require compile info custom-declare-group makeinfo nil "Run makeinfo conveniently." :group docs custom-declare-variable makeinfo-run-command funcall function #[0 "\300\207" ["makeinfo"] 1 #1=""] "Command used to run `makeinfo' subjob.\nThe name of the file is appended to this string, separated by a space." :type string makeinfo-options #[0 "\300\207" ["--fill-column=70"] 1 #1#] "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] 6)
#@54 Process that runs `makeinfo'.  Should start out nil.
(defvar makeinfo-compilation-process nil (#$ . 854))
#@70 Temporary file name used for text being sent as input to `makeinfo'.
(defvar makeinfo-temp-file nil (#$ . 966))
#@52 Info file name used for text output by `makeinfo'.
(defvar makeinfo-output-file-name nil (#$ . 1084))
#@59 Node name to visit in output file, for `makeinfo-buffer'.
(defvar makeinfo-output-node-name nil (#$ . 1192))
#@282 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'.

(fn REGION-BEGINNING REGION-END)
(defalias 'makeinfo-region #[514 "\306\211\307\310 \311\312\313\310 \"\206\310 GO!\314P\212\214~\210eb\210\212\315y\210`)\316\317\320#\2034\321\224\321\225{\2028\322\323!\210eb\210\324\n\320#\325 \210`\262\203e\324\306\320#\325 \210`\262\203e\326^\306\211%\210\202\205eb\210\324\327\320#\210\325 \210`\262\321y\210`\262\326^\306\211%\210\326]\320\306%\210\212\330\f\331
\331\260\320\332#)\262
*\207" [makeinfo-temp-file makeinfo-output-file-name tex-start-of-header tex-end-of-header makeinfo-run-command makeinfo-options 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] 11 (#$ . 1308) "r"])
#@219 This 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.

(fn ARG RESET)
(defalias 'makeinfo-next-error #[514 "\300\301!\207" [error "Use `makeinfo-buffer' to gain use of the `next-error' command"] 4 (#$ . 2495)])
#@40 

(fn COMMAND DISABLE-ERRORS SENTINEL)
(defalias 'makeinfo-compile #[771 "\301!r\211q\210\203\302\202\303)\304\305!\"\207" [next-error-function compilation-start makeinfo-next-error compilation-next-error-function set-process-sentinel get-buffer-process] 7 (#$ . 2860)])
#@76 Sentinel for `makeinfo-compile' run from `makeinfo-region'.

(fn PROC MSG)
(defalias 'makeinfo-compilation-sentinel-region #[514 "\302\"\210\303!\304>\205D\305!\203\306!\210\307	!\211\203+r\211q\210\310\311\211\"\210)\2020\312	!\262
\313 \203=\314
!\266\202B\315
!\266eb\207" [makeinfo-temp-file makeinfo-output-file-name 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] 6 (#$ . 3146)])
#@66 Return the name of the node containing point, in a texinfo file.
(defalias 'makeinfo-current-node #[0 "\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 (#$ . 3698)])
#@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 #[0 "\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{!\210\202<\306\322!\266)\323 \212\324!\325\f\326
\326\327!\260\330\331#*\207" [buffer-file-name makeinfo-output-file-name makeinfo-output-node-name default-directory makeinfo-run-command makeinfo-options 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] 7 (#$ . 3958) nil])
#@76 Sentinel for `makeinfo-compile' run from `makeinfo-buffer'.

(fn PROC MSG)
(defalias 'makeinfo-compilation-sentinel-buffer #[514 "\302\"\210\303!\304>\205\305!\205\306	\"\207" [makeinfo-output-file-name makeinfo-output-node-name compilation-sentinel process-status (signal exit) file-exists-p Info-revert-find-node] 5 (#$ . 4862)])
#@180 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.

(fn LINENUM)
(defalias 'makeinfo-recenter-compilation-buffer #[257 "\300\301!p
\204\f\302\303!\207\304!\210\305!\210db\210\306\203\"\307!\202&\310 \311\245!\210\304
!\207" [get-buffer "*compilation*" message "No *compilation* buffer" pop-to-buffer bury-buffer recenter prefix-numeric-value window-height 2] 6 (#$ . 5210) "P"])
(provide 'makeinfo)