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

diff --git a/packages/auctex/style/german.el b/packages/auctex/style/german.el
index 3676176d6..d1acbbfe4 100644
--- a/packages/auctex/style/german.el
+++ b/packages/auctex/style/german.el
@@ -38,9 +38,12 @@
 	     `("german" ,open-quote ,close-quote ,q-after-q))))
    (setq LaTeX-babel-hyphen-language "german")
    ;; Fontification of quotation marks.
-   (when (fboundp 'font-latex-add-quotes)
+   (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)))
 
 ;;; german.el ends here