Function: TeX-get-quote-characters

TeX-get-quote-characters is a byte-compiled function defined in tex.el.

Signature

(TeX-get-quote-characters)

Documentation

Get appropriate open and close quote strings.

Return list consisting of three elements as in TeX-quote-language-alist.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/tex.el
(defun TeX-get-quote-characters ()
  "Get appropriate open and close quote strings.
Return list consisting of three elements as in
`TeX-quote-language-alist'."
  (let* ((lang-override (if (eq (car TeX-quote-language) 'override)
                            TeX-quote-language
                          (assoc (car TeX-quote-language)
                                 TeX-quote-language-alist)))
         (lang (or lang-override TeX-quote-language))
         (open-quote (if lang (nth 1 lang) TeX-open-quote))
         (close-quote (if lang (nth 2 lang) TeX-close-quote))
         (q-after-q (if lang (nth 3 lang) TeX-quote-after-quote)))
    (when (functionp open-quote)
      (setq open-quote (funcall open-quote)))
    (when (functionp close-quote)
      (setq close-quote (funcall close-quote)))
    (list open-quote close-quote q-after-q)))