hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

(de)activate input-method when toggling insert state

Browse source 
fix #68
This commit is contained in:
Jean-Philippe Bernardy 2019-08-02 11:59:11 +02:00
parent e482b889cc
commit a1df9a6d8d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
boon-core.el
View file

@ -107,8 +107,16 @@ optional list of changes as its last argument."
(delete-region (+ p0 (nth 0 change)) (+ p0 (nth 0 change) (nth 1 change))) (delete-region (+ p0 (nth 0 change)) (+ p0 (nth 0 change) (nth 1 change)))
(insert (nth 2 change))))) (insert (nth 2 change)))))
(defvar-local boon-input-method nil
"The input method to activate
when going to insert state. (When leaving insert state the
input-method is reset to nil.)")
(defun boon-set-state (state) (defun boon-set-state (state)
"Set the boon state (as STATE) for this buffer." "Set the boon state (as STATE) for this buffer."
(when boon-insert-state
(setq-local boon-input-method current-input-method)
(set-input-method nil))
(setq boon-command-state nil) (setq boon-command-state nil)
(setq boon-insert-state nil) (setq boon-insert-state nil)
(setq boon-special-state nil) (setq boon-special-state nil)
@ -123,6 +131,7 @@ optional list of changes as its last argument."
(setq cursor-type boon-command-cursor-type)) (setq cursor-type boon-command-cursor-type))
(boon-special-state) (boon-special-state)
(boon-insert-state (boon-insert-state
(set-input-method boon-input-method)
(deactivate-mark) (deactivate-mark)
(save-excursion (save-excursion
(when (not (bolp)) (when (not (bolp))