view src/mocklisp.h @ 9487:f80b2a33df03

* font-lock.el: To make font-lock.el dumpable: (font-lock-display-type, font-lock-background-mode, font-lock-face-attributes): Default to nil. (font-lock-make-faces): New function. Set them. (font-lock.el): Add to after-init-hook if noninteractive or use it. (font-lock-maximum-size): New variable. (font-lock-mode): Use it to fontify only if buffer is within it. (font-lock-defaults, font-lock-defaults-alist): Item for syntax table. (font-lock-set-defaults): Set font-lock-syntax-table too. (lisp-font-lock-keywords-2): Fix CLisp end-of-keyword in regexp. (c-font-lock-keywords-*): Specific to ANSI C. (c++-font-lock-keywords-*): Specific to ANSI C++.
author Simon Marshall <simon@gnu.org>
date Wed, 12 Oct 1994 09:23:37 +0000
parents 3165b2697c78
children ac7375e60931
line wrap: on
line source

/* Fundamental definitions for emulating mocklisp.
   Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */

/* This is the main entry point to mocklisp execution.
 When eval sees a mocklisp function being called, it calls here
 with the unevaluated argument list */

extern Lisp_Object ml_apply ();
extern Lisp_Object Fml_if ();
extern Lisp_Object Fml_nargs ();
extern Lisp_Object Fml_arg ();
extern Lisp_Object Fml_interactive ();
extern Lisp_Object Fml_provide_prefix_argument ();
extern Lisp_Object Fml_prefix_argument_loop ();
extern Lisp_Object Finsert_string ();