Mercurial > hg > xemacs-beta

comparison lisp/auctex/style/german.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents
children
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
1 ;;; german.el - Setup AUC TeX for editing German text.
2
3 ;; $Id: german.el,v 1.1 1997/02/20 02:15:19 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