diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-23 20:10:44 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-23 20:10:44 +0100 |
| commit | 26e455f51d6699195e3929d2a1b0aed44499e923 (patch) | |
| tree | dbaafdb0e383766f8576653d77f582fe6531f8b6 | |
| parent | b1ed21df6d49d0443b0b37e3ca1b730444a52e1a (diff) | |
corfu-popupinfo: Simplify handling of delay=0
| -rw-r--r-- | extensions/corfu-popupinfo.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index 8852e1d..1299ec8 100644 --- a/extensions/corfu-popupinfo.el +++ b/extensions/corfu-popupinfo.el @@ -508,18 +508,15 @@ not be displayed until this command is called again, even if corfu-popupinfo-delay) corfu-popupinfo-delay)) (corfu-popupinfo--toggle)) - (if (or (<= delay 0) - (and (equal-including-properties cand corfu-popupinfo--candidate) - (corfu-popupinfo--visible-p))) - (corfu-popupinfo--show cand) - (when (corfu-popupinfo--visible-p) + (progn + (when (and (corfu-popupinfo--visible-p) (> delay 0)) (cond (corfu-popupinfo-hide (corfu-popupinfo--hide)) (corfu-popupinfo--candidate (corfu-popupinfo--show corfu-popupinfo--candidate)))) (setq corfu-popupinfo--timer - (run-at-time delay nil #'corfu-popupinfo--show cand))) + (run-at-time delay nil #'corfu-popupinfo--show cand))) (unless (equal-including-properties cand corfu-popupinfo--candidate) (corfu-popupinfo--hide)))) (corfu-popupinfo--hide)))) |