Mercurial > emacs
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 |
