Commit 5cbce271 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent b78f9767
2010-07-14 Chong Yidong <>
* simple.el (push-mark-command): Set the selection if
select-active-regions is non-nil.
2010-07-10 Glenn Morris <>
* calendar/calendar.el (calendar-week-end-day): New function.
......@@ -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")))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment