Commit 76a66e5e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(texinfo-tex-command): Use texi2dvi.

(texinfo-texindex, texinfo-texindex-command): Commented out.
parent 1df181b6
...@@ -53,7 +53,7 @@ ...@@ -53,7 +53,7 @@
(define-key texinfo-mode-map "\C-c\C-t\C-l" 'tex-recenter-output-buffer) (define-key texinfo-mode-map "\C-c\C-t\C-l" 'tex-recenter-output-buffer)
(define-key texinfo-mode-map "\C-c\C-t\C-q" 'tex-show-print-queue) (define-key texinfo-mode-map "\C-c\C-t\C-q" 'tex-show-print-queue)
(define-key texinfo-mode-map "\C-c\C-t\C-p" 'texinfo-tex-print) (define-key texinfo-mode-map "\C-c\C-t\C-p" 'texinfo-tex-print)
(define-key texinfo-mode-map "\C-c\C-t\C-i" 'texinfo-texindex) ;; (define-key texinfo-mode-map "\C-c\C-t\C-i" 'texinfo-texindex)
(define-key texinfo-mode-map "\C-c\C-t\C-t" 'texinfo-tex-buffer) (define-key texinfo-mode-map "\C-c\C-t\C-t" 'texinfo-tex-buffer)
(define-key texinfo-mode-map "\C-c\C-t\C-r" 'texinfo-tex-region) (define-key texinfo-mode-map "\C-c\C-t\C-r" 'texinfo-tex-region)
...@@ -310,11 +310,11 @@ to jump to the corresponding spot in the Texinfo file." ...@@ -310,11 +310,11 @@ to jump to the corresponding spot in the Texinfo file."
;;; The tex and print function definitions: ;;; The tex and print function definitions:
(defvar texinfo-tex-command "tex" (defvar texinfo-tex-command "texi2dvi"
"*Command used by texinfo-tex-region to run tex on a region.") "*Command used by texinfo-tex-region to run tex on a region.")
(defvar texinfo-texindex-command "texindex" ;;(defvar texinfo-texindex-command "texindex"
"*Command used by texinfo-texindex to sort unsorted index files.") ;; "*Command used by texinfo-texindex to sort unsorted index files.")
(defun texinfo-tex-region (beg end) (defun texinfo-tex-region (beg end)
"Run tex on the current region. "Run tex on the current region.
...@@ -395,15 +395,15 @@ See \\[texinfo-tex-region] for more information." ...@@ -395,15 +395,15 @@ See \\[texinfo-tex-region] for more information."
(interactive) (interactive)
(texinfo-tex-region (point-min) (point-max))) (texinfo-tex-region (point-min) (point-max)))
(defun texinfo-texindex () ;;(defun texinfo-texindex ()
"Run texindex on unsorted index files. ;; "Run texindex on unsorted index files.
The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. ;;The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].
Runs the shell command defined by `texinfo-texindex-command'." ;;Runs the shell command defined by `texinfo-texindex-command'."
(interactive) ;; (interactive)
(send-string "tex-shell" ;; (send-string "tex-shell"
(concat texinfo-texindex-command ;; (concat texinfo-texindex-command
" " tex-zap-file ".??" "\n")) ;; " " tex-zap-file ".??" "\n"))
(tex-recenter-output-buffer nil)) ;; (tex-recenter-output-buffer nil))
(defun texinfo-tex-print () (defun texinfo-tex-print ()
"Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. "Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment