[elpa] master 0f80d0f 17/39: Use symbol at point in whow keymap functions

[Justin Burkett]

branch: master
commit 0f80d0f95cbf133f52f64578d6a152e7e48ceb0e
Author: Justin Burkett <address@hidden>
Commit: Justin Burkett <address@hidden>

    Use symbol at point in whow keymap functions
---
 which-key.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/which-key.el b/which-key.el
index 818ef17..fe68c9d 100644
--- a/which-key.el
+++ b/which-key.el
@@ -2298,7 +2298,12 @@ Only if no keys fit fallback to LOC2."
                              (keymapp (symbol-value m))
                              (not (equal (symbol-value m)
                                          (make-sparse-keymap)))))
-                      t nil 'which-key-keymap-history))))
+                      t
+                      (let ((sym (symbol-at-point)))
+                        (and (boundp sym)
+                             (keymapp (symbol-value sym))
+                             (symbol-name sym)))
+                      'which-key-keymap-history))))
     (which-key--show-keymap (symbol-name keymap-sym)
                             (symbol-value keymap-sym)
                             nil all)))