From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 22 Nov 2000 16:46:52 +0000 (+0000)
Subject: (popup-menu): Stupid typo.
X-Git-Tag: emacs-pretest-21.0.92~163
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72596e2f24877e1393b398537803ea6509f69a6a;p=emacs.git

(popup-menu): Stupid typo.
---

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."
 	       ((keymapp menu) menu)
 	       ((and (listp menu) (keymapp (car menu))) menu)
 	       (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu)))
-		       (filter (when (symbolp map)
-				 (plist-get (get map 'menu-pro) :filter))))
-		  (if filter (funcall filter (symbol-function map)) map)))))
+			 (filter (when (symbolp map)
+				   (plist-get (get map 'menu-prop) :filter))))
+		    (if filter (funcall filter (symbol-function map)) map)))))
 	 event cmd)
     (unless position
       (let ((mp (mouse-pixel-position)))