cgit.sxemacs.org Git - packages/blob - xemacs-packages/auctex/style/plfonts.el

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