mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Fcall_interactively): Handle temporary region even when

Browse source 
shift-select-mode is off.
This commit is contained in:
Chong Yidong 2008-04-03 16:36:47 +00:00
parent 1d8dcf63aa
commit e5a31bbbcb
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/callint.c
View file

@ -36,6 +36,7 @@ extern char *index P_ ((const char *, int));
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;
@ -454,7 +455,13 @@ invoke it. If KEYS is omitted or nil, the return value of
else if (*string == '^')
{
if (! NILP (Vshift_select_mode))
call0 (Qhandle_shift_selection);
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;