mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(widget-choose): Use display-mouse-p instead of window-system.

Browse source 
(widget-choice-mouse-down-action): Use display-popup-menus-p
instead of window-system.
This commit is contained in:
Eli Zaretskii 2000-07-31 15:35:08 +00:00
parent fbebec273d
commit e2c00a4719
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/wid-edit.el
View file

@ -176,7 +176,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 (fboundp 'x-popup-menu) window-system)
event (fboundp 'x-popup-menu) (display-mouse-p))
;; We are in Emacs-19, pressed by the mouse
(x-popup-menu event
(list title (cons "" items))))
@ -1818,7 +1818,7 @@ when he invoked the menu."
;; Return non-nil if we need a menu.
(let ((args (widget-get widget :args))
(old (widget-get widget :choice)))
(cond ((not window-system)
(cond ((not (display-popup-menus-p))
;; No place to pop up a menu.
nil)
((not (or (fboundp 'x-popup-menu) (fboundp 'popup-menu)))