# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1198612965 0
# Node ID 9ec633b7a53dd704f5002dbddf6393408e7dab63
# Parent  4f4b8e4f7e4ec5c630658dd9060c8ab3a043bef6
(select-active-regions): New option.
(set-mark): Obey it.

diff -r 4f4b8e4f7e4e -r 9ec633b7a53d lisp/simple.el
--- a/lisp/simple.el	Tue Dec 25 19:55:59 2007 +0000
+++ b/lisp/simple.el	Tue Dec 25 20:02:45 2007 +0000
@@ -3300,6 +3300,12 @@
     (setq mark-active nil)
     (run-hooks 'deactivate-mark-hook))))
 
+(defcustom select-active-regions nil
+  "If non-nil, an active region automatically becomes the window selection."
+  :type 'boolean
+  :group 'killing
+  :version "23.1")
+
 (defun set-mark (pos)
   "Set this buffer's mark to POS.  Don't use this function!
 That is to say, don't use this function unless you want
@@ -3321,6 +3327,9 @@
       (progn
 	(setq mark-active t)
 	(run-hooks 'activate-mark-hook)
+	(and select-active-regions
+	     (x-set-selection
+	      nil (buffer-substring (region-beginning) (region-end))))
 	(set-marker (mark-marker) pos (current-buffer)))
     ;; Normally we never clear mark-active except in Transient Mark mode.
     ;; But when we actually clear out the mark value too,