branch: externals/corfu
commit 3cc4272cf6bf48870fa426fe2e91927e081cd2ee
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Simplify corfu-docframe
---
extensions/corfu-docframe.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/extensions/corfu-docframe.el b/extensions/corfu-docframe.el
index df6b9a0538..021ee610d7 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-docframe.el
@@ -83,11 +83,10 @@ If this is nil, do not resize corfu doc popup
automatically."
(defvar corfu-docframe--frame-parameters
(let* ((cw (default-font-width))
(lmw (* cw corfu-left-margin-width))
- (rmw (* cw corfu-right-margin-width))
- (fp (copy-alist corfu--frame-parameters)))
- (setf (alist-get 'left-fringe fp) (ceiling lmw)
- (alist-get 'right-fringe fp) (ceiling rmw))
- fp)
+ (rmw (* cw corfu-right-margin-width)))
+ `((left-fringe . ,lmw)
+ (right-fringe . ,rmw)
+ ,@corfu--frame-parameters))
"Default doc child frame parameters.")
(defvar corfu-docframe--auto-timer nil
