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

diff --git a/packages/auctex/style/german.el b/packages/auctex/style/german.el
index d1acbbfe4..3676176d6 100644
--- a/packages/auctex/style/german.el
+++ b/packages/auctex/style/german.el
@@ -38,12 +38,9 @@
 	     `("german" ,open-quote ,close-quote ,q-after-q))))
    (setq LaTeX-babel-hyphen-language "german")
    ;; Fontification of quotation marks.
-   (when (and (eq TeX-install-font-lock 'font-latex-setup)
-	      (featurep 'font-latex))
+   (when (fboundp 'font-latex-add-quotes)
      (font-latex-add-quotes '("\"`" "\"'"))
-     (font-latex-add-quotes '("\">" "\"<" german))
-     ;; Prevent "| from leading to color bleed.
-     (font-latex-add-to-syntax-alist (list (cons ?\" "\\"))))
+     (font-latex-add-quotes '("\">" "\"<" german)))
    (run-hooks 'TeX-language-de-hook)))
 
 ;;; german.el ends here