From: Ulrich Müller <ulm@gentoo.org>
Date: Sat, 29 Jul 2023 09:37:45 +0000 (+0200)
Subject: ; Fix conversions in format.el (bug#64928)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b698abac50801c20b253b1f03f39226b64ed6c7b;p=emacs.git

; Fix conversions in format.el (bug#64928)

* lisp/format.el (format-alist): Fix duden and de646 conversions.
---

diff --git a/lisp/format.el b/lisp/format.el
index b2dba16659b..20c25b0b937 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -87,11 +87,16 @@
 	   rot13-region rot13-region t nil)
     (duden ,(purecopy "Duden Ersatzdarstellung")
 	   nil
-	   ,(purecopy "diac") iso-iso2duden t nil)
+	   ;; FROM-FN used to call the "diac" command which is not widely
+	   ;; available and apparently not under a free software license:
+	   ;; https://tug.ctan.org/support/umlaut_tex.txt
+	   ;; Reliable round-trip conversion is not possible anyway
+	   ;; and would be by heuristic method, so use nil for now.
+	   nil iso-iso2duden t nil)
     (de646 ,(purecopy "German ASCII (ISO 646)")
 	   nil
-	   ,(purecopy "recode -f iso646-ge:latin1")
-	   ,(purecopy "recode -f latin1:iso646-ge") t nil)
+	   ,(purecopy "iconv -f iso646-de -t utf-8")
+	   ,(purecopy "iconv -f utf-8 -t iso646-de") t nil)
     (denet ,(purecopy "net German")
 	   nil
 	   iso-german iso-cvt-read-only t nil)