Mercurial > emacs

comparison lisp/simple.el @ 109328:548603211765

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* simple.el (push-mark-command): Set selection for select-active-regions.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 14 Jul 2010 12:11:39 -0400
parents 4773a5d3ff67
children 051595eb9b58 ad23e0fe40f4
comparison
equal deleted inserted replaced
109327:60266cf487b0 109328:548603211765
3685 (let ((mark (marker-position (mark-marker)))) 3685 (let ((mark (marker-position (mark-marker))))
3686 (if (or arg (null mark) (/= mark (point))) 3686 (if (or arg (null mark) (/= mark (point)))
3687 (push-mark nil nomsg t) 3687 (push-mark nil nomsg t)
3688 (setq mark-active t) 3688 (setq mark-active t)
3689 (run-hooks 'activate-mark-hook) 3689 (run-hooks 'activate-mark-hook)
3690 (and select-active-regions (display-selections-p)
3691 (x-set-selection 'PRIMARY (current-buffer)))
3690 (unless nomsg 3692 (unless nomsg
3691 (message "Mark activated"))))) 3693 (message "Mark activated")))))
3692 3694
3693 (defcustom set-mark-command-repeat-pop nil 3695 (defcustom set-mark-command-repeat-pop nil
3694 "Non-nil means repeating \\[set-mark-command] after popping mark pops it again. 3696 "Non-nil means repeating \\[set-mark-command] after popping mark pops it again.