From fb55ff106a38ac23766450dff67fb608871c87fa Mon Sep 17 00:00:00 2001 From: Eli Zaretskii 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 + + * wid-edit.el (widget-choose): Call display-popup-menus-p instead + of display-mouse-p. + 2001-01-09 Kenichi Handa * 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.39.2