/[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.163 by lute, Fri May 27 12:59:58 2005 UTC revision 1.164 by karl, Sat May 28 16:57:21 2005 UTC
# Line 1633  If NOT-ALL is non-nil, save the `.dvi' f Line 1633  If NOT-ALL is non-nil, save the `.dvi' f
1633  (defvar tex-compile-commands  (defvar tex-compile-commands
1634    '(((concat "pdf" tex-command    '(((concat "pdf" tex-command
1635               " " (if (< 0 (length tex-start-commands))               " " (if (< 0 (length tex-start-commands))
1636                       (shell-quote-argument tex-start-commands)) " %f")                       tex-start-commands) " %f")
1637       t "%r.pdf")       t "%r.pdf")
1638      ((concat tex-command      ((concat tex-command
1639               " " (if (< 0 (length tex-start-commands))               " " (if (< 0 (length tex-start-commands))
1640                       (shell-quote-argument tex-start-commands)) " %f")                       tex-start-commands) " %f")
1641       t "%r.dvi")       t "%r.dvi")
1642      ("yap %r &" "%r.dvi")      ("yap %r &" "%r.dvi")
1643      ("xdvi %r &" "%r.dvi")      ("xdvi %r &" "%r.dvi")
# Line 1900  FILE is typically the output DVI or PDF Line 1900  FILE is typically the output DVI or PDF
1900              (prog1 (file-name-directory (expand-file-name file))              (prog1 (file-name-directory (expand-file-name file))
1901                (setq file (file-name-nondirectory file))))                (setq file (file-name-nondirectory file))))
1902            (root (file-name-sans-extension file))            (root (file-name-sans-extension file))
1903            (fspec (list (cons ?r (shell-quote-argument root))            (fspec (list (cons ?r root)
1904                         (cons ?f (shell-quote-argument file))))                         (cons ?f file)))
1905            (default (tex-compile-default fspec)))            (default (tex-compile-default fspec)))
1906       (list default-directory       (list default-directory
1907             (completing-read             (completing-read
# Line 1922  FILE is typically the output DVI or PDF Line 1922  FILE is typically the output DVI or PDF
1922           (compile-command           (compile-command
1923            (if star            (if star
1924                (concat (substring command 0 star)                (concat (substring command 0 star)
1925                        (shell-quote-argument file)                        file
1926                        (substring command (1+ star)))                        (substring command (1+ star)))
1927              (concat command " "              (concat command " "
1928                      tex-start-options                      tex-start-options
1929                      (if (< 0 (length tex-start-commands))                      (if (< 0 (length tex-start-commands))
1930                          (concat                          (concat tex-start-commands " "))
1931                           (shell-quote-argument tex-start-commands) " "))                      file))))
                     (shell-quote-argument file)))))  
1932      (tex-send-tex-command compile-command dir)))      (tex-send-tex-command compile-command dir)))
1933    
1934  (defun tex-send-tex-command (cmd &optional dir)  (defun tex-send-tex-command (cmd &optional dir)
# Line 2232  is provided, use the alternative command Line 2231  is provided, use the alternative command
2231          (tex-start-shell))          (tex-start-shell))
2232        (tex-send-command        (tex-send-command
2233         (if alt tex-alt-dvi-print-command tex-dvi-print-command)         (if alt tex-alt-dvi-print-command tex-dvi-print-command)
2234         (shell-quote-argument         print-file-name-dvi
         print-file-name-dvi)  
2235         t))))         t))))
2236    
2237  (defun tex-alt-print ()  (defun tex-alt-print ()

Legend:
Removed from v.1.163  
changed lines
  Added in v.1.164

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