Commit 00d32b3f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent b93fb365
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment