From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 22 Dec 2001 13:55:34 +0000 (+0000)
Subject: Do not include mocklisp.h.
X-Git-Tag: ttn-vms-21-2-B4~17528
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31ace7d0650710af395119f6d3a2f07d9b7e73c0;p=emacs.git

Do not include mocklisp.h.
(Fcall_interactively): Do not test for mocklisp case.
---

diff --git a/src/callint.c b/src/callint.c
index f84d0048877..6e835d51b18 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -27,7 +27,6 @@ Boston, MA 02111-1307, USA.  */
 #include "commands.h"
 #include "keyboard.h"
 #include "window.h"
-#include "mocklisp.h"
 #include "keymap.h"
 
 #ifdef HAVE_INDEX
@@ -278,11 +277,6 @@ supply if the command inquires which events were used to invoke it.  */)
 	goto lose;
       specs = Fcar (Fcdr (specs));
     }
-  else if (EQ (funcar, Qmocklisp))
-    {
-      single_kboard_state ();
-      return ml_apply (fun, Qinteractive);
-    }
   else
     goto lose;