;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Wed Apr 13 12:22:14 1994
;;; from file /gd/gnu/emacs/19.0/lisp/makeinfo.el
;;; emacs version 19.22.90.2.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/makeinfo.el' was compiled for Emacs 19"))

(require (quote compile))
(defvar makeinfo-run-command "makeinfo" "\
*Command used to run `makeinfo' subjob.
The name of the file is appended to this string, separated by a space.")
(defvar makeinfo-options "--fill-column=70" "\
*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'.")
(require (quote texinfo))
(defvar makeinfo-compilation-process nil "\
Process that runs `makeinfo'.  Should start out nil.")
(defvar makeinfo-temp-file nil "\
Temporary file name used for text being sent as input to `makeinfo'.")
(defvar makeinfo-output-file-name nil "\
Info file name used for text output by `makeinfo'.")
(defalias 'makeinfo-region #[(region-beginning region-end) "А‰‰ДЕ ЖЗИЕ \"† Е GO!ЙP\nЉЊ~€eb€ЉЛy€`)\fНО\fП#ѓ= Р”Р•{‚A ТУ!€eb€Ф\fП#Жy€`ѓp ФАП#Жy€`ѓp Ч\n^	\nА‰%€‚ђ eb€ФЩ\fП#€Жy€`Рy€`Ч\n^	\nА‰%€Ч	]\nПА%€ЉЫЭЭ\n°ЯА#.‡" [nil filename-or-header-end filename-or-header-beginning filename-or-header make-temp-name buffer-file-name 0 string-match "\\.tex" ".texinfo" makeinfo-temp-file 100 search-end re-search-forward "^@setfilename[ 	]+\\([^ 	\n]+\\)[ 	]*" t 1 makeinfo-output-file-name error "The texinfo file needs a line saying: @setfilename <name>" search-forward tex-start-of-header tex-end-of-header write-region region-beginning "@setfilename" region-end makeinfo-compile makeinfo-run-command " " makeinfo-options "Use `makeinfo-buffer' to gain use of the `next-error' command"] 6 "\
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'." "r"])
(byte-code "АБВ\"€АГД\"‡" [defalias makeinfo-compile #[(command error-message parse-errors) "А	\nГ\f?…\n Е$ЗИ!Й\")‡" [compile-internal command error-message nil parse-errors (lambda (&rest ignore) (setq compilation-error-list nil)) buffer set-process-sentinel get-buffer-process makeinfo-compilation-sentinel] 5] makeinfo-compilation-sentinel #[(proc msg) "А	\n\"€ѓ Д!ѓ Е!€Ж!ѓ& q€ИЙ‰\"€‚+ К!€eb‡" [compilation-sentinel proc msg makeinfo-temp-file file-exists-p delete-file get-file-buffer makeinfo-output-file-name revert-buffer t find-file] 3]] 3)
(defalias 'makeinfo-buffer #[nil "„ БВ!€‚ Г ѓ ДЕ!ѓ Ж €Љeb€ЉЗy€`)ЙКЛ#ѓ8 М”М•{‚< БО!€*ЉПСС°УЛ#)‡" [buffer-file-name error "Buffer not visiting any file" buffer-modified-p y-or-n-p "Buffer modified; do you want to save it? " save-buffer 100 search-end re-search-forward "^@setfilename[ 	]+\\([^ 	\n]+\\)[ 	]*" t 1 makeinfo-output-file-name "The texinfo file needs a line saying: @setfilename <name>" makeinfo-compile makeinfo-run-command " " makeinfo-options "No more errors."] 6 "\
Make Info file from current buffer.

Use the \\[next-error] command to move to the next error 
(if there are errors)." nil])
(defalias 'makeinfo-recenter-compilation-buffer #[(linenum) "АБ!p‰„ ДЕ!‚1 Ж!€З!€db€И	ѓ( К	!‚, Л МҐ!€Ж\n!*‡" [get-buffer "*compilation*" old-buffer makeinfo-buffer message "No *compilation* buffer" pop-to-buffer bury-buffer recenter linenum prefix-numeric-value window-height 2] 4 "\
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." "P"])
(provide (quote makeinfo))