branch: main
commit 9c4757ec82a423f844a8b62836f09b7f63a75888
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
Track changes in babel-german v2.99
* doc/auctex.texi (European): Document the language names.
* style/austrian.el ("austrian"):
* style/german.el ("german"):
* style/ngerman.el ("ngerman"): Adjust according to the new file
babel-german.el.
* style/babel-german.el: New file providing core functionality for
various language files. Part of code in this file used to be in
n?german.el.
* style/babel.el (LaTeX-babel-language-list): Update with new
language names provided by babel-german bundle v2.99.
* style/german-at-1901.el:
* style/german-at.el:
* style/german-austria-1901.el:
* style/german-austria.el:
* style/german-ch-1901.el:
* style/german-ch.el:
* style/german-de-1901.el:
* style/german-de.el:
* style/german-germany-1901.el:
* style/german-germany.el:
* style/german-switzerland-1901.el:
* style/german-switzerland.el: New files.
---
doc/auctex.texi | 15 ++++-
style/austrian.el | 12 ++--
style/babel-german.el | 82 +++++++++++++++++++++++
style/babel.el | 19 +++---
style/{austrian.el => german-at-1901.el} | 22 +++---
style/{austrian.el => german-at.el} | 22 +++---
style/{austrian.el => german-austria-1901.el} | 22 +++---
style/{austrian.el => german-austria.el} | 22 +++---
style/{austrian.el => german-ch-1901.el} | 22 +++---
style/{austrian.el => german-ch.el} | 22 +++---
style/{austrian.el => german-de-1901.el} | 22 +++---
style/{austrian.el => german-de.el} | 22 +++---
style/{austrian.el => german-germany-1901.el} | 22 +++---
style/{austrian.el => german-germany.el} | 22 +++---
style/{austrian.el => german-switzerland-1901.el} | 22 +++---
style/{austrian.el => german-switzerland.el} | 22 +++---
style/german.el | 32 ++-------
style/ngerman.el | 31 +--------
18 files changed, 278 insertions(+), 177 deletions(-)
diff --git a/doc/auctex.texi b/doc/auctex.texi
index 0c1f8698..d3b4dc93 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -5138,7 +5138,20 @@ insert @samp{\og} and @samp{\fg} depending on context.
Note that the
language name for customizing @code{TeX-quote-language-alist} is
@samp{french}.
-@item german
+@item austrian
+@itemx german-at
+@itemx german-austria
+@itemx german-at-1901
+@itemx german-austria-1901
+@itemx german-ch-1901
+@itemx german-ch
+@itemx german-de
+@itemx german-germany
+@itemx german-de-1901
+@itemx german-germany-1901
+@itemx german-switzerland
+@itemx german-switzerland-1901
+@itemx german
@itemx ngerman
Runs style hook @code{TeX-language-de-hook}. Gives @samp{"} word
syntax, makes the @key{"} key insert a literal @samp{"}. Pressing the
diff --git a/style/austrian.el b/style/austrian.el
index 249e3277..37d1e94f 100644
--- a/style/austrian.el
+++ b/style/austrian.el
@@ -1,6 +1,6 @@
;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2009--2026 Free Software Foundation, Inc.
;; Author: Ralf Angeli <[email protected]>
;; Maintainer: [email protected]
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `austrian' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
"austrian"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("austrian" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "austrian"))
TeX-dialect)
;;; austrian.el ends here
diff --git a/style/babel-german.el b/style/babel-german.el
new file mode 100644
index 00000000..7c20f912
--- /dev/null
+++ b/style/babel-german.el
@@ -0,0 +1,82 @@
+;;; babel-german.el --- AUCTeX style for `babel-german.def' (v2.99) -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2026 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <[email protected]>
+;; Maintainer: [email protected]
+;; Created: 2026-01-31
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by the
+;; Free Software Foundation; either version 3, or (at your option) any
+;; later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+;; for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Starting with `babel-german' v2.99, the organization of file and
+;; language names has changed. New language names are introduced which
+;; all set some options and then load the file `babel-german.def'.
+;; AUCTeX now follows this change and let language files load this style
+;; which does the real work., i.e., special quote and hyphen strings or
+;; that `"' makes the following letter an umlaut.
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-quotes "font-latex" (quotes))
+(declare-function font-latex-add-to-syntax-alist "font-latex" (list))
+(declare-function font-latex-add-keywords "font-latex" (keywords class))
+
+(defun LaTeX-babel-german-key-val-options ()
+ "Return key=val options for the \\germansetup macro."
+ (append
+ (when (seq-intersection '("german-ch" "german-switzerland"
+ "german-ch-1901" "german-switzerland-1901")
+ (TeX-style-list))
+ '(("toss" ("true" "false"))))
+ '(("capsz" ("true" "false"))
+ ("nocapsz" ("true" "false"))
+ ("glottomyms" ("auto" "contemporary" "legacy"))
+ ("hyphenrules" ("latest" "legacy")))))
+
+(defvar LaTeX-babel-german-mode-syntax-table
+ (copy-syntax-table LaTeX-mode-syntax-table)
+ "Syntax table used in LaTeX mode when using `babel-german'.")
+
+(modify-syntax-entry ?\" "w" LaTeX-babel-german-mode-syntax-table)
+
+(TeX-add-style-hook
+ "babel-german"
+ (lambda ()
+ (TeX-add-symbols
+ '("germansetup"
+ (TeX-arg-key-val (LaTeX-babel-german-key-val-options))))
+
+ (set-syntax-table LaTeX-babel-german-mode-syntax-table)
+ ;; Fontification
+ (when (and (eq TeX-install-font-lock 'font-latex-setup)
+ (featurep 'font-latex))
+ (font-latex-add-quotes '("\"`" "\"'"))
+ (font-latex-add-quotes '("\">" "\"<" german))
+ ;; Prevent "| from leading to color bleed.
+ (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))
+ (font-latex-add-keywords '(("germansetup" "{"))
+ 'function))
+ (run-hooks 'TeX-language-de-hook))
+ TeX-dialect)
+
+;;; babel-german.el ends here
diff --git a/style/babel.el b/style/babel.el
index e4b790d5..2561317e 100644
--- a/style/babel.el
+++ b/style/babel.el
@@ -1,6 +1,6 @@
;;; babel.el --- AUCTeX style for `babel.sty' version 3.88. -*-
lexical-binding: t; -*-
-;; Copyright (C) 2005-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2005-2026 Free Software Foundation, Inc.
;; Author: Ralf Angeli <[email protected]>
;; Maintainer: [email protected]
@@ -32,12 +32,8 @@
(require 'latex)
;; Silence the compiler:
-(declare-function font-latex-add-keywords
- "font-latex"
- (keywords class))
-(declare-function LaTeX-fontspec-auto-cleanup
- "fontspec"
- ())
+(declare-function font-latex-add-keywords "font-latex" (keywords class))
+(declare-function LaTeX-fontspec-auto-cleanup "fontspec" ())
(defvar LaTeX-fontenc-package-options)
(defvar LaTeX-babel-language-list
@@ -59,7 +55,14 @@
"finnish"
"french" "francais" "canadien" "acadian"
"galician"
- "austrian" "german" "germanb" "ngerman" "naustrian"
+ ;; Current language names in babel-german (v2.99):
+ "german" "german-de" "german-germany" "german-de-1901"
"german-germany-1901"
+ "german-at" "german-austria" "german-at-1901" "german-austria-1901"
+ "german-ch" "german-switzerland" "german-ch-1901" "german-switzerland-1901"
+ ;; Deprecated names in babel-german (v2.99):
+ "austrian" "naustrian" "germanb" "ngerman" "ngermanb"
+ "swissgerman" "nswissgerman"
+ ;;
"greek" "polutonikogreek"
"hebrew"
"icelandic"
diff --git a/style/austrian.el b/style/german-at-1901.el
similarity index 56%
copy from style/austrian.el
copy to style/german-at-1901.el
index 249e3277..81e96f26 100644
--- a/style/austrian.el
+++ b/style/german-at-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-at-1901.el --- AUCTeX style for `german-at-1901.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-at-1901' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-at-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-at-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-at-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-at-1901.el ends here
diff --git a/style/austrian.el b/style/german-at.el
similarity index 58%
copy from style/austrian.el
copy to style/german-at.el
index 249e3277..511113a9 100644
--- a/style/austrian.el
+++ b/style/german-at.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-at.el --- AUCTeX style for `german-at.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-at' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-at"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-at" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-at"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-at.el ends here
diff --git a/style/austrian.el b/style/german-austria-1901.el
similarity index 55%
copy from style/austrian.el
copy to style/german-austria-1901.el
index 249e3277..9094f33d 100644
--- a/style/austrian.el
+++ b/style/german-austria-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-austria-1901.el --- AUCTeX style for `german-austria-1901.ldf'
(v2.99) -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-austria-1901' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-austria-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-austria-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-austria-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-austria-1901.el ends here
diff --git a/style/austrian.el b/style/german-austria.el
similarity index 56%
copy from style/austrian.el
copy to style/german-austria.el
index 249e3277..69d6b8d3 100644
--- a/style/austrian.el
+++ b/style/german-austria.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-austria.el --- AUCTeX style for `german-austria.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-austria' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-austria"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-austria" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-austria"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-austria.el ends here
diff --git a/style/austrian.el b/style/german-ch-1901.el
similarity index 56%
copy from style/austrian.el
copy to style/german-ch-1901.el
index 249e3277..95fe1513 100644
--- a/style/austrian.el
+++ b/style/german-ch-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-ch-1901.el --- AUCTeX style for `german-ch-1901.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-ch-1901' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-ch-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-ch-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-ch-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-ch-1901.el ends here
diff --git a/style/austrian.el b/style/german-ch.el
similarity index 58%
copy from style/austrian.el
copy to style/german-ch.el
index 249e3277..45d9876a 100644
--- a/style/austrian.el
+++ b/style/german-ch.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-ch.el --- AUCTeX style for `german-ch.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-ch' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-ch"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-ch" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-ch"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-ch.el ends here
diff --git a/style/austrian.el b/style/german-de-1901.el
similarity index 56%
copy from style/austrian.el
copy to style/german-de-1901.el
index 249e3277..f984b728 100644
--- a/style/austrian.el
+++ b/style/german-de-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-de-1901.el --- AUCTeX style for `german-de-1901.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-de-1901' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-de-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-de-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-de-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-de-1901.el ends here
diff --git a/style/austrian.el b/style/german-de.el
similarity index 58%
copy from style/austrian.el
copy to style/german-de.el
index 249e3277..118eaa3c 100644
--- a/style/austrian.el
+++ b/style/german-de.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-de.el --- AUCTeX style for `german-de.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-de' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-de"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-de" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-de"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-de.el ends here
diff --git a/style/austrian.el b/style/german-germany-1901.el
similarity index 55%
copy from style/austrian.el
copy to style/german-germany-1901.el
index 249e3277..e1d3cb09 100644
--- a/style/austrian.el
+++ b/style/german-germany-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-germany-1901.el --- AUCTeX style for `german-germany-1901.ldf'
(v2.99) -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-germany-1901' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-germany-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-germany-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-germany-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-germany-1901.el ends here
diff --git a/style/austrian.el b/style/german-germany.el
similarity index 56%
copy from style/austrian.el
copy to style/german-germany.el
index 249e3277..3ee88219 100644
--- a/style/austrian.el
+++ b/style/german-germany.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-germany.el --- AUCTeX style for `german-germany.ldf' (v2.99) -*-
lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-germany' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-germany"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-germany" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-germany"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-germany.el ends here
diff --git a/style/austrian.el b/style/german-switzerland-1901.el
similarity index 54%
copy from style/austrian.el
copy to style/german-switzerland-1901.el
index 249e3277..57f244ce 100644
--- a/style/austrian.el
+++ b/style/german-switzerland-1901.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-switzerland-1901.el --- AUCTeX style for
`german-switzerland-1901.ldf' (v2.99) -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-switzerland-1901' language
option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-switzerland-1901"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-switzerland-1901" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-switzerland-1901"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-switzerland-1901.el ends here
diff --git a/style/austrian.el b/style/german-switzerland.el
similarity index 55%
copy from style/austrian.el
copy to style/german-switzerland.el
index 249e3277..a20604c2 100644
--- a/style/austrian.el
+++ b/style/german-switzerland.el
@@ -1,10 +1,10 @@
-;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*-
lexical-binding: t; -*-
+;;; german-switzerland.el --- AUCTeX style for `german-switzerland.ldf'
(v2.99) -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2026 Free Software Foundation, Inc.
-;; Author: Ralf Angeli <[email protected]>
+;; Author: Arash Esbati <[email protected]>
;; Maintainer: [email protected]
-;; Created: 2009-12-28
+;; Created: 2026-01-31
;; Keywords: tex
;; This file is part of AUCTeX.
@@ -24,17 +24,21 @@
;;; Commentary:
-;; Set up AUCTeX for editing Austrian text in connection with the
-;; `austrian' babel option.
+;; This file contains specific code for `german-switzerland' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
+(require 'latex)
(TeX-add-style-hook
- "austrian"
+ "german-switzerland"
(lambda ()
- (TeX-run-style-hooks "german"))
+ (TeX-run-style-hooks "babel-german")
+ (unless (eq (car TeX-quote-language) 'override)
+ (setq TeX-quote-language '("german-switzerland" "\"`" "\"'" t)))
+ (setq LaTeX-babel-hyphen-language "german-switzerland"))
TeX-dialect)
-;;; austrian.el ends here
+;;; german-switzerland.el ends here
diff --git a/style/german.el b/style/german.el
index 7608b6f4..1caedac0 100644
--- a/style/german.el
+++ b/style/german.el
@@ -17,45 +17,21 @@
;;; Commentary:
-;; Cater for some specialities of `(n)german.sty', e.g. special quote
-;; and hyphen strings or that `"' makes the following letter an
-;; umlaut.
+;; This file contains specific code for `german' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
(require 'latex)
-;; Silence the compiler:
-(declare-function font-latex-add-quotes
- "font-latex"
- (quotes))
-
-(declare-function font-latex-add-to-syntax-alist
- "font-latex"
- (list))
-
-(defvar LaTeX-german-mode-syntax-table
- (copy-syntax-table LaTeX-mode-syntax-table)
- "Syntax table used in LaTeX mode when using `german.sty'.")
-
-(modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table)
-
(TeX-add-style-hook
"german"
(lambda ()
- (set-syntax-table LaTeX-german-mode-syntax-table)
+ (TeX-run-style-hooks "babel-german")
(unless (eq (car TeX-quote-language) 'override)
(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)
- (featurep 'font-latex))
- (font-latex-add-quotes '("\"`" "\"'"))
- (font-latex-add-quotes '("\">" "\"<" german))
- ;; Prevent "| from leading to color bleed.
- (font-latex-add-to-syntax-alist (list (cons ?\" "\\"))))
- (run-hooks 'TeX-language-de-hook))
+ (setq LaTeX-babel-hyphen-language "german"))
TeX-dialect)
;;; german.el ends here
diff --git a/style/ngerman.el b/style/ngerman.el
index 35fc01c4..5aec1355 100644
--- a/style/ngerman.el
+++ b/style/ngerman.el
@@ -17,45 +17,20 @@
;;; Commentary:
-;; Cater for some specialities of `(n)german.sty', e.g. special quote
-;; and hyphen strings or that `"' makes the following letter an
-;; umlaut.
+;; This file contains specific code for `ngerman' language option
+;; provided by `babel-german' bundle.
;;; Code:
(require 'tex)
(require 'latex)
-;; Silence the compiler:
-(declare-function font-latex-add-quotes
- "font-latex"
- (quotes))
-
-(declare-function font-latex-add-to-syntax-alist
- "font-latex"
- (list))
-
-(defvar LaTeX-german-mode-syntax-table
- (copy-syntax-table LaTeX-mode-syntax-table)
- "Syntax table used in LaTeX mode when using `german.sty'.")
-
-(modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table)
-
(TeX-add-style-hook
"ngerman"
(lambda ()
- (set-syntax-table LaTeX-german-mode-syntax-table)
(unless (eq (car TeX-quote-language) 'override)
(setq TeX-quote-language '("ngerman" "\"`" "\"'" t)))
- (setq LaTeX-babel-hyphen-language "ngerman")
- ;; Fontification
- (when (and (eq TeX-install-font-lock 'font-latex-setup)
- (featurep 'font-latex))
- (font-latex-add-quotes '("\"`" "\"'"))
- (font-latex-add-quotes '("\">" "\"<" german))
- ;; Prevent "| from leading to color bleed.
- (font-latex-add-to-syntax-alist (list (cons ?\" "\\"))))
- (run-hooks 'TeX-language-de-hook))
+ (setq LaTeX-babel-hyphen-language "ngerman"))
TeX-dialect)
;;; ngerman.el ends here
