diff options
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 8ca6c549791..abfb77b0552 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2599,7 +2599,8 @@ new buffer." | |||
| 2599 | (if (eq alt-default t) (setq alt-default str)) | 2599 | (if (eq alt-default t) (setq alt-default str)) |
| 2600 | ;; Don't add this string if it's a duplicate. | 2600 | ;; Don't add this string if it's a duplicate. |
| 2601 | (or (assoc-string str completions t) | 2601 | (or (assoc-string str completions t) |
| 2602 | (push str completions)))) | 2602 | (push str completions))) |
| 2603 | (setq completions (nreverse completions))) | ||
| 2603 | ;; If no good default was found, try an alternate. | 2604 | ;; If no good default was found, try an alternate. |
| 2604 | (or default | 2605 | (or default |
| 2605 | (setq default alt-default)) | 2606 | (setq default alt-default)) |
| @@ -4285,7 +4286,8 @@ If FORK is non-nil, it is passed to `Info-goto-node'." | |||
| 4285 | (substring str (match-end 0)))) | 4286 | (substring str (match-end 0)))) |
| 4286 | (setq i (1+ i))) | 4287 | (setq i (1+ i))) |
| 4287 | (setq items | 4288 | (setq items |
| 4288 | (cons str items)))) | 4289 | (cons str items))) |
| 4290 | (setq items (nreverse items))) | ||
| 4289 | (while (and items (< number 9)) | 4291 | (while (and items (< number 9)) |
| 4290 | (setq current (car items) | 4292 | (setq current (car items) |
| 4291 | items (cdr items) | 4293 | items (cdr items) |