procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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>.
This commit is contained in:
Eli Zaretskii 2023-05-29 15:32:51 +03:00
parent 53dc7bec83
commit d8ba28fa39
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/tmm.el
View file

@ -170,9 +170,11 @@ instead of executing it."
(error "Empty menu reached")) (error "Empty menu reached"))
(and tmm-km-list (and tmm-km-list
(let ((index-of-default 0)) (let ((index-of-default 0))
(if tmm-mid-prompt (setq tmm-km-list
(setq tmm-km-list (tmm-add-shortcuts tmm-km-list)) (if tmm-mid-prompt
t) (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. ;; Find the default item's index within the menu bar.
;; We use this to decide the initial minibuffer contents ;; We use this to decide the initial minibuffer contents
;; and initial history position. ;; and initial history position.