From fb55ff106a38ac23766450dff67fb608871c87fa Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 9 Jan 2001 10:08:51 +0000
Subject: [PATCH] (widget-choose): Call display-popup-menus-p instead of
 display-mouse-p.

---
 lisp/ChangeLog   | 5 +++++
 lisp/wid-edit.el | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17d3e25e4d4..01de1317729 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-09  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* wid-edit.el (widget-choose): Call display-popup-menus-p instead
+	of display-mouse-p.
+
 2001-01-09  Kenichi Handa  <handa@etl.go.jp>
 
 	* international/mule.el (make-coding-system): If the coding system
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 52851524b8a..34d9fb75a9d 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -204,7 +204,7 @@ mouse event, and the number of elements in items is less than
 `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))))
-- 
2.11.4.GIT