* src/keymap.c (Fwhere_is_internal): Add missing RETURN_UNGCPROs.

diff --git a/src/ChangeLog b/src/ChangeLog
index 199f208..1bb4a6a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-18  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * keymap.c (Fwhere_is_internal): Add missing RETURN_UNGCPROs.
+
 2011-11-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * intervals.c: Fix grafting over the whole buffer (bug#10071).

diff --git a/src/keymap.c b/src/keymap.c
index 6f9cf28..b429ca9 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2624,11 +2624,11 @@ remapped command in the returned list.  */)
       /* We have a list of advertised bindings.  */
       while (CONSP (tem))
        if (EQ (shadow_lookup (keymaps, XCAR (tem), Qnil, 0), definition))
-         return XCAR (tem);
+         RETURN_UNGCPRO (XCAR (tem));
        else
          tem = XCDR (tem);
       if (EQ (shadow_lookup (keymaps, tem, Qnil, 0), definition))
-       return tem;
+       RETURN_UNGCPRO (tem);
     }
 
   sequences = Freverse (where_is_internal (definition, keymaps,