Commit | Line | Data |
---|---|---|
0c473733 JB |
1 | /* Fundamental definitions for emulating mocklisp. |
2 | Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. | |
3 | ||
4 | This file is part of GNU Emacs. | |
5 | ||
6 | GNU Emacs is free software; you can redistribute it and/or modify | |
7 | it under the terms of the GNU General Public License as published by | |
7c938215 | 8 | the Free Software Foundation; either version 2, or (at your option) |
0c473733 JB |
9 | any later version. |
10 | ||
11 | GNU Emacs is distributed in the hope that it will be useful, | |
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | GNU General Public License for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public License | |
17 | along with GNU Emacs; see the file COPYING. If not, write to | |
3b7ad313 EN |
18 | the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
19 | Boston, MA 02111-1307, USA. */ | |
0c473733 JB |
20 | |
21 | /* This is the main entry point to mocklisp execution. | |
22 | When eval sees a mocklisp function being called, it calls here | |
23 | with the unevaluated argument list */ | |
24 | ||
25 | extern Lisp_Object ml_apply (); | |
b682d92b JB |
26 | extern Lisp_Object Fml_if (); |
27 | extern Lisp_Object Fml_nargs (); | |
28 | extern Lisp_Object Fml_arg (); | |
29 | extern Lisp_Object Fml_interactive (); | |
30 | extern Lisp_Object Fml_provide_prefix_argument (); | |
31 | extern Lisp_Object Fml_prefix_argument_loop (); | |
d427b66a | 32 | extern Lisp_Object Finsert_string (); |