Mercurial > emacs
comparison src/keymap.c @ 6524:cedc6c52a812
(Fwhere_is_internal): Skip duplicates.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 25 Mar 1994 03:02:27 +0000 |
| parents | 18dfda644bc0 |
| children | c66bed2f25af |
comparison
equal
deleted
inserted
replaced
| 6523:d9d9ab5951dd | 6524:cedc6c52a812 |
|---|---|
| 1692 binding = Fkey_binding (sequence, Qnil); | 1692 binding = Fkey_binding (sequence, Qnil); |
| 1693 if (!EQ (binding, definition)) | 1693 if (!EQ (binding, definition)) |
| 1694 continue; | 1694 continue; |
| 1695 } | 1695 } |
| 1696 | 1696 |
| 1697 /* It is a true unshadowed match. Record it. */ | 1697 /* It is a true unshadowed match. Record it, unless it's already |
| 1698 found = Fcons (sequence, found); | 1698 been seen (as could happen when inheriting keymaps). */ |
| 1699 if (NILP (Fmember (sequence, found))) | |
| 1700 found = Fcons (sequence, found); | |
| 1699 | 1701 |
| 1700 /* If firstonly is Qnon_ascii, then we can return the first | 1702 /* If firstonly is Qnon_ascii, then we can return the first |
| 1701 binding we find. If firstonly is not Qnon_ascii but not | 1703 binding we find. If firstonly is not Qnon_ascii but not |
| 1702 nil, then we should return the first ascii-only binding | 1704 nil, then we should return the first ascii-only binding |
| 1703 we find. */ | 1705 we find. */ |