mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
of display-mouse-p.
This commit is contained in:
Eli Zaretskii 2001-01-09 10:08:51 +00:00
parent e6cddb1aa2
commit fb55ff106a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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> 2001-01-09 Kenichi Handa <handa@etl.go.jp>
* international/mule.el (make-coding-system): If the coding system * international/mule.el (make-coding-system): If the coding system

2
lisp/wid-edit.el
View File

@ -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 `widget-menu-max-size', a popup menu will be used, otherwise the
minibuffer." minibuffer."
(cond ((and (< (length items) widget-menu-max-size) (cond ((and (< (length items) widget-menu-max-size)
event (display-mouse-p)) event (display-popup-menus-p))
;; Mouse click. ;; Mouse click.
(x-popup-menu event (x-popup-menu event
(list title (cons "" items)))) (list title (cons "" items))))