From a71324ccb69f9e3af5b1c613a60111c8f3885ce0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 3 Jan 2014 19:18:33 -0800 Subject: [PATCH] * admin/admin.el (manual-html-fix-index-2): Fix minor Texinfo 4 issue with start of detailed menu. --- admin/ChangeLog | 1 + admin/admin.el | 10 ++++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/admin/ChangeLog b/admin/ChangeLog index d43c95d386..690689012b 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -2,6 +2,7 @@ * admin.el (manual-html-fix-node-div): Handle Texinfo 5's movable
. (manual-html-fix-index-2): Tweak Texinfo 5 table format. + Fix minor Texinfo 4 issue with start of detailed menu. 2014-01-03 Glenn Morris diff --git a/admin/admin.el b/admin/admin.el index 8f21cedfce..847a06e35d 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -508,9 +508,6 @@ style=\"text-align:left\">") ;; 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. - ;; FIXME Texinfo 4 branch does not handle this correctly. - ;; See eg s/emacs/manual/html_node/eintr/index.html - ;; start of "Detailed Node Listing". (if (re-search-forward "in one step:" (line-end-position 3) t) (forward-line 1)) (insert "

\n") @@ -568,7 +565,12 @@ style=\"text-align:left\">") (replace-match " \n

Detailed Node Listing

\n\n" t t) (search-forward "

") - (search-forward "

" nil t) + ;; 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 (looking-at "Here are some other nodes") + (search-forward "

")) (goto-char (match-beginning 0)) (skip-chars-backward "\n ") (setq open-td nil) -- 2.20.1