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

763da090 · Richard M. Stallman · 5e69f11e · 763da090
Commit 763da090 authored Nov 16, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lisp/info.el lisp/info.el +3 -0

No files found.
--- 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)
 					":")