From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 9 Jan 2001 10:08:51 +0000 (+0000)
Subject: (widget-choose): Call display-popup-menus-p instead
X-Git-Tag: emacs-pretest-21.0.95~33
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb55ff106a38ac23766450dff67fb608871c87fa;p=emacs.git

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

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