diff options
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/process.c | 8 |
2 files changed, 11 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d1ae64a20f2..7a149a3c11a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2006-02-25 Stefan Monnier <monnier@iro.umontreal.ca> + + * process.c (Fmake_network_process): Init the process's mark. + 2006-02-25 Kim F. Storm <storm@cua.dk> * buffer.c (modify_overlay): Force redisplay if we modify an diff --git a/src/process.c b/src/process.c index 5a98ee024c1..1c0b196b3cf 100644 --- a/src/process.c +++ b/src/process.c @@ -1582,7 +1582,7 @@ usage: (start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS) */) #endif /* Make the process marker point into the process buffer (if any). */ - if (!NILP (buffer)) + if (BUFFERP (buffer)) set_marker_both (XPROCESS (proc)->mark, buffer, BUF_ZV (XBUFFER (buffer)), BUF_ZV_BYTE (XBUFFER (buffer))); @@ -3355,6 +3355,12 @@ usage: (make-network-process &rest ARGS) */) if (is_server && socktype == SOCK_STREAM) p->status = Qlisten; + /* Make the process marker point into the process buffer (if any). */ + if (BUFFERP (buffer)) + set_marker_both (p->mark, buffer, + BUF_ZV (XBUFFER (buffer)), + BUF_ZV_BYTE (XBUFFER (buffer))); + #ifdef NON_BLOCKING_CONNECT if (is_non_blocking_client) { |