Commit 679e7b0f authored by Yuanle Song's avatar Yuanle Song
Browse files

v2.8.0 1.<space> should convert 。 to .

parent 900bba3f
......@@ -133,7 +133,7 @@ If item is not in lst, return nil."
;; zero-input-el version
(defvar zero-input-version nil "Zero package version.")
(setq zero-input-version "2.7.1")
(setq zero-input-version "2.8.0")
;; FSM state
(defconst zero-input--state-im-off 'IM-OFF)
......@@ -770,7 +770,7 @@ Argument CH the character that was inserted."
(if (and zero-input-mode zero-input-auto-fix-dot-between-numbers)
(let ((ch (or ch (elt (this-command-keys-vector) 0))))
(zero-input-add-recent-insert-char ch)
;; if user typed "[0-9A-Z]。[0-9]", auto convert “。” to “.”
;; if user typed "[0-9A-Z]。[0-9 ]", auto convert “。” to “.”
(cl-flet ((my-digit-char-p (ch) (and (>= ch ?0) (<= ch ?9)))
(my-capital-letter-p (ch) (and (>= ch ?A) (<= ch ?Z))))
;; ring-ref index 2 is least recent inserted char.
......@@ -778,7 +778,9 @@ Argument CH the character that was inserted."
(or (my-digit-char-p ch)
(my-capital-letter-p ch)))
(equal ? (ring-ref zero-input-recent-insert-chars 1))
(my-digit-char-p (ring-ref zero-input-recent-insert-chars 0)))
(let ((ch (ring-ref zero-input-recent-insert-chars 0)))
(or (my-digit-char-p ch)
(eq ch ?\s))))
(delete-char -2)
(insert "." (car (ring-elements zero-input-recent-insert-chars))))))))
......
......@@ -12,7 +12,7 @@
;; See the License for the specific language governing permissions and
;; limitations under the License.
;; Version: 2.7.1
;; Version: 2.8.0
;; URL: https://gitlab.emacsos.com/sylecn/zero-el
;; Package-Requires: ((emacs "24.3") (s "1.2.0"))
......@@ -251,7 +251,7 @@ If item is not in lst, return nil."
;; zero-input-el version
(defvar zero-input-version nil "Zero package version.")
(setq zero-input-version "2.7.1")
(setq zero-input-version "2.8.0")
;; FSM state
(defconst zero-input--state-im-off 'IM-OFF)
......@@ -888,7 +888,7 @@ Argument CH the character that was inserted."
(if (and zero-input-mode zero-input-auto-fix-dot-between-numbers)
(let ((ch (or ch (elt (this-command-keys-vector) 0))))
(zero-input-add-recent-insert-char ch)
;; if user typed "[0-9A-Z]。[0-9]", auto convert “。” to “.”
;; if user typed "[0-9A-Z]。[0-9 ]", auto convert “。” to “.”
(cl-flet ((my-digit-char-p (ch) (and (>= ch ?0) (<= ch ?9)))
(my-capital-letter-p (ch) (and (>= ch ?A) (<= ch ?Z))))
;; ring-ref index 2 is least recent inserted char.
......@@ -896,7 +896,9 @@ Argument CH the character that was inserted."
(or (my-digit-char-p ch)
(my-capital-letter-p ch)))
(equal ? (ring-ref zero-input-recent-insert-chars 1))
(my-digit-char-p (ring-ref zero-input-recent-insert-chars 0)))
(let ((ch (ring-ref zero-input-recent-insert-chars 0)))
(or (my-digit-char-p ch)
(eq ch ?\s))))
(delete-char -2)
(insert "." (car (ring-elements zero-input-recent-insert-chars))))))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment