mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

(current_minor_maps): Catch errors in Findirect_function.

Browse source 
(current_minor_maps_error): New function.
This commit is contained in:
Karl Heuer 1995-07-17 22:21:54 +00:00
parent ee8e09af76
commit fbb908296b
1 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/keymap.c
View file

@ -799,6 +799,13 @@ append_key (key_sequence, key)
static Lisp_Object *cmm_modes, *cmm_maps;
static int cmm_size;
/* Error handler used in current_minor_maps. */
static Lisp_Object
current_minor_maps_error ()
{
return Qnil;
}
/* Store a pointer to an array of the keymaps of the currently active
minor modes in *buf, and return the number of maps it contains.
@ -830,6 +837,8 @@ current_minor_maps (modeptr, mapptr)
&& (val = find_symbol_value (var), ! EQ (val, Qunbound))
&& ! NILP (val))
{
Lisp_Object temp;
if (i >= cmm_size)
{
Lisp_Object *newmodes, *newmaps;
@ -865,9 +874,17 @@ current_minor_maps (modeptr, mapptr)
else
break;
}
cmm_modes[i] = var;
cmm_maps [i] = Findirect_function (XCONS (assoc)->cdr);
i++;
/* Get the keymap definition--or nil if it is not defined. */
temp = internal_condition_case_1 (Findirect_function,
XCONS (assoc)->cdr,
Qerror, current_minor_maps_error);
if (!NILP (temp))
{
cmm_modes[i] = var;
cmm_maps [i] = temp;
i++;
}
}
if (modeptr) *modeptr = cmm_modes;