[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.165 
emacs/lisp/textmodes/tex-mode.el:1.166
*** emacs/lisp/textmodes/tex-mode.el:1.165      Mon May 30 20:37:31 2005
--- emacs/lisp/textmodes/tex-mode.el    Mon Jun  6 21:15:03 2005
***************
*** 795,801 ****
                      (regexp-opt '("documentstyle" "documentclass"
                                    "begin" "subsection" "section"
                                    "part" "chapter" "newcommand"
!                                   "renewcommand") 'words)
                      "\\|NeedsTeXFormat{LaTeX")))
                  (if (and (looking-at
                            
"document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}")
--- 795,801 ----
                      (regexp-opt '("documentstyle" "documentclass"
                                    "begin" "subsection" "section"
                                    "part" "chapter" "newcommand"
!                                   "renewcommand" "RequirePackage") 'words)
                      "\\|NeedsTeXFormat{LaTeX")))
                  (if (and (looking-at
                            
"document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}")
***************
*** 1639,1647 ****
             " " (if (< 0 (length tex-start-commands))
                     (shell-quote-argument tex-start-commands)) " %f")
       t "%r.dvi")
-     ("yap %r &" "%r.dvi")
      ("xdvi %r &" "%r.dvi")
      ("advi %r &" "%r.dvi")
      ("bibtex %r" "%r.aux" "%r.bbl")
      ("makeindex %r" "%r.idx" "%r.ind")
      ("texindex %r.??")
--- 1639,1650 ----
             " " (if (< 0 (length tex-start-commands))
                     (shell-quote-argument tex-start-commands)) " %f")
       t "%r.dvi")
      ("xdvi %r &" "%r.dvi")
+     ("xpdf %r.pdf &" "%r.pdf")
+     ("gv %r.ps &" "%r.ps")
+     ("yap %r &" "%r.dvi")
      ("advi %r &" "%r.dvi")
+     ("gv %r.pdf &" "%r.pdf")
      ("bibtex %r" "%r.aux" "%r.bbl")
      ("makeindex %r" "%r.idx" "%r.ind")
      ("texindex %r.??")
***************
*** 1649,1657 ****
      ("dvipdf %r" "%r.dvi" "%r.pdf")
      ("dvips -o %r.ps %r" "%r.dvi" "%r.ps")
      ("ps2pdf %r.ps" "%r.ps" "%r.pdf")
-     ("gv %r.ps &" "%r.ps")
-     ("gv %r.pdf &" "%r.pdf")
-     ("xpdf %r.pdf &" "%r.pdf")
      ("lpr %r.ps" "%r.ps"))
    "List of commands for `tex-compile'.
  Each element should be of the form (FORMAT IN OUT) where
--- 1652,1657 ----
***************
*** 1830,1837 ****
            (push cmd cmds)
          (push (nth 1 cmd) unchanged-in))))
      ;; If no command seems to be applicable, arbitrarily pick the first one.
!     (unless cmds
!       (setq cmds (list (car tex-compile-commands))))
      ;; Remove those commands whose input was considered stable for
      ;; some other command (typically if (t . "%.pdf") is inactive
      ;; then we're using pdflatex and the fact that the dvi file
--- 1830,1836 ----
            (push cmd cmds)
          (push (nth 1 cmd) unchanged-in))))
      ;; If no command seems to be applicable, arbitrarily pick the first one.
!     (setq cmds (if cmds (nreverse cmds) (list (car tex-compile-commands))))
      ;; Remove those commands whose input was considered stable for
      ;; some other command (typically if (t . "%.pdf") is inactive
      ;; then we're using pdflatex and the fact that the dvi file
***************
*** 1841,1847 ****
        (unless (member (nth 1 cmd) unchanged-in)
          (push cmd tmp)))
        ;; Only remove if there's something left.
!       (if tmp (setq cmds tmp)))
      ;; Remove commands whose input is not uptodate either.
      (let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds)))
          (tmp nil))
--- 1840,1846 ----
        (unless (member (nth 1 cmd) unchanged-in)
          (push cmd tmp)))
        ;; Only remove if there's something left.
!       (if tmp (setq cmds (nreverse tmp))))
      ;; Remove commands whose input is not uptodate either.
      (let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds)))
          (tmp nil))
***************
*** 1849,1855 ****
        (unless (member (nth 1 cmd) outs)
          (push cmd tmp)))
        ;; Only remove if there's something left.
!       (if tmp (setq cmds tmp)))
      ;; Select which file we're going to operate on (the latest).
      (let ((latest (nth 1 (car cmds))))
        (dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds)))))
--- 1848,1854 ----
        (unless (member (nth 1 cmd) outs)
          (push cmd tmp)))
        ;; Only remove if there's something left.
!       (if tmp (setq cmds (nreverse tmp))))
      ;; Select which file we're going to operate on (the latest).
      (let ((latest (nth 1 (car cmds))))
        (dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds)))))