diff options
| author | Karl Heuer | 1994-03-25 03:02:27 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-25 03:02:27 +0000 |
| commit | 9fc722dee15cb7544a9920f521911a35e6aa4700 (patch) | |
| tree | d83e82ba86fe4b0cb22d8f0b0d0dcd217ec6db32 /src/keymap.c | |
| parent | 26ae6b61cf5289082b0487efa87c565559bb2b35 (diff) | |
| download | emacs-9fc722dee15cb7544a9920f521911a35e6aa4700.tar.gz emacs-9fc722dee15cb7544a9920f521911a35e6aa4700.zip | |
(Fwhere_is_internal): Skip duplicates.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index e5878125c70..1c403dcf234 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1694,8 +1694,10 @@ indirect definition itself.") | |||
| 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 |