[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/which-key 016b9bb 04/10: Cosmetics
From: |
Stefan Monnier |
Subject: |
[elpa] externals/which-key 016b9bb 04/10: Cosmetics |
Date: |
Wed, 2 Jun 2021 18:29:40 -0400 (EDT) |
branch: externals/which-key
commit 016b9bbf869767d0a6a32b2644444dd2d85e9fc1
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Cosmetics
---
which-key.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/which-key.el b/which-key.el
index b576a5b..3f5f809 100644
--- a/which-key.el
+++ b/which-key.el
@@ -724,8 +724,8 @@ update.")
(which-key--pages-num-pages which-key--pages-obj)))
(defsubst which-key--current-prefix ()
- (when which-key--pages-obj
- (which-key--pages-prefix which-key--pages-obj)))
+ (and which-key--pages-obj
+ (which-key--pages-prefix which-key--pages-obj)))
(defmacro which-key--debug-message (&rest msg)
`(when which-key--debug-buffer-name
@@ -1182,7 +1182,8 @@ popup)."
ACT-POPUP-DIM includes the dimensions, (height . width) of the
buffer text to be displayed in the popup. Return nil if no window
is shown, or if there is no need to start the closing timer."
- (when (and (> (car act-popup-dim) 0) (> (cdr act-popup-dim) 0))
+ (when (and (> (car act-popup-dim) 0)
+ (> (cdr act-popup-dim) 0))
(cl-case which-key-popup-type
;; Not called for minibuffer
;; (minibuffer (which-key--show-buffer-minibuffer act-popup-dim))
@@ -2449,9 +2450,9 @@ prefix) if `which-key-use-C-h-commands' is non nil."
(interactive)
(cond ((and (not (which-key--popup-showing-p))
which-key-show-early-on-C-h)
- (let* ((current-prefix
- (butlast
- (listify-key-sequence (which-key--this-command-keys)))))
+ (let ((current-prefix
+ (butlast
+ (listify-key-sequence (which-key--this-command-keys)))))
(which-key-reload-key-sequence current-prefix)
(if which-key-idle-secondary-delay
(which-key--start-timer which-key-idle-secondary-delay t)
@@ -2773,10 +2774,8 @@ Finally, show the buffer."
(which-key--stop-timer)
(setq which-key--secondary-timer-active secondary)
(setq which-key--timer
- (run-with-idle-timer
- (if delay
- delay
- which-key-idle-delay) t #'which-key--update)))
+ (run-with-idle-timer (or delay which-key-idle-delay)
+ t #'which-key--update)))
(defun which-key--stop-timer ()
"Deactivate idle timer for `which-key--update'."
- [elpa] externals/which-key updated (5fb3030 -> fc29864), Stefan Monnier, 2021/06/02
- [elpa] externals/which-key 7927209 01/10: fix which-key--show-keymap for which-key-enable-extended-define-key, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key f6ce67d 05/10: Get which-key--buffer's window from any frame, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key fc29864 10/10: Fix whitespace, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key aa91a7c 02/10: Fix nesting-level of "God-mode" section, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key 016b9bb 04/10: Cosmetics,
Stefan Monnier <=
- [elpa] externals/which-key fa1b4c9 06/10: Merge pull request #303 from tarsiiformes/posframe, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key 1f5e532 03/10: Avoid code-duplication in which-key--hide-popup, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key ef1fc43 07/10: Reference issues #93 and #175 in README, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key 81d9395 08/10: Fix README links, Stefan Monnier, 2021/06/02
- [elpa] externals/which-key 7e854d0 09/10: Fix recent commit, Stefan Monnier, 2021/06/02