(Info-menu): Use Info-menu-entry-name-re.

diff --git a/lisp/info.el b/lisp/info.el
index a0fe9bce8c24f866bf481c216b03ba15553a9522..64fe0687f959f9e3be2f6306ca35d7604f22271b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1652,7 +1652,9 @@ new buffer."
            (save-excursion
              (goto-char p)
              (end-of-line)
-             (if (re-search-backward "\n\\* +\\([^\t\n]*\\):" beg t)
+             (if (re-search-backward (concat "\n\\* +\\("
+                                             Info-menu-entry-name-re
+                                             "\\):") beg t)
                  (setq default (match-string-no-properties 1))))))
      (let ((item nil))
        (while (null item)