code.delx.au - gnu-emacs-elpa/blob - packages/auctex/style/danish.el

   1 ;;; danish.el --- Setup AUCTeX for editing Danish text.
   2
   3 ;;; Code:
   4
   5 (TeX-add-style-hook
   6  "danish"
   7  (lambda ()
   8    (unless (eq (car TeX-quote-language) 'override)
   9      (setq TeX-quote-language `("danish" "\"`" "\"'" ,TeX-quote-after-quote)))
  10    (setq LaTeX-babel-hyphen-language "danish")
  11    ;; Fontification of quotation marks.
  12    (when (fboundp 'font-latex-add-quotes)
  13      (font-latex-add-quotes '("\"`" "\"'"))
  14      (font-latex-add-quotes '("\">" "\"<" german)))
  15    (run-hooks 'TeX-language-dk-hook)))
  16
  17 ;;; danish.el ends here