From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 29 May 2023 12:32:51 +0000 (+0300)
Subject: Fix order of tmm-menubar when 'tmm-mid-prompt' is nil
X-Git-Tag: emacs-29.0.92~79
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8ba28fa3943b73b748b3f50853031139f23ef9b;p=emacs.git

Fix order of tmm-menubar when 'tmm-mid-prompt' is nil

* lisp/tmm.el (tmm-prompt): Reverse 'tmm-km-list' when
'tmm-mid-prompt' is nil, to present the menu in the correct order.
Suggested by Thiago Melo <tmdmelo@gmail.com>.
---

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 6088961fa4c..88254f0d1b8 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -170,9 +170,11 @@ instead of executing it."
 	(error "Empty menu reached"))
       (and tmm-km-list
 	   (let ((index-of-default 0))
-	     (if tmm-mid-prompt
-		 (setq tmm-km-list (tmm-add-shortcuts tmm-km-list))
-	       t)
+             (setq tmm-km-list
+	           (if tmm-mid-prompt
+                       (tmm-add-shortcuts tmm-km-list)
+                     ;; tmm-add-shortcuts reverses tmm-km-list internally.
+                     (reverse tmm-km-list)))
 	     ;; Find the default item's index within the menu bar.
 	     ;; We use this to decide the initial minibuffer contents
 	     ;; and initial history position.