mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 08:20:41 -08:00
Code Issues Projects Releases Wiki Activity

Fix paging in which-key-manual-update

Browse source
This commit is contained in:
Justin Burkett 2019-07-31 13:59:11 -04:00
parent c47c72d1fe
commit 2cb5ceba55
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
which-key.el
View file

@ -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