Mercurial > emacs

changeset 12785:937df231678c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qbefore_change_functions, Qafter_change_functions): New variables. (syms_of_buffer): Initialize them.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Aug 1995 22:57:46 +0000
parents 0dea0aa2f32d
children d12f56be7f87
files src/buffer.c
diffstat 1 files changed, 14 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/buffer.c	Sat Aug 05 22:57:13 1995 +0000
+++ b/src/buffer.c	Sat Aug 05 22:57:46 1995 +0000
@@ -128,7 +128,10 @@
 
 /* List of functions to call before changing an unmodified buffer.  */
 Lisp_Object Vfirst_change_hook;
+
 Lisp_Object Qfirst_change_hook;
+Lisp_Object Qbefore_change_functions;
+Lisp_Object Qafter_change_functions;
 
 Lisp_Object Qfundamental_mode, Qmode_class, Qpermanent_local;
 
@@ -3428,17 +3431,18 @@
   staticpro (&Qprotected_field);
   staticpro (&Qpermanent_local);
   staticpro (&Qkill_buffer_hook);
+  Qoverlayp = intern ("overlayp");
   staticpro (&Qoverlayp);
   Qevaporate = intern ("evaporate");
   staticpro (&Qevaporate);
+  Qmodification_hooks = intern ("modification-hooks");
   staticpro (&Qmodification_hooks);
-  Qmodification_hooks = intern ("modification-hooks");
-  staticpro (&Qinsert_in_front_hooks);
   Qinsert_in_front_hooks = intern ("insert-in-front-hooks");
-  staticpro (&Qinsert_behind_hooks);
+  staticpro (&Qinsert_in_front_hooks);
   Qinsert_behind_hooks = intern ("insert-behind-hooks");
+  staticpro (&Qinsert_behind_hooks);
+  Qget_file_buffer = intern ("get-file-buffer");
   staticpro (&Qget_file_buffer);
-  Qget_file_buffer = intern ("get-file-buffer");
   Qpriority = intern ("priority");
   staticpro (&Qpriority);
   Qwindow = intern ("window");
@@ -3447,8 +3451,12 @@
   staticpro (&Qbefore_string);
   Qafter_string = intern ("after-string");
   staticpro (&Qafter_string);
-
-  Qoverlayp = intern ("overlayp");
+  Qfirst_change_hook = intern ("first-change-hook");
+  staticpro (&Qfirst_change_hook);
+  Qbefore_change_functions = intern ("before-change-functions");
+  staticpro (&Qbefore_change_functions);
+  Qafter_change_functions = intern ("after-change-functions");
+  staticpro (&Qafter_change_functions);
 
   Fput (Qprotected_field, Qerror_conditions,
 	Fcons (Qprotected_field, Fcons (Qerror, Qnil)));
@@ -3780,8 +3788,6 @@
   "A list of functions to call before changing a buffer which is unmodified.\n\
 The functions are run using the `run-hooks' function.");
   Vfirst_change_hook = Qnil;
-  Qfirst_change_hook = intern ("first-change-hook");
-  staticpro (&Qfirst_change_hook);
 
 #if 0 /* The doc string is too long for some compilers,
 	 but make-docfile can find it in this comment.  */