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

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

[elpa] externals/pyim cfc1fab 1/3: Add pyim-page-subword face.


From: ELPA Syncer
Subject: [elpa] externals/pyim cfc1fab 1/3: Add pyim-page-subword face.
Date: Sat, 18 Dec 2021 01:57:36 -0500 (EST)

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

    Add pyim-page-subword face.
    
        * pyim-page.el (pyim-page-subword): New face.
        (pyim-page-menu-create): Use pyim-page-subword face.
---
 pyim-page.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pyim-page.el b/pyim-page.el
index 389fe81..08dabca 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -97,6 +97,10 @@ Only useful when use posframe.")
 
 注意:当使用 minibuffer 为选词框时,这个选项才有用处。")
 
+(defface pyim-page-subword
+  '((t (:background "gray44")))
+  "使用以词选字功能时,选择的汉字所使用的 face.")
+
 (defvar pyim-page-tooltip-posframe-buffer " 
*pyim-page-tooltip-posframe-buffer*"
   "这个变量用来保存做为 page tooltip 的 posframe 的 buffer.")
 
@@ -368,7 +372,7 @@ page 的概念,比如,上面的 “nihao” 的 *待选词列表* 就可以
                     candidate))))
         (dolist (n pyim-outcome-subword-info)
           (when (<= n (length str))
-            (set-text-properties (- n 1) n '(face highlight) str)))
+            (set-text-properties (- n 1) n '(face pyim-page-subword) str)))
         (setq i (1+ i))
         ;; 高亮当前选择的词条,用于 `pyim-page-next-word'
         (push



reply via email to

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