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

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