comparison src/insdel.c @ 109802:acc05fd0631b

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.

109801:f4192807d8a6

/* Buffer which combine_after_change_list is about.  */
Lisp_Object combine_after_change_buffer;

Lisp_Object Qinhibit_modification_hooks;

extern Lisp_Object Vselect_active_regions, Vsaved_region_selection;


/* Check all markers in the current buffer, looking for something invalid.  */

static int check_markers_debug_flag;

    call1 (intern ("ask-user-about-supersession-threat"),
	   base_buffer->filename);
#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))
    {
      int b = XINT (Fmarker_position (current_buffer->mark));
      int e = XINT (make_number (PT));
      if (b < e)
	Vsaved_region_selection = make_buffer_string (b, e, 0);

109802:acc05fd0631b

/* Buffer which combine_after_change_list is about.  */
Lisp_Object combine_after_change_buffer;

Lisp_Object Qinhibit_modification_hooks;

extern Lisp_Object Vselect_active_regions, Vsaved_region_selection, Qonly;


/* Check all markers in the current buffer, looking for something invalid.  */

static int check_markers_debug_flag;

    call1 (intern ("ask-user-about-supersession-threat"),
	   base_buffer->filename);
#endif /* not CLASH_DETECTION */

  /* If `select-active-regions' is non-nil, save the region text.  */
  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));
      if (b < e)
	Vsaved_region_selection = make_buffer_string (b, e, 0);