emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/pyim 88ad4d9d06: Revert "Fix popon tooltip show wrong p


From: ELPA Syncer
Subject: [elpa] externals/pyim 88ad4d9d06: Revert "Fix popon tooltip show wrong position."
Date: Fri, 27 Jan 2023 20:58:02 -0500 (EST)

branch: externals/pyim
commit 88ad4d9d06eded71a80db4485d0ddfcb20b40a4c
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    Revert "Fix popon tooltip show wrong position."
    
    This reverts commit bb9dd23abb09f9d39cc30c102c7533da82bc5d51.
---
 pyim-page.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/pyim-page.el b/pyim-page.el
index b62ee59b75..fa78950aa7 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -359,11 +359,14 @@ pyim-page 的核心的功能,为此增加代码的复杂度和测试的难度
   (when pyim-page--popon
     ;; 延迟获取词条的时候,如果不把已经存在的 popon 删除,就会出现两个 page.
     (popon-kill pyim-page--popon))
-  (setq pyim-page--popon
-        (popon-create
-         (pyim-page--add-default-page-face
-          (pyim-page--align-lines string))
-         (popon-x-y-at-pos position))))
+  (let* ((x-y (popon-x-y-at-pos position))
+         (x (car x-y))
+         (y (cdr x-y)))
+    (setq pyim-page--popon
+          (popon-create
+           (pyim-page--add-default-page-face
+            (pyim-page--align-lines string))
+           (cons x (+ y 1))))))
 
 (defun pyim-page--add-default-page-face (string)
   "为 STRING 添加默认 page face."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]