mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source 
Require menu items for subnodes to end in ::.
This commit is contained in:
Richard M. Stallman 1994-03-26 05:24:17 +00:00
parent c5a02c74d8
commit c3a29d704f
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/info.el
View File

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