comparison src/callint.c @ 93607:42db50d02ca0

(Fcall_interactively): Handle temporary region even when shift-select-mode is off.

93606:f720f3524c72

extern char *index P_ ((const char *, int));
#endif

extern Lisp_Object Qcursor_in_echo_area;
extern Lisp_Object Qfile_directory_p;

Lisp_Object Vcurrent_prefix_arg, Qminus, Qplus;
Lisp_Object Qcall_interactively;
Lisp_Object Vcommand_history;

	  string++;
	}
      else if (*string == '^')
	{
	  if (! NILP (Vshift_select_mode))
	    call0 (Qhandle_shift_selection);
	  string++;
	}
      else break;
    }

93607:42db50d02ca0

extern char *index P_ ((const char *, int));
#endif

extern Lisp_Object Qcursor_in_echo_area;
extern Lisp_Object Qfile_directory_p;
extern Lisp_Object Qonly;

Lisp_Object Vcurrent_prefix_arg, Qminus, Qplus;
Lisp_Object Qcall_interactively;
Lisp_Object Vcommand_history;

	  string++;
	}
      else if (*string == '^')
	{
	  if (! NILP (Vshift_select_mode))
	    call1 (Qhandle_shift_selection, Qnil);
	  /* Even if shift-select-mode is off, temporarily active
	     regions could be set using the mouse, and should be
	     deactivated.  */
	  else if (CONSP (Vtransient_mark_mode)
		   && EQ (XCAR (Vtransient_mark_mode), Qonly))
	    call1 (Qhandle_shift_selection, Qt);
	  string++;
	}
      else break;
    }