[AUCTeX-diffs] [elpa] externals/auctex 806100f29a 27/60: Delete obsoleted variables (bug#54339)

[Tassilo Horn]

branch: externals/auctex
commit 806100f29aca1836aedc56d93d26c3592f45af2b
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Delete obsoleted variables (bug#54339)
    
    * style/gloss-italian.el ("gloss-italian"):
    * style/italian.el ("italian"): Remove references to long time
    obsoleted variables `LaTeX-italian-open-quote' and
    `LaTeX-italian-close-quote'.
    
    * style/german.el ("german"):
    * style/ngerman.el ("ngerman"): Remove references to long time
    obsoleted variables `LaTeX-german-open-quote',
    `LaTeX-german-close-quote' and `LaTeX-german-quote-after-quote'.
---
 style/german.el        | 18 +-----------------
 style/gloss-italian.el | 14 +++-----------
 style/italian.el       | 17 +++--------------
 style/ngerman.el       | 18 +-----------------
 4 files changed, 8 insertions(+), 59 deletions(-)

diff --git a/style/german.el b/style/german.el
index 9ae3328053..5dd1c3e509 100644
--- a/style/german.el
+++ b/style/german.el
@@ -30,24 +30,8 @@
  "german"
  (lambda ()
    (set-syntax-table LaTeX-german-mode-syntax-table)
-   ;; XXX: Handle former customizations of the now defunct
-   ;; German-specific variables.  References to the respective
-   ;; variables are to be deleted in future versions. (now = 2005-04-01)
    (unless (eq (car TeX-quote-language) 'override)
-     (let ((open-quote (if (and (boundp 'LaTeX-german-open-quote)
-                                LaTeX-german-open-quote)
-                           LaTeX-german-open-quote
-                         "\"`"))
-           (close-quote (if (and (boundp 'LaTeX-german-close-quote)
-                                 LaTeX-german-close-quote)
-                            LaTeX-german-close-quote
-                          "\"'"))
-           (q-after-q (if (and (boundp 'LaTeX-german-quote-after-quote)
-                               LaTeX-german-quote-after-quote)
-                          LaTeX-german-quote-after-quote
-                        t)))
-       (setq TeX-quote-language
-             `("german" ,open-quote ,close-quote ,q-after-q))))
+     (setq TeX-quote-language '("german" "\"`" "\"'" t)))
    (setq LaTeX-babel-hyphen-language "german")
    ;; Fontification of quotation marks.
    (when (and (eq TeX-install-font-lock 'font-latex-setup)
diff --git a/style/gloss-italian.el b/style/gloss-italian.el
index 68bbcb4048..c13f9f2f1a 100644
--- a/style/gloss-italian.el
+++ b/style/gloss-italian.el
@@ -1,6 +1,6 @@
 ;;; gloss-italian.el --- Italian support for polyglossia package.  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015, 2018, 2020, 2022 Free Software Foundation, Inc.
 
 ;; Maintainer: auctex-devel@gnu.org
 ;; Author: Mosè Giordano <mose@gnu.org>
@@ -55,16 +55,8 @@
    (when (or (LaTeX-polyglossia-lang-option-member "italian" 
"babelshorthands=true")
              (LaTeX-polyglossia-lang-option-member "italian" 
"babelshorthands"))
      (unless (eq (car TeX-quote-language) 'override)
-       (let ((open-quote (if (and (boundp 'LaTeX-italian-open-quote)
-                                  LaTeX-italian-open-quote)
-                             LaTeX-italian-open-quote
-                           "\"<"))
-             (close-quote (if (and (boundp 'LaTeX-italian-close-quote)
-                                   LaTeX-italian-close-quote)
-                              LaTeX-italian-close-quote
-                            "\">")))
-         (setq TeX-quote-language
-               `("italian" ,open-quote ,close-quote ,TeX-quote-after-quote))))
+       (setq TeX-quote-language
+             `("italian" "\"<" "\">" ,TeX-quote-after-quote)))
 
      ;; Fontification of quotation marks.
      (when (fboundp 'font-latex-add-quotes)
diff --git a/style/italian.el b/style/italian.el
index 0d202b518f..16db7188be 100644
--- a/style/italian.el
+++ b/style/italian.el
@@ -1,6 +1,6 @@
 ;;; italian.el --- Setup AUCTeX for editing Italian text.  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2004, 2005, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2005, 2018, 2020, 2022 Free Software Foundation, Inc.
 
 ;; Author: Davide G. M. Salvetti <salve@debian.org>
 ;; Maintainer: Davide G. M. Salvetti <salve@debian.org>
@@ -44,20 +44,9 @@
 (TeX-add-style-hook
  "italian"
  (lambda ()
-   ;; XXX: Handle former customizations of the now defunct
-   ;; Italian-specific variables.  References to the respective
-   ;; variables are to be deleted in future versions. (now = 2005-04-01)
    (unless (eq (car TeX-quote-language) 'override)
-     (let ((open-quote (if (and (boundp 'LaTeX-italian-open-quote)
-                                LaTeX-italian-open-quote)
-                           LaTeX-italian-open-quote
-                         "\"<"))
-           (close-quote (if (and (boundp 'LaTeX-italian-close-quote)
-                                 LaTeX-italian-close-quote)
-                            LaTeX-italian-close-quote
-                          "\">")))
-       (setq TeX-quote-language
-             `("italian" ,open-quote ,close-quote ,TeX-quote-after-quote))))
+     (setq TeX-quote-language
+           `("italian" "\"<" "\">" ,TeX-quote-after-quote)))
    ;; Fontification of quotation marks.
    (when (fboundp 'font-latex-add-quotes)
      (font-latex-add-quotes '("\"<" "\">" french)))
diff --git a/style/ngerman.el b/style/ngerman.el
index 0fd41acb26..6081615f43 100644
--- a/style/ngerman.el
+++ b/style/ngerman.el
@@ -30,24 +30,8 @@
  "ngerman"
  (lambda ()
    (set-syntax-table LaTeX-german-mode-syntax-table)
-   ;; XXX: Handle former customizations of the now defunct
-   ;; German-specific variables.  References to the respective
-   ;; variables are to be deleted in future versions. (now = 2005-04-01)
    (unless (eq (car TeX-quote-language) 'override)
-     (let ((open-quote (if (and (boundp 'LaTeX-german-open-quote)
-                                LaTeX-german-open-quote)
-                           LaTeX-german-open-quote
-                         "\"`"))
-           (close-quote (if (and (boundp 'LaTeX-german-close-quote)
-                                 LaTeX-german-close-quote)
-                            LaTeX-german-close-quote
-                          "\"'"))
-           (q-after-q (if (and (boundp 'LaTeX-german-quote-after-quote)
-                               LaTeX-german-quote-after-quote)
-                          LaTeX-german-quote-after-quote
-                        t)))
-       (setq TeX-quote-language
-             `("ngerman" ,open-quote ,close-quote ,q-after-q))))
+     (setq TeX-quote-language '("ngerman" "\"`" "\"'" t)))
    (setq LaTeX-babel-hyphen-language "ngerman")
    ;; Fontification
    (when (and (eq TeX-install-font-lock 'font-latex-setup)