[elpa] externals/corfu 3cc4272cf6 12/12: Simplify corfu-docframe

[ELPA Syncer]

branch: externals/corfu
commit 3cc4272cf6bf48870fa426fe2e91927e081cd2ee
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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