[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 806100f29aca1836aedc56d93d26c3592f45af2b

[Arash Esbati]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  806100f29aca1836aedc56d93d26c3592f45af2b (commit)
      from  fa8842c626996a60dbd99e420d6bfb683be28fe4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 806100f29aca1836aedc56d93d26c3592f45af2b
Author: Arash Esbati <arash@gnu.org>
Date:   Tue Mar 15 22:38:18 2022 +0100

    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'.

diff --git a/style/german.el b/style/german.el
index 9ae33280..5dd1c3e5 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 68bbcb40..c13f9f2f 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 0d202b51..16db7188 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 0fd41acb..6081615f 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)

-----------------------------------------------------------------------

Summary of changes:
 style/german.el        | 18 +-----------------
 style/gloss-italian.el | 14 +++-----------
 style/italian.el       | 17 +++--------------
 style/ngerman.el       | 18 +-----------------
 4 files changed, 8 insertions(+), 59 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX