mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(easy-menu-do-define): Use `x-popup-menu' instead of

Browse source 
non-existing `easy-popup-menu'.
This commit is contained in:
Richard M. Stallman 1996-09-11 03:47:43 +00:00
parent 77308fd7ec
commit 94ddbbff9b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/easymenu.el
View file

@ -106,7 +106,7 @@ is a list of menu items, as above."
;; function.
(set symbol (easy-menu-create-keymaps (car menu) (cdr menu)))
(fset symbol (` (lambda (event) (, doc) (interactive "@e")
(easy-popup-menu event (, symbol)))))
(x-popup-menu event (, symbol)))))
(mapcar (function (lambda (map)
(define-key map (vector 'menu-bar (intern (car menu)))
(cons (car menu) (symbol-value symbol)))))