Mercurial > emacs
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 |