From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 24 Feb 1995 02:30:23 +0000 (+0000)
Subject: (Fcall_interactively): If the display hasn't already been locked by reading
X-Git-Tag: emacs-19.34~5039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ebfbe2490a1a38bf9694521ab507f65ba4d1acca;p=emacs.git

(Fcall_interactively): If the display hasn't already been locked by reading
from the minibuffer, lock it before executing the command.
---

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