[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99926: * simple.el (push-mark-com
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99926: * simple.el (push-mark-command): Set selection for select-active-regions. |
Date: |
Wed, 14 Jul 2010 12:11:39 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 99926
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Wed 2010-07-14 12:11:39 -0400
message:
* simple.el (push-mark-command): Set selection for select-active-regions.
modified:
lisp/ChangeLog
lisp/simple.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-07-10 23:34:57 +0000
+++ b/lisp/ChangeLog 2010-07-14 16:11:39 +0000
@@ -1,3 +1,8 @@
+2010-07-14 Chong Yidong <address@hidden>
+
+ * simple.el (push-mark-command): Set the selection if
+ select-active-regions is non-nil.
+
2010-07-10 Glenn Morris <address@hidden>
* calendar/calendar.el (calendar-week-end-day): New function.
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2010-07-10 22:41:55 +0000
+++ b/lisp/simple.el 2010-07-14 16:11:39 +0000
@@ -3687,6 +3687,8 @@
(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")))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r99926: * simple.el (push-mark-command): Set selection for select-active-regions.,
Chong Yidong <=