mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(quail-japanese-kanji-kkc): If the last char

Browse Source 
to convert is `n', change it to Japanese Hiragana `n' before
conversion.
This commit is contained in:
Kenichi Handa 1999-01-14 01:20:35 +00:00
parent 00a069c647
commit 73f30cdb0a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
leim/quail/japanese.el
View File

@ -80,9 +80,15 @@
(defun quail-japanese-kanji-kkc ()
(interactive)
(let ((from (overlay-start quail-conv-overlay))
(to (overlay-end quail-conv-overlay))
newfrom)
(to (overlay-end quail-conv-overlay)))
(quail-delete-overlays)
(setq quail-current-str nil)
(when (= (char-before to) ?n)
;; The last char is `n'. We had better convert it to `$B$s(B'
;; before kana-kanji conversion.
(goto-char to)
(delete-char -1)
(insert ?$B$s(B))
(let ((result (kkc-region from to)))
(move-overlay quail-conv-overlay from (point))
(setq quail-conversion-str (buffer-substring from (point)))