Mercurial > emacs
comparison lisp/textmodes/texinfo.el @ 1730:f79966ac4f9d
(texinfo-tex-command): Use texi2dvi.
(texinfo-texindex, texinfo-texindex-command): Commented out.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 30 Dec 1992 08:14:01 +0000 |
parents | a52da8d63ff3 |
children | ce05243e2491 |
comparison
equal
deleted
inserted
replaced
1729:5c3898c5aa2d | 1730:f79966ac4f9d |
---|---|
51 | 51 |
52 (define-key texinfo-mode-map "\C-c\C-t\C-k" 'tex-kill-job) | 52 (define-key texinfo-mode-map "\C-c\C-t\C-k" 'tex-kill-job) |
53 (define-key texinfo-mode-map "\C-c\C-t\C-l" 'tex-recenter-output-buffer) | 53 (define-key texinfo-mode-map "\C-c\C-t\C-l" 'tex-recenter-output-buffer) |
54 (define-key texinfo-mode-map "\C-c\C-t\C-q" 'tex-show-print-queue) | 54 (define-key texinfo-mode-map "\C-c\C-t\C-q" 'tex-show-print-queue) |
55 (define-key texinfo-mode-map "\C-c\C-t\C-p" 'texinfo-tex-print) | 55 (define-key texinfo-mode-map "\C-c\C-t\C-p" 'texinfo-tex-print) |
56 (define-key texinfo-mode-map "\C-c\C-t\C-i" 'texinfo-texindex) | 56 ;; (define-key texinfo-mode-map "\C-c\C-t\C-i" 'texinfo-texindex) |
57 (define-key texinfo-mode-map "\C-c\C-t\C-t" 'texinfo-tex-buffer) | 57 (define-key texinfo-mode-map "\C-c\C-t\C-t" 'texinfo-tex-buffer) |
58 (define-key texinfo-mode-map "\C-c\C-t\C-r" 'texinfo-tex-region) | 58 (define-key texinfo-mode-map "\C-c\C-t\C-r" 'texinfo-tex-region) |
59 | 59 |
60 (define-key texinfo-mode-map "\C-c\C-i\C-r" 'texinfo-format-region) | 60 (define-key texinfo-mode-map "\C-c\C-i\C-r" 'texinfo-format-region) |
61 (define-key texinfo-mode-map "\C-c\C-i\C-b" 'texinfo-format-buffer) | 61 (define-key texinfo-mode-map "\C-c\C-i\C-b" 'texinfo-format-buffer) |
308 ; tex-zap-file nil (created as needed) | 308 ; tex-zap-file nil (created as needed) |
309 | 309 |
310 | 310 |
311 ;;; The tex and print function definitions: | 311 ;;; The tex and print function definitions: |
312 | 312 |
313 (defvar texinfo-tex-command "tex" | 313 (defvar texinfo-tex-command "texi2dvi" |
314 "*Command used by texinfo-tex-region to run tex on a region.") | 314 "*Command used by texinfo-tex-region to run tex on a region.") |
315 | 315 |
316 (defvar texinfo-texindex-command "texindex" | 316 ;;(defvar texinfo-texindex-command "texindex" |
317 "*Command used by texinfo-texindex to sort unsorted index files.") | 317 ;; "*Command used by texinfo-texindex to sort unsorted index files.") |
318 | 318 |
319 (defun texinfo-tex-region (beg end) | 319 (defun texinfo-tex-region (beg end) |
320 "Run tex on the current region. | 320 "Run tex on the current region. |
321 A temporary file (`tex-zap-file') is written in directory `tex-directory', and | 321 A temporary file (`tex-zap-file') is written in directory `tex-directory', and |
322 tex is run in that directory. The first line of the file is copied to the | 322 tex is run in that directory. The first line of the file is copied to the |
393 "Run tex on current buffer. | 393 "Run tex on current buffer. |
394 See \\[texinfo-tex-region] for more information." | 394 See \\[texinfo-tex-region] for more information." |
395 (interactive) | 395 (interactive) |
396 (texinfo-tex-region (point-min) (point-max))) | 396 (texinfo-tex-region (point-min) (point-max))) |
397 | 397 |
398 (defun texinfo-texindex () | 398 ;;(defun texinfo-texindex () |
399 "Run texindex on unsorted index files. | 399 ;; "Run texindex on unsorted index files. |
400 The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. | 400 ;;The index files are made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. |
401 Runs the shell command defined by `texinfo-texindex-command'." | 401 ;;Runs the shell command defined by `texinfo-texindex-command'." |
402 (interactive) | 402 ;; (interactive) |
403 (send-string "tex-shell" | 403 ;; (send-string "tex-shell" |
404 (concat texinfo-texindex-command | 404 ;; (concat texinfo-texindex-command |
405 " " tex-zap-file ".??" "\n")) | 405 ;; " " tex-zap-file ".??" "\n")) |
406 (tex-recenter-output-buffer nil)) | 406 ;; (tex-recenter-output-buffer nil)) |
407 | 407 |
408 (defun texinfo-tex-print () | 408 (defun texinfo-tex-print () |
409 "Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. | 409 "Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. |
410 Runs the shell command defined by `tex-dvi-print-command'." | 410 Runs the shell command defined by `tex-dvi-print-command'." |
411 (interactive) | 411 (interactive) |