diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-20 07:05:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-20 07:05:14 +0000 |
| commit | 9fa9b7c238f7f0d9bc40bc2c66f84a5c79e307c5 (patch) | |
| tree | 7df5ccb2cd8c1f6c3f265ad6efb10e7a42005782 | |
| parent | 8400fbcabeb1faffb6d88ad461a0c448204c009b (diff) | |
| download | emacs-9fa9b7c238f7f0d9bc40bc2c66f84a5c79e307c5.tar.gz | |
(map-y-or-n-p): Call x-popup-dialog the new way.
| -rw-r--r-- | lisp/map-ynp.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index a4ee70bcee5..f4e22ecbb24 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -137,8 +137,7 @@ Returns the number of actions taken." ;; Prompt the user about this object. (if mouse-event (setq def (or (x-popup-dialog mouse-event - (list "gratuitous" - (cons prompt map))) + (cons prompt map)) 'quit)) ;; Prompt in the echo area. (let ((cursor-in-echo-area (not no-cursor-in-echo-area))) |