procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New custom variable `tex-print-file-extension' to help users who use PDF instead of DVI.

Browse source 
* lisp/textmodes/tex-mode.el (tex-print-file-extension): New user
option.
(tex-print): Use it instead of the hard-coded string.
This commit is contained in:
Sam Steingold 2014-09-05 15:07:52 -04:00
parent 833cea36b9
commit 2beb60dc10
3 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/NEWS
View file

@ -163,6 +163,11 @@ reinclusion protected header files from being fully hidden.
*** New custom variable `hide-ifdef-exclude-define-regexp' to define symbol
name patterns (e.x. all "FOR_DOXYGEN_ONLY_*") to be excluded.
** TeX mode
*** New custom variable `tex-print-file-extension' to help users who
use PDF instead of DVI.
** Obsolete packages
---

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2014-09-05 Sam Steingold <sds@gnu.org>
* textmodes/tex-mode.el (tex-print-file-extension): New user
option.
(tex-print): Use it instead of the hard-coded string.
2014-09-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-start-file-process):

14
lisp/textmodes/tex-mode.el
View file

@ -2573,18 +2573,28 @@ line LINE of the window, or centered if LINE is nil."
(prefix-numeric-value linenum)
(/ (window-height) 2)))))))
(defcustom tex-print-file-extension ".dvi"
"The TeX-compiled file extension for viewing and printing.
If you use pdflatex instead of latex, set this to \".pdf\" and modify
`tex-dvi-view-command' and `tex-dvi-print-command' appropriatelty."
:type 'string
:group 'tex-view
:version "24.5")
(defun tex-print (&optional alt)
"Print the .dvi file made by \\[tex-region], \\[tex-buffer] or \\[tex-file].
Runs the shell command defined by `tex-dvi-print-command'. If prefix argument
is provided, use the alternative command, `tex-alt-dvi-print-command'."
(interactive "P")
(let ((print-file-name-dvi (tex-append tex-print-file ".dvi"))
(let ((print-file-name-dvi (tex-append tex-print-file
tex-print-file-extension))
test-name)
(if (and (not (equal (current-buffer) tex-last-buffer-texed))
(buffer-file-name)
;; Check that this buffer's printed file is up to date.
(file-newer-than-file-p
(setq test-name (tex-append (buffer-file-name) ".dvi"))
(setq test-name (tex-append (buffer-file-name)
tex-print-file-extension))
(buffer-file-name)))
(setq print-file-name-dvi test-name))
(if (not (file-exists-p print-file-name-dvi))