branch: externals/corfu-doc
commit 0c5bd800f689f4af765eb267df038d8068516a6e
Author: Yuwei Tian <[email protected]>
Commit: Yuwei Tian <[email protected]>
Fix frame flicker When display the doc immediately
---
corfu-doc.el | 24 ++++++++++++++----------
1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/corfu-doc.el b/corfu-doc.el
index e0e557395e..c4ff2439e5 100644
--- a/corfu-doc.el
+++ b/corfu-doc.el
@@ -48,9 +48,12 @@
:group 'corfu-doc)
(defcustom corfu-doc-delay 0.1
- "The number of seconds to wait before displaying the documentation popup."
- :type 'float
- :safe #'floatp
+ "The number of seconds to wait before displaying the documentation popup.
+
+The value of nil means no delay."
+ :type '(choice (const :tag "never (nil)" nil)
+ (const :tag "immediate (0)" 0)
+ (number :tag "seconds"))
:group 'corfu-doc)
(defcustom corfu-doc-hide-threshold 0.2
@@ -468,13 +471,14 @@ FWIDTH and FHEIGHT."
(defun corfu-doc--popup-transit ()
(when (corfu-doc--popup-visible-p)
- (if (and corfu-doc-mode corfu-doc-auto (> corfu-doc-delay 0))
- (if (> corfu-doc-delay corfu-doc-hide-threshold)
- (corfu-doc--make-popup-invisible)
- ;; clear buffer and update popup position immediately
- (corfu-doc--clear-buffer)
- (when (corfu-doc--cf-popup-edges-changed-p)
- (corfu-doc--refresh-popup)))
+ (if (and corfu-doc-mode corfu-doc-auto)
+ (when (and (not (null corfu-doc-delay)) (> corfu-doc-delay 0))
+ (if (> corfu-doc-delay corfu-doc-hide-threshold)
+ (corfu-doc--make-popup-invisible)
+ ;; clear buffer and update popup position immediately
+ (corfu-doc--clear-buffer)
+ (when (corfu-doc--cf-popup-edges-changed-p)
+ (corfu-doc--refresh-popup))))
(corfu-doc--popup-hide))))
(defun corfu-doc--popup-show (&rest _args)
