Mercurial > emacs
comparison lisp/map-ynp.el @ 6438:45ab50a1dc55
(map-y-or-n-p): Call x-popup-dialog the new way.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Mar 1994 07:05:14 +0000 |
| parents | 2f1e5e14dc25 |
| children | 2acd8bf3819a |
comparison
equal
deleted
inserted
replaced
| 6437:f9920b777c65 | 6438:45ab50a1dc55 |
|---|---|
| 135 (progn | 135 (progn |
| 136 (setq quit-flag nil) | 136 (setq quit-flag nil) |
| 137 ;; Prompt the user about this object. | 137 ;; Prompt the user about this object. |
| 138 (if mouse-event | 138 (if mouse-event |
| 139 (setq def (or (x-popup-dialog mouse-event | 139 (setq def (or (x-popup-dialog mouse-event |
| 140 (list "gratuitous" | 140 (cons prompt map)) |
| 141 (cons prompt map))) | |
| 142 'quit)) | 141 'quit)) |
| 143 ;; Prompt in the echo area. | 142 ;; Prompt in the echo area. |
| 144 (let ((cursor-in-echo-area (not no-cursor-in-echo-area))) | 143 (let ((cursor-in-echo-area (not no-cursor-in-echo-area))) |
| 145 (message "%s(y, n, !, ., q, %sor %s) " | 144 (message "%s(y, n, !, ., q, %sor %s) " |
| 146 prompt user-keys | 145 prompt user-keys |