Commit 4fc14e5a authored by Markus Rost's avatar Markus Rost
Browse files

(Info-menu): Don't return error if point is between menu header and

first menu item.
parent 213f4eae
......@@ -1212,10 +1212,10 @@ Completion is allowed, and the menu item point is on is the default."
(save-excursion
(goto-char p)
(end-of-line)
(re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
(setq default (format "%s" (buffer-substring
(match-beginning 1)
(match-end 1)))))))
(if (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
(setq default (format "%s" (buffer-substring
(match-beginning 1)
(match-end 1))))))))
(let ((item nil))
(while (null item)
(setq item (let ((completion-ignore-case t)
......
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