comparison src/process.c @ 107826:6438b98db9dd

* process.c (exec_sentinel): Preserve current-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 11 Apr 2010 12:15:09 -0400
parents 57e2e94dbe55
children 992ffbd77e15
comparison
equal deleted inserted replaced
107825:57e2e94dbe55 107826:6438b98db9dd
6837 /* No need to gcpro these, because all we do with them later 6837 /* No need to gcpro these, because all we do with them later
6838 is test them for EQness, and none of them should be a string. */ 6838 is test them for EQness, and none of them should be a string. */
6839 odeactivate = Vdeactivate_mark; 6839 odeactivate = Vdeactivate_mark;
6840 XSETBUFFER (obuffer, current_buffer); 6840 XSETBUFFER (obuffer, current_buffer);
6841 okeymap = current_buffer->keymap; 6841 okeymap = current_buffer->keymap;
6842
6843 /* There's no good reason to let sentinels change the current
6844 buffer, and many callers of accept-process-output, sit-for, and
6845 friends don't expect current-buffer to be changed from under them. */
6846 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
6842 6847
6843 sentinel = p->sentinel; 6848 sentinel = p->sentinel;
6844 if (NILP (sentinel)) 6849 if (NILP (sentinel))
6845 return; 6850 return;
6846 6851