diff options
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index df3cc03cae8..624dd0b8363 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -106,7 +106,7 @@ is a list of menu items, as above." | |||
| 106 | ;; function. | 106 | ;; function. |
| 107 | (set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) | 107 | (set symbol (easy-menu-create-keymaps (car menu) (cdr menu))) |
| 108 | (fset symbol (` (lambda (event) (, doc) (interactive "@e") | 108 | (fset symbol (` (lambda (event) (, doc) (interactive "@e") |
| 109 | (easy-popup-menu event (, symbol))))) | 109 | (x-popup-menu event (, symbol))))) |
| 110 | (mapcar (function (lambda (map) | 110 | (mapcar (function (lambda (map) |
| 111 | (define-key map (vector 'menu-bar (intern (car menu))) | 111 | (define-key map (vector 'menu-bar (intern (car menu))) |
| 112 | (cons (car menu) (symbol-value symbol))))) | 112 | (cons (car menu) (symbol-value symbol))))) |