* lisp/subr.el (y-or-n-p): Capitalize "yes".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e6a6d9..59ecd1a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-05  Juri Linkov  <juri@jurta.org>
+
+       * subr.el (y-or-n-p): Capitalize "yes".
+
 2011-09-04  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (top): Require 'shell.  Use `tramp-unload-hook' but

diff --git a/lisp/subr.el b/lisp/subr.el
index b49a20e..a2676b1 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2254,7 +2254,7 @@ is nil and `use-dialog-box' is non-nil."
              (listp last-nonmenu-event)
              use-dialog-box)
         (setq answer
-              (x-popup-dialog t `(,prompt ("yes" . act) ("No" . skip))))
+              (x-popup-dialog t `(,prompt ("Yes" . act) ("No" . skip))))
       (setq prompt (concat prompt
                            (if (eq ?\s (aref prompt (1- (length prompt))))
                                "" " ")