From: Kelly Dean <kelly@prtime.org>
Date: Wed, 18 Feb 2015 07:38:13 +0000 (+0000)
Subject: rect.el: Suppress superfluous "Mark set" message from push-mark.
X-Git-Tag: emacs-25.0.90~2564^2~354
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d;p=emacs.git

rect.el: Suppress superfluous "Mark set" message from push-mark.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73e139657bb..a15295f4b4e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-18  Kelly Dean  <kelly@prtime.org>
+
+	* rect.el (rectangle-mark-mode):
+	Suppress superfluous "Mark set" message from push-mark.
+
 2015-02-18  Kelly Dean  <kelly@prtime.org>
 
 	* help-mode.el (help-go-back, help-go-forward, help-follow):
diff --git a/lisp/rect.el b/lisp/rect.el
index c5a548647f3..75585d2f080 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -586,8 +586,7 @@ Activates the region if needed.  Only lasts until the region is deactivated."
     (add-hook 'deactivate-mark-hook
               (lambda () (rectangle-mark-mode -1)))
     (unless (region-active-p)
-      (push-mark)
-      (activate-mark)
+      (push-mark (point) t t)
       (message "Mark set (rectangle mode)"))))
 
 (defun rectangle-exchange-point-and-mark (&optional arg)