branch: externals/auctex commit 806100f29aca1836aedc56d93d26c3592f45af2b Author: Arash Esbati <ar...@gnu.org> Commit: Arash Esbati <ar...@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 <m...@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 <sa...@debian.org> ;; Maintainer: Davide G. M. Salvetti <sa...@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) _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs