mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

(read_minibuf): Bind inhibit-modification-hooks to t,

Browse Source 
in addition to read-only.
This commit is contained in:
Gerd Moellmann 2001-09-11 13:09:15 +00:00
parent 0ba7995bfe
commit a41edd99c5
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ChangeLog
View File

@ -1,5 +1,16 @@
2001-09-11 Gerd Moellmann <gerd@gnu.org>
* minibuf.c (read_minibuf): Bind inhibit-modification-hooks to t,
in addition to read-only.
* xdisp.c (with_echo_area_buffer): Bind inhibit-modification-hooks
to t in addition to read-only.
* lisp.h (Qinhibit_modification_hooks): Declare.
* insdel.c (Qinhibit_modification_hooks): New variable.
(syms_of_insdel): Initialize and staticpro it.
* textprop.c (verify_interval_modification): Don't run
modification-hooks if inhibit_modification_hooks.

3
src/minibuf.c
View File

@ -511,8 +511,9 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
/* Erase the buffer. */
{
int count1 = specpdl_ptr - specpdl;
int count1 = BINDING_STACK_SIZE ();
specbind (Qinhibit_read_only, Qt);
specbind (Qinhibit_modification_hooks, Qt);
Ferase_buffer ();
unbind_to (count1, Qnil);
}