# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 907829136 0
# Node ID e80c5f6873409e073b0df2af711444a6cf9c4cf0
# Parent  a80f6d8c1dc6b69553ff99e41d16236d4cfbc84a
(inhibit_modification_hooks): New variable.
(init_buffer_once): Initialize inhibit_modification_hooks to 0.

diff -r a80f6d8c1dc6 -r e80c5f687340 src/buffer.c
--- a/src/buffer.c	Thu Oct 08 06:45:36 1998 +0000
+++ b/src/buffer.c	Thu Oct 08 06:45:36 1998 +0000
@@ -153,6 +153,9 @@
 Lisp_Object Qbefore_change_functions;
 Lisp_Object Qafter_change_functions;
 
+/* If nonzero, all modification hooks are suppressed.  */
+int inhibit_modification_hooks;
+
 Lisp_Object Qfundamental_mode, Qmode_class, Qpermanent_local;
 
 Lisp_Object Qprotected_field;
@@ -3943,6 +3946,8 @@
   Vbuffer_alist = Qnil;
 
   Fset_buffer (Fget_buffer_create (build_string ("*scratch*")));
+
+  inhibit_modification_hooks = 0;
 }
 
 void