1: /* Functions to manipulate keymaps.
    2:    Copyright (C) 2001, 2002, 2003, 2004, 2005,
    3:                  2006, 2007 Free Software Foundation, Inc.
    4: 
    5: This file is part of GNU Emacs.
    6: 
    7: GNU Emacs is free software; you can redistribute it and/or modify
    8: it under the terms of the GNU General Public License as published by
    9: the Free Software Foundation; either version 2, or (at your option)
   10: any later version.
   11: 
   12: GNU Emacs is distributed in the hope that it will be useful,
   13: but WITHOUT ANY WARRANTY; without even the implied warranty of
   14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   15: GNU General Public License for more details.
   16: 
   17: You should have received a copy of the GNU General Public License
   18: along with GNU Emacs; see the file COPYING.  If not, write to
   19: the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
   20: Boston, MA 02110-1301, USA.  */
   21: 
   22: #ifndef KEYMAP_H
   23: #define KEYMAP_H
   24: 
   25: #define KEYMAPP(m) (!NILP (get_keymap (m, 0, 0)))
   26: extern Lisp_Object Qkeymap, Qmenu_bar;
   27: extern Lisp_Object current_global_map;
   28: EXFUN (Fmake_sparse_keymap, 1);
   29: EXFUN (Fkeymap_prompt, 1);
   30: EXFUN (Fdefine_key, 3);
   31: EXFUN (Flookup_key, 3);
   32: EXFUN (Fcommand_remapping, 3);
   33: EXFUN (Fkey_binding, 4);
   34: EXFUN (Fkey_description, 2);
   35: EXFUN (Fsingle_key_description, 2);
   36: EXFUN (Fwhere_is_internal, 5);
   37: EXFUN (Fcurrent_active_maps, 1);
   38: extern Lisp_Object access_keymap P_ ((Lisp_Object, Lisp_Object, int, int, int));
   39: extern Lisp_Object get_keyelt P_ ((Lisp_Object, int));
   40: extern Lisp_Object get_keymap P_ ((Lisp_Object, int, int));
   41: extern void describe_map_tree P_ ((Lisp_Object, int, Lisp_Object, Lisp_Object,
   42:                                    char *, int, int, int, int));
   43: extern int current_minor_maps P_ ((Lisp_Object **, Lisp_Object **));
   44: extern void initial_define_key P_ ((Lisp_Object, int, char *));
   45: extern void initial_define_lispy_key P_ ((Lisp_Object, char *, char *));
   46: extern void syms_of_keymap P_ ((void));
   47: extern void keys_of_keymap P_ ((void));
   48: 
   49: typedef void (*map_keymap_function_t)
   50:      P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*));
   51: extern void map_keymap P_ ((Lisp_Object map, map_keymap_function_t fun, Lisp_Object largs, void* cargs, int autoload));
   52: 
   53: #endif
   54: 
   55: /* arch-tag: 7400d5a1-ef0b-43d0-b366-f4d678bf3ba2
   56:    (do not change this comment) */