From 56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d Mon Sep 17 00:00:00 2001 From: Kelly Dean Date: Wed, 18 Feb 2015 07:38:13 +0000 Subject: [PATCH] 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 73e139657bb..a15295f4b4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-02-18 Kelly Dean + + * rect.el (rectangle-mark-mode): + Suppress superfluous "Mark set" message from push-mark. + 2015-02-18 Kelly Dean * 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) -- 2.39.2