diff src/callint.c @ 102735:07f2395ce3db

* callint.c (Fcall_interactively): For '^' just delegate the work to handle-shift-selection. (syms_of_callint): Move declaration of shift-select-mode to simple.el. * simple.el (shift-select-mode): Move declaration from callint.c. (handle-shift-selection): Remove `deactivate' arg and check shift-select-mode instead.

--- a/src/callint.c	Thu Mar 26 16:21:25 2009 +0000
+++ b/src/callint.c	Thu Mar 26 17:07:54 2009 +0000
@@ -51,7 +51,7 @@
    even if mark_active is 0.  */
 Lisp_Object Vmark_even_if_inactive;
 
-Lisp_Object Vshift_select_mode, Qhandle_shift_selection;
+Lisp_Object Qhandle_shift_selection;
 
 Lisp_Object Vmouse_leave_buffer_hook, Qmouse_leave_buffer_hook;
 
@@ -454,14 +454,7 @@
 	}
       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);
+	  call0 (Qhandle_shift_selection);
 	  string++;
 	}
       else break;
@@ -994,20 +987,6 @@
 behave as if the mark were still active.  */);
   Vmark_even_if_inactive = Qt;
 
-  DEFVAR_LISP ("shift-select-mode", &Vshift_select_mode,
-	       doc: /* When non-nil, shifted motion keys activate the mark momentarily.
-
-While the mark is activated in this way, any shift-translated point
-motion key extends the region, and if Transient Mark mode was off, it
-is temporarily turned on.  Furthermore, the mark will be deactivated
-by any subsequent point motion key that was not shift-translated, or
-by any action that normally deactivates the mark in Transient Mark
-mode.
-
-See `this-command-keys-shift-translated' for the meaning of
-shift-translation.  */);
-  Vshift_select_mode = Qt;
-
   DEFVAR_LISP ("mouse-leave-buffer-hook", &Vmouse_leave_buffer_hook,
 	       doc: /* Hook to run when about to switch windows with a mouse command.
 Its purpose is to give temporary modes such as Isearch mode