Mercurial > emacs
comparison lisp/wid-edit.el @ 35155:9e39c86c678b
(widget-choose): Call display-popup-menus-p instead
of display-mouse-p.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 09 Jan 2001 10:08:23 +0000 |
| parents | 5e3fcfc24d23 |
| children | 689589ab80b3 |
comparison
equal
deleted
inserted
replaced
| 35154:e459e9bee789 | 35155:9e39c86c678b |
|---|---|
| 202 and the VALUE of the chosen element will be returned. If EVENT is a | 202 and the VALUE of the chosen element will be returned. If EVENT is a |
| 203 mouse event, and the number of elements in items is less than | 203 mouse event, and the number of elements in items is less than |
| 204 `widget-menu-max-size', a popup menu will be used, otherwise the | 204 `widget-menu-max-size', a popup menu will be used, otherwise the |
| 205 minibuffer." | 205 minibuffer." |
| 206 (cond ((and (< (length items) widget-menu-max-size) | 206 (cond ((and (< (length items) widget-menu-max-size) |
| 207 event (display-mouse-p)) | 207 event (display-popup-menus-p)) |
| 208 ;; Mouse click. | 208 ;; Mouse click. |
| 209 (x-popup-menu event | 209 (x-popup-menu event |
| 210 (list title (cons "" items)))) | 210 (list title (cons "" items)))) |
| 211 ((or widget-menu-minibuffer-flag | 211 ((or widget-menu-minibuffer-flag |
| 212 (> (length items) widget-menu-max-shortcuts)) | 212 (> (length items) widget-menu-max-shortcuts)) |