branch: externals/pyim
commit 77745ccbee904663802d9467a661dc74261ee423
Author: Feng Shu <tuma...@163.com>
Commit: Feng Shu <tuma...@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 ()
