From 045820ecd3b3f4396474fae297945d58d9187e6a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 5 Sep 2011 11:05:01 +0300 Subject: [PATCH] * lisp/subr.el (y-or-n-p): Capitalize "yes". --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * subr.el (y-or-n-p): Capitalize "yes". + 2011-09-04 Michael Albinus * 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)))) "" " ") -- 2.39.2