From 7e05cdaf48ed8eccf1bb5162c7eaf0fcbdb59bfb Mon Sep 17 00:00:00 2001
From: Stefan Monnier
Date: Mon, 16 Oct 2000 21:57:56 +0000
Subject: (keymap_memberp): Ensure that nil is not a member.

---
 src/keymap.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/keymap.c')

diff --git a/src/keymap.c b/src/keymap.c
index 7fe8718aa09..fbbbcae3998 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -311,6 +311,7 @@ int
 keymap_memberp (map, maps)
      Lisp_Object map, maps;
 {
+  if (NILP (map)) return 0;
   while (KEYMAPP (maps) && !EQ (map, maps))
     maps = Fkeymap_parent (maps);
   return (EQ (map, maps));
-- 
cgit v1.2.1