Mercurial > emacs

comparison src/buffer.c @ 1821:04fb1d3d6992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes since January 18th
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:58:16 +0000
parents 86c951f6a444
children 0ddafa88e654
comparison
equal deleted inserted replaced
1820:b95bdb97c3e8 1821:04fb1d3d6992
110 110
111 /* Functions to call before and after each text change. */ 111 /* Functions to call before and after each text change. */
112 Lisp_Object Vbefore_change_function; 112 Lisp_Object Vbefore_change_function;
113 Lisp_Object Vafter_change_function; 113 Lisp_Object Vafter_change_function;
114 114
115 /* Function to call before changing an unmodified buffer. */ 115 /* List of functions to call before changing an unmodified buffer. */
116 Lisp_Object Vfirst_change_function; 116 Lisp_Object Vfirst_change_hook;
117 Lisp_Object Qfirst_change_hook;
117 118
118 Lisp_Object Qfundamental_mode, Qmode_class, Qpermanent_local; 119 Lisp_Object Qfundamental_mode, Qmode_class, Qpermanent_local;
119 120
120 Lisp_Object Qprotected_field; 121 Lisp_Object Qprotected_field;
121 122
1653 \n\ 1654 \n\
1654 While executing the `after-change-function', changes to buffers do not\n\ 1655 While executing the `after-change-function', changes to buffers do not\n\
1655 cause calls to any `before-change-function' or `after-change-function'."); 1656 cause calls to any `before-change-function' or `after-change-function'.");
1656 Vafter_change_function = Qnil; 1657 Vafter_change_function = Qnil;
1657 1658
1658 DEFVAR_LISP ("first-change-function", &Vfirst_change_function, 1659 DEFVAR_LISP ("first-change-hook", &Vfirst_change_hook,
1659 "Function to call before changing a buffer which is unmodified.\n\ 1660 "A list of functions to call before changing a buffer which is unmodified.\n\
1660 The function is called, with no arguments, if it is non-nil."); 1661 The functions are run using the `run-hooks' function.");
1661 Vfirst_change_function = Qnil; 1662 Vfirst_change_hook = Qnil;
1663 Qfirst_change_hook = intern ("first-change-hook");
1664 staticpro (&Qfirst_change_hook);
1662 1665
1663 DEFVAR_PER_BUFFER ("buffer-undo-list", &current_buffer->undo_list, Qnil, 1666 DEFVAR_PER_BUFFER ("buffer-undo-list", &current_buffer->undo_list, Qnil,
1664 "List of undo entries in current buffer.\n\ 1667 "List of undo entries in current buffer.\n\
1665 Recent changes come first; older changes follow newer.\n\ 1668 Recent changes come first; older changes follow newer.\n\
1666 \n\ 1669 \n\