emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu fb25d2bf80 2/4: Reintroduce corfu-docframe--teard


From: ELPA Syncer
Subject: [elpa] externals/corfu fb25d2bf80 2/4: Reintroduce corfu-docframe--teardown
Date: Thu, 17 Nov 2022 18:57:27 -0500 (EST)

branch: externals/corfu
commit fb25d2bf80cee72db661342b3a1e49d691f7fb88
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Reintroduce corfu-docframe--teardown
---
 extensions/corfu-docframe.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/extensions/corfu-docframe.el b/extensions/corfu-docframe.el
index 158f1c6c93..d649d93fdf 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-docframe.el
@@ -111,7 +111,8 @@ See `frame-edges' for details.")
 (defconst corfu-docframe--state-vars
   '(corfu-docframe--candidate
     corfu-docframe--edges
-    corfu-docframe--direction)
+    corfu-docframe--direction
+    corfu-docframe--toggle)
   "Buffer-local state variables used by corfu-docframe.")
 
 (defun corfu-docframe--visible-p ()
@@ -364,7 +365,11 @@ the corfu popup, its value is 'bottom, 'top, 'right or 
'left."
 
 (defun corfu-docframe--hide ()
   "Clear the doc popup buffer content and hide it."
-  (corfu--hide-frame corfu-docframe--frame)
+  (corfu--hide-frame corfu-docframe--frame))
+
+(defun corfu-docframe--teardown ()
+  "Teardown the docframe state."
+  (corfu-docframe--hide)
   (mapc #'kill-local-variable corfu-docframe--state-vars))
 
 (defun corfu-docframe-scroll-up (&optional n)
@@ -423,10 +428,10 @@ not be displayed until this command is called again, even 
if
   (cond
    (corfu-docframe-mode
     (advice-add #'corfu--exhibit :after #'corfu-docframe--exhibit)
-    (advice-add #'corfu--teardown :before #'corfu-docframe--hide))
+    (advice-add #'corfu--teardown :before #'corfu-docframe--teardown))
    (t
     (advice-remove #'corfu--exhibit #'corfu-docframe--exhibit)
-    (advice-remove #'corfu--teardown #'corfu-docframe--hide))))
+    (advice-remove #'corfu--teardown #'corfu-docframe--teardown))))
 
 (provide 'corfu-docframe)
 ;;; corfu-docframe.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]