[Emacs-diffs] trunk r117826: New custom variable `tex-print-file-extension' to help users who use PDF instead of DVI.

[Sam Steingold]

------------------------------------------------------------
revno: 117826
revision-id: address@hidden
parent: address@hidden
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Fri 2014-09-05 15:07:52 -0400
message:
  New custom variable `tex-print-file-extension' to help users who use PDF 
instead of DVI.
  
  * lisp/textmodes/tex-mode.el (tex-print-file-extension): New user
  option.
  (tex-print): Use it instead of the hard-coded string.
modified:
  etc/NEWS                       news-20100311060928-aoit31wvzf25yr1z-1
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/tex-mode.el     texmode.el-20091113204419-o5vbwnq5f7feedwu-132

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2014-09-05 10:29:34 +0000
+++ b/etc/NEWS  2014-09-05 19:07:52 +0000
@@ -163,6 +163,11 @@
 *** 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
 
 ---

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-09-05 14:12:48 +0000
+++ b/lisp/ChangeLog    2014-09-05 19:07:52 +0000
@@ -1,3 +1,9 @@
+2014-09-05  Sam Steingold  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp-sh.el (tramp-sh-handle-start-file-process):

=== modified file 'lisp/textmodes/tex-mode.el'
--- a/lisp/textmodes/tex-mode.el        2014-07-27 11:38:59 +0000
+++ b/lisp/textmodes/tex-mode.el        2014-09-05 19:07:52 +0000
@@ -2573,18 +2573,28 @@
                      (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))