[elpa] externals/corfu-doc 7926ff406c 47/95: Avoid using map-merge

[ELPA Syncer]

branch: externals/corfu-doc
commit 7926ff406c0d40fc51f664ebc4c6380a0f117c52
Author: Yuwei Tian <ibluefocus@outlook.com>
Commit: Yuwei Tian <ibluefocus@outlook.com>

    Avoid using map-merge
    
    See Emacs bug#46722
---
 corfu-doc.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/corfu-doc.el b/corfu-doc.el
index 8d53eef4c3..72ab852ae4 100644
--- a/corfu-doc.el
+++ b/corfu-doc.el
@@ -35,7 +35,6 @@
 (eval-when-compile
   (require 'cl-lib)
   (require 'subr-x))
-(require 'map)
 (require 'corfu)
 
 (defgroup corfu-doc nil
@@ -90,11 +89,11 @@ If this is nil, do not resize corfu doc frame 
automatically."
 (defvar corfu-doc--frame-parameters
   (let* ((cw (default-font-width))
          (lm (* cw corfu-left-margin-width))
-         (rm (* cw corfu-right-margin-width)))
-    (map-merge 'alist
-               corfu--frame-parameters
-               `((left-fringe . ,(ceiling lm))
-                 (right-fringe . ,(ceiling rm)))))
+         (rm (* cw corfu-right-margin-width))
+         (fp (copy-alist corfu--frame-parameters)))
+    (setf (alist-get 'left-fringe fp) (ceiling lm)
+          (alist-get 'right-fringe fp) (ceiling rm))
+    fp)
   "Default doc child frame parameters.")
 
 (defvar corfu-doc--window nil