diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-23 22:26:47 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-23 22:26:47 +0000 |
| commit | 2fd6519bc866779c6346dfee257e61d29250f0ba (patch) | |
| tree | 3f817418ea8736bb641fbfeaffbca6524bf988c3 /src/callproc.c | |
| parent | 0d3449810e13256fef55d7ec97e7a620d52fde16 (diff) | |
| download | emacs-2fd6519bc866779c6346dfee257e61d29250f0ba.tar.gz | |
(call_process_cleanup, getenv_internal): Use assignment, not initialization.
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 8 |
1 files changed, 5 insertions, 3 deletions
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] == '=' |