From: Andreas Schwab Date: Sun, 28 Jun 2009 20:25:49 +0000 (+0000) Subject: Simplify last change. X-Git-Tag: emacs-pretest-23.1.90~2396 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=347f3cd3dd418025e2137f3c0b8dc9e32a991b31;p=emacs.git Simplify last change. --- diff --git a/src/process.c b/src/process.c index 38980d28383..058e20be03b 100644 --- a/src/process.c +++ b/src/process.c @@ -5550,11 +5550,10 @@ send_process (proc, buf, len, object) struct Lisp_Process *p = XPROCESS (proc); int rv; struct coding_system *coding; - struct gcpro gcpro1, gcpro2; + struct gcpro gcpro1; SIGTYPE (*volatile old_sigpipe) (); - Lisp_Object dst_object = Qnil; - GCPRO2 (object, dst_object); + GCPRO1 (object); if (p->raw_status_new) update_status (p); @@ -5633,8 +5632,8 @@ send_process (proc, buf, len, object) } len = coding->produced; - dst_object = coding->dst_object; - buf = SDATA (dst_object); + object = coding->dst_object; + buf = SDATA (object); } if (pty_max_bytes == 0) @@ -5765,9 +5764,7 @@ send_process (proc, buf, len, object) /* Running filters might relocate buffers or strings. Arrange to relocate BUF. */ - if (CODING_REQUIRE_ENCODING (coding)) - offset = buf - SDATA (dst_object); - else if (BUFFERP (object)) + if (BUFFERP (object)) offset = BUF_PTR_BYTE_POS (XBUFFER (object), buf); else if (STRINGP (object)) offset = buf - SDATA (object); @@ -5778,9 +5775,7 @@ send_process (proc, buf, len, object) wait_reading_process_output (1, 0, 0, 0, Qnil, NULL, 0); #endif - if (CODING_REQUIRE_ENCODING (coding)) - buf = offset + SDATA (dst_object); - else if (BUFFERP (object)) + if (BUFFERP (object)) buf = BUF_BYTE_ADDRESS (XBUFFER (object), offset); else if (STRINGP (object)) buf = offset + SDATA (object);