aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorKim F. Storm2006-02-10 00:00:31 +0000
committerKim F. Storm2006-02-10 00:00:31 +0000
commita7f96a358b12d90b44fa11ac65caf24fd164ad6d (patch)
tree5c8ae432704235cc666fa0bce2c8364d3aae26c4 /src/keymap.c
parent49f18bccba0bc666c50057831862d224639deeb2 (diff)
downloademacs-a7f96a358b12d90b44fa11ac65caf24fd164ad6d.tar.gz
emacs-a7f96a358b12d90b44fa11ac65caf24fd164ad6d.zip
* data.c (Findirect_function): Add NOERROR arg. All callers changed
to pass Qnil for NOERROR. * keymap.c (current_minor_maps_error): Remove. (current_minor_maps): Pass Qt for NOERROR to Findirect_function instead of using internal_condition_case_1+current_minor_maps_error.
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c21
1 files changed, 6 insertions, 15 deletions
diff --git a/src/keymap.c b/src/keymap.c
index 94cc8920f07..03b36d525b6 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -68,7 +68,7 @@ Lisp_Object Vminibuffer_local_completion_map;
68/* keymap used for minibuffers when doing completion in filenames */ 68/* keymap used for minibuffers when doing completion in filenames */
69Lisp_Object Vminibuffer_local_filename_completion_map; 69Lisp_Object Vminibuffer_local_filename_completion_map;
70 70
71/* keymap used for minibuffers when doing completion in filenames 71/* keymap used for minibuffers when doing completion in filenames
72 with require-match*/ 72 with require-match*/
73Lisp_Object Vminibuffer_local_must_match_filename_map; 73Lisp_Object Vminibuffer_local_must_match_filename_map;
74 74
@@ -1370,13 +1370,6 @@ silly_event_symbol_error (c)
1370static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL; 1370static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL;
1371static int cmm_size = 0; 1371static int cmm_size = 0;
1372 1372
1373/* Error handler used in current_minor_maps. */
1374static Lisp_Object
1375current_minor_maps_error ()
1376{
1377 return Qnil;
1378}
1379
1380/* Store a pointer to an array of the keymaps of the currently active 1373/* Store a pointer to an array of the keymaps of the currently active
1381 minor modes in *buf, and return the number of maps it contains. 1374 minor modes in *buf, and return the number of maps it contains.
1382 1375
@@ -1478,9 +1471,7 @@ current_minor_maps (modeptr, mapptr)
1478 } 1471 }
1479 1472
1480 /* Get the keymap definition--or nil if it is not defined. */ 1473 /* Get the keymap definition--or nil if it is not defined. */
1481 temp = internal_condition_case_1 (Findirect_function, 1474 temp = Findirect_function (XCDR (assoc), Qt);
1482 XCDR (assoc),
1483 Qerror, current_minor_maps_error);
1484 if (!NILP (temp)) 1475 if (!NILP (temp))
1485 { 1476 {
1486 cmm_modes[i] = var; 1477 cmm_modes[i] = var;
@@ -3882,11 +3873,11 @@ don't alter it yourself. */);
3882 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil); 3873 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
3883 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map); 3874 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map);
3884 3875
3885 DEFVAR_LISP ("minibuffer-local-filename-completion-map", 3876 DEFVAR_LISP ("minibuffer-local-filename-completion-map",
3886 &Vminibuffer_local_filename_completion_map, 3877 &Vminibuffer_local_filename_completion_map,
3887 doc: /* Local keymap for minibuffer input with completion for filenames. */); 3878 doc: /* Local keymap for minibuffer input with completion for filenames. */);
3888 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil); 3879 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil);
3889 Fset_keymap_parent (Vminibuffer_local_filename_completion_map, 3880 Fset_keymap_parent (Vminibuffer_local_filename_completion_map,
3890 Vminibuffer_local_completion_map); 3881 Vminibuffer_local_completion_map);
3891 3882
3892 3883
@@ -3896,11 +3887,11 @@ don't alter it yourself. */);
3896 Fset_keymap_parent (Vminibuffer_local_must_match_map, 3887 Fset_keymap_parent (Vminibuffer_local_must_match_map,
3897 Vminibuffer_local_completion_map); 3888 Vminibuffer_local_completion_map);
3898 3889
3899 DEFVAR_LISP ("minibuffer-local-must-match-filename-map", 3890 DEFVAR_LISP ("minibuffer-local-must-match-filename-map",
3900 &Vminibuffer_local_must_match_filename_map, 3891 &Vminibuffer_local_must_match_filename_map,
3901 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */); 3892 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */);
3902 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil); 3893 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil);
3903 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map, 3894 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map,
3904 Vminibuffer_local_must_match_map); 3895 Vminibuffer_local_must_match_map);
3905 3896
3906 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, 3897 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,