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

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

[elpa] externals/pyim 77745cc 2/5: 处理 pyim-page-* 命令


From: ELPA Syncer
Subject: [elpa] externals/pyim 77745cc 2/5: 处理 pyim-page-* 命令
Date: Thu, 23 Dec 2021 01:57:35 -0500 (EST)

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

    处理 pyim-page-* 命令
    
        * pyim.el (pyim-previous-page, pyim-next-page)
        (pyim-previous-word, pyim-next-word): alias to commands in pyim-page.el.
        (pyim-mode-map): do not use pyim-page-* command.
---
 pyim.el | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/pyim.el b/pyim.el
index bf46ead..b29e27e 100644
--- a/pyim.el
+++ b/pyim.el
@@ -126,12 +126,12 @@ Tip: 用户也可以利用 `pyim-outcome-trigger-function-default' 函数
     (define-key map "\M-b" #'pyim-backward-imelem)
     (define-key map "\C-e" #'pyim-end-of-line)
     (define-key map "\C-a" #'pyim-beginning-of-line)
-    (define-key map "=" #'pyim-page-next-page)
-    (define-key map "-" #'pyim-page-previous-page)
-    (define-key map "\C-n" #'pyim-page-next-word)
-    (define-key map "\C-p" #'pyim-page-previous-word)
-    (define-key map "\M-n" #'pyim-page-next-page)
-    (define-key map "\M-p" #'pyim-page-previous-page)
+    (define-key map "=" #'pyim-next-page)
+    (define-key map "-" #'pyim-previous-page)
+    (define-key map "\C-n" #'pyim-next-word)
+    (define-key map "\C-p" #'pyim-previous-word)
+    (define-key map "\M-n" #'pyim-next-page)
+    (define-key map "\M-p" #'pyim-previous-page)
     (define-key map "\C-m" #'pyim-quit-no-clear)
     (define-key map [return] #'pyim-quit-no-clear)
     (define-key map "\C-c" #'pyim-quit-clear)
@@ -495,6 +495,12 @@ FILE 的格式与 `pyim-dcache-export' 生成的文件格式相同,
           (message "将词条: %S 从 personal 缓冲中删除。" string)))
     (message "请首先高亮选择需要删除的词条。")))
 
+;; ** 翻页和翻词功能
+(defalias 'pyim-previous-page #'pyim-page-previous-page)
+(defalias 'pyim-next-page #'pyim-page-next-page)
+(defalias 'pyim-previous-word #'pyim-page-previous-word)
+(defalias 'pyim-next-word #'pyim-page-next-word)
+
 ;; ** 选词功能
 (define-obsolete-function-alias 'pyim-page-select-word-simple 
'pyim-select-word-simple "4.0")
 (defun pyim-select-word-simple ()



reply via email to

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