branch: externals/corfu-doc
commit 7926ff406c0d40fc51f664ebc4c6380a0f117c52
Author: Yuwei Tian <[email protected]>
Commit: Yuwei Tian <[email protected]>
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
