branch: externals/which-key
commit 5cbfccd5fec9b8f75b0933d2f0350592cebd32e8
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Add which-key-manual-update
Intended to be used for prefix-help-command
Ref #66
---
which-key.el | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/which-key.el b/which-key.el
index c47c576..703d9f5 100644
--- a/which-key.el
+++ b/which-key.el
@@ -2583,6 +2583,23 @@ Finally, show the buffer."
(kbd which-key--god-mode-key-string))))
this-command-keys))
+;;;###autoload
+(defun which-key-manual-update ()
+ "Force which-key update.
+
+This command is intended to be used for `prefix-help-command', as
+follows
+
+\(setq prefix-help-command 'which-key-manual-update).
+
+This should be set after activating `which-key-mode'."
+ (interactive)
+ (let* ((current-prefix
+ (butlast
+ (listify-key-sequence (which-key--this-command-keys)))))
+ (which-key-reload-key-sequence current-prefix)
+ (which-key--start-timer 0 t)))
+
(defun which-key--update ()
"Function run by timer to possibly trigger
`which-key--create-buffer-and-show'."
