branch: master
commit 917d2ba291eb7fea7b5c1c9097be23ea356b2477
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Improve echo area note for which-key-show-major-mode
---
which-key.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/which-key.el b/which-key.el
index 0f5b7d4..85714c8 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1399,7 +1399,7 @@ no title exists."
(if alternate alternate
(concat "Following " keys)))
(t ""))))
- (which-key--using-top-level "Top-level bindings")
+ (which-key--using-top-level which-key--using-top-level)
(which-key--current-show-keymap-name
which-key--current-show-keymap-name)
(t "")))
@@ -2033,7 +2033,7 @@ after first page."
(defun which-key-show-top-level ()
"Show top-level bindings."
(interactive)
- (setq which-key--using-top-level t)
+ (setq which-key--using-top-level "Top-level bindings")
(which-key--create-buffer-and-show nil))
;;;###autoload
@@ -2044,7 +2044,7 @@ This function will also detect evil bindings made using
`evil-define-key' in this map. These bindings will depend on the
current evil state. "
(interactive)
- (setq which-key--using-top-level t)
+ (setq which-key--using-top-level "Major-mode bindings")
(let ((map-sym (intern (format "%s-map" major-mode))))
(if (and (boundp map-sym) (keymapp (symbol-value map-sym)))
(which-key--create-buffer-and-show
