diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-04 23:05:46 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-04 23:05:46 +0000 |
| commit | 4fc14e5ad026d7feabece376627a3060b2d2226a (patch) | |
| tree | e4eb56832c802035e568730e298487e9ac8f3e60 | |
| parent | 213f4eae7b91112f96ac7f4a0c297f51dc735a3b (diff) | |
| download | emacs-4fc14e5ad026d7feabece376627a3060b2d2226a.tar.gz | |
(Info-menu): Don't return error if point is between menu header and
first menu item.
| -rw-r--r-- | lisp/info.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/info.el b/lisp/info.el index 0164dedd293..1febb4d1195 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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) |