From fadfb77f9bf1867ff7e4cb591babe87b5484fb9e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 22 Oct 1998 01:35:03 +0000
Subject: [PATCH] (Info-next-menu-item): Stay on top of node.

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

diff --git a/lisp/info.el b/lisp/info.el
index 28ce27525f..0164dedd29 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1357,12 +1357,14 @@ N is the digit argument used to invoke this command."
 
 (defun Info-next-menu-item ()
   (interactive)
-  (save-excursion
-    (forward-line -1)
-    (search-forward "\n* menu:" nil t)
-    (or (search-forward "\n* " nil t)
-	(error "No more items in menu"))
-    (Info-goto-node (Info-extract-menu-node-name))))
+  (let ((node
+	 (save-excursion
+	   (forward-line -1)
+	   (search-forward "\n* menu:" nil t)
+	   (and (search-forward "\n* " nil t)
+		(Info-extract-menu-node-name)))))
+    (if node (Info-goto-node node)
+      (error "No more items in menu"))))
 
 (defun Info-last-menu-item ()
   (interactive)
-- 
2.39.2