From: Kenichi Handa <handa@m17n.org>
Date: Mon, 10 May 2004 12:08:32 +0000 (+0000)
Subject: (x_create_tip_frame): Bind inhibit-read-only and
X-Git-Tag: ttn-vms-21-2-B4~6308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c2a995dc95ab4073f6366d0eeb200b2a39d74e9;p=emacs.git

(x_create_tip_frame): Bind inhibit-read-only and
inhibit-modification-hooks to t temporarily before calling
Ferase_buffer.
---

diff --git a/src/w32fns.c b/src/w32fns.c
index b57e31b6ed2..fc40f5f68da 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -7115,6 +7115,8 @@ x_create_tip_frame (dpyinfo, parms, text)
   old_buffer = current_buffer;
   set_buffer_internal_1 (XBUFFER (buffer));
   current_buffer->truncate_lines = Qnil;
+  specbind (Qinhibit_read_only, Qt);
+  specbind (Qinhibit_modification_hooks, Qt);
   Ferase_buffer ();
   Finsert (1, &text);
   set_buffer_internal_1 (old_buffer);
diff --git a/src/xfns.c b/src/xfns.c
index c422e3ad994..6d7f5b92f0b 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4441,6 +4441,8 @@ x_create_tip_frame (dpyinfo, parms, text)
   old_buffer = current_buffer;
   set_buffer_internal_1 (XBUFFER (buffer));
   current_buffer->truncate_lines = Qnil;
+  specbind (Qinhibit_read_only, Qt);
+  specbind (Qinhibit_modification_hooks, Qt);
   Ferase_buffer ();
   Finsert (1, &text);
   set_buffer_internal_1 (old_buffer);