;ELC ;;; Compiled ;;; in Emacs version 27.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\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\211eb\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 " 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 " 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)