From: Juri Linkov <juri@jurta.org>
Date: Mon, 5 Sep 2011 08:05:01 +0000 (+0300)
Subject: * lisp/subr.el (y-or-n-p): Capitalize "yes".
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~1^2~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=045820ecd3b3f4396474fae297945d58d9187e6a;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e6a6d9108a..59ecd1a3c12 100644
--- 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 b49a20e7f6e..a2676b1173d 100644
--- 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))))
                                "" " ")