* emulation/cua-base.el (cua-set-mark): Fix case of string.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b012694607..448b07edec2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-20  Christoph Scholtes  <cschol2112@googlemail.com>
+
+        * emulation/cua-base.el (cua-set-mark): Fix case of string.
+
 2011-10-20  Chong Yidong  <cyd@gnu.org>
 
         * emulation/cua-base.el (cua-mode):
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 918402dc581..9a50352d507 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1121,7 +1121,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark."
         (pop-to-mark-command)))
    ((and cua-toggle-set-mark mark-active)
     (cua--deactivate)
-    (message "Mark Cleared"))
+    (message "Mark cleared"))
    (t
     (push-mark-command nil nil)
     (setq cua--explicit-region-start t)