From ebfbe2490a1a38bf9694521ab507f65ba4d1acca Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 24 Feb 1995 02:30:23 +0000
Subject: [PATCH] (Fcall_interactively): If the display hasn't already been
 locked by reading from the minibuffer, lock it before executing the command.

---
 src/callint.c | 4 ++++
 1 file changed, 4 insertions(+)

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);
-- 
2.39.5