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 |