# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764147114 0
# Node ID 45ab50a1dc559269e9b61534ae231b4c10d29055
# Parent  f9920b777c6537fc49872fdd81c39c267ffb5d7e
(map-y-or-n-p): Call x-popup-dialog the new way.

diff -r f9920b777c65 -r 45ab50a1dc55 lisp/map-ynp.el
--- a/lisp/map-ynp.el	Sun Mar 20 06:30:14 1994 +0000
+++ b/lisp/map-ynp.el	Sun Mar 20 07:05:14 1994 +0000
@@ -137,8 +137,7 @@
 		  ;; 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)))