# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 974911612 0
# Node ID 7596dea75d6b5735093bb1e1c1b705477d2975e2
# Parent  8d6dc71efabb148b9f15e11ea6085b67107bfd60
(popup-menu): Stupid typo.

diff -r 8d6dc71efabb -r 7596dea75d6b lisp/mouse.el
--- a/lisp/mouse.el	Wed Nov 22 16:37:04 2000 +0000
+++ b/lisp/mouse.el	Wed Nov 22 16:46:52 2000 +0000
@@ -55,9 +55,9 @@
 	       ((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)))