Mercurial > hg > xemacs-beta

comparison lisp/auctex/style/plhb.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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:43 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