Mercurial > emacs
comparison src/process.c @ 6515:df7438605e1e
(status_notify): Use assignment, not initialization.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 25 Mar 1994 00:40:16 +0000 |
| parents | 1dbe24a029fd |
| children | 9cde1228e2fa |
comparison
equal
deleted
inserted
replaced
| 6514:421a3ab4cb2e | 6515:df7438605e1e |
|---|---|
| 2951 This is done while Emacs is waiting for keyboard input. */ | 2951 This is done while Emacs is waiting for keyboard input. */ |
| 2952 | 2952 |
| 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 |
| 2963 reference. */ | 2964 reference. */ |
| 2964 GCPRO2 (tail, msg); | 2965 GCPRO2 (tail, msg); |
| 3006 exec_sentinel (proc, msg); | 3007 exec_sentinel (proc, msg); |
| 3007 /* Don't bother with a message in the buffer | 3008 /* Don't bother with a message in the buffer |
| 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 | |
| 3016 ro = XBUFFER (buffer)->read_only; | |
| 3015 | 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)) |
| 3019 continue; | 3021 continue; |
