From 00d32b3f9876edb92144543928bce6f3ba1d7d00 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Jul 2003 14:46:00 +0000
Subject: [PATCH] (Info-menu): Use Info-menu-entry-name-re.

---
 lisp/info.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/info.el b/lisp/info.el
index a0fe9bce8c2..64fe0687f95 100644
--- 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)
-- 
2.39.2