diff options
| -rw-r--r-- | which-key.el | 10 |
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 | |||
| 1186 | buffer text to be displayed in the popup. Return nil if no window | 1186 | buffer text to be displayed in the popup. Return nil if no window |
| 1187 | is shown, or if there is no need to start the closing timer." | 1187 | is 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'." |