1 ;;; tex-mik.el --- MiKTeX support for AUCTeX.
3 ;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc.
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Maintainer: auctex-devel@gnu.org
9 ;; This file is part of AUCTeX.
11 ;; AUCTeX is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 3, or (at your option)
16 ;; AUCTeX is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with AUCTeX; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
28 ;; This file contains variables customized for MiKTeX.
32 ;; Remove the Queue entry from the default, and make a non-Unix
33 ;; specific print entry, assuming that we'll print via gsview32.
34 (unless (get 'TeX-queue-command 'saved-value)
35 (setq TeX-queue-command nil))
37 (unless (get 'TeX-printer-list 'saved-value)
38 (setq TeX-printer-list nil))
40 (unless (get 'TeX-print-command 'saved-value)
41 (setq TeX-print-command
44 (unless (get 'TeX-view-style 'saved-value)
45 (setq TeX-view-style '(("^epsf$" "start \"\" %f")
46 ("." "yap -1 %dS %d"))))
48 (unless (get 'TeX-output-view-style 'saved-value)
49 (setq TeX-output-view-style
50 '(("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "dvips %d -o && start \"\" %f")
51 ("^dvi$" "." "yap -1 %dS %d")
52 ("^pdf$" "." "start \"\" %o")
53 ("^html?$" "." "start \"\" %o"))))
55 (unless (get 'TeX-source-specials-view-position-flags 'saved-value)
56 (setq TeX-source-specials-view-position-flags "-s %n%b"))
58 ;; Yap does not support a command line option for inverse searching.
59 ;; The editor command has to be configured inside Yap in
60 ;; "View/Options/Inverse Search" instead.
61 (unless (get 'TeX-source-specials-view-editor-flags 'saved-value)
62 (setq TeX-source-specials-view-editor-flags ""))
64 ;; kpsewhich in MiKTeX (aka findtexmf) does not emit any useful
65 ;; information if fed with kpathsea-related variables anyway.
66 (unless (get 'TeX-kpathsea-path-delimiter 'saved-value)
67 (setq TeX-kpathsea-path-delimiter nil))
71 ;;; tex-mik.el ends here