/[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.165 by monnier, Mon May 30 20:37:31 2005 UTC revision 1.166 by monnier, Mon Jun 6 21:15:03 2005 UTC
# Line 795  Inherits `shell-mode-map' with a few add Line 795  Inherits `shell-mode-map' with a few add
795                        (regexp-opt '("documentstyle" "documentclass"                        (regexp-opt '("documentstyle" "documentclass"
796                                      "begin" "subsection" "section"                                      "begin" "subsection" "section"
797                                      "part" "chapter" "newcommand"                                      "part" "chapter" "newcommand"
798                                      "renewcommand") 'words)                                      "renewcommand" "RequirePackage") 'words)
799                        "\\|NeedsTeXFormat{LaTeX")))                        "\\|NeedsTeXFormat{LaTeX")))
800                    (if (and (looking-at                    (if (and (looking-at
801                              "document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}")                              "document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}")
# Line 1639  If NOT-ALL is non-nil, save the `.dvi' f Line 1639  If NOT-ALL is non-nil, save the `.dvi' f
1639               " " (if (< 0 (length tex-start-commands))               " " (if (< 0 (length tex-start-commands))
1640                       (shell-quote-argument tex-start-commands)) " %f")                       (shell-quote-argument tex-start-commands)) " %f")
1641       t "%r.dvi")       t "%r.dvi")
     ("yap %r &" "%r.dvi")  
1642      ("xdvi %r &" "%r.dvi")      ("xdvi %r &" "%r.dvi")
1643        ("xpdf %r.pdf &" "%r.pdf")
1644        ("gv %r.ps &" "%r.ps")
1645        ("yap %r &" "%r.dvi")
1646      ("advi %r &" "%r.dvi")      ("advi %r &" "%r.dvi")
1647        ("gv %r.pdf &" "%r.pdf")
1648      ("bibtex %r" "%r.aux" "%r.bbl")      ("bibtex %r" "%r.aux" "%r.bbl")
1649      ("makeindex %r" "%r.idx" "%r.ind")      ("makeindex %r" "%r.idx" "%r.ind")
1650      ("texindex %r.??")      ("texindex %r.??")
# Line 1649  If NOT-ALL is non-nil, save the `.dvi' f Line 1652  If NOT-ALL is non-nil, save the `.dvi' f
1652      ("dvipdf %r" "%r.dvi" "%r.pdf")      ("dvipdf %r" "%r.dvi" "%r.pdf")
1653      ("dvips -o %r.ps %r" "%r.dvi" "%r.ps")      ("dvips -o %r.ps %r" "%r.dvi" "%r.ps")
1654      ("ps2pdf %r.ps" "%r.ps" "%r.pdf")      ("ps2pdf %r.ps" "%r.ps" "%r.pdf")
     ("gv %r.ps &" "%r.ps")  
     ("gv %r.pdf &" "%r.pdf")  
     ("xpdf %r.pdf &" "%r.pdf")  
1655      ("lpr %r.ps" "%r.ps"))      ("lpr %r.ps" "%r.ps"))
1656    "List of commands for `tex-compile'.    "List of commands for `tex-compile'.
1657  Each element should be of the form (FORMAT IN OUT) where  Each element should be of the form (FORMAT IN OUT) where
# Line 1830  FILE is typically the output DVI or PDF Line 1830  FILE is typically the output DVI or PDF
1830              (push cmd cmds)              (push cmd cmds)
1831            (push (nth 1 cmd) unchanged-in))))            (push (nth 1 cmd) unchanged-in))))
1832      ;; If no command seems to be applicable, arbitrarily pick the first one.      ;; If no command seems to be applicable, arbitrarily pick the first one.
1833      (unless cmds      (setq cmds (if cmds (nreverse cmds) (list (car tex-compile-commands))))
       (setq cmds (list (car tex-compile-commands))))  
1834      ;; Remove those commands whose input was considered stable for      ;; Remove those commands whose input was considered stable for
1835      ;; some other command (typically if (t . "%.pdf") is inactive      ;; some other command (typically if (t . "%.pdf") is inactive
1836      ;; then we're using pdflatex and the fact that the dvi file      ;; then we're using pdflatex and the fact that the dvi file
# Line 1841  FILE is typically the output DVI or PDF Line 1840  FILE is typically the output DVI or PDF
1840          (unless (member (nth 1 cmd) unchanged-in)          (unless (member (nth 1 cmd) unchanged-in)
1841            (push cmd tmp)))            (push cmd tmp)))
1842        ;; Only remove if there's something left.        ;; Only remove if there's something left.
1843        (if tmp (setq cmds tmp)))        (if tmp (setq cmds (nreverse tmp))))
1844      ;; Remove commands whose input is not uptodate either.      ;; Remove commands whose input is not uptodate either.
1845      (let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds)))      (let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds)))
1846            (tmp nil))            (tmp nil))
# Line 1849  FILE is typically the output DVI or PDF Line 1848  FILE is typically the output DVI or PDF
1848          (unless (member (nth 1 cmd) outs)          (unless (member (nth 1 cmd) outs)
1849            (push cmd tmp)))            (push cmd tmp)))
1850        ;; Only remove if there's something left.        ;; Only remove if there's something left.
1851        (if tmp (setq cmds tmp)))        (if tmp (setq cmds (nreverse tmp))))
1852      ;; Select which file we're going to operate on (the latest).      ;; Select which file we're going to operate on (the latest).
1853      (let ((latest (nth 1 (car cmds))))      (let ((latest (nth 1 (car cmds))))
1854        (dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds)))))        (dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds)))))

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

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