4388 |
"Alist for overriding the default language-specific quote insertion. |
"Alist for overriding the default language-specific quote insertion. |
4389 |
First element in each item is the name of the language as set by |
First element in each item is the name of the language as set by |
4390 |
the language style file. Second element is the opening quotation |
the language style file. Second element is the opening quotation |
4391 |
mark as string. Third element is the closing quotation mark. |
mark. Third element is the closing quotation mark. Opening and |
4392 |
Fourth element is a boolean specifying insertion behavior, |
closing quotation marks can be specified directly as strings or |
4393 |
overriding `TeX-quote-after-quote'." |
as functions returning a string. Fourth element is a boolean |
4394 |
|
specifying insertion behavior, overriding |
4395 |
|
`TeX-quote-after-quote'." |
4396 |
:group 'TeX-quote |
:group 'TeX-quote |
4397 |
:type '(repeat (group (string :tag "Language") |
:type '(repeat (group (string :tag "Language") |
4398 |
(string :tag "Opening quotation mark") |
(choice :tag "Opening quotation mark" string function) |
4399 |
(string :tag "Closing quotation mark") |
(choice :tag "Closing quotation mark" string function) |
4400 |
(boolean :tag "Insert plain quote first" :value t)))) |
(boolean :tag "Insert plain quote first" :value t)))) |
4401 |
|
|
4402 |
(defvar TeX-quote-language nil |
(defvar TeX-quote-language nil |
4438 |
(open-quote (if lang (nth 1 lang) TeX-open-quote)) |
(open-quote (if lang (nth 1 lang) TeX-open-quote)) |
4439 |
(close-quote (if lang (nth 2 lang) TeX-close-quote)) |
(close-quote (if lang (nth 2 lang) TeX-close-quote)) |
4440 |
(q-after-q (if lang (nth 3 lang) TeX-quote-after-quote))) |
(q-after-q (if lang (nth 3 lang) TeX-quote-after-quote))) |
4441 |
|
(when (functionp open-quote) |
4442 |
|
(setq open-quote (funcall open-quote))) |
4443 |
|
(when (functionp close-quote) |
4444 |
|
(setq close-quote (funcall close-quote))) |
4445 |
(if q-after-q |
(if q-after-q |
4446 |
(insert (cond ((bobp) |
(insert (cond ((bobp) |
4447 |
?\") |
?\") |