From 10d5f5137767e2f594e3ffad402d274d3aae66b4 Mon Sep 17 00:00:00 2001 From: Christoph Scholtes Date: Wed, 19 Oct 2011 19:40:32 -0600 Subject: [PATCH] * emulation/cua-base.el (cua-set-mark): Fix case of string. --- lisp/ChangeLog | 4 ++++ lisp/emulation/cua-base.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * emulation/cua-base.el (cua-set-mark): Fix case of string. + 2011-10-20 Chong Yidong * 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) -- 2.39.2