/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123.2.2 by miles, Tue Oct 14 23:30:22 2003 UTC revision 1.123.2.3 by miles, Fri Nov 21 00:36:09 2003 UTC
# Line 1584  If NOT-ALL is non-nil, save the `.dvi' f Line 1584  If NOT-ALL is non-nil, save the `.dvi' f
1584               " " (if (< 0 (length tex-start-commands))               " " (if (< 0 (length tex-start-commands))
1585                       (shell-quote-argument tex-start-commands)) " %f")                       (shell-quote-argument tex-start-commands)) " %f")
1586       t "%r.dvi")       t "%r.dvi")
1587        ("yap %r &" "%r.dvi")
1588      ("xdvi %r &" "%r.dvi")      ("xdvi %r &" "%r.dvi")
1589      ("advi %r &" "%r.dvi")      ("advi %r &" "%r.dvi")
1590      ("bibtex %r" "%r.aux" "%r.bbl")      ("bibtex %r" "%r.aux" "%r.bbl")
# Line 1592  If NOT-ALL is non-nil, save the `.dvi' f Line 1593  If NOT-ALL is non-nil, save the `.dvi' f
1593      ("dvipdfm %r" "%r.dvi" "%r.pdf")      ("dvipdfm %r" "%r.dvi" "%r.pdf")
1594      ("dvipdf %r" "%r.dvi" "%r.pdf")      ("dvipdf %r" "%r.dvi" "%r.pdf")
1595      ("dvips %r" "%r.dvi" "%r.ps")      ("dvips %r" "%r.dvi" "%r.ps")
1596        ("ps2pdf %r.ps" "%r.ps" "%r.pdf")
1597      ("gv %r.ps &" "%r.ps")      ("gv %r.ps &" "%r.ps")
1598      ("gv %r.pdf &" "%r.pdf")      ("gv %r.pdf &" "%r.pdf")
1599      ("xpdf %r.pdf &" "%r.pdf")      ("xpdf %r.pdf &" "%r.pdf")
# Line 1670  of the current buffer." Line 1672  of the current buffer."
1672                              (tex-guess-main-file 'sub)                              (tex-guess-main-file 'sub)
1673                              ;; (tex-guess-main-file t)                              ;; (tex-guess-main-file t)
1674                              buffer-file-name)))))))                              buffer-file-name)))))))
1675      (if (file-exists-p file) file (concat file ".tex"))))      (if (or (file-exists-p file) (string-match "\\.tex\\'" file))
1676            file (concat file ".tex"))))
1677    
1678  (defun tex-summarize-command (cmd)  (defun tex-summarize-command (cmd)
1679    (if (not (stringp cmd)) ""    (if (not (stringp cmd)) ""
# Line 1717  FILE is typically the output DVI or PDF Line 1720  FILE is typically the output DVI or PDF
1720           (uptodate t))           (uptodate t))
1721       (while (and files uptodate)       (while (and files uptodate)
1722         (let ((f (pop files)))         (let ((f (pop files)))
1723           (if (file-directory-p f)           (if (and (file-directory-p f)
1724                      ;; Avoid infinite loops.
1725                      (not (file-symlink-p f)))
1726               (unless (string-match ignored-dirs-re f)               (unless (string-match ignored-dirs-re f)
1727                 (setq files (nconc                 (setq files (nconc
1728                              (directory-files f t tex-input-files-re)                              (directory-files f t tex-input-files-re)

Legend:
Removed from v.1.123.2.2  
changed lines
  Added in v.1.123.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26