mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 21:50:45 -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

5
lisp/ChangeLog
View file

@ -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> 2015-02-18 Kelly Dean <kelly@prtime.org>
* help-mode.el (help-go-back, help-go-forward, help-follow): * help-mode.el (help-go-back, help-go-forward, help-follow):

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 (add-hook 'deactivate-mark-hook
(lambda () (rectangle-mark-mode -1))) (lambda () (rectangle-mark-mode -1)))
(unless (region-active-p) (unless (region-active-p)
(push-mark) (push-mark (point) t t)
(activate-mark)
(message "Mark set (rectangle mode)")))) (message "Mark set (rectangle mode)"))))
(defun rectangle-exchange-point-and-mark (&optional arg) (defun rectangle-exchange-point-and-mark (&optional arg)