From af58447241a81e2a2516e6c9c53893520fe31834 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Oct 1998 12:47:19 +0000 Subject: [PATCH] (texinfo-make-menu): Don't let texinfo-find-higher-level-node repeatedly find the same node. (texinfo-find-higher-level-node): Doc fix. --- lisp/textmodes/texnfo-upd.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index 02583f74bc2..a36901261de 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -197,6 +197,9 @@ are inserted as descriptions." (while (and (< (point) region-end) (texinfo-find-higher-level-node level region-end)) (setq level (texinfo-hierarchic-level)) + ;; Don't allow texinfo-find-higher-level-node + ;; to find the same node again. + (forward-line 1) (while (texinfo-find-lower-level-node level region-end) (setq level (texinfo-hierarchic-level)) ; new, lower level (texinfo-make-one-menu level)))))) @@ -304,7 +307,11 @@ of the node if one is found; else do not move point." Search is limited to the end of the marked region, REGION-END. Return t if the node is found, else nil. Leave point at the beginning -of the node if one is found; else do not move point." +of the node if one is found; else do not move point. + +A `@node' line starting at point does count as a match; +if the match is found there, the value is t and point does not move." + (let ((case-fold-search t)) (cond ((or (string-equal "top" level) (string-equal "chapter" level)) -- 2.39.2