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;