branch: master
commit 0f80d0f95cbf133f52f64578d6a152e7e48ceb0e
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
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)))
