(Fcall_process): Bind inhibit-modification-hooks to t when decoding

process output.

diff --git a/src/ChangeLog b/src/ChangeLog
index ba9168911a621cd54c06bccb22f4fe5071bf0f57..3af2b81e191b98b204f230e347431714ee62384c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-02  Eli Zaretskii  <eliz@gnu.org>
+
+       * callproc.c (Fcall_process): Bind inhibit-modification-hooks to t
+       when decoding process output.
+
 2009-03-01  Richard M Stallman  <rms@gnu.org>
 
        * m/mips.h (DATA_SEG_BITS, XUINT, XSET): Definitions disabled.

diff --git a/src/callproc.c b/src/callproc.c
index 316740391ed2b9e1b3e0eaa0a52edafb477453c1..d55fe695e7699e292e2fb338a522f85a6994716f 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -732,10 +732,18 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
            else
              {                 /* We have to decode the input.  */
                Lisp_Object curbuf;
+               int count1 = SPECPDL_INDEX ();
 
                XSETBUFFER (curbuf, current_buffer);
+               /* We cannot allow after-change-functions be run
+                  during decoding, because that might modify the
+                  buffer, while we rely on process_coding.produced to
+                  faithfully reflect inserted text until we
+                  TEMP_SET_PT_BOTH below.  */
+               specbind (Qinhibit_modification_hooks, Qt);
                decode_coding_c_string (&process_coding, buf, nread,
                                        curbuf);
+               unbind_to (count1, Qnil);
                if (display_on_the_fly
                    && CODING_REQUIRE_DETECTION (&saved_coding)
                    && ! CODING_REQUIRE_DETECTION (&process_coding))