helpful

commit 9a5dcd99a8c9312080439f458fb776592bbeac4b
parent 88771efa6327e94076b3815d374c1750efe2f01b
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Sat, 28 Apr 2018 17:28:46 +0100

Ignore widget-global-map

Diffstat:
M
CHANGELOG.md
 | 
3
+++
M
helpful.el
 | 
7
+++++--

2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -3,6 +3,9 @@
 When visiting a reference, the occurrences of the symbol are
 temporarily highlighted.
 
+Keybindings in `widget-global-map` are now ignored as they're rarely
+informative.
+
 URLs in docstrings are now converted to buttons.
 
 Function signatures are now correct when a function uses
diff --git a/helpful.el b/helpful.el
@@ -1124,7 +1124,10 @@ buffer."
 along with the keybindings in each keymap.
 
 We ignore keybindings that are menu items, and ignore keybindings
-from parent keymaps."
+from parent keymaps.
+
+`widget-global-map' is also ignored as it generally contains the
+same bindings as `global-map'."
   (let (matching-keymaps)
     ;; Look for this command in all keymaps.
     (dolist (keymap-sym (helpful--all-keymap-syms))
@@ -1142,7 +1145,7 @@ from parent keymaps."
               ;; Ignore keybindings that we've just inherited from the
               ;; parent.
               (-difference keycodes parent-keycodes))
-        (when keycodes
+        (when (and keycodes (not (eq keymap-sym 'widget-global-map)))
           (push (cons keymap-sym
                       (-map #'key-description keycodes))
                 matching-keymaps))))