diff options
| author | Stefan Monnier | 2000-11-22 16:46:52 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-11-22 16:46:52 +0000 |
| commit | 72596e2f24877e1393b398537803ea6509f69a6a (patch) | |
| tree | f1e50a987b352a506d44a390cc9a703284311bc2 | |
| parent | b9ca4c2b330a6c91485c86ad74f9cb68c59be717 (diff) | |
| download | emacs-72596e2f24877e1393b398537803ea6509f69a6a.tar.gz emacs-72596e2f24877e1393b398537803ea6509f69a6a.zip | |
(popup-menu): Stupid typo.
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d5ae00fb872..7b9debc7b09 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -55,9 +55,9 @@ PREFIX is the prefix argument (if any) to pass to the command." | |||
| 55 | ((keymapp menu) menu) | 55 | ((keymapp menu) menu) |
| 56 | ((and (listp menu) (keymapp (car menu))) menu) | 56 | ((and (listp menu) (keymapp (car menu))) menu) |
| 57 | (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu))) | 57 | (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu))) |
| 58 | (filter (when (symbolp map) | 58 | (filter (when (symbolp map) |
| 59 | (plist-get (get map 'menu-pro) :filter)))) | 59 | (plist-get (get map 'menu-prop) :filter)))) |
| 60 | (if filter (funcall filter (symbol-function map)) map))))) | 60 | (if filter (funcall filter (symbol-function map)) map))))) |
| 61 | event cmd) | 61 | event cmd) |
| 62 | (unless position | 62 | (unless position |
| 63 | (let ((mp (mouse-pixel-position))) | 63 | (let ((mp (mouse-pixel-position))) |