[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))