emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Stefan Monnier
Subject: [Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el
Date: Thu, 30 Oct 2003 17:27:33 -0500

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.139 
emacs/lisp/textmodes/tex-mode.el:1.140
*** emacs/lisp/textmodes/tex-mode.el:1.139      Mon Sep  1 11:45:40 2003
--- emacs/lisp/textmodes/tex-mode.el    Thu Oct 30 17:27:32 2003
***************
*** 1584,1589 ****
--- 1584,1590 ----
             " " (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")
***************
*** 1592,1597 ****
--- 1593,1599 ----
      ("dvipdfm %r" "%r.dvi" "%r.pdf")
      ("dvipdf %r" "%r.dvi" "%r.pdf")
      ("dvips %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")
***************
*** 1670,1676 ****
                            (tex-guess-main-file 'sub)
                            ;; (tex-guess-main-file t)
                            buffer-file-name)))))))
!     (if (file-exists-p file) file (concat file ".tex"))))
  
  (defun tex-summarize-command (cmd)
    (if (not (stringp cmd)) ""
--- 1672,1679 ----
                            (tex-guess-main-file 'sub)
                            ;; (tex-guess-main-file t)
                            buffer-file-name)))))))
!     (if (or (file-exists-p file) (string-match "\\.tex\\'" file))
!       file (concat file ".tex"))))
  
  (defun tex-summarize-command (cmd)
    (if (not (stringp cmd)) ""
***************
*** 1717,1723 ****
         (uptodate t))
       (while (and files uptodate)
         (let ((f (pop files)))
!        (if (file-directory-p f)
             (unless (string-match ignored-dirs-re f)
               (setq files (nconc
                            (directory-files f t tex-input-files-re)
--- 1720,1728 ----
         (uptodate t))
       (while (and files uptodate)
         (let ((f (pop files)))
!        (if (and (file-directory-p f)
!                 ;; Avoid infinite loops.
!                 (not (file-symlink-p f)))
             (unless (string-match ignored-dirs-re f)
               (setq files (nconc
                            (directory-files f t tex-input-files-re)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]