;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:17 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/makeinfo.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`makeinfo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207" [require compile info custom-declare-group makeinfo nil "Run makeinfo conveniently." :group docs] 6) #@112 *Command used to run `makeinfo' subjob. The name of the file is appended to this string, separated by a space. (custom-declare-variable 'makeinfo-run-command '"makeinfo" '(#$ . -744) :type 'string :group 'makeinfo) #@213 *String containing options for running `makeinfo'. Do not include `--footnote-style' or `--paragraph-indent'; the proper way to specify those is with the Texinfo commands `@footnotestyle` and `@paragraphindent'. (custom-declare-variable 'makeinfo-options '"--fill-column=70" '(#$ . -966) :type 'string :group 'makeinfo) (require 'texinfo) #@54 Process that runs `makeinfo'. Should start out nil. (defvar makeinfo-compilation-process nil (#$ . 1311)) #@70 Temporary file name used for text being sent as input to `makeinfo'. (defvar makeinfo-temp-file nil (#$ . 1424)) #@52 Info file name used for text output by `makeinfo'. (defvar makeinfo-output-file-name nil (#$ . 1543)) #@59 Node name to visit in output file, for `makeinfo-buffer'. (defvar makeinfo-output-node-name nil (#$ . 1651)) #@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 " 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 (#$ . 1767) "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 (#$ . 3049)]) (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>\205E\310\n!\203\311\n!\210\312!\211\203,r\fq\210\313\314\211\"\210)\2020\315!\316\317 !\203>\320\f!\210\202B\321\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 selected-window switch-to-buffer-other-window switch-to-buffer] 4 (#$ . 3715)]) #@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 (#$ . 4294)]) #@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\f\325 \325\260\326\327#)\207" [buffer-file-name search-end makeinfo-output-file-name makeinfo-output-node-name 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 " makeinfo-current-node makeinfo-compile " " nil makeinfo-compilation-sentinel-buffer] 6 (#$ . 4556) 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 (#$ . 5396)]) #@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 (#$ . 5747) "P"]) (provide 'makeinfo)