Mercurial > emacs

comparison src/keymap.c @ 21514:fa9ff387d260

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix -Wimplicit warnings.
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Apr 1998 12:25:56 +0000
parents 3552d6fbbddc
children b9606d56f91f
comparison
equal deleted inserted replaced
21513:984881b316fc 21514:fa9ff387d260
19 Boston, MA 02111-1307, USA. */ 19 Boston, MA 02111-1307, USA. */
20 20
21 21
22 #include <config.h> 22 #include <config.h>
23 #include <stdio.h> 23 #include <stdio.h>
24 #ifdef STDC_HEADERS
25 #include <stdlib.h>
26 #endif
24 #undef NULL 27 #undef NULL
25 #include "lisp.h" 28 #include "lisp.h"
26 #include "commands.h" 29 #include "commands.h"
27 #include "buffer.h" 30 #include "buffer.h"
28 #include "charset.h" 31 #include "charset.h"
100 103
101 static Lisp_Object define_as_prefix (); 104 static Lisp_Object define_as_prefix ();
102 static Lisp_Object describe_buffer_bindings (); 105 static Lisp_Object describe_buffer_bindings ();
103 static void describe_command (), describe_translation (); 106 static void describe_command (), describe_translation ();
104 static void describe_map (); 107 static void describe_map ();
105 Lisp_Object Fcopy_keymap ();
106 108
107 /* Keymap object support - constructors and predicates. */ 109 /* Keymap object support - constructors and predicates. */
108 110
109 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0, 111 DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,
110 "Construct and return a new keymap, of the form (keymap VECTOR . ALIST).\n\ 112 "Construct and return a new keymap, of the form (keymap VECTOR . ALIST).\n\
3166 apropos_accumulate = Fsort (apropos_accumulate, Qstring_lessp); 3168 apropos_accumulate = Fsort (apropos_accumulate, Qstring_lessp);
3167 UNGCPRO; 3169 UNGCPRO;
3168 return apropos_accumulate; 3170 return apropos_accumulate;
3169 } 3171 }
3170 3172
3173 void
3171 syms_of_keymap () 3174 syms_of_keymap ()
3172 { 3175 {
3173 Lisp_Object tem; 3176 Lisp_Object tem;
3174 3177
3175 Qkeymap = intern ("keymap"); 3178 Qkeymap = intern ("keymap");
3303 defsubr (&Swhere_is_internal); 3306 defsubr (&Swhere_is_internal);
3304 defsubr (&Sdescribe_bindings_internal); 3307 defsubr (&Sdescribe_bindings_internal);
3305 defsubr (&Sapropos_internal); 3308 defsubr (&Sapropos_internal);
3306 } 3309 }
3307 3310
3311 void
3308 keys_of_keymap () 3312 keys_of_keymap ()
3309 { 3313 {
3310 Lisp_Object tem; 3314 Lisp_Object tem;
3311 3315
3312 initial_define_key (global_map, 033, "ESC-prefix"); 3316 initial_define_key (global_map, 033, "ESC-prefix");