diff options
| author | Stefan Monnier | 2000-10-16 21:57:56 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-10-16 21:57:56 +0000 |
| commit | 7e05cdaf48ed8eccf1bb5162c7eaf0fcbdb59bfb (patch) | |
| tree | bae22e11713fbc30e0bef2c0290172b5f2d7a68e /src/keymap.c | |
| parent | 45e680a83c2ca3375df82d4014eee8158e53aaf4 (diff) | |
| download | emacs-7e05cdaf48ed8eccf1bb5162c7eaf0fcbdb59bfb.tar.gz emacs-7e05cdaf48ed8eccf1bb5162c7eaf0fcbdb59bfb.zip | |
(keymap_memberp): Ensure that nil is not a member.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 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)); |