procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(texinfo-make-menu): Don't let

Browse source 
texinfo-find-higher-level-node repeatedly find the same node.
(texinfo-find-higher-level-node): Doc fix.
This commit is contained in:
Richard M. Stallman 1998-10-11 12:47:19 +00:00
parent 0169bb47b2
commit af58447241
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/textmodes/texnfo-upd.el
View file

@ -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))