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

diff --git a/lisp/info.el b/lisp/info.el
index 6e8252c10a41f7592897b81b35a1f54ef1c79bb7..2625e84beef8b61fa1396a23812e1a7b74caa343 100644 (file)
--- 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)
                                        ":")