From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Jul 2003 14:46:00 +0000 (+0000)
Subject: (Info-menu): Use Info-menu-entry-name-re.
X-Git-Tag: ttn-vms-21-2-B4~9463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00d32b3f9876edb92144543928bce6f3ba1d7d00;p=emacs.git

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

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)