procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(quail-point-in-conversion-region): New

Browse source 
function.
(quail-conversion-backward-delete-char): When a key sequence is
being translated, call quail-delete-last-char.
This commit is contained in:
Kenichi Handa 1998-12-15 04:35:38 +00:00
parent ebcc4e2e77
commit 407c6b9441
1 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/international/quail.el
View file

@ -1345,6 +1345,13 @@ sequence counting from the head."
;; For conversion mode.
(defsubst quail-point-in-conversion-region ()
"Return non-nil value if the point is in conversion region of Quail mode."
(let (start pos)
(and (setq start (overlay-start quail-conv-overlay))
(>= (setq pos (point)) start)
(<= pos (overlay-end quail-conv-overlay)))))
(defun quail-conversion-backward-char ()
(interactive)
(if (<= (point) (overlay-start quail-conv-overlay))
@ -1394,14 +1401,16 @@ sequence counting from the head."
(defun quail-conversion-backward-delete-char ()
(interactive)
(if (<= (point) (overlay-start quail-conv-overlay))
(quail-error "Beginning of conversion region"))
(delete-char -1)
(let ((start (overlay-start quail-conv-overlay))
(end (overlay-end quail-conv-overlay)))
(setq quail-conversion-str (buffer-substring start end))
(if (= start end)
(setq quail-converting nil))))
(if (> (length quail-current-key) 0)
(quail-delete-last-char)
(if (<= (point) (overlay-start quail-conv-overlay))
(quail-error "Beginning of conversion region"))
(delete-char -1)
(let ((start (overlay-start quail-conv-overlay))
(end (overlay-end quail-conv-overlay)))
(setq quail-conversion-str (buffer-substring start end))
(if (= start end)
(setq quail-converting nil)))))
(defun quail-do-conversion (func &rest args)
"Call FUNC to convert text in the current conversion region of Quail.