mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(texinfo-tex-command): Use texi2dvi.

Browse Source 
(texinfo-texindex, texinfo-texindex-command): Commented out.
This commit is contained in:
Richard M. Stallman 1992-12-30 08:14:01 +00:00
parent 1df181b65f
commit 76a66e5e9f
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/textmodes/texinfo.el
View File

@ -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-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-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-r" 'texinfo-tex-region)
@ -310,11 +310,11 @@ to jump to the corresponding spot in the Texinfo file."
;;; 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.")
(defvar texinfo-texindex-command "texindex"
"*Command used by texinfo-texindex to sort unsorted index files.")
;;(defvar texinfo-texindex-command "texindex"
;; "*Command used by texinfo-texindex to sort unsorted index files.")
(defun texinfo-tex-region (beg end)
"Run tex on the current region.
@ -395,15 +395,15 @@ See \\[texinfo-tex-region] for more information."
(interactive)
(texinfo-tex-region (point-min) (point-max)))
(defun texinfo-texindex ()
"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'."
(interactive)
(send-string "tex-shell"
(concat texinfo-texindex-command
" " tex-zap-file ".??" "\n"))
(tex-recenter-output-buffer nil))
;;(defun texinfo-texindex ()
;; "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'."
;; (interactive)
;; (send-string "tex-shell"
;; (concat texinfo-texindex-command
;; " " tex-zap-file ".??" "\n"))
;; (tex-recenter-output-buffer nil))
(defun texinfo-tex-print ()
"Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer].