[elpa] externals/which-key 2cb5ceb 12/51: Fix paging in which-key-manual-update

[Stefan Monnier]

branch: externals/which-key
commit 2cb5ceba55fb9c671bcf794a795059673633113a
Author: Justin Burkett <justin@burkett.cc>
Commit: Justin Burkett <justin@burkett.cc>

    Fix paging in which-key-manual-update
---
 which-key.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/which-key.el b/which-key.el
index 703d9f5..b6ae912 100644
--- a/which-key.el
+++ b/which-key.el
@@ -445,6 +445,7 @@ prefixes in `which-key-paging-prefixes'"
   "Keymap for C-h commands.")
 
 (defvar which-key--paging-functions '(which-key-C-h-dispatch
+                                      which-key-manual-update
                                       which-key-turn-page
                                       which-key-show-next-page-cycle
                                       which-key-show-next-page-no-cycle
@@ -2594,11 +2595,13 @@ follows
 
 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)))
+  (if (which-key--popup-showing-p)
+      (which-key-C-h-dispatch)
+    (let* ((current-prefix
+            (butlast
+             (listify-key-sequence (which-key--this-command-keys)))))
+      (which-key-reload-key-sequence current-prefix)
+      (which-key--start-timer 0.05 t))))
 
 (defun which-key--update ()
   "Function run by timer to possibly trigger