;ELC ;;; compiled by jwz@thalidomide on Thu Oct 28 21:57:53 1993 ;;; from file /th/jwz/emacs19/lisp/packages/makeinfo.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 20-oct-93. ;;; 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 "This file was compiled for Emacs 19.")) (require 'compile) (defvar makeinfo-run-command "makeinfo" "\ *Command used to run makeinfo subjob. The name of the file will be appended to this string, separated by a space.") (defvar makeinfo-options "+fill-column=70" "\ *String containing flags for makeinfo. Do not include footnote-style or paragraph-indent, which are specified by @footnotestyle and @paragraphindent.") (byte-code "!!" [require texinfo texinfmt] 2) (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.") (autoload 'compile1 "compile") (fset 'makeinfo-region #[(region-beginning region-end) " \" GO!P\n~eby`)  #ДЕ{!eb #y`#y`\n^ \n%eb #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 texinfo-start-of-header texinfo-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 "MM" [makeinfo-compile #[(command error-message &optional name-of-mode) "!=!Ǐ!   P%ѐ!! ! q!*\"!!!!#!p=db!q!!!qe)%#%\"# =#%\") *,.," [makeinfo-compilation-process process-status run yes-or-no-p "A `makeinfo' compilation process is running; kill it? " nil (byte-code " !! !)‡" [makeinfo-compilation-process comp-proc interrupt-process sit-for 1 delete-process] 2) ((error)) error "Cannot have two makeinfo processes" compilation-forget-errors t compilation-error-list error-message compilation-error-message start-process "makeinfo" "*compilation*" shell-file-name "-c" "exec " command princ "cd " default-directory terpri compilation-error-regexp regexp make-local-variable set-process-sentinel makeinfo-compilation-sentinel thisdir process-buffer outbuf get-buffer-window outwin buffer-flush-undo start set-window-start selected-window set-window-point fundamental-mode name-of-mode "compilation" mode-name (": %s") mode-line-process] 7] makeinfo-compilation-sentinel #[(proc msg) "\n!!\n\"\n!>p ʎ\n!qd` db u Ou\n!!P\n!)  W bq+!!!q߉\"!eb" [buffer-name process-buffer proc set-process-buffer nil process-status (signal exit) obuf omax opoint ((byte-code " !" [nil makeinfo-compilation-process set-buffer-modified-p buffer-modified-p] 2)) 10 mode-name " " msg -1 " at " current-time-string 0 -5 1 ": " symbol-name mode-line-process delete-process makeinfo-temp-file file-exists-p delete-file get-file-buffer makeinfo-output-file-name revert-buffer t find-file] 4]] 2) (fset 'makeinfo-buffer #[(buffer) "! ! eby`)#̔̕{ !*!!\")" [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 "+footnote-style=" texinfo-footnote-style get-buffer buffer "No more errors."] 11 "\ Make Info file from current buffer. The \\[next-error] command can be used to move to the next error (if any are found)." "bRun `makeinfo' on: "]) (fset 'makeinfo-recenter-compilation-buffer #[(linenum) "!p! ! !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 that 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 'makeinfo)