X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/1b589bba5f75a9ff86de6069604006c01b021578..fe623377defcfb3a80ce30b2b4c8f62d9999818f:/packages/auctex/style/ngerman.el

diff --git a/packages/auctex/style/ngerman.el b/packages/auctex/style/ngerman.el
index d6b972acf..8acd2f560 100644
--- a/packages/auctex/style/ngerman.el
+++ b/packages/auctex/style/ngerman.el
@@ -37,10 +37,13 @@
        (setq TeX-quote-language
 	     `("ngerman" ,open-quote ,close-quote ,q-after-q))))
    (setq LaTeX-babel-hyphen-language "ngerman")
-   ;; Fontification of quotation marks.
-   (when (fboundp 'font-latex-add-quotes)
+   ;; Fontification
+   (when (and (eq TeX-install-font-lock 'font-latex-setup)
+	      (featurep 'font-latex))
      (font-latex-add-quotes '("\"`" "\"'"))
-     (font-latex-add-quotes '("\">" "\"<" german)))
+     (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)))
 
 ;;; ngerman.el ends here