From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 23 Mar 1994 22:26:47 +0000 (+0000)
Subject: (call_process_cleanup, getenv_internal): Use assignment, not initialization.
X-Git-Tag: emacs-19.34~9357
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c13507524710ac8cc1818d0e4216ab77b1b5b471;p=emacs.git

(call_process_cleanup, getenv_internal): Use assignment, not initialization.
---

diff --git a/src/callproc.c b/src/callproc.c
index 9b99e29f40a..bce5b505df3 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -120,7 +120,8 @@ call_process_cleanup (fdpid)
 {
 #ifdef MSDOS
   /* for MSDOS fdpid is really (fd . tempfile)  */
-  register Lisp_Object file = Fcdr (fdpid);
+  register Lisp_Object file;
+  file = Fcdr (fdpid);
   close (XFASTINT (Fcar (fdpid)));
   if (strcmp (XSTRING (file)-> data, NULL_DEVICE) != 0)
     unlink (XSTRING (file)->data);
@@ -725,8 +726,9 @@ getenv_internal (var, varlen, value, valuelen)
 
   for (scan = Vprocess_environment; CONSP (scan); scan = XCONS (scan)->cdr)
     {
-      Lisp_Object entry = XCONS (scan)->car;
-      
+      Lisp_Object entry;
+
+      entry = XCONS (scan)->car;
       if (XTYPE (entry) == Lisp_String
 	  && XSTRING (entry)->size > varlen
 	  && XSTRING (entry)->data[varlen] == '='