bug#75123: [PATCH] Set makeinfo-run-command to texi2any when possible

[Stefan Kangas <stefankangas@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 72 bytes --]

Severity: wishlist

Please see the attached patch, intended for master.

[-- Attachment #2: 0001-Set-makeinfo-run-command-to-texi2any-when-possible.patch --]
[-- Type: text/x-patch, Size: 1362 bytes --]

From 9563aeabb5d48893c5e1054dd0c1172d20c0bed2 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 26 Dec 2024 21:06:29 +0100
Subject: [PATCH] Set makeinfo-run-command to texi2any when possible

In recent Texinfo, "makinfo" is an alias for "texi2any".  Make
`makeinfo-run-command` heed this request in the texinfo documentation:

    "Going forward, we ask authors of Texinfo documents to use only
    texi2any."

See (info "(texinfo) History").

* lisp/textmodes/makeinfo.el (makeinfo-run-command): Prefer texi2any
to makeinfo when it is available.
---
 lisp/textmodes/makeinfo.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index 7e08111fddd..bb7abb90b21 100644
--- a/lisp/textmodes/makeinfo.el
+++ b/lisp/textmodes/makeinfo.el
@@ -56,10 +56,13 @@ makeinfo
   :group 'docs)
 
 
-(defcustom makeinfo-run-command "makeinfo"
+(defcustom makeinfo-run-command
+  (cond ((executable-find "texi2any") "texi2any")
+        ((executable-find "makeinfo") "makeinfo"))
   "Command used to run `makeinfo' subjob.
 The name of the file is appended to this string, separated by a space."
-  :type 'string)
+  :type 'string
+  :version "31.1")
 
 (defcustom makeinfo-options "--fill-column=70"
   "String containing options for running `makeinfo'.
-- 
2.47.1