;ELC ;;; compiled by jwz@thalidomide on Thu Oct 28 22:01:23 1993 ;;; from file /th/jwz/emacs19/lisp/packages/texnfo-tex.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 'shell) (defvar texinfo-tex-shell-cd-command "cd" "\ Command to give to shell running TeX to change directory.") (defvar texinfo-tex-command "tex" "\ *Command used by texinfo-tex-region to run tex on a region.") (defvar texinfo-texindex-command "texindex" "\ *Command used by texinfo-texindex to sort unsorted index files.") (defvar texinfo-tex-dvi-print-command "lpr -d" "\ *Command string used by \\[tex-print] to print a .dvi file.") (defvar texinfo-show-tex-queue-command "lpq" "\ *Command string used to show the Texinfo TeX print queue. Command is used by \\[texinfo-show-tex-print-queue] and it should show the queue that \\[texinfo-tex-print] puts jobs on.") (defvar texinfo-delete-from-print-queue-command "lprm" "\ *Command string used to delete a job from the line printer queue. Command is used by \\[texinfo-delete-from-tex-print-queue] based on number provided by a previous \\[texinfo-show-tex-print-queue] command.") (defvar texinfo-tex-trailer "@bye" "\ String appended after a region sent to TeX by texinfo-tex-region.") (defvar texinfo-tex-original-file "" "\ Original name of file on which to run TeX.") (defvar texinfo-tex-temp-file nil "\ Temporary file name used for text being sent as input to TeX.") (defvar texinfo-tex-root-temp-file nil "\ Temporary file name used for text being sent as input to TeX.") (fset 'texinfo-tex-region #[(beginning end) "ÀÁ!«‰ÂÃÄ!Å\"ˆªƒÆ ˆÇÈÉÊË !!!!‰ ÍPŠŒ~ˆebˆÏyˆ`eeebˆÓ`ŠÔyˆ`)Õ‰%ˆÔyˆ`W«ƒ`×Å#«™Ùyˆ`×ÕÅ#«ˆÙyˆ`ªƒeÓ^ÅÕ%ˆÓ]ÅÕ%ˆÝÞ! qˆá ˆâã!ˆ «„ cˆÓedÅÕ%ˆ-äÃÄ!å\"ˆæÄ'è)ãR\"ˆæÄ*èëR\"ˆìÙ!+‡" [get-buffer "*texinfo-tex-shell*" quit-process get-process "texinfo-tex-shell" t texinfo-tex-start-shell expand-file-name make-temp-name prin1-to-string read buffer-name texinfo-tex-root-temp-file ".tex" texinfo-tex-temp-file 100 header-end header-beginning search-end write-region 1 nil beginning search-forward texinfo-start-of-header 0 texinfo-end-of-header end texinfo-tex-trailer get-buffer-create " texinfo-trailer-buffer" temp-buffer local-tex-trailer erase-buffer insert-string "\n" set-process-sentinel texinfo-tex-shell-sentinel send-string texinfo-tex-shell-cd-command " " default-directory texinfo-tex-command "\n " texinfo-recenter-tex-output-buffer] 7 "\ Run tex on the current region. A temporary file is written in the default directory, and tex is run in that directory. The first line of the file is copied to the temporary file; and if the buffer has a header, it is written to the temporary file before the region itself. The buffer's header is all lines between the strings defined by texinfo-start-of-header and texinfo-end-of-header inclusive. The header must start in the first 100 lines. The value of texinfo-tex-trailer is appended to the temporary file after the region." "r"]) (fset 'texinfo-tex-buffer #[(buffer) "Àp!Á˜«…\nqˆª„Àp!ÄÁ!«‰ÅÆÇ!È\"ˆªƒÉ ˆ\n¬„ËÌ!‡Í «„ËÎ!‡ÏÆÇ!Ð\"ˆÑÇÓÔÊÄ\n!!!ÕR\"ˆÑÇÓ\n×R\"ˆ\nØÙÚ\n\"®‚\nGOÜØ!‡" [buffer-name "*texinfo-tex-shell*" buffer texinfo-tex-original-file get-buffer quit-process get-process "texinfo-tex-shell" t texinfo-tex-start-shell buffer-file-name error "Buffer not visiting any file!" buffer-modified-p "Buffer has been modified since last saved!" set-process-sentinel texinfo-tex-shell-sentinel send-string texinfo-tex-shell-cd-command " " file-name-directory "\n" texinfo-tex-command "\n " 0 string-match "\\.tex" texinfo-tex-root-temp-file texinfo-recenter-tex-output-buffer] 8 "\ Run TeX on current buffer. After running TeX the first time, you may have to run \\[texinfo-texindex] and then \\[texinfo-tex-buffer] again." (byte-code "Àp!Á˜«Œ\n«‰ÃÄÅ!\"ªˆÃÄÅ!Àp!\"C‡" [buffer-name "*texinfo-tex-shell*" texinfo-tex-root-temp-file read-string format "Run TeX on: " texinfo-tex-original-file] 4)]) (fset 'texinfo-texindex #[nil "ÀÁ\nà ÅÆ°\"ˆÇÈ!‡" [send-string "texinfo-tex-shell" texinfo-texindex-command " " texinfo-tex-root-temp-file ".??" "\n" texinfo-recenter-tex-output-buffer nil] 7 "\ Run texindex on unsorted index files. The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. Runs the shell command defined by texinfo-texindex-command." nil]) (fset 'texinfo-tex-print #[nil "ÀÁ\nà ÅÆ°\"ˆÇÈ!‡" [send-string "texinfo-tex-shell" texinfo-tex-dvi-print-command " " texinfo-tex-root-temp-file ".dvi" "\n" texinfo-recenter-tex-output-buffer nil] 7 "\ Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. Runs the shell command defined by texinfo-tex-dvi-print-command." nil]) (fset 'texinfo-tex-start-shell #[nil "ŠÀÁ!ˆÂÃÄÅÆ$qˆÇ! Ê !ˆË !ˆÌÍ!ˆÎ ÏU­ƒÐÑ!)‡" [require texinfo make-shell "texinfo-tex-shell" "/bin/sh" nil "-v" copy-keymap shell-mode-map texinfo-tex-shell-map texinfo-define-common-keys use-local-map run-hooks texinfo-tex-shell-hook buffer-size 0 sleep-for 1] 5]) (fset 'texinfo-quit-tex-job #[nil "ÀÁ!¬„ÂÃ!ˆŠÄÅ!qˆdbˆÆcˆÇ )‡" [get-process "texinfo-tex-shell" error "No TeX shell running." get-buffer "*texinfo-tex-shell*" "x" shell-send-input] 2 "\ Quit currently running TeX job, by sending an `x' to it." nil]) (fset 'texinfo-kill-tex-job #[nil "ÀÁ!­…ÂÀÁ!!‡" [get-process "texinfo-tex-shell" kill-process] 3 "\ Kill the currently running TeX job." nil]) (fset 'texinfo-tex-shell-sentinel #[(process event) "Áš­ŠŠÂqˆÃcˆÄ )‡" [event "killed\n" "*texinfo-tex-shell*" "\n" texinfo-tex-start-shell] 2 "\ Restart texinfo-tex-shell after it is killed."]) (fset 'texinfo-recenter-tex-output-buffer #[(linenum) "ÀÁ!p‰¬…ÄÅ!ªŸÆ !ˆÇ !ˆdbˆÈ «†Ê !ª„Ë Ì¥!ˆÆ\n!*‡" [get-buffer "*texinfo-tex-shell*" old-buffer texinfo-tex-shell message "No TeX output buffer" pop-to-buffer bury-buffer recenter linenum prefix-numeric-value window-height 2] 4 "\ Redisplay buffer of TeX job output 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"]) (fset 'texinfo-show-tex-print-queue #[nil "À ¬ƒÁ ˆÂà ÅP\"ˆÆÇ!‡" [texinfo-tex-shell-running-p texinfo-tex-start-shell send-string "texinfo-tex-shell" texinfo-show-tex-queue-command "\n" texinfo-recenter-tex-output-buffer nil] 4 "\ Show the print queue that \\[texinfo-tex-print] put your job on. Runs the shell command defined by texinfo-show-tex-queue-command." nil]) (fset 'texinfo-delete-from-tex-print-queue #[(job-number) "À «…Á ˆªƒÂ ˆÃÄ ÆÈR\"ˆÉÊ!‡" [texinfo-tex-shell-running-p texinfo-kill-tex-job texinfo-tex-start-shell send-string "texinfo-tex-shell" texinfo-delete-from-print-queue-command " " job-number "\n" texinfo-recenter-tex-output-buffer nil] 6 "\ Delete job from the line printer spooling queue. You are prompted for the job number (shown by a previous \\[texinfo-show-tex-print-queue] command." "nPrinter job number for deletion: "]) (byte-code "ÀÁMˆÂÃ!‡" [texinfo-tex-shell-running-p #[nil "ÀÁ!­‡ÂÀÁ!!Ã=‡" [get-process "texinfo-tex-shell" process-status run] 3] provide texnfo-tex] 2)