diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-08-05 22:57:46 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-08-05 22:57:46 +0000 |
commit | 5a0f057472ed4126e4cbe37176e828afef3f09f1 (patch) | |
tree | c9dd1a1dba4b2c31e5637c8963baa3c589fb55ad /src/buffer.c | |
parent | b5c9f53518a8540964f8483451b30e9fcbb09701 (diff) | |
download | emacs-5a0f057472ed4126e4cbe37176e828afef3f09f1.tar.gz |
(Qbefore_change_functions, Qafter_change_functions): New variables.
(syms_of_buffer): Initialize them.
Diffstat (limited to 'src/buffer.c')
-rw-r--r-- | src/buffer.c | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/src/buffer.c b/src/buffer.c index ee7dce84a5b..f0bd7013e50 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -128,7 +128,10 @@ Lisp_Object Vkill_buffer_query_functions; /* 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 @@ syms_of_buffer () staticpro (&Qprotected_field); staticpro (&Qpermanent_local); staticpro (&Qkill_buffer_hook); + Qoverlayp = intern ("overlayp"); staticpro (&Qoverlayp); Qevaporate = intern ("evaporate"); staticpro (&Qevaporate); - staticpro (&Qmodification_hooks); Qmodification_hooks = intern ("modification-hooks"); - staticpro (&Qinsert_in_front_hooks); + staticpro (&Qmodification_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 (&Qget_file_buffer); + staticpro (&Qinsert_behind_hooks); Qget_file_buffer = intern ("get-file-buffer"); + staticpro (&Qget_file_buffer); Qpriority = intern ("priority"); staticpro (&Qpriority); Qwindow = intern ("window"); @@ -3447,8 +3451,12 @@ syms_of_buffer () 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 @@ accomplishing an equivalent result by using other variables."); "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. */ |