# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 793949195 0
# Node ID b8ea4de9a069b98f6707021d0bbe12cc6e1a5b4f
# Parent  b70748bfdc90c591674803fd24b034ba9be63ba5
(Fcall_interactively): Lock the display before executing the command, no
matter how we execute it.

diff -r b70748bfdc90 -r b8ea4de9a069 src/callint.c
--- a/src/callint.c	Mon Feb 27 08:05:09 1995 +0000
+++ b/src/callint.c	Tue Feb 28 05:26:35 1995 +0000
@@ -254,7 +254,12 @@
       specs = Fcar (Fcdr (specs));
     }
   else if (EQ (funcar, Qmocklisp))
-    return ml_apply (fun, Qinteractive);
+    {
+#ifdef MULTI_PERDISPLAY
+      display_locked = 1;
+#endif
+      return ml_apply (fun, Qinteractive);
+    }
   else
     goto lose;
 
@@ -306,6 +311,9 @@
 	  Vcommand_history
 	    = Fcons (Fcons (function, values), Vcommand_history);
 	}
+#ifdef MULTI_PERDISPLAY
+      display_locked = 1;
+#endif
       return apply1 (function, specs);
     }