aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c23
1 files changed, 7 insertions, 16 deletions
diff --git a/src/keymap.c b/src/keymap.c
index fa64e88d6e5..ca8edab122b 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1,7 +1,7 @@
1/* Manipulation of keymaps 1/* Manipulation of keymaps
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
3 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 2005 Free Software Foundation, Inc. 4 2005, 2006 Free Software Foundation, Inc.
5 5
6This file is part of GNU Emacs. 6This file is part of GNU Emacs.
7 7
@@ -69,7 +69,7 @@ Lisp_Object Vminibuffer_local_completion_map;
69/* keymap used for minibuffers when doing completion in filenames */ 69/* keymap used for minibuffers when doing completion in filenames */
70Lisp_Object Vminibuffer_local_filename_completion_map; 70Lisp_Object Vminibuffer_local_filename_completion_map;
71 71
72/* keymap used for minibuffers when doing completion in filenames 72/* keymap used for minibuffers when doing completion in filenames
73 with require-match*/ 73 with require-match*/
74Lisp_Object Vminibuffer_local_must_match_filename_map; 74Lisp_Object Vminibuffer_local_must_match_filename_map;
75 75
@@ -1363,13 +1363,6 @@ silly_event_symbol_error (c)
1363static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL; 1363static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL;
1364static int cmm_size = 0; 1364static int cmm_size = 0;
1365 1365
1366/* Error handler used in current_minor_maps. */
1367static Lisp_Object
1368current_minor_maps_error ()
1369{
1370 return Qnil;
1371}
1372
1373/* Store a pointer to an array of the keymaps of the currently active 1366/* Store a pointer to an array of the keymaps of the currently active
1374 minor modes in *buf, and return the number of maps it contains. 1367 minor modes in *buf, and return the number of maps it contains.
1375 1368
@@ -1471,9 +1464,7 @@ current_minor_maps (modeptr, mapptr)
1471 } 1464 }
1472 1465
1473 /* Get the keymap definition--or nil if it is not defined. */ 1466 /* Get the keymap definition--or nil if it is not defined. */
1474 temp = internal_condition_case_1 (Findirect_function, 1467 temp = Findirect_function (XCDR (assoc), Qt);
1475 XCDR (assoc),
1476 Qerror, current_minor_maps_error);
1477 if (!NILP (temp)) 1468 if (!NILP (temp))
1478 { 1469 {
1479 cmm_modes[i] = var; 1470 cmm_modes[i] = var;
@@ -3875,11 +3866,11 @@ don't alter it yourself. */);
3875 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil); 3866 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
3876 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map); 3867 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map);
3877 3868
3878 DEFVAR_LISP ("minibuffer-local-filename-completion-map", 3869 DEFVAR_LISP ("minibuffer-local-filename-completion-map",
3879 &Vminibuffer_local_filename_completion_map, 3870 &Vminibuffer_local_filename_completion_map,
3880 doc: /* Local keymap for minibuffer input with completion for filenames. */); 3871 doc: /* Local keymap for minibuffer input with completion for filenames. */);
3881 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil); 3872 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil);
3882 Fset_keymap_parent (Vminibuffer_local_filename_completion_map, 3873 Fset_keymap_parent (Vminibuffer_local_filename_completion_map,
3883 Vminibuffer_local_completion_map); 3874 Vminibuffer_local_completion_map);
3884 3875
3885 3876
@@ -3889,11 +3880,11 @@ don't alter it yourself. */);
3889 Fset_keymap_parent (Vminibuffer_local_must_match_map, 3880 Fset_keymap_parent (Vminibuffer_local_must_match_map,
3890 Vminibuffer_local_completion_map); 3881 Vminibuffer_local_completion_map);
3891 3882
3892 DEFVAR_LISP ("minibuffer-local-must-match-filename-map", 3883 DEFVAR_LISP ("minibuffer-local-must-match-filename-map",
3893 &Vminibuffer_local_must_match_filename_map, 3884 &Vminibuffer_local_must_match_filename_map,
3894 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */); 3885 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */);
3895 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil); 3886 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil);
3896 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map, 3887 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map,
3897 Vminibuffer_local_must_match_map); 3888 Vminibuffer_local_must_match_map);
3898 3889
3899 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, 3890 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,