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

of display-mouse-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17d3e25e4d4d75697e333c1ae07127c148a6601b..01de131772941e653eefab0a7ae18f72a80101d8 100644 (file)
--- 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 52851524b8a1439006b1564e6ac93f403d053b52..34d9fb75a9dceca55ebd75cbd60bfb49d525f38c 100644 (file)
--- 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))))