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

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

[elpa] externals/pyim 353f2870c9 1/2: * pyim-page.el (pyim-page-show-wit


From: ELPA Syncer
Subject: [elpa] externals/pyim 353f2870c9 1/2: * pyim-page.el (pyim-page-show-with-minibuffer): let message-log-max nil.
Date: Thu, 30 Dec 2021 06:57:38 -0500 (EST)

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

    * pyim-page.el (pyim-page-show-with-minibuffer): let message-log-max nil.
---
 pyim-page.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/pyim-page.el b/pyim-page.el
index e62937e55d..5967208651 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -202,8 +202,7 @@ page 的概念,比如,上面的 “nihao” 的 *待选词列表* 就可以
    :candidates 关键字对应的位置,这个 hastable 最终会做为参数传递
    给 `pyim-page-style' 相关的函数,用于生成用于在选词框中显示的
    字符串。"
-  (let* ((message-log-max nil)
-         (start (1- (pyim-page-start)))
+  (let* ((start (1- (pyim-page-start)))
          (end (pyim-page-end))
          (candidates pyim-candidates)
          (candidate-showed
@@ -518,10 +517,11 @@ page 的概念,比如,上面的 “nihao” 的 *待选词列表* 就可以
         (t (pyim-page-show-with-minibuffer string))))
 
 (defun pyim-page-show-with-minibuffer (string)
-  "使用 minibuffer 来显示 string。"
-  (if (not (eq (selected-window) (minibuffer-window)))
-      (message string)
-    (let ((max-mini-window-height (+ pyim-page-length 2)))
+  "使用 minibuffer 来显示 STRING。"
+  (let ((max-mini-window-height (+ pyim-page-length 2))
+        (message-log-max nil))
+    (if (not (eq (selected-window) (minibuffer-window)))
+        (message string)
       (message nil)
       (let* ((inhibit-quit t)
              (begin (point))



reply via email to

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