1 files changed, 4 insertions, 0 deletions

diff --git a/src/callint.c b/src/callint.c
index 0dedc47f509..a1dfbe6cd29 100644
--- 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);