From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 5 May 2022 11:30:14 +0000 (+0200)
Subject: Sort completions in Info references/menu correctly
X-Git-Tag: emacs-29.0.90~1931^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aebff74af27157b60a0d6549be718d85a809b985;p=emacs.git

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.
---

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)