[Emacs-diffs] Changes to emacs/src/callproc.c

[Kim F . Storm]

Index: emacs/src/callproc.c
diff -c emacs/src/callproc.c:1.200 emacs/src/callproc.c:1.201
*** emacs/src/callproc.c:1.200  Mon Jan 26 23:39:08 2004
--- emacs/src/callproc.c        Wed Jun 16 15:00:48 2004
***************
*** 1,5 ****
  /* Synchronous subprocess invocation for GNU Emacs.
!    Copyright (C) 1985,86,87,88,93,94,95,99, 2000, 2001
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
--- 1,5 ----
  /* Synchronous subprocess invocation for GNU Emacs.
!    Copyright (C) 1985,86,87,88,93,94,95,99, 2000,01,02,03,04
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
***************
*** 130,135 ****
--- 130,137 ----
     this is exit code of synchronous subprocess.  */
  int synch_process_retcode;
  
+ extern Lisp_Object Qredisplay_dont_pause;
+ 
  extern Lisp_Object Vdoc_file_name;
  
  extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system;
***************
*** 220,228 ****
    int fd[2];
    int filefd;
    register int pid;
!   char buf[16384];
    char *bufptr = buf;
!   int bufsize = 16384;
    int count = SPECPDL_INDEX ();
  
    register const unsigned char **new_argv
--- 222,230 ----
    int fd[2];
    int filefd;
    register int pid;
!   char buf[16384*4];
    char *bufptr = buf;
!   int bufsize = sizeof buf;
    int count = SPECPDL_INDEX ();
  
    register const unsigned char **new_argv
***************
*** 771,776 ****
--- 773,779 ----
  
            if (this_read == 0)
              {
+ //            fprintf(stderr, "read 0, total=%d\n", total_read);
                process_coding.mode |= CODING_MODE_LAST_BLOCK;
                break;
              }
***************
*** 778,783 ****
--- 781,788 ----
            nread += this_read;
            total_read += this_read;
  
+ //        fprintf(stderr, "read %d+%d of %d, total=%d\n", nread, this_read, 
bufsize, total_read);
+ 
            if (display_on_the_fly)
              break;
          }
***************
*** 830,835 ****
--- 835,842 ----
                    continue;
                  }
  
+ //            fprintf(stderr, "produced %d\n", process_coding.produced);
+ 
                if (process_coding.produced > 0)
                  insert_1_both (decoding_buf, process_coding.produced_char,
                                 process_coding.produced, 0, 1, 0);
***************
*** 929,938 ****
--- 936,950 ----
  
        if (!NILP (display) && INTERACTIVE)
          {
+           extern int windows_or_buffers_changed;
+           int count = SPECPDL_INDEX ();
+ 
            if (first)
              prepare_menu_bars ();
            first = 0;
+           specbind (Qredisplay_dont_pause, Qt);
            redisplay_preserve_echo_area (1);
+           unbind_to (count, Qnil);
          }
        immediate_quit = 1;
        QUIT;