view src/mocklisp.h @ 25110:4833aea1f1e7

(IT_set_face): Rewritten for the new redisplay engine. Use default frame colors if the face doesn't specify them; invert the colors if highlight is ON. (IT_write_glyphs): Rewritten for the new redisplay engine. (IT_change_line_highlight): Add (unused) parameter Y, since that's how the hook is called by term.c. (IT_copy_glyphs): New function, copies an area of the display in video RAM. (IT_insert_glyphs): Rewritten to DTRT instead of aborting, since redisplay now calls it even if char_ins_del_ok is zero. (IT_set_frame_parameters): Prototype changed. Calls the new load_color. Puts the new fore/background colors into the default face on current frame. (IT_menu_display): Rewritten to handle the new struct glyph instead of a char array. (XMenuActivate): Call lookup_derived_face to create and use special faces for the pop-up and drop-down menus.

/* 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 2, 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, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, 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 ();