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

Add and use which-key--automatic-display

Browse source
This commit is contained in:
Justin Burkett 2018-02-27 20:30:07 -05:00
parent ab60391873
commit 61e399f75f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
which-key.el
View file

@ -639,6 +639,9 @@ Used when `which-key-popup-type' is frame.")
(defvar which-key--last-try-2-loc nil
"Internal: Last location of side-window when two locations
used.")
(defvar which-key--automatic-display nil
"Internal: Non-nil if popup was triggered with automatic
update.")
(defvar which-key--multiple-locations nil)
(defvar which-key--using-top-level nil)
(defvar which-key--using-show-keymap nil)
@ -1061,6 +1064,7 @@ total height."
"This function is called to hide the which-key buffer."
(unless (member real-this-command which-key--paging-functions)
(setq which-key--current-prefix nil
which-key--automatic-display nil
which-key--using-top-level nil
which-key--using-show-keymap nil
which-key--using-show-operator-keymap nil
@ -2534,6 +2538,7 @@ Finally, show the buffer."
(key-description prefix-keys)
(length prefix-keys))))
(sit-for delay-time)))
(setq which-key--automatic-display t)
(which-key--create-buffer-and-show prefix-keys)
(when (and which-key-idle-secondary-delay
(not which-key--secondary-timer-active))
@ -2550,9 +2555,7 @@ Finally, show the buffer."
(eq evil-state 'operator)
(not which-key--using-show-operator-keymap))
(which-key--show-evil-operator-keymap))
((and (not which-key--using-top-level)
(not which-key--using-show-operator-keymap)
(not which-key--using-show-keymap))
(which-key--automatic-display
(which-key--hide-popup)))))
;;; Timers