(widget-choose): Call display-popup-menus-p instead

of display-mouse-p.

2 files changed, 6 insertions, 1 deletions

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))))