mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00
Code Issues Projects Releases Wiki Activity

(exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.

Browse source
This commit is contained in:
Karl Heuer 1994-05-11 04:04:03 +00:00
parent 17077ab35f
commit 8fb3cf6481
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/process.c
View file

@ -3006,10 +3006,12 @@ static void
exec_sentinel (proc, reason)
Lisp_Object proc, reason;
{
Lisp_Object sentinel;
Lisp_Object sentinel, obuffer, odeactivate;
register struct Lisp_Process *p = XPROCESS (proc);
int count = specpdl_ptr - specpdl;
odeactivate = Vdeactivate_mark;
obuffer = Fcurrent_buffer ();
sentinel = p->sentinel;
if (NILP (sentinel))
return;
@ -3021,6 +3023,11 @@ exec_sentinel (proc, reason)
/* Inhibit quit so that random quits don't screw up a running filter. */
specbind (Qinhibit_quit, Qt);
call2 (sentinel, proc, reason);
Vdeactivate_mark = odeactivate;
if (! EQ (Fcurrent_buffer (), obuffer))
record_asynch_buffer_change ();
if (waiting_for_user_input_p)
prepare_menu_bars ();
unbind_to (count, Qnil);