diff options
| author | Karl Heuer | 1994-03-25 00:40:16 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-25 00:40:16 +0000 |
| commit | 2e4149a8385cd7001fe67ebbf72967d36aa7e845 (patch) | |
| tree | e5789a5f2f3351e86dd27e96d14b0f126b27cba5 | |
| parent | d59d49d38f7a20cc9d63904f2304b635788d3c83 (diff) | |
| download | emacs-2e4149a8385cd7001fe67ebbf72967d36aa7e845.tar.gz emacs-2e4149a8385cd7001fe67ebbf72967d36aa7e845.zip | |
(status_notify): Use assignment, not initialization.
| -rw-r--r-- | src/process.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c index 6f74d50a995..d954de1836e 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -2953,10 +2953,11 @@ exec_sentinel (proc, reason) | |||
| 2953 | status_notify () | 2953 | status_notify () |
| 2954 | { | 2954 | { |
| 2955 | register Lisp_Object proc, buffer; | 2955 | register Lisp_Object proc, buffer; |
| 2956 | Lisp_Object tail = Qnil; | 2956 | Lisp_Object tail, msg; |
| 2957 | Lisp_Object msg = Qnil; | ||
| 2958 | struct gcpro gcpro1, gcpro2; | 2957 | struct gcpro gcpro1, gcpro2; |
| 2959 | 2958 | ||
| 2959 | tail = Qnil; | ||
| 2960 | msg = Qnil; | ||
| 2960 | /* We need to gcpro tail; if read_process_output calls a filter | 2961 | /* We need to gcpro tail; if read_process_output calls a filter |
| 2961 | which deletes a process and removes the cons to which tail points | 2962 | which deletes a process and removes the cons to which tail points |
| 2962 | from Vprocess_alist, and then causes a GC, tail is an unprotected | 2963 | from Vprocess_alist, and then causes a GC, tail is an unprotected |
| @@ -3008,11 +3009,12 @@ status_notify () | |||
| 3008 | when a process becomes runnable. */ | 3009 | when a process becomes runnable. */ |
| 3009 | else if (!EQ (symbol, Qrun) && !NILP (buffer)) | 3010 | else if (!EQ (symbol, Qrun) && !NILP (buffer)) |
| 3010 | { | 3011 | { |
| 3011 | Lisp_Object ro = XBUFFER (buffer)->read_only; | 3012 | Lisp_Object ro, tem; |
| 3012 | Lisp_Object tem; | ||
| 3013 | struct buffer *old = current_buffer; | 3013 | struct buffer *old = current_buffer; |
| 3014 | int opoint; | 3014 | int opoint; |
| 3015 | 3015 | ||
| 3016 | ro = XBUFFER (buffer)->read_only; | ||
| 3017 | |||
| 3016 | /* Avoid error if buffer is deleted | 3018 | /* Avoid error if buffer is deleted |
| 3017 | (probably that's why the process is dead, too) */ | 3019 | (probably that's why the process is dead, too) */ |
| 3018 | if (NILP (XBUFFER (buffer)->name)) | 3020 | if (NILP (XBUFFER (buffer)->name)) |