[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu 175835dc0c 4/6: Extract corfu--make-frame-1 from
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu 175835dc0c 4/6: Extract corfu--make-frame-1 from corfu--make-frame |
Date: |
Sat, 4 Jun 2022 13:57:23 -0400 (EDT) |
branch: externals/corfu
commit 175835dc0c147887431c6f4a851a3e7fd32bab47
Author: Yuwei Tian <ibluefocus@outlook.com>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Extract corfu--make-frame-1 from corfu--make-frame
---
corfu.el | 26 +++++++++++++++++++-------
1 file changed, 19 insertions(+), 7 deletions(-)
diff --git a/corfu.el b/corfu.el
index 0625f2465a..978b90162a 100644
--- a/corfu.el
+++ b/corfu.el
@@ -392,11 +392,9 @@ CONTENT-HANDLER is a function called with the inserted
buffer content."
(goto-char (point-min))))
buffer))
-;; Function adapted from posframe.el by tumashu
-(defun corfu--make-frame (x y width height content
- buffer-name frame frame-params
- &optional content-handler)
- "Show child frame at X/Y with WIDTH/HEIGHT and CONTENT.
+(defun corfu--make-frame-1 (content buffer-name frame frame-params
+ &optional content-handler)
+ "Make child frame with CONTENT.
The BUFFER-NAME and CONTENT-HANDLER parameters are the same as
the corresponding parameters in the `corfu--make-buffer' function.
@@ -435,8 +433,6 @@ The created frame can be accessed via FRAME."
(set-window-buffer win buffer)
;; Mark window as dedicated to prevent frame reuse (#60)
(set-window-dedicated-p win t))
- (corfu--set-frame-position frame x y width height)
- (redirect-frame-focus frame parent)
frame))
(defvar x-gtk-resize-child-frames) ;; Not present on non-gtk builds
@@ -471,6 +467,22 @@ The created frame can be accessed via FRAME."
(redisplay 'force)
(make-frame-visible frame))))
+;; Function adapted from posframe.el by tumashu
+(defun corfu--make-frame (x y width height content
+ buffer-name frame frame-params
+ &optional content-handler)
+ "Show child frame at X/Y with WIDTH/HEIGHT and CONTENT.
+
+The rest of the parameters are the same as the corresponding parameters
+in `corfu--make-frame-1'."
+ (let ((parent (window-frame))
+ (frame
+ (corfu--make-frame-1
+ content buffer-name frame frame-params content-handler)))
+ (corfu--set-frame-position frame x y width height 'hack-redisplay)
+ (redirect-frame-focus frame parent)
+ frame))
+
(defun corfu--popup-show (pos off width lines &optional curr lo bar)
"Show LINES as popup at POS - OFF.
WIDTH is the width of the popup.
- [elpa] externals/corfu updated (a262a21432 -> 0bc9262131), ELPA Syncer, 2022/06/04
- [elpa] externals/corfu 68891b5585 3/6: Add corfu--set-frame-position, ELPA Syncer, 2022/06/04
- [elpa] externals/corfu 450cf9d9e7 5/6: Remove content-handler, ELPA Syncer, 2022/06/04
- [elpa] externals/corfu 4ca248a090 1/6: Generalize `corfu--make-buffer' and `corfu--make-frame', ELPA Syncer, 2022/06/04
- [elpa] externals/corfu 13a6f6b57d 2/6: Set the fringe background color for the created child frame, ELPA Syncer, 2022/06/04
- [elpa] externals/corfu 175835dc0c 4/6: Extract corfu--make-frame-1 from corfu--make-frame,
ELPA Syncer <=
- [elpa] externals/corfu 0bc9262131 6/6: Refactor corfu--make-frame, ELPA Syncer, 2022/06/04