comparison src/process.c @ 6748:b1cde622fa65

(read_process_output): If buffer changes, record that fact.
author Karl Heuer <kwzh@gnu.org>
date Fri, 08 Apr 1994 05:58:12 +0000
parents 9cde1228e2fa
children e0680426ff8e
comparison
equal deleted inserted replaced
6747:135dd9df7893 6748:b1cde622fa65
2132 /* We inhibit quit here instead of just catching it so that 2132 /* We inhibit quit here instead of just catching it so that
2133 hitting ^G when a filter happens to be running won't screw 2133 hitting ^G when a filter happens to be running won't screw
2134 it up. */ 2134 it up. */
2135 int count = specpdl_ptr - specpdl; 2135 int count = specpdl_ptr - specpdl;
2136 Lisp_Object odeactivate; 2136 Lisp_Object odeactivate;
2137 Lisp_Object obuffer;
2137 2138
2138 odeactivate = Vdeactivate_mark; 2139 odeactivate = Vdeactivate_mark;
2140 obuffer = Fcurrent_buffer ();
2139 2141
2140 specbind (Qinhibit_quit, Qt); 2142 specbind (Qinhibit_quit, Qt);
2141 call2 (outstream, proc, make_string (chars, nchars)); 2143 call2 (outstream, proc, make_string (chars, nchars));
2142 2144
2143 /* Handling the process output should not deactivate the mark. */ 2145 /* Handling the process output should not deactivate the mark. */
2144 Vdeactivate_mark = odeactivate; 2146 Vdeactivate_mark = odeactivate;
2147
2148 if (! EQ (Fcurrent_buffer (), obuffer))
2149 record_asynch_buffer_change ();
2145 2150
2146 #ifdef VMS 2151 #ifdef VMS
2147 start_vms_process_read (vs); 2152 start_vms_process_read (vs);
2148 #endif 2153 #endif
2149 unbind_to (count, Qnil); 2154 unbind_to (count, Qnil);