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; |