X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/93098e354d2845727d8ce74c398d3d6f75265e69..b5b6e81fc774039ef24715808fa90e5e3b9ec76f:/packages/auctex/style/danish.el

diff --git a/packages/auctex/style/danish.el b/packages/auctex/style/danish.el
index 77a01642e..775fee045 100644
--- a/packages/auctex/style/danish.el
+++ b/packages/auctex/style/danish.el
@@ -5,12 +5,13 @@
 (TeX-add-style-hook
  "danish"
  (lambda ()
-   (setq TeX-quote-language `("danish" "\"`" "\"'" ,TeX-quote-after-quote))
+   (unless (eq (car TeX-quote-language) 'override)
+     (setq TeX-quote-language `("danish" "\"`" "\"'" ,TeX-quote-after-quote)))
    (setq LaTeX-babel-hyphen-language "danish")
    ;; Fontification of quotation marks.
    (when (fboundp 'font-latex-add-quotes)
      (font-latex-add-quotes '("\"`" "\"'"))
-     (font-latex-add-quotes '("\"<" "\">" french)))
+     (font-latex-add-quotes '("\">" "\"<" german)))
    (run-hooks 'TeX-language-dk-hook)))
 
 ;;; danish.el ends here