Skip to content

Instantly share code, notes, and snippets.

@lagagain

lagagain/example_x-popup-menu.el

Last active April 11, 2019 02:24
Show Gist options
  • Save lagagain/86633c50720fbbc7b1c61ad6b7c548ec to your computer and use it in GitHub Desktop.
Save lagagain/86633c50720fbbc7b1c61ad6b7c548ec to your computer and use it in GitHub Desktop.
Download ZIP
[Emacs Lisp]Example of x-popup-menu
Raw
example_x-popup-menu.el
(easy-menu-define testmenu nil "Test Menu" '(("Hello") ("abc") ("def")))
(windowp
(get-buffer-window "*Messages*"))
(x-popup-menu `((0 0) ,(get-buffer-window "*Messages*")) testmenu)
(x-popup-menu `((0 0) ,(get-buffer-window)) testmenu)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment