118
|
1 ;;; german.el - Setup AUC TeX for editing German text.
|
|
2
|
|
3 ;; $Id: german.el,v 1.1 1997/04/05 17:56:46 steve Exp $
|
|
4
|
|
5 ;;; Commentary:
|
|
6 ;;
|
|
7 ;; `german.sty' use `"' to give next character an umlaut.
|
|
8
|
|
9 ;;; Code:
|
|
10
|
|
11 (defvar LaTeX-german-mode-syntax-table
|
|
12 (copy-syntax-table LaTeX-mode-syntax-table)
|
|
13 "Syntax table used in LaTeX mode when using `german.sty'.")
|
|
14
|
|
15 (modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table)
|
|
16
|
|
17 (TeX-add-style-hook "german"
|
|
18 (function (lambda ()
|
|
19 (set-syntax-table LaTeX-german-mode-syntax-table)
|
|
20 (make-local-variable 'TeX-open-quote)
|
|
21 (make-local-variable 'TeX-close-quote)
|
|
22 (make-local-variable 'TeX-quote-after-quote)
|
|
23 (setq TeX-quote-after-quote t)
|
|
24 (setq TeX-open-quote "\"`")
|
|
25 (setq TeX-close-quote "\"'")
|
|
26 (run-hooks 'TeX-language-de-hook))))
|
|
27
|
|
28 ;;; german.el ends here
|