diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-10-11 12:47:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-10-11 12:47:19 +0000 |
| commit | af58447241a81e2a2516e6c9c53893520fe31834 (patch) | |
| tree | 20f581129c78608c38ae4f6b255316e1001ec6f3 /lisp/textmodes/texnfo-upd.el | |
| parent | 0169bb47b21617c550edc93901fe34775ef2d214 (diff) | |
| download | emacs-af58447241a81e2a2516e6c9c53893520fe31834.tar.gz | |
(texinfo-make-menu): Don't let
texinfo-find-higher-level-node repeatedly find the same node.
(texinfo-find-higher-level-node): Doc fix.
Diffstat (limited to 'lisp/textmodes/texnfo-upd.el')
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 9 |
1 files changed, 8 insertions, 1 deletions
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)) |