From aebff74af27157b60a0d6549be718d85a809b985 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 5 May 2022 13:30:14 +0200 Subject: [PATCH] Sort completions in Info references/menu correctly * lisp/info.el (Info-follow-reference): Sort completions in the order they appear in the buffer (bug#54175). (Info-menu-update): Ditto. --- lisp/info.el | 6 ++++-- 1 file 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." (if (eq alt-default t) (setq alt-default str)) ;; Don't add this string if it's a duplicate. (or (assoc-string str completions t) - (push str completions)))) + (push str completions))) + (setq completions (nreverse completions))) ;; If no good default was found, try an alternate. (or default (setq default alt-default)) @@ -4285,7 +4286,8 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (substring str (match-end 0)))) (setq i (1+ i))) (setq items - (cons str items)))) + (cons str items))) + (setq items (nreverse items))) (while (and items (< number 9)) (setq current (car items) items (cdr items) -- 2.39.5