Mercurial > emacs

comparison src/process.c @ 3666:c7ff787b096f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_process_output): Don't deactivate the mark. Do restore Vdeactivate_mark, so that no one else deactivates it.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Jun 1993 21:06:14 +0000
parents c7aadfb55138
children 47d7fda8a609
comparison
equal deleted inserted replaced
3665:0cffa82ec7de 3666:c7ff787b096f
2080 odeactivate = Vdeactivate_mark; 2080 odeactivate = Vdeactivate_mark;
2081 2081
2082 specbind (Qinhibit_quit, Qt); 2082 specbind (Qinhibit_quit, Qt);
2083 call2 (outstream, proc, make_string (chars, nchars)); 2083 call2 (outstream, proc, make_string (chars, nchars));
2084 2084
2085 /* Deactivate the mark now, so it doesn't happen 2085 /* Handling the process output should not deactivate the mark. */
2086 *after* the following command. */
2087 if (!NILP (current_buffer->mark_active))
2088 {
2089 if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode))
2090 {
2091 current_buffer->mark_active = Qnil;
2092 call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
2093 }
2094 }
2095 Vdeactivate_mark = odeactivate; 2086 Vdeactivate_mark = odeactivate;
2096 2087
2097 #ifdef VMS 2088 #ifdef VMS
2098 start_vms_process_read (vs); 2089 start_vms_process_read (vs);
2099 #endif 2090 #endif
2151 2142
2152 /* If the restriction isn't what it should be, set it. */ 2143 /* If the restriction isn't what it should be, set it. */
2153 if (XFASTINT (old_begv) != BEGV || XFASTINT (old_zv) != ZV) 2144 if (XFASTINT (old_begv) != BEGV || XFASTINT (old_zv) != ZV)
2154 Fnarrow_to_region (old_begv, old_zv); 2145 Fnarrow_to_region (old_begv, old_zv);
2155 2146
2156 /* Deactivate the mark now, so it doesn't happen 2147 /* Handling the process output should not deactivate the mark. */
2157 *after* the following command. */
2158 if (!NILP (current_buffer->mark_active))
2159 {
2160 if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode))
2161 {
2162 current_buffer->mark_active = Qnil;
2163 call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
2164 }
2165 }
2166
2167 Vdeactivate_mark = odeactivate; 2148 Vdeactivate_mark = odeactivate;
2168 2149
2169 current_buffer->read_only = old_read_only; 2150 current_buffer->read_only = old_read_only;
2170 SET_PT (opoint); 2151 SET_PT (opoint);
2171 set_buffer_internal (old); 2152 set_buffer_internal (old);