Commit c3a29d70 authored by Richard M. Stallman's avatar Richard M. Stallman

(Info-insert-dir): Add a save-excursion.

Require menu items for subnodes to end in ::.
parent c5a02c74
......@@ -408,12 +408,15 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(end (save-excursion (search-forward "\^_" nil t) (point))))
(while nodes
(let ((nodename (car (car nodes))))
(or (member (downcase nodename) menu-items)
(re-search-forward (concat "^\\* " (regexp-quote nodename) ":")
end t)
(progn
(insert "* " nodename "::" "\n")
(setq menu-items (cons nodename menu-items)))))
(save-excursion
(or (member (downcase nodename) menu-items)
(re-search-forward (concat "^\\* "
(regexp-quote nodename)
"::")
end t)
(progn
(insert "* " nodename "::" "\n")
(setq menu-items (cons nodename menu-items))))))
(setq nodes (cdr nodes))))
;; Now take each node of each of the other buffers
;; and merge it into the main buffer.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment