X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fdialog.el;h=32f6e017e744d142299dae47659c0b01b6dd015f;hp=740ff72fb0fc316b2d3f87be3f2a36fae2c32a7f;hb=2fd9701a4f902054649dde9143a3f77809afee8f;hpb=efab7bccd7d7da13ff3979d2890a417a048ec960

diff --git a/lisp/dialog.el b/lisp/dialog.el
index 740ff72..32f6e01 100644
--- a/lisp/dialog.el
+++ b/lisp/dialog.el
@@ -37,8 +37,8 @@ Takes one argument, which is the string to display to ask the question."
 	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 @@ minibuffer contents show."
 	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)))