From 6f4387dde1fb5ec85af13b1beb91ff525aedc4d6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 Mar 1994 07:05:14 +0000 Subject: [PATCH] (map-y-or-n-p): Call x-popup-dialog the new way. --- lisp/map-ynp.el | 3 +-- 1 file changed, 1 insertion(+), 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))) -- 2.39.5