From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Jan 1996 19:58:24 +0000 (+0000)
Subject: (syms_of_editfns): Make buffer-access-fontify-functions
X-Git-Tag: emacs-19.34~1420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af209db8bdd82abe48050de5f5363925de5566c1;p=emacs.git

(syms_of_editfns): Make buffer-access-fontify-functions
locally nil in the prin1 buffer.
---

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\