Update texinfo.el following changes in 'tex-start-options-string'

* lisp/textmodes/texinfo.el (texinfo-texi2dvi-options): New
defcustom.
(texinfo-tex-buffer): Take 'tex-start-options' from
'texinfo-texi2dvi-options'.  (Bug#40001)

* etc/NEWS: Mention the new option.

Copyright-paperwork-exempt: yes

diff --git a/etc/NEWS b/etc/NEWS
index 7588b418a40b9dc27d197301785751e833bb2f77..91729e4aaecd791d44f22595cb15de7f6db3f010 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -241,6 +241,12 @@ case-insensitive matching of messages when the old behaviour is
 required, but the recommended solution is to use a correctly matching
 regexp instead.
 
+** Texinfo
+
+---
+*** New customizable option 'texinfo-texi2dvi-options'.
+This is used when invoking 'texi2dvi' from 'texinfo-tex-buffer'.
+
 \f
 * New Modes and Packages in Emacs 28.1
 

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 438cb7798a101eaaf8bd262f37383110c3c21da2..66378cb34681ad4b5db1c0ffdf517c72f888713d 100644 (file)
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -958,6 +958,12 @@ to jump to the corresponding spot in the Texinfo source file."
   :type 'string
   :group 'texinfo)
 
+(defcustom texinfo-texi2dvi-options ""
+  "Command line options for `texinfo-texi2dvi-command'."
+  :type 'string
+  :group 'texinfo
+  :version "28.1")
+
 (defcustom texinfo-tex-command "tex"
   "Command used by `texinfo-tex-region' to run TeX on a region."
   :type 'string
@@ -1002,9 +1008,10 @@ The value of `texinfo-tex-trailer' is appended to the temporary file after the r
   (interactive)
   (require 'tex-mode)
   (let ((tex-command texinfo-texi2dvi-command)
-       ;; Disable tex-start-options-string.  texi2dvi would not
-       ;; understand anything specified here.
-       (tex-start-options-string ""))
+       (tex-start-options texinfo-texi2dvi-options)
+       ;; Disable tex-start-commands.  texi2dvi would not understand
+       ;; anything specified here.
+        (tex-start-commands ""))
     (tex-buffer)))
 
 (defun texinfo-texindex ()