From 1220d84b3385f0e6470b9c4e47d2a81c3c186b24 Mon Sep 17 00:00:00 2001
From: Yuanle Song <sylecn@gmail.com>
Date: Fri, 4 Oct 2019 16:01:49 +0800
Subject: [PATCH] v1.1.0 make zero-page-up/zero-page-down commands
so that user can bind any key to them.
---
.gitignore | 1 +
zero-framework.el | 4 +++-
2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/.gitignore b/.gitignore
index c4c4ffc..5737aeb 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
*.zip
+*.elc
diff --git a/zero-framework.el b/zero-framework.el
index e92c133..89daa5a 100644
--- a/zero-framework.el
+++ b/zero-framework.el
@@ -127,7 +127,7 @@ if item is not in lst, return nil"
;; zero-el version
(defvar zero-version nil "zero-el package version")
-(setq zero-version "1.0.3")
+(setq zero-version "1.1.0")
;; FSM state
(defconst *zero-state-im-off* 'IM-OFF)
@@ -370,6 +370,7 @@ return ch's Chinese punctuation if ch is converted. return nil otherwise"
(defun zero-page-up ()
"if not at first page, show candidates on previous page."
+ (interactive)
(when (> zero-current-page 0)
(setq zero-current-page (1- zero-current-page))
(zero-show-candidates)))
@@ -383,6 +384,7 @@ return ch's Chinese punctuation if ch is converted. return nil otherwise"
(defun zero-page-down ()
"if there is still candidates to be displayed, show candidates on next page."
+ (interactive)
(let ((len (length zero-candidates))
(new-fetch-size (* zero-candidates-per-page (+ 2 zero-current-page))))
(if (and (< len new-fetch-size)
--
GitLab