diff options
| author | Kelly Dean <kelly@prtime.org> | 2015-02-18 07:38:13 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-18 16:36:24 -0200 |
| commit | 56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d (patch) | |
| tree | c2fd1c5842c067221efb5f744b46c79055400d61 | |
| parent | 72f7eded979c672662112304cc8615c0dbcf9803 (diff) | |
| download | emacs-56f5ea17f19bfb07e263dd2d59a3c61b652fcc3d.tar.gz | |
rect.el: Suppress superfluous "Mark set" message from push-mark.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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,5 +1,10 @@ 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): * 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 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) |