code.delx.au - gnu-emacs-elpa/blob - packages/auctex-11.86/style/plfonts.el

   1 ;;; plfonts.el - Setup AUC TeX for editing Polish text with plfonts.sty
   2
   3 ;; $Id: plfonts.el,v 1.1 1994/01/30 21:17:25 amanda Exp $
   4
   5 ;;; Commentary:
   6 ;;
   7 ;; `plfonts.sty' use `"' to make next character Polish.
   8 ;; `plfonts.sty' <C> L. Holenderski, IIUW, lhol@mimuw.edu.pl
   9
  10 ;;; Code:
  11
  12 (defvar LaTeX-plfonts-mode-syntax-table
  13   (copy-syntax-table LaTeX-mode-syntax-table)
  14   "Syntax table used in LaTeX mode when using `plfonts.sty'.")
  15
  16 (modify-syntax-entry ?\"  "w"  LaTeX-plfonts-mode-syntax-table)
  17
  18 (TeX-add-style-hook "plfonts"
  19  (function (lambda ()
  20    (set-syntax-table LaTeX-plfonts-mode-syntax-table)
  21    (make-local-variable 'TeX-open-quote)
  22    (make-local-variable 'TeX-close-quote)
  23    (make-local-variable 'TeX-quote-after-quote)
  24    (make-local-variable 'TeX-command-default)
  25    (setq TeX-open-quote "\"<")
  26    (setq TeX-close-quote "\">")
  27    (setq TeX-quote-after-quote t)
  28    (setq TeX-command-default "plLaTeX")
  29    (run-hooks 'TeX-language-pl-hook))))
  30
  31 ;;; plfonts.el ends here