diff options
| author | Markus Rost | 1998-12-04 23:05:46 +0000 |
|---|---|---|
| committer | Markus Rost | 1998-12-04 23:05:46 +0000 |
| commit | 4fc14e5ad026d7feabece376627a3060b2d2226a (patch) | |
| tree | e4eb56832c802035e568730e298487e9ac8f3e60 | |
| parent | 213f4eae7b91112f96ac7f4a0c297f51dc735a3b (diff) | |
| download | emacs-4fc14e5ad026d7feabece376627a3060b2d2226a.tar.gz emacs-4fc14e5ad026d7feabece376627a3060b2d2226a.zip | |
(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." | |||
| 1212 | (save-excursion | 1212 | (save-excursion |
| 1213 | (goto-char p) | 1213 | (goto-char p) |
| 1214 | (end-of-line) | 1214 | (end-of-line) |
| 1215 | (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t) | 1215 | (if (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t) |
| 1216 | (setq default (format "%s" (buffer-substring | 1216 | (setq default (format "%s" (buffer-substring |
| 1217 | (match-beginning 1) | 1217 | (match-beginning 1) |
| 1218 | (match-end 1))))))) | 1218 | (match-end 1)))))))) |
| 1219 | (let ((item nil)) | 1219 | (let ((item nil)) |
| 1220 | (while (null item) | 1220 | (while (null item) |
| 1221 | (setq item (let ((completion-ignore-case t) | 1221 | (setq item (let ((completion-ignore-case t) |