From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Nov 1995 16:33:04 +0000 (+0000)
Subject: (Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
X-Git-Tag: emacs-19.34~2294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=763da090cce95bda7424c9305e2ad937446e7fbc;p=emacs.git

(Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
---

diff --git a/lisp/info.el b/lisp/info.el
index 6e8252c10a4..2625e84beef 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -943,6 +943,7 @@ NAME may be an abbreviation of the reference name."
 	     (save-excursion
 	       (set-buffer Info-complete-menu-buffer)
 	       (goto-char (point-min))
+	       (search-forward "\n* Menu:")
 	       (while (re-search-forward pattern nil t)
 		 (setq completions (cons (cons (format "%s"
 						       (buffer-substring
@@ -959,6 +960,7 @@ NAME may be an abbreviation of the reference name."
 	     (save-excursion
 	       (set-buffer Info-complete-menu-buffer)
 	       (goto-char (point-min))
+	       (search-forward "\n* Menu:")
 	       (while (re-search-forward pattern nil t)
 		 (setq completions (cons (cons (format "%s"
 						       (buffer-substring
@@ -971,6 +973,7 @@ NAME may be an abbreviation of the reference name."
 	   (save-excursion
 	     (set-buffer Info-complete-menu-buffer)
 	     (goto-char (point-min))
+	     (search-forward "\n* Menu:")
 	     (re-search-forward (concat "\n\\* "
 					(regexp-quote string)
 					":")