[Emacs-diffs] Changes to emacs/leim/quail/japanese.el

[Kenichi Handa]

Index: emacs/leim/quail/japanese.el
diff -c emacs/leim/quail/japanese.el:1.27 emacs/leim/quail/japanese.el:1.28
*** emacs/leim/quail/japanese.el:1.27   Mon Jul  4 15:27:32 2005
--- emacs/leim/quail/japanese.el        Fri Jul  8 00:52:05 2005
***************
*** 79,87 ****
    (when (= (char-before (overlay-end quail-conv-overlay)) ?n)
      ;; The last char is `n'.  We had better convert it to `$B$s(B'
      ;; before kana-kanji conversion.
!     (goto-char (overlay-end quail-conv-overlay))
!     (delete-char -1)
!     (insert ?$B$s(B))
    (let* ((from (copy-marker (overlay-start quail-conv-overlay)))
         (len (- (overlay-end quail-conv-overlay) from)))
      (quail-delete-overlays)
--- 79,87 ----
    (when (= (char-before (overlay-end quail-conv-overlay)) ?n)
      ;; The last char is `n'.  We had better convert it to `$B$s(B'
      ;; before kana-kanji conversion.
!     (goto-char (1- (overlay-end quail-conv-overlay)))
!     (insert ?$B$s(B)
!     (delete-char 1))
    (let* ((from (copy-marker (overlay-start quail-conv-overlay)))
         (len (- (overlay-end quail-conv-overlay) from)))
      (quail-delete-overlays)