1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00

(save_excursion_restore): Don't call Vrun_hooks if nil.

This commit is contained in:
Richard M. Stallman 1994-03-05 20:32:35 +00:00
parent fd186f07f1
commit 9fed2b1852

View file

@ -324,10 +324,13 @@ save_excursion_restore (info)
tem1 = current_buffer->mark_active;
current_buffer->mark_active = Fcdr (tem);
if (! NILP (current_buffer->mark_active))
call1 (Vrun_hooks, intern ("activate-mark-hook"));
else if (! NILP (tem1))
call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
if (!NILP (Vrun_hooks))
{
if (! NILP (current_buffer->mark_active))
call1 (Vrun_hooks, intern ("activate-mark-hook"));
else if (! NILP (tem1))
call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
}
return Qnil;
}