From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 20 Mar 1994 07:05:14 +0000 (+0000)
Subject: (map-y-or-n-p): Call x-popup-dialog the new way.
X-Git-Tag: emacs-19.34~9414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f4387dde1fb5ec85af13b1beb91ff525aedc4d6;p=emacs.git

(map-y-or-n-p): Call x-popup-dialog the new way.
---

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)))