;ELC ;;; Compiled by kwzh@delysid.gnu.ai.mit.edu on Tue Apr 15 01:18:10 1997 ;;; from file /gd/gnu/emacs/19.0/lisp/makeinfo.el ;;; in Emacs version 19.34.94.1 ;;; with bytecomp version 2.27 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "ÀÁ!ˆÂÃÄÅÇ%ˆÈÉÊË\fÍÃ&ˆÈÎÏÐ\fÍÃ&ˆÀÑ!‡" [require compile 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 (#$ . 1144)) #@70 Temporary file name used for text being sent as input to `makeinfo'. (defvar makeinfo-temp-file nil (#$ . 1257)) #@52 Info file name used for text output by `makeinfo'. (defvar makeinfo-output-file-name nil (#$ . 1376)) #@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ŠŒ~ˆ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 " 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 (#$ . 1485) "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 "„ ÁÂ!ˆ‚à ƒÄÅ!ƒÆ ˆŠ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 " makeinfo-compile makeinfo-run-command " " makeinfo-options "No more errors."] 6 (#$ . 3120) 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 (#$ . 3756) "P"]) (provide 'makeinfo)