From 59c4c60fb1b371be5566e44b3fa6cb377001f958 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 2 May 2009 11:54:43 +0000 Subject: [PATCH] (read_process_output): Make sure the current buffer is always restored. --- src/ChangeLog | 3 +++ src/process.c | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4ba1d7fae6..83cbb6f6b2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2009-05-02 Andreas Schwab + * process.c (read_process_output): Make sure the current buffer is + always restored. + * coding.c (record_conversion_result): Don't modify Vlast_code_conversion_error for successful result. (alloc_destination): Don't clobber conversion result. (Bug#1650) diff --git a/src/process.c b/src/process.c index 635f44466d..5fb3662532 100644 --- a/src/process.c +++ b/src/process.c @@ -5185,7 +5185,6 @@ read_process_output (proc, channel) register int nbytes; char *chars; register Lisp_Object outstream; - register struct buffer *old = current_buffer; register struct Lisp_Process *p = XPROCESS (proc); register int opoint; struct coding_system *coding = proc_decode_coding_system[channel]; @@ -5385,9 +5384,11 @@ read_process_output (proc, channel) int opoint_byte; Lisp_Object text; struct buffer *b; + int count = SPECPDL_INDEX (); odeactivate = Vdeactivate_mark; + record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); Fset_buffer (p->buffer); opoint = PT; opoint_byte = PT_BYTE; @@ -5490,7 +5491,7 @@ read_process_output (proc, channel) current_buffer->read_only = old_read_only; SET_PT_BOTH (opoint, opoint_byte); - set_buffer_internal (old); + unbind_to (count, Qnil); } return nbytes; } -- 2.20.1