diff options
| -rw-r--r-- | lisp/apropos.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 53bbe1673b7..1cd37310e1c 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -277,6 +277,9 @@ Returns list of symbols and documentation found." | |||
| 277 | (not (setq local (lookup-key current-local-map key))) | 277 | (not (setq local (lookup-key current-local-map key))) |
| 278 | (numberp local) | 278 | (numberp local) |
| 279 | (eq command local)) | 279 | (eq command local)) |
| 280 | ;; check if this binding is already recorded | ||
| 281 | ;; (this can happen due to inherited keymaps) | ||
| 282 | (not (member key (nthcdr 3 item))) | ||
| 280 | ;; add this key binding to the item in alist | 283 | ;; add this key binding to the item in alist |
| 281 | (nconc item (cons key nil)))) | 284 | (nconc item (cons key nil)))) |
| 282 | ((vectorp (car map)) | 285 | ((vectorp (car map)) |
| @@ -305,6 +308,9 @@ Returns list of symbols and documentation found." | |||
| 305 | (not (setq local (lookup-key current-local-map key))) | 308 | (not (setq local (lookup-key current-local-map key))) |
| 306 | (numberp local) | 309 | (numberp local) |
| 307 | (eq command local)) | 310 | (eq command local)) |
| 311 | ;; check if this binding is already recorded | ||
| 312 | ;; (this can happen due to inherited keymaps) | ||
| 313 | (not (member key (nthcdr 3 item))) | ||
| 308 | ;; add this key binding to the item in alist | 314 | ;; add this key binding to the item in alist |
| 309 | (nconc item (cons key nil))) | 315 | (nconc item (cons key nil))) |
| 310 | (setq i (1+ i)))))) | 316 | (setq i (1+ i)))))) |