diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-01-30 19:58:24 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-01-30 19:58:24 +0000 |
commit | 7957bc3f3dac59aceef8eca3de51633e0722b5d8 (patch) | |
tree | 2c95a58bf5bed22900ba385c219aea44772ed458 | |
parent | e9ec890f365c678037baafe345feb647141a0207 (diff) | |
download | emacs-7957bc3f3dac59aceef8eca3de51633e0722b5d8.tar.gz |
(syms_of_editfns): Make buffer-access-fontify-functions
locally nil in the prin1 buffer.
-rw-r--r-- | src/editfns.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/editfns.c b/src/editfns.c index 6f1899782c3..73166f9d9d5 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -2387,6 +2387,18 @@ Each function is called with two arguments which specify the range\n\ of the buffer being accessed."); Vbuffer_access_fontify_functions = Qnil; + { + Lisp_Object obuf; + extern Lisp_Object Vprin1_to_string_buffer; + obuf = Fcurrent_buffer (); + /* Do this here, because init_buffer_once is too early--it won't work. */ + Fset_buffer (Vprin1_to_string_buffer); + /* Make sure buffer-access-fontify-functions is nil in this buffer. */ + Fset (Fmake_local_variable (intern ("buffer-access-fontify-functions")), + Qnil); + Fset_buffer (obuf); + } + DEFVAR_LISP ("buffer-access-fontified-property", &Vbuffer_access_fontified_property, "Property which (if non-nil) indicates text has been fontified.\n\ |