Mercurial > emacs
changeset 6525:7e1e1ccc238c
(apropos-match-keys): Skip duplicate keybindings.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 25 Mar 1994 03:03:24 +0000 |
| parents | cedc6c52a812 |
| children | 95661fd7a320 |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Fri Mar 25 03:02:27 1994 +0000 +++ b/lisp/apropos.el Fri Mar 25 03:03:24 1994 +0000 @@ -277,6 +277,9 @@ (not (setq local (lookup-key current-local-map key))) (numberp local) (eq command local)) + ;; check if this binding is already recorded + ;; (this can happen due to inherited keymaps) + (not (member key (nthcdr 3 item))) ;; add this key binding to the item in alist (nconc item (cons key nil)))) ((vectorp (car map)) @@ -305,6 +308,9 @@ (not (setq local (lookup-key current-local-map key))) (numberp local) (eq command local)) + ;; check if this binding is already recorded + ;; (this can happen due to inherited keymaps) + (not (member key (nthcdr 3 item))) ;; add this key binding to the item in alist (nconc item (cons key nil))) (setq i (1+ i))))))