# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 909020103 0
# Node ID 10a3478e3432b5743f0a520c569e7427eb7c212b
# Parent  a493aa84f62f09d9fd4f2915e2d2deeaa5536f13
(Info-next-menu-item): Stay on top of node.

diff -r a493aa84f62f -r 10a3478e3432 lisp/info.el
--- a/lisp/info.el	Wed Oct 21 20:24:41 1998 +0000
+++ b/lisp/info.el	Thu Oct 22 01:35:03 1998 +0000
@@ -1357,12 +1357,14 @@
 
 (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)