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

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

[elpa] externals/pyim 308cee9 1/5: Remove child-frame


From: Feng Shu
Subject: [elpa] externals/pyim 308cee9 1/5: Remove child-frame
Date: Mon, 22 Feb 2021 03:48:40 -0500 (EST)

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

    Remove child-frame
    
    * pyim.el (pyim-start, pyim-terminate-translation)
    (pyim-page-tooltip-show): use eq to test posframe, remove old 'child-frame
---
 pyim.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/pyim.el b/pyim.el
index 26c242b..ab090d9 100644
--- a/pyim.el
+++ b/pyim.el
@@ -1349,7 +1349,7 @@ pyim 使用函数 `pyim-start' 启动输入法的时候,会将变量
   (when (eq (selected-window) (minibuffer-window))
     (add-hook 'minibuffer-exit-hook 'pyim-exit-from-minibuffer))
   (run-hooks 'pyim-active-hook)
-  (when (and (memq pyim-page-tooltip '(posframe child-frame))
+  (when (and (eq pyim-page-tooltip 'posframe)
              (not (pyim-posframe-valid-p)))
     (message "PYIM: posframe 没有正确安装或者当前 emacs 版本不支持 posframe。"))
   (when restart
@@ -2061,7 +2061,7 @@ Return the input string.
     (setq pyim-candidates-create-timer nil))
   (setq pyim-assistant-scheme-enable nil)
   (setq pyim-force-input-chinese nil)
-  (when (and (memq pyim-page-tooltip '(posframe child-frame))
+  (when (and (eq pyim-page-tooltip 'posframe)
              (pyim-posframe-valid-p))
     (posframe-hide pyim-page-tooltip-posframe-buffer))
   (pyim-entered-erase-buffer)
@@ -3317,7 +3317,7 @@ minibuffer 原来显示的信息和 pyim 选词框整合在一起显示
 (defun pyim-page-tooltip-show (string position)
   "在 POSITION 位置,使用 posframe 或者 popup 显示字符串 STRING."
   (let ((tooltip pyim-page-tooltip))
-    (cond ((and (memq tooltip '(posframe child-frame))
+    (cond ((and (eq tooltip 'posframe)
                 (pyim-posframe-valid-p))
            (posframe-show pyim-page-tooltip-posframe-buffer
                           :string string



reply via email to

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