From c3a29d704faffd41a31a77093f9cb4efd1f51557 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 26 Mar 1994 05:24:17 +0000
Subject: [PATCH] (Info-insert-dir): Add a save-excursion. Require menu items
 for subnodes to end in ::.

---
 lisp/info.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lisp/info.el b/lisp/info.el
index be9850f0fff..0b45af541bc 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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.