/[emacs]/emacs/leim/quail/japanese.el
ViewVC logotype

Diff of /emacs/leim/quail/japanese.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by lute, Mon Jul 4 15:27:32 2005 UTC revision 1.28 by handa, Fri Jul 8 00:52:05 2005 UTC
# Line 79  Line 79 
79    (when (= (char-before (overlay-end quail-conv-overlay)) ?n)    (when (= (char-before (overlay-end quail-conv-overlay)) ?n)
80      ;; The last char is `n'.  We had better convert it to `ん'      ;; The last char is `n'.  We had better convert it to `ん'
81      ;; before kana-kanji conversion.      ;; before kana-kanji conversion.
82      (goto-char (overlay-end quail-conv-overlay))      (goto-char (1- (overlay-end quail-conv-overlay)))
83      (delete-char -1)      (insert ?ん)
84      (insert ?ん))      (delete-char 1))
85    (let* ((from (copy-marker (overlay-start quail-conv-overlay)))    (let* ((from (copy-marker (overlay-start quail-conv-overlay)))
86           (len (- (overlay-end quail-conv-overlay) from)))           (len (- (overlay-end quail-conv-overlay) from)))
87      (quail-delete-overlays)      (quail-delete-overlays)

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26