aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--which-key.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/which-key.el b/which-key.el
index d66cec5d261..89ab2aecb09 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1176,9 +1176,9 @@ popup)."
1176(defun which-key--popup-showing-p () 1176(defun which-key--popup-showing-p ()
1177 (and (bufferp which-key--buffer) 1177 (and (bufferp which-key--buffer)
1178 (or (window-live-p (get-buffer-window which-key--buffer)) 1178 (or (window-live-p (get-buffer-window which-key--buffer))
1179 (let ((window (get-buffer-window which-key--buffer t))) 1179 (let ((window (get-buffer-window which-key--buffer t)))
1180 (and (window-live-p window) 1180 (and (window-live-p window)
1181 (frame-visible-p (window-frame window))))))) 1181 (frame-visible-p (window-frame window)))))))
1182 1182
1183(defun which-key--show-popup (act-popup-dim) 1183(defun which-key--show-popup (act-popup-dim)
1184 "Show the which-key buffer. 1184 "Show the which-key buffer.
@@ -1186,7 +1186,7 @@ ACT-POPUP-DIM includes the dimensions, (height . width) of the
1186buffer text to be displayed in the popup. Return nil if no window 1186buffer text to be displayed in the popup. Return nil if no window
1187is shown, or if there is no need to start the closing timer." 1187is shown, or if there is no need to start the closing timer."
1188 (when (and (> (car act-popup-dim) 0) 1188 (when (and (> (car act-popup-dim) 0)
1189 (> (cdr act-popup-dim) 0)) 1189 (> (cdr act-popup-dim) 0))
1190 (cl-case which-key-popup-type 1190 (cl-case which-key-popup-type
1191 ;; Not called for minibuffer 1191 ;; Not called for minibuffer
1192 ;; (minibuffer (which-key--show-buffer-minibuffer act-popup-dim)) 1192 ;; (minibuffer (which-key--show-buffer-minibuffer act-popup-dim))
@@ -2779,7 +2779,7 @@ Finally, show the buffer."
2779 (setq which-key--secondary-timer-active secondary) 2779 (setq which-key--secondary-timer-active secondary)
2780 (setq which-key--timer 2780 (setq which-key--timer
2781 (run-with-idle-timer (or delay which-key-idle-delay) 2781 (run-with-idle-timer (or delay which-key-idle-delay)
2782 t #'which-key--update))) 2782 t #'which-key--update)))
2783 2783
2784(defun which-key--stop-timer () 2784(defun which-key--stop-timer ()
2785 "Deactivate idle timer for `which-key--update'." 2785 "Deactivate idle timer for `which-key--update'."