Mercurial > emacs
comparison src/keymap.c @ 7669:93b5868150b9
(describe_map): Fix the call to Fequal.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 24 May 1994 21:12:22 +0000 |
parents | 516dd16e2017 |
children | cf23573fa6fb |
comparison
equal
deleted
inserted
replaced
7668:c5ae1297d994 | 7669:93b5868150b9 |
---|---|
2124 { | 2124 { |
2125 /* The same keymap might be in the structure twice, if we're | 2125 /* The same keymap might be in the structure twice, if we're |
2126 using an inherited keymap. So skip anything we've already | 2126 using an inherited keymap. So skip anything we've already |
2127 encountered. */ | 2127 encountered. */ |
2128 tem = Fassq (tail, *seen); | 2128 tem = Fassq (tail, *seen); |
2129 if (CONSP (tem) && Fequal (XCONS (tem)->car, keys)) | 2129 if (CONSP (tem) && !NILP (Fequal (XCONS (tem)->car, keys))) |
2130 break; | 2130 break; |
2131 *seen = Fcons (Fcons (tail, keys), *seen); | 2131 *seen = Fcons (Fcons (tail, keys), *seen); |
2132 } | 2132 } |
2133 } | 2133 } |
2134 | 2134 |