Mercurial > emacs
changeset 6537:f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Require menu items for subnodes to end in ::.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Mar 1994 05:24:17 +0000 |
| parents | 4fa1c2b2f1e9 |
| children | 815a2d384b6e |
| files | lisp/info.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Mar 25 23:49:50 1994 +0000 +++ b/lisp/info.el Sat Mar 26 05:24:17 1994 +0000 @@ -408,12 +408,15 @@ (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.