mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Add missing implementation of `pgtk-menu-bar-open'

Browse source 
* lisp/term/pgtk-win.el (pgtk-menu-bar-open): New function.
(bug#52604)
This commit is contained in:
Po Lu 2021-12-19 09:43:26 +08:00
parent 1fce1d99d4
commit 579d7c20da
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/term/pgtk-win.el
View file

@ -497,6 +497,18 @@ This uses `icon-map-list' to map icon file names to stock icon names."
(and value (cdr value))))
x-gtk-stock-cache))))
(declare-function accelerate-menu "pgtkmenu.c" (&optional frame) t)
(defun pgtk-menu-bar-open (&optional frame)
"Open the menu bar if it is shown.
`popup-menu' is used if it is off."
(interactive "i")
(cond
((and (not (zerop (or (frame-parameter nil 'menu-bar-lines) 0)))
(fboundp 'accelerate-menu))
(accelerate-menu frame))
(t
(popup-menu (mouse-menu-bar-map) last-nonmenu-event))))
(provide 'pgtk-win)
(provide 'term/pgtk-win)