Mercurial > emacs
changeset 23414:c9d093e48f15
(texinfo-make-menu): Don't let
texinfo-find-higher-level-node repeatedly find the same node.
(texinfo-find-higher-level-node): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 11 Oct 1998 12:47:19 +0000 |
| parents | 2a5d56cc4e41 |
| children | b511a32c37fd |
| files | lisp/textmodes/texnfo-upd.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/texnfo-upd.el Sat Oct 10 21:20:48 1998 +0000 +++ b/lisp/textmodes/texnfo-upd.el Sun Oct 11 12:47:19 1998 +0000 @@ -197,6 +197,9 @@ (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 @@ 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))