branch: externals/auctex
commit a2a919d3490021811344659a3f927e25c94c35b7
Author: Mosè Giordano <m...@gnu.org>
Commit: Mosè Giordano <m...@gnu.org>
Use TeX-quote-after-quote in all language style files
* style/icelandic.el ("icelandic"):
* style/polish.el ("polish"):
* style/polski.el ("polski"): Use value of `TeX-quote-after-quote'
instead of hard-coding t.
---
style/icelandic.el | 2 +-
style/polish.el | 2 +-
style/polski.el | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/style/icelandic.el b/style/icelandic.el
index 427a88d..64507e1 100644
--- a/style/icelandic.el
+++ b/style/icelandic.el
@@ -42,7 +42,7 @@
(lambda ()
(set-syntax-table LaTeX-icelandic-mode-syntax-table)
(unless (eq (car TeX-quote-language) 'override)
- (setq TeX-quote-language '("icelandic" "\"`" "\"'" t)))
+ (setq TeX-quote-language `("icelandic" "\"`" "\"'"
,TeX-quote-after-quote)))
(setq LaTeX-babel-hyphen-language "icelandic")
;; Fontification of quotation marks.
(when (fboundp 'font-latex-add-quotes)
diff --git a/style/polish.el b/style/polish.el
index dac3451..31397f0 100644
--- a/style/polish.el
+++ b/style/polish.el
@@ -42,7 +42,7 @@
(lambda ()
(set-syntax-table LaTeX-polish-mode-syntax-table)
(unless (eq (car TeX-quote-language) 'override)
- (setq TeX-quote-language '("polish" "\"`" "\"'" t)))
+ (setq TeX-quote-language `("polish" "\"`" "\"'" ,TeX-quote-after-quote)))
;; Fontification of quotation marks.
(when (fboundp 'font-latex-add-quotes)
(font-latex-add-quotes '("\"`" "\"'"))
diff --git a/style/polski.el b/style/polski.el
index ef1985b..5e51082 100644
--- a/style/polski.el
+++ b/style/polski.el
@@ -46,7 +46,7 @@
"ppauza")
;; Quotation marks
(unless (eq (car TeX-quote-language) 'override)
- (setq TeX-quote-language '("polski" ",," "''" t)))
+ (setq TeX-quote-language `("polski" ",," "''" ,TeX-quote-after-quote)))
;; Fontification of quotation marks.
(when (fboundp 'font-latex-add-quotes)
(font-latex-add-quotes '(",," "''")))
