mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Kelly Dean 2015-02-18 07:38:13 +00:00 • committed by Artur Malabarba
parent 72f7eded97
commit 56f5ea17f1
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/rect.el
View file

@ -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)