[elpa] externals/pyim 023f343e28 1/3: * pyim-page.el (pyim-page-tooltip-popup-show): use popup-tip instead.

[ELPA Syncer]

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

    * pyim-page.el (pyim-page-tooltip-popup-show): use popup-tip instead.
---
 pyim-page.el | 34 +++++++++++++++-------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

diff --git a/pyim-page.el b/pyim-page.el
index c5dd13d81b..c7fb4e0639 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -508,29 +508,25 @@ minibuffer 原来显示的信息和 pyim 选词框整合在一起显示
       (setq quit-flag nil)
       (pyim-add-unread-command-events 7 t))))
 
-(declare-function 'popup-create "popup")
-(declare-function 'popup-width "popup")
-(declare-function 'popup-fill-string "popup")
-(declare-function 'popup-set-list "popup")
+(declare-function 'popup-tip "popup")
 (declare-function 'popup-delete "popup")
-(declare-function 'popup-replace-displayable "popup")
+(defvar popup-version)
 
 (cl-defun pyim-page-tooltip-popup-show (&key string position)
   "Show STRING at POSITION with the help of popup-el."
-  (let* ((width-and-lines (popup-fill-string string))
-         (width (car width-and-lines))
-         (lines (cdr width-and-lines)))
-    (when pyim-page-tooltip-popup
-      (popup-delete pyim-page-tooltip-popup))
-    (setq pyim-page-tooltip-popup
-          (popup-create position width 15
-                        :around t
-                        :margin-left 1
-                        :margin-right 1
-                        :face 'pyim-page))
-    (when (> (popup-width pyim-page-tooltip-popup) 0)
-      (popup-set-list pyim-page-tooltip-popup lines)
-      (popup-draw pyim-page-tooltip-popup))))
+  (when pyim-page-tooltip-popup
+    (popup-delete pyim-page-tooltip-popup))
+  (setq pyim-page-tooltip-popup
+        (apply #'popup-tip
+               string
+               :point position
+               :around t
+               :margin 1
+               :nowait t
+               :nostrip t
+               ;; popup v0.5.9 以后才支持 face 参数
+               (unless (version<= popup-version "0.5.8")
+                 (list :face 'pyim-page)))))
 
 (defun pyim-page-hide ()
   "Hide pyim page."