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

process output.

2 files changed, 13 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ba9168911a6..3af2b81e191 100644
--- 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 316740391ed..d55fe695e76 100644
--- 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))