aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/info.el6
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)