diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/keymap.c | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index a12519a96c0..09b6d5b10f8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2000-10-16 Stefan Monnier <monnier@cs.yale.edu> | ||
| 2 | |||
| 3 | * keymap.c (keymap_memberp): Ensure that nil is not a member. | ||
| 4 | |||
| 1 | 2000-10-16 Gerd Moellmann <gerd@gnu.org> | 5 | 2000-10-16 Gerd Moellmann <gerd@gnu.org> |
| 2 | 6 | ||
| 3 | * xdisp.c (set_iterator_to_next): Reset box start and end flags of | 7 | * xdisp.c (set_iterator_to_next): Reset box start and end flags of |
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)); |