bug#47394: 27.2; admin.el:make-manuals infloops on HTML manuals

[Eli Zaretskii]

The script admin/make-manuals never finishes, when invoked on HTML
manuals produced by Texinfo 6.7 (and possibly some older versions).

This happens because 'make-manuals' from admin.el infloops in the
function 'manual-html-fix-index-2' when processing the index.html for
the Emacs user manual.  The loop is in this fragment:

        (while (not done)
          (cond ((re-search-forward "<tr><td.*&bull; \\(<a.*</a>\\)\
:</td><td>&nbsp;&nbsp;</td><td[^>]*>\\(.*\\)" (line-end-position) t)
                 (replace-match (format "<tr><td%s>\\1</td>\n<td>\\2"
                                        (if table-workaround
                                            " bgcolor=\"white\"" "")))
                 (search-forward "</td></tr>")
                 (forward-line 1))
                ((looking-at "<tr><th.*<pre class=\"menu-comment\">\n")
                 (replace-match "<tr><th colspan=\"2\" align=\"left\" \
style=\"text-align:left\">")
                 (search-forward "</pre></th></tr>")
                 (replace-match "</th></tr>\n"))
                ;; Not all manuals have the detailed menu.
                ;; If it is there, split it into a separate table.
                ((re-search-forward "<tr>.*The Detailed Node Listing *"
                                    (line-end-position) t)
                 (setq opoint (match-beginning 0))
                 (while (and (looking-at " *&mdash;")
                             (zerop (forward-line 1))))
                 (delete-region opoint (point))
                 (insert "</table>\n\n\
<h2>Detailed Node Listing</h2>\n\n<p>")
                 ;; FIXME Fragile!
                 ;; The Emacs and Elisp manual have some text at the
                 ;; start of the detailed menu that is not part of the menu.
                 ;; Other manuals do not.
                 (if (re-search-forward "in one step:" (line-end-position 3) t)
                     (forward-line 1))
                 (insert "</p>\n")
                 (search-forward "</pre></th></tr>")
                 (delete-region (match-beginning 0) (match-end 0))
                 (forward-line -1)
                 (or (looking-at "^$") (error "Parse error 1"))
                 (forward-line -1)
                 (if (looking-at "^$") (error "Parse error 2"))
                 (forward-line -1)
                 (or (looking-at "^$") (error "Parse error 3"))
                 (forward-line 1)
                 (insert "<table class=\"menu\" style=\"float:left\" 
width=\"100%\">\n\
<tr><th colspan=\"2\" align=\"left\" style=\"text-align:left\">\n")
                 (forward-line 1)
                 (insert "</th></tr>")
                 (forward-line 1))
                ((looking-at ".*</table")
                 (forward-line 1)
                 (setq done t)))))

It loops because none of the branches of 'cond' inside the 'while'
loop matches the text, and so point doesn't move.

This currently precludes updating the HTML docs on the GNU Web site,
unless the HTML files were produced by Texinfo 5 or older.


In GNU Emacs 27.2 (build 2, i686-pc-mingw32)
 of 2021-03-25 built on HOME-C4E4A596F7
Windowing system distributor 'Microsoft Corp.', version 5.1.2600
System Description: Microsoft Windows XP Service Pack 3 (v5.1.0.2600)

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.

Configured using:
 'configure -C --prefix=/d/usr --with-wide-int 'CFLAGS=-O2 -gdwarf-4
 -g3''

Configured features:
XPM JPEG TIFF GIF PNG RSVG SOUND NOTIFY W32NOTIFY ACL GNUTLS LIBXML2
HARFBUZZ ZLIB TOOLKIT_SCROLL_BARS MODULES THREADS JSON PDUMPER LCMS2 GMP

Important settings:
  value of $LANG: ENU
  locale-coding-system: cp1255

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs
format-spec rfc822 mml easymenu mml-sec password-cache epa derived epg
epg-config gnus-util rmail rmail-loaddefs text-property-search time-date
subr-x seq byte-opt gv bytecomp byte-compile cconv mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs
cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils
tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel dos-w32 ls-lisp disp-table term/w32-win w32-win w32-vars
term/common-win tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads w32notify w32 lcms2 multi-tty make-network-process
emacs)

Memory information:
((conses 16 50555 10281)
 (symbols 48 7168 1)
 (strings 16 18840 2076)
 (string-bytes 1 533230)
 (vectors 16 9541)
 (vector-slots 8 127997 8538)
 (floats 8 21 265)
 (intervals 40 255 98)
 (buffers 888 11))