aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorMiles Bader2006-02-11 00:11:19 +0000
committerMiles Bader2006-02-11 00:11:19 +0000
commit0b125475295ac24db12b28e67d349a0ec0020bd3 (patch)
tree100578c3b6eb01151eb5c51f0bbe11ca941bd0d5 /src/keymap.c
parent380874900ca183ec2fdce91949d841328852d7a8 (diff)
parent9d64cd1339707277e541b6c54f847240464f65ec (diff)
downloademacs-0b125475295ac24db12b28e67d349a0ec0020bd3.tar.gz
emacs-0b125475295ac24db12b28e67d349a0ec0020bd3.zip
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-14
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 58-65) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 22-28) - Update from CVS - Merge from emacs--devo--0 - Update from CVS: lisp/gnus.el: Remove bogus comment.
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 01c637132eb..22b495033ef 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -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
@@ -1403,13 +1403,6 @@ silly_event_symbol_error (c)
1403static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL; 1403static Lisp_Object *cmm_modes = NULL, *cmm_maps = NULL;
1404static int cmm_size = 0; 1404static int cmm_size = 0;
1405 1405
1406/* Error handler used in current_minor_maps. */
1407static Lisp_Object
1408current_minor_maps_error ()
1409{
1410 return Qnil;
1411}
1412
1413/* Store a pointer to an array of the keymaps of the currently active 1406/* Store a pointer to an array of the keymaps of the currently active
1414 minor modes in *buf, and return the number of maps it contains. 1407 minor modes in *buf, and return the number of maps it contains.
1415 1408
@@ -1511,9 +1504,7 @@ current_minor_maps (modeptr, mapptr)
1511 } 1504 }
1512 1505
1513 /* Get the keymap definition--or nil if it is not defined. */ 1506 /* Get the keymap definition--or nil if it is not defined. */
1514 temp = internal_condition_case_1 (Findirect_function, 1507 temp = Findirect_function (XCDR (assoc), Qt);
1515 XCDR (assoc),
1516 Qerror, current_minor_maps_error);
1517 if (!NILP (temp)) 1508 if (!NILP (temp))
1518 { 1509 {
1519 cmm_modes[i] = var; 1510 cmm_modes[i] = var;
@@ -3753,11 +3744,11 @@ don't alter it yourself. */);
3753 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil); 3744 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
3754 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map); 3745 Fset_keymap_parent (Vminibuffer_local_completion_map, Vminibuffer_local_map);
3755 3746
3756 DEFVAR_LISP ("minibuffer-local-filename-completion-map", 3747 DEFVAR_LISP ("minibuffer-local-filename-completion-map",
3757 &Vminibuffer_local_filename_completion_map, 3748 &Vminibuffer_local_filename_completion_map,
3758 doc: /* Local keymap for minibuffer input with completion for filenames. */); 3749 doc: /* Local keymap for minibuffer input with completion for filenames. */);
3759 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil); 3750 Vminibuffer_local_filename_completion_map = Fmake_sparse_keymap (Qnil);
3760 Fset_keymap_parent (Vminibuffer_local_filename_completion_map, 3751 Fset_keymap_parent (Vminibuffer_local_filename_completion_map,
3761 Vminibuffer_local_completion_map); 3752 Vminibuffer_local_completion_map);
3762 3753
3763 3754
@@ -3767,11 +3758,11 @@ don't alter it yourself. */);
3767 Fset_keymap_parent (Vminibuffer_local_must_match_map, 3758 Fset_keymap_parent (Vminibuffer_local_must_match_map,
3768 Vminibuffer_local_completion_map); 3759 Vminibuffer_local_completion_map);
3769 3760
3770 DEFVAR_LISP ("minibuffer-local-must-match-filename-map", 3761 DEFVAR_LISP ("minibuffer-local-must-match-filename-map",
3771 &Vminibuffer_local_must_match_filename_map, 3762 &Vminibuffer_local_must_match_filename_map,
3772 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */); 3763 doc: /* Local keymap for minibuffer input with completion for filenames with exact match. */);
3773 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil); 3764 Vminibuffer_local_must_match_filename_map = Fmake_sparse_keymap (Qnil);
3774 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map, 3765 Fset_keymap_parent (Vminibuffer_local_must_match_filename_map,
3775 Vminibuffer_local_must_match_map); 3766 Vminibuffer_local_must_match_map);
3776 3767
3777 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, 3768 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,