emacs-29 d8ba28fa394: Fix order of tmm-menubar when 'tmm-mid-prompt' is nil

[Eli Zaretskii]

branch: emacs-29
commit d8ba28fa3943b73b748b3f50853031139f23ef9b
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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>.
---
 lisp/tmm.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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.