diff options
| author | Richard M. Stallman | 1996-09-11 03:47:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-11 03:47:43 +0000 |
| commit | 94ddbbff9b02de39ea827dac914294945440118f (patch) | |
| tree | 2b20da538ac23d8c7cb9be03fb42ad44f8a26952 | |
| parent | 77308fd7ec3fc4fb05b0d33c92aa8739237999fa (diff) | |
| download | emacs-94ddbbff9b02de39ea827dac914294945440118f.tar.gz emacs-94ddbbff9b02de39ea827dac914294945440118f.zip | |
(easy-menu-do-define): Use `x-popup-menu' instead of
non-existing `easy-popup-menu'.
| -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))))) |