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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73e139657bb8bc026f5a1ba64338df5516604b67..a15295f4b4e36eaab9865f79d1d831ca13981672 100644 (file)
--- 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 c5a548647f302c3053f01ad3525422db9dbb81ea..75585d2f080c7ff55b5213a97bca862059b9830c 100644 (file)
--- 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)