Let all active regions set the primary selection.

This includes both temporarily active regions (mouse drag and
shift-select) and those made with C-SPC and cursor motion.

* lisp/cus-start.el: Change defcustom for select-active-regions.

* lisp/simple.el (deactivate-mark): If select-active-regions is `only',
only set selection for temporarily active regions.

* src/insdel.c (prepare_to_modify_buffer): Handle `only' value of
select-active-regions.

* src/keyboard.c (command_loop_1): Avoid setting selection twice,
since it's done in deactivate-mark as well.
(Vselect_active_regions): Replace `lazy' value with `only',
meaning to only set PRIMARY for temporarily active regions.

3 files changed, 48 insertions, 35 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index e7a6d1c3132..e5bb506931d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,14 @@
+2010-08-16  Chong Yidong  <cyd@stupidchicken.com>
+
+        * keyboard.c (command_loop_1): Avoid setting selection twice,
+        since it's done in deactivate-mark as well.
+        (Vselect_active_regions): Change default to t.  Replace `lazy'
+        with non-default value `only', meaning only set PRIMARY for
+        temporarily active regions.
+
+        * insdel.c (prepare_to_modify_buffer): Handle `only' value of
+        select-active-regions.
+
 2010-08-15  Jan Djärv  <jan.h.d@swipnet.se>
 
         * keyboard.c (parse_tool_bar_item): Put in a bad label if :label
diff --git a/src/insdel.c b/src/insdel.c
index 00025808e37..2ccc0b8eaac 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -74,7 +74,7 @@ Lisp_Object combine_after_change_buffer;
 
 Lisp_Object Qinhibit_modification_hooks;
 
-extern Lisp_Object Vselect_active_regions, Vsaved_region_selection;
+extern Lisp_Object Vselect_active_regions, Vsaved_region_selection, Qonly;
 
 
 /* Check all markers in the current buffer, looking for something invalid.  */
@@ -2050,10 +2050,12 @@ prepare_to_modify_buffer (EMACS_INT start, EMACS_INT end,
 #endif /* not CLASH_DETECTION */
 
   /* If `select-active-regions' is non-nil, save the region text.  */
-  if (!NILP (Vselect_active_regions)
-      && !NILP (current_buffer->mark_active)
-      && !NILP (Vtransient_mark_mode)
-      && NILP (Vsaved_region_selection))
+  if (!NILP (current_buffer->mark_active)
+      && NILP (Vsaved_region_selection)
+      && (EQ (Vselect_active_regions, Qonly)
+          ? EQ (CAR_SAFE (Vtransient_mark_mode), Qonly)
+          : (!NILP (Vselect_active_regions)
+             && !NILP (Vtransient_mark_mode))))
     {
       int b = XINT (Fmarker_position (current_buffer->mark));
       int e = XINT (make_number (PT));
diff --git a/src/keyboard.c b/src/keyboard.c
index 570bf360eb5..2fd13c4ae24 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -368,7 +368,7 @@ Lisp_Object Vselect_active_regions;
    Used by the `select-active-regions' feature.  */
 Lisp_Object Vsaved_region_selection;
 
-Lisp_Object Qx_set_selection, QPRIMARY, Qlazy;
+Lisp_Object Qx_set_selection, QPRIMARY;
 
 Lisp_Object Qself_insert_command;
 Lisp_Object Qforward_char;
@@ -1790,27 +1790,34 @@ command_loop_1 (void)
             Vtransient_mark_mode = Qnil;
           else if (EQ (Vtransient_mark_mode, Qonly))
             Vtransient_mark_mode = Qidentity;
-          else if (EQ (Vselect_active_regions, Qlazy)
-                   ? EQ (CAR_SAFE (Vtransient_mark_mode), Qonly)
-                   : (!NILP (Vselect_active_regions)
-                      && !NILP (Vtransient_mark_mode)))
-            {
-              /* Set window selection.  If `select-active-regions' is
-                 `lazy', only do it for temporarily active regions. */
-              int beg = XINT (Fmarker_position (current_buffer->mark));
-              int end = XINT (make_number (PT));
-              if (beg < end)
-                call2 (Qx_set_selection, QPRIMARY,
-                       make_buffer_string (beg, end, 0));
-              else if (beg > end)
-                call2 (Qx_set_selection, QPRIMARY,
-                       make_buffer_string (end, beg, 0));
-            }
 
           if (!NILP (Vdeactivate_mark))
+            /* If `select-active-regions' is non-nil, this call to
+               `deactivate-mark' also sets the PRIMARY selection.  */
             call0 (Qdeactivate_mark);
-          else if (current_buffer != prev_buffer || MODIFF != prev_modiff)
-            call1 (Vrun_hooks, intern ("activate-mark-hook"));
+          else
+            {
+              /* Even if not deactivating the mark, set PRIMARY if
+                 `select-active-regions' is non-nil.  */
+              if (EQ (Vselect_active_regions, Qonly)
+                  ? EQ (CAR_SAFE (Vtransient_mark_mode), Qonly)
+                  : (!NILP (Vselect_active_regions)
+                     && !NILP (Vtransient_mark_mode)))
+                {
+                  int beg = XINT (Fmarker_position (current_buffer->mark));
+                  int end = XINT (make_number (PT));
+                  if (beg < end)
+                    call2 (Qx_set_selection, QPRIMARY,
+                           make_buffer_string (beg, end, 0));
+                  else if (beg > end)
+                    call2 (Qx_set_selection, QPRIMARY,
+                           make_buffer_string (end, beg, 0));
+                  /* Don't set empty selections.  */
+                }
+
+              if (current_buffer != prev_buffer || MODIFF != prev_modiff)
+                call1 (Vrun_hooks, intern ("activate-mark-hook"));
+            }
 
           Vsaved_region_selection = Qnil;
         }
@@ -11718,8 +11725,6 @@ syms_of_keyboard (void)
   staticpro (&Qx_set_selection);
   QPRIMARY = intern_c_string ("PRIMARY");
   staticpro (&QPRIMARY);
-  Qlazy = intern_c_string ("lazy");
-  staticpro (&Qlazy);
 
   Qinput_method_exit_on_first_char = intern_c_string ("input-method-exit-on-first-char");
   staticpro (&Qinput_method_exit_on_first_char);
@@ -12331,16 +12336,11 @@ and tool-bar buttons.  */);
   DEFVAR_LISP ("select-active-regions",
                &Vselect_active_regions,
                doc: /* If non-nil, an active region automatically becomes the window selection.
-This takes effect only when Transient Mark mode is enabled.
-
-If the value is `lazy', Emacs only sets the window selection during
-`deactivate-mark'; unless the region is temporarily active
-(e.g. mouse-drags or shift-selection), in which case it sets the
-window selection after each command.
+If the value is `only', only temporarily active regions (usually made
+by mouse-dragging or shift-selection) set the window selection.
 
-For other non-nil value, Emacs sets the window selection after every
-command.  */);
-  Vselect_active_regions = Qlazy;
+This takes effect only when Transient Mark mode is enabled.  */);
+  Vselect_active_regions = Qt;
 
   DEFVAR_LISP ("saved-region-selection",
                &Vsaved_region_selection,