24
|
1 ;;; plhb.el - Setup AUC TeX for editing Polish text with plhb.sty
|
|
2
|
|
3 ;; $Id: plhb.el,v 1.1 1997/02/20 02:15:21 steve 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
|