;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:46:14 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/makeinfo.el ;;; emacs version 19.28.90.26. ;;; 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)) #@112 *Command used to run `makeinfo' subjob. The name of the file is appended to this string, separated by a space. (defvar makeinfo-run-command "makeinfo" (#$ . -512)) #@215 *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'. (defvar makeinfo-options "--fill-column=70" (#$ . -683)) (require (quote texinfo)) #@54 Process that runs `makeinfo'. Should start out nil. (defvar makeinfo-compilation-process nil (#$ . 986)) #@70 Temporary file name used for text being sent as input to `makeinfo'. (defvar makeinfo-temp-file nil (#$ . 1098)) #@52 Info file name used for text output by `makeinfo'. (defvar makeinfo-output-file-name nil (#$ . 1217)) #@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) " \" GO!P\n~eby`)\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 " 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 (#$ . 1326) "r"]) (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]) (defalias '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]) #@118 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 " ! ! eby`)#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 " makeinfo-compile makeinfo-run-command " " makeinfo-options "No more errors."] 6 (#$ . 2961) nil]) #@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) "!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 (#$ . 3597) "P"]) (provide (quote makeinfo))