(Fcall_interactively): If the display hasn't already been locked by reading

[bpt/emacs.git] / src / callint.c

diff --git a/src/callint.c b/src/callint.c
index 0dedc47..a1dfbe6 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -606,6 +606,10 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
     if (varies[i] >= 1 && varies[i] <= 4)
       XSETINT (args[i], marker_position (args[i]));
 
+#ifdef MULTI_PERDISPLAY
+  display_locked = 1;
+#endif
+
   {
     Lisp_Object val;
     specbind (Qcommand_debug_status, Qnil);