* callproc.c (Fcall_process): Avoid vfork clobbering

the local vars buffer, coding_systems, current_dir.

diff --git a/src/ChangeLog b/src/ChangeLog
index 726ef7bce905f7e5c5f5c8cd4aad0b66961acd3e..1ad53741533cbf7b839a0d3e0bdacd48d1ea0018 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * callproc.c (Fcall_process): Avoid vfork clobbering
+       the local vars buffer, coding_systems, current_dir.
+
 2011-08-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * keymap.c (Fmake_composed_keymap): Move to subr.el.

diff --git a/src/callproc.c b/src/callproc.c
index f148f6233d49b7762c6233ec42599878e9b7084b..3a91be3d8da26426520dfafd40cafdb2e400e10c 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -603,6 +603,9 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
 
     /* vfork, and prevent local vars from being clobbered by the vfork.  */
     {
+      Lisp_Object volatile buffer_volatile = buffer;
+      Lisp_Object volatile coding_systems_volatile = coding_systems;
+      Lisp_Object volatile current_dir_volatile = current_dir;
       int volatile fd1_volatile = fd1;
       int volatile fd_error_volatile = fd_error;
       int volatile fd_output_volatile = fd_output;
@@ -611,6 +614,9 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
 
       pid = vfork ();
 
+      buffer = buffer_volatile;
+      coding_systems = coding_systems_volatile;
+      current_dir = current_dir_volatile;
       fd1 = fd1_volatile;
       fd_error = fd_error_volatile;
       fd_output = fd_output_volatile;