comparison src/keymap.c @ 32559:bc60bd171784

(keymap_memberp): Ensure that nil is not a member.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Oct 2000 21:57:11 +0000
parents a7703eb49693
children 5f6178a60e6b
comparison
equal deleted inserted replaced
32558:7282acad9a45 32559:bc60bd171784
309 /* Check whether MAP is one of MAPS parents. */ 309 /* Check whether MAP is one of MAPS parents. */
310 int 310 int
311 keymap_memberp (map, maps) 311 keymap_memberp (map, maps)
312 Lisp_Object map, maps; 312 Lisp_Object map, maps;
313 { 313 {
314 if (NILP (map)) return 0;
314 while (KEYMAPP (maps) && !EQ (map, maps)) 315 while (KEYMAPP (maps) && !EQ (map, maps))
315 maps = Fkeymap_parent (maps); 316 maps = Fkeymap_parent (maps);
316 return (EQ (map, maps)); 317 return (EQ (map, maps));
317 } 318 }
318 319