mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

* simple.el (push-mark-command): Set selection for select-active-regions.

Browse Source
This commit is contained in:
Chong Yidong 2010-07-14 12:11:39 -04:00
parent b78f97676f
commit 5cbce271a6
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-07-14 Chong Yidong <cyd@stupidchicken.com>
* simple.el (push-mark-command): Set the selection if
select-active-regions is non-nil.
2010-07-10 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (calendar-week-end-day): New function.

2
lisp/simple.el
View File

@ -3687,6 +3687,8 @@ Display `Mark set' unless the optional second arg NOMSG is non-nil."
(push-mark nil nomsg t)
(setq mark-active t)
(run-hooks 'activate-mark-hook)
(and select-active-regions (display-selections-p)
(x-set-selection 'PRIMARY (current-buffer)))
(unless nomsg
(message "Mark activated")))))