diff options
| -rw-r--r-- | src/callint.c | 10 |
1 files changed, 9 insertions, 1 deletions
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); } |