Mercurial > emacs

comparison src/callint.c @ 42272:81176c96cc2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not include mocklisp.h. (Fcall_interactively): Do not test for mocklisp case.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 22 Dec 2001 13:55:34 +0000
parents cdfd4d09b79a
children 531bd3a9e67a
comparison
equal deleted inserted replaced
42271:9a040e975992 42272:81176c96cc2f
25 #include "lisp.h" 25 #include "lisp.h"
26 #include "buffer.h" 26 #include "buffer.h"
27 #include "commands.h" 27 #include "commands.h"
28 #include "keyboard.h" 28 #include "keyboard.h"
29 #include "window.h" 29 #include "window.h"
30 #include "mocklisp.h"
31 #include "keymap.h" 30 #include "keymap.h"
32 31
33 #ifdef HAVE_INDEX 32 #ifdef HAVE_INDEX
34 extern char *index P_ ((const char *, int)); 33 extern char *index P_ ((const char *, int));
35 #endif 34 #endif
275 { 274 {
276 specs = Fassq (Qinteractive, Fcdr (XCDR (fun))); 275 specs = Fassq (Qinteractive, Fcdr (XCDR (fun)));
277 if (NILP (specs)) 276 if (NILP (specs))
278 goto lose; 277 goto lose;
279 specs = Fcar (Fcdr (specs)); 278 specs = Fcar (Fcdr (specs));
280 }
281 else if (EQ (funcar, Qmocklisp))
282 {
283 single_kboard_state ();
284 return ml_apply (fun, Qinteractive);
285 } 279 }
286 else 280 else
287 goto lose; 281 goto lose;
288 282
289 /* If either specs or string is set to a string, use it. */ 283 /* If either specs or string is set to a string, use it. */