From becff06c71d277647eda4378203d03ab36e141eb Mon Sep 17 00:00:00 2001 From: mattkae Date: Tue, 17 May 2022 07:07:37 -0400 Subject: Evil mode and latex support --- elpa/auctex-13.1.3/style/ngerman.el | 46 +++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/ngerman.el (limited to 'elpa/auctex-13.1.3/style/ngerman.el') diff --git a/elpa/auctex-13.1.3/style/ngerman.el b/elpa/auctex-13.1.3/style/ngerman.el new file mode 100644 index 0000000..6081615 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ngerman.el @@ -0,0 +1,46 @@ +;;; ngerman.el --- Setup AUCTeX for editing German text. -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; Cater for some specialities of `(n)german.sty', e.g. special quote +;; and hyphen strings or that `"' makes the following letter an +;; umlaut. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defvar LaTeX-german-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `german.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table) + +(TeX-add-style-hook + "ngerman" + (lambda () + (set-syntax-table LaTeX-german-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language '("ngerman" "\"`" "\"'" t))) + (setq LaTeX-babel-hyphen-language "ngerman") + ;; Fontification + (when (and (eq TeX-install-font-lock 'font-latex-setup) + (featurep 'font-latex)) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\">" "\"<" german)) + ;; Prevent "| from leading to color bleed. + (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))) + (run-hooks 'TeX-language-de-hook)) + TeX-dialect) + +;;; ngerman.el ends here -- cgit v1.2.1