cgit.sxemacs.org Git - packages/blob - xemacs-packages/auctex/tex-mik.el

   1 ;;; tex-mik.el --- MiKTeX support for AUCTeX.
   2
   3 ;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc.
   4
   5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
   6 ;; Maintainer: auctex-devel@gnu.org
   7 ;; Keywords: tex
   8
   9 ;; This file is part of AUCTeX.
  10
  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)
  14 ;; any later version.
  15
  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.
  20
  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
  24 ;; 02110-1301, USA.
  25
  26 ;;; Commentary:
  27 ;;
  28 ;; This file contains variables customized for MiKTeX.
  29
  30 ;;; Code:
  31
  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))
  36
  37 (unless (get 'TeX-printer-list 'saved-value)
  38   (setq TeX-printer-list nil))
  39
  40 (unless (get 'TeX-print-command 'saved-value)
  41   (setq TeX-print-command
  42         "start \"\" %f"))
  43
  44 (unless (get 'TeX-view-style 'saved-value)
  45   (setq TeX-view-style '(("^epsf$" "start \"\" %f")
  46                          ("." "yap -1 %dS %d"))))
  47
  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"))))
  54
  55 (unless (get 'TeX-source-specials-view-position-flags 'saved-value)
  56   (setq TeX-source-specials-view-position-flags "-s %n%b"))
  57
  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 ""))
  63
  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))
  68
  69 (provide 'tex-mik)
  70
  71 ;;; tex-mik.el ends here