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

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

[elpa] externals/pyim 43b48b5d97 30/58: pyim-indicator-original-cursor-c


From: ELPA Syncer
Subject: [elpa] externals/pyim 43b48b5d97 30/58: pyim-indicator-original-cursor-color -> pyim-indicator--original-cursor-color
Date: Fri, 24 Jun 2022 06:57:54 -0400 (EDT)

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

    pyim-indicator-original-cursor-color -> 
pyim-indicator--original-cursor-color
---
 pyim-indicator.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/pyim-indicator.el b/pyim-indicator.el
index c85760a78b..a3cd7262f5 100644
--- a/pyim-indicator.el
+++ b/pyim-indicator.el
@@ -61,7 +61,7 @@ timer 实现。"
 
     (中文输入时显示的字符串 英文输入时显示的字符串)。")
 
-(defvar pyim-indicator-original-cursor-color nil
+(defvar pyim-indicator--original-cursor-color nil
   "记录 cursor 的原始颜色。")
 
 (defvar pyim-indicator-timer nil
@@ -78,8 +78,8 @@ timer 实现。"
 
 (defun pyim-indicator-start-daemon ()
   "Indicator daemon, 用于实时显示输入法当前输入状态。"
-  (unless pyim-indicator-original-cursor-color
-    (setq pyim-indicator-original-cursor-color
+  (unless pyim-indicator--original-cursor-color
+    (setq pyim-indicator--original-cursor-color
           (frame-parameter nil 'cursor-color)))
   (setq pyim-indicator-daemon-function-argument
         #'pyim-process-indicator-function)
@@ -125,8 +125,8 @@ timer 实现。"
 
 (defun pyim-indicator-revert-cursor-color ()
   "将 cursor 颜色重置到 pyim 启动之前的状态。"
-  (when pyim-indicator-original-cursor-color
-    (set-cursor-color pyim-indicator-original-cursor-color)))
+  (when pyim-indicator--original-cursor-color
+    (set-cursor-color pyim-indicator--original-cursor-color)))
 
 (defun pyim-indicator-update-mode-line ()
   "更新 mode-line."
@@ -141,14 +141,14 @@ timer 实现。"
   (if (not (equal input-method "pyim"))
       ;; 大多数情况是因为用户切换 buffer, 新 buffer 中
       ;; pyim 没有启动,重置 cursor 颜色。
-      (set-cursor-color pyim-indicator-original-cursor-color)
+      (set-cursor-color pyim-indicator--original-cursor-color)
     (if chinese-input-p
         (set-cursor-color (nth 0 pyim-indicator-cursor-color))
       (set-cursor-color
        (or (nth 1 pyim-indicator-cursor-color)
            (pyim-indicator-select-color
             (list "black" "white")
-            pyim-indicator-original-cursor-color))))))
+            pyim-indicator--original-cursor-color))))))
 
 (defun pyim-indicator-select-color (colors &optional prefer-color)
   "根据背景,选择一个比较显眼的颜色。



reply via email to

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