[Emacs-diffs] emacs/src ChangeLog process.c

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/08/17 21:04:07

Modified files:
        src            : ChangeLog process.c 

Log message:
        * process.c (status_notify): Don't perform redisplay.
        (Fdelete_process, list_processes_1, process_send_signal):
        Expliticly perform redisplay.
        (wait_reading_process_output): Always check process status, but
        don't perform redisplay unless DO_DISPLAY is non-zero (Bug#2930).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7693&r2=1.7694
http://cvs.savannah.gnu.org/viewcvs/emacs/src/process.c?cvsroot=emacs&r1=1.592&r2=1.593

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7693
retrieving revision 1.7694
diff -u -b -r1.7693 -r1.7694
--- ChangeLog   17 Aug 2009 01:25:54 -0000      1.7693
+++ ChangeLog   17 Aug 2009 21:04:05 -0000      1.7694
@@ -1,3 +1,11 @@
+2009-08-17  Chong Yidong  <address@hidden>
+
+       * process.c (status_notify): Don't perform redisplay.
+       (Fdelete_process, list_processes_1, process_send_signal):
+       Expliticly perform redisplay.
+       (wait_reading_process_output): Always check process status, but
+       don't perform redisplay unless DO_DISPLAY is non-zero (Bug#2930).
+
 2009-08-17  Ken Raeburn  <address@hidden>
 
        * lisp.h (XFLOAT_DATA): Produce an rvalue by adding 0 to the

Index: process.c
===================================================================
RCS file: /sources/emacs/emacs/src/process.c,v
retrieving revision 1.592
retrieving revision 1.593
diff -u -b -r1.592 -r1.593
--- process.c   14 Aug 2009 09:16:41 -0000      1.592
+++ process.c   17 Aug 2009 21:04:07 -0000      1.593
@@ -786,6 +786,7 @@
       p->status = Fcons (Qexit, Fcons (make_number (0), Qnil));
       p->tick = ++process_tick;
       status_notify (p);
+      redisplay_preserve_echo_area (13);
     }
   else if (p->infd >= 0)
     {
@@ -817,6 +818,7 @@
            = Fcons (Qsignal, Fcons (make_number (SIGKILL), Qnil));
          p->tick = ++process_tick;
          status_notify (p);
+         redisplay_preserve_echo_area (13);
        }
     }
   remove_process (process);
@@ -1543,7 +1545,10 @@
        }
     }
   if (exited)
+    {
     status_notify (NULL);
+      redisplay_preserve_echo_area (13);
+    }
   return Qnil;
 }
 
@@ -4756,11 +4761,8 @@
       /* If status of something has changed, and no input is
         available, notify the user of the change right away.  After
         this explicit check, we'll let the SIGCHLD handler zap
-        timeout to get our attention.  When Emacs is run
-        interactively, only do this with a nonzero DO_DISPLAY
-        argument, because status_notify triggers redisplay.  */
-      if (update_tick != process_tick
-         && (do_display || noninteractive))
+        timeout to get our attention.  */
+      if (update_tick != process_tick)
        {
          SELECT_TYPE Atemp;
 #ifdef NON_BLOCKING_CONNECT
@@ -4786,6 +4788,7 @@
                 the loop, since timeout has already been zeroed out.  */
              clear_waiting_for_input ();
              status_notify (NULL);
+             if (do_display) redisplay_preserve_echo_area (13);
            }
        }
 
@@ -6201,7 +6204,10 @@
       p->status = Qrun;
       p->tick = ++process_tick;
       if (!nomsg)
+       {
        status_notify (NULL);
+         redisplay_preserve_echo_area (13);
+       }
       break;
 #endif /* ! defined (SIGCONT) */
     case SIGINT:
@@ -7015,8 +7021,6 @@
     } /* end for */
 
   update_mode_lines++;  /* in case buffers use %s in mode-line-format */
-  redisplay_preserve_echo_area (13);
-
   UNGCPRO;
 }