From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 28 Feb 1995 05:26:35 +0000 (+0000)
Subject: (Fcall_interactively): Lock the display before executing the command, no
X-Git-Tag: emacs-19.34~5012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=887e0cbab7170d0ca51d5c4425e1d925ba545291;p=emacs.git

(Fcall_interactively): Lock the display before executing the command, no
matter how we execute it.
---

diff --git a/src/callint.c b/src/callint.c
index a1dfbe6cd29..1ee61d9e35f 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -254,7 +254,12 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
       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 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 	  Vcommand_history
 	    = Fcons (Fcons (function, values), Vcommand_history);
 	}
+#ifdef MULTI_PERDISPLAY
+      display_locked = 1;
+#endif
       return apply1 (function, specs);
     }