# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 979034903 0
# Node ID 9e39c86c678b88147b4fbcb235e158b68cf9438c
# Parent  e459e9bee789fb877e07960ebf342a546b39b8a7
(widget-choose): Call display-popup-menus-p instead
of display-mouse-p.

diff -r e459e9bee789 -r 9e39c86c678b lisp/wid-edit.el
--- a/lisp/wid-edit.el	Tue Jan 09 02:30:03 2001 +0000
+++ b/lisp/wid-edit.el	Tue Jan 09 10:08:23 2001 +0000
@@ -204,7 +204,7 @@
 `widget-menu-max-size', a popup menu will be used, otherwise the
 minibuffer."
   (cond ((and (< (length items) widget-menu-max-size)
-	      event (display-mouse-p))
+	      event (display-popup-menus-p))
 	 ;; Mouse click.
 	 (x-popup-menu event
 		       (list title (cons "" items))))