[Emacs-diffs] master 56f5ea1 2/3: rect.el: Suppress superfluous "Mark set" message from push-mark.

[Artur Malabarba]

branch: master
commit 56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d
Author: Kelly Dean <address@hidden>
Commit: Artur Malabarba <address@hidden>

    rect.el: Suppress superfluous "Mark set" message from push-mark.
---
 lisp/ChangeLog |    5 +++++
 lisp/rect.el   |    3 +--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73e1396..a15295f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2015-02-18  Kelly Dean  <address@hidden>
 
+       * rect.el (rectangle-mark-mode):
+       Suppress superfluous "Mark set" message from push-mark.
+
+2015-02-18  Kelly Dean  <address@hidden>
+
        * help-mode.el (help-go-back, help-go-forward, help-follow):
        * simple.el (yank-pop, pop-to-mark-command, exchange-point-and-mark):
        * winner.el (winner-redo):
diff --git a/lisp/rect.el b/lisp/rect.el
index c5a5486..75585d2 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)