diff options
| author | Kelly Dean | 2015-02-18 07:38:13 +0000 |
|---|---|---|
| committer | Artur Malabarba | 2015-02-18 16:36:24 -0200 |
| commit | 56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d (patch) | |
| tree | c2fd1c5842c067221efb5f744b46c79055400d61 /lisp/rect.el | |
| parent | 72f7eded979c672662112304cc8615c0dbcf9803 (diff) | |
| download | emacs-56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d.tar.gz emacs-56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d.zip | |
rect.el: Suppress superfluous "Mark set" message from push-mark.
Diffstat (limited to 'lisp/rect.el')
| -rw-r--r-- | lisp/rect.el | 3 |
1 files changed, 1 insertions, 2 deletions
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." | |||
| 586 | (add-hook 'deactivate-mark-hook | 586 | (add-hook 'deactivate-mark-hook |
| 587 | (lambda () (rectangle-mark-mode -1))) | 587 | (lambda () (rectangle-mark-mode -1))) |
| 588 | (unless (region-active-p) | 588 | (unless (region-active-p) |
| 589 | (push-mark) | 589 | (push-mark (point) t t) |
| 590 | (activate-mark) | ||
| 591 | (message "Mark set (rectangle mode)")))) | 590 | (message "Mark set (rectangle mode)")))) |
| 592 | 591 | ||
| 593 | (defun rectangle-exchange-point-and-mark (&optional arg) | 592 | (defun rectangle-exchange-point-and-mark (&optional arg) |