--- a/lisp/dialog.el	Mon Aug 13 11:15:00 2007 +0200
+++ b/lisp/dialog.el	Mon Aug 13 11:16:07 2007 +0200
@@ -37,8 +37,8 @@
 	event)	 
     (popup-dialog-box
      ;; "Non-violent language please!" says Robin.
-     (cons prompt '(["Yes" yes t] ["No" no t] nil ["Cancel" abort t])))
-;     (cons prompt '(["Yes" yes t] ["No" no t] nil ["Abort" abort t])))
+     (cons prompt '(["%_Yes" yes t] ["%_No" no t] nil ["%_Cancel" abort t])))
+;     (cons prompt '(["%_Yes" yes t] ["%_No" no t] nil ["A%_bort" abort t])))
     (catch 'ynp-done
       (while t
 	(setq event (next-command-event event))
@@ -138,7 +138,7 @@
 	nil)
     (let ((str (apply 'format fmt args)))
       (if (device-on-window-system-p)
-	  (get-dialog-box-response nil (list str (cons "OK" t)))
+	  (get-dialog-box-response nil (list str (cons "%_OK" t)))
 	(display-message 'message str))
       str)))