mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-14 09:39:42 +00:00
(read_minibuf): Bind inhibit-modification-hooks to t,
in addition to read-only.
This commit is contained in:
parent
0ba7995bfe
commit
a41edd99c5
@ -1,5 +1,16 @@
|
|||||||
2001-09-11 Gerd Moellmann <gerd@gnu.org>
|
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
|
* textprop.c (verify_interval_modification): Don't run
|
||||||
modification-hooks if inhibit_modification_hooks.
|
modification-hooks if inhibit_modification_hooks.
|
||||||
|
|
||||||
|
@ -511,8 +511,9 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
|
|||||||
|
|
||||||
/* Erase the buffer. */
|
/* Erase the buffer. */
|
||||||
{
|
{
|
||||||
int count1 = specpdl_ptr - specpdl;
|
int count1 = BINDING_STACK_SIZE ();
|
||||||
specbind (Qinhibit_read_only, Qt);
|
specbind (Qinhibit_read_only, Qt);
|
||||||
|
specbind (Qinhibit_modification_hooks, Qt);
|
||||||
Ferase_buffer ();
|
Ferase_buffer ();
|
||||||
unbind_to (count1, Qnil);
|
unbind_to (count1, Qnil);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user