<h2>Edit File: ta-lk-renganathan.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; ta-lk-renganathan.mim -- Tamil input method with Renganathan layout
;; Copyright (C) 2008
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n database; a sub-part of the m17n
;; library.

;; The m17n library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 2.1 of
;; the License, or (at your option) any later version.

;; The m17n library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with the m17n library; if not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

(input-method ta lk-renganathan (version &quot;1.6.0&quot;))

(description &quot;Tamil input method with Renganathan layout.
For the detail, see the page: &lt;http://www.locallanguages.lk/&gt;
&quot;)

(title &quot;க&quot;)

(variable
 (use-surrounding-text (_&quot;Surrounding text vs. preedit
If 1, try to use surrounding text.  Otherwise, use preedit.&quot;)
		       0 1 0))

(macro
 (pre-proc
  (cond
   ((= @-1 0x200C)
    (delete @-1)))
  (cond
   ((= @+0 0x200C)
    (delete @+1))))

 (post-proc
  (cond
   ((&amp; (&gt;= @-1 0x0B95) (&lt;= @-1 0x0BB9)	; a consonant
       (&gt;= @+0 0x0BC6) (&lt;= @+0 0x0BCC))	; a left/two-part vowel sign
    ;; prevent syllable formation
    0x200C)

   ((&amp; (| (&lt; @-2 0x0B95) (&gt; @-2 0x0BB9))  ; not a consonant
       (&gt;= @-1 0x0BC6) (&lt;= @-1 0x0BCC)	  ; a left/two-part vowel sign
       (&gt;= @+0 0x0B95) (&lt;= @+0 0x0BB9)	  ; a consonant
       (| (&lt; @+1 0x0BBE) (&gt; @+1 0x0BD7))) ; not a vowel sign
    ;; exchange @-1 and @+0
    (set vs @-1)
    (set c @+0)
    (delete @-1)
    (delete @+1)
    (insert c)
    (insert vs))

   ((&amp; (= @-1 0x200C)
       (| (&lt; @-2 0x0B95) (&gt; @-2 0x0BB9)	; not a constant
	  (&lt; @+0 0x0BC6) (&gt; @+0 0x0BCC))) ; not a left/two-part vowel sign
    ;; delete unnecessary ZWNJ
    (delete @-1))

   ((&amp; (= @+0 0x200C)
       (| (&lt; @-1 0x0B95) (&gt; @-1 0x0BB9)	; not a constant
	  (&lt; @+1 0x0BC6) (&gt; @+1 0x0BCC))) ; not a left/two-part vowel sign
    ;; delete unnecessary ZWNJ
    (delete @+1))))

 (consonant-proc
  (move @&lt;)
  (cond
   ((= @-1 0x200C)
    (delete @-1)))
  (set vs 0)
  (cond
   ((&amp; (&gt;= @-1 0x0BC6) (&lt;= @-1 0x0BC8))	; a left vowel sign
    (cond
     ((= @-2 0x200C)
      (set vs @-1)
      (delete @-2))
     ((| (&lt; @-2 0x0B95) (&gt; @-2 0x0BB9))	; not a consonant
      (set vs @-1)
      (delete @-1)))))

  (move @&gt;)
  (cond
   ((&amp; (= @+0 0x200C)
       (| (&lt; @+1 0x0BC6) (&gt; @+1 0x0BCC))) ; not a left vowel sign
    (delete @+1)))

  (cond
   ((= vs 0x0BC6)
    (cond
     ((= @+0 0x0BBE)
      (delete @+1)
      0x0BCA)
     ((| (= @+0 0x0BB3) (= @+0 0x0BD7))
      (delete @+1)
      0x0BCC)
     (1
      0x0BC6)))
   ((= vs 0x0BC7)
    (cond
     ((= @+0 0x0BBE)
      (delete @+1)
      0x0BCB)
     (1
      0x0BC7)))
   ((= vs 0x0BC8)
    0x0BC8))

  (cond
   ((&amp; (&gt;= @-1 0x0B95) (&lt;= @-1 0x0BB9)	; a consonant
       (&gt;= @+0 0x0BC6) (&lt;= @+0 0x0BCC))	; a left vowel sign
    0x200C)))

 (check-surrounding-text
  (cond
   ((&amp; (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa follows
    0x0B95 0x0BCD 0x0BB7
    (delete @+3))
   ((&amp; (&gt;= @+0 0x0B95) (&lt;= @+0 0x0BB9))	; a consonant follows
    (set c @+0)
    (insert c)
    (delete @+1))
   ((&amp; (&gt;= @-1 0x0B95) (&lt;= @-1 0x0BB9))	; a consonant precedes
    0x200C)))
 )

(map
 (starter
  (&quot;q&quot;) (&quot;w&quot;) (&quot;e&quot;) (&quot;r&quot;) (&quot;t&quot;) (&quot;y&quot;) (&quot;u&quot;) (&quot;i&quot;) (&quot;o&quot;) (&quot;p&quot;) (&quot;[&quot;) (&quot;]&quot;)
  (&quot;a&quot;) (&quot;s&quot;) (&quot;d&quot;) (&quot;f&quot;) (&quot;g&quot;) (&quot;h&quot;) (&quot;j&quot;) (&quot;k&quot;) (&quot;l&quot;) (&quot;;&quot;)
  (&quot;z&quot;) (&quot;x&quot;) (&quot;c&quot;) (&quot;v&quot;) (&quot;b&quot;) (&quot;n&quot;) (&quot;m&quot;) (&quot;`&quot;)
  (&quot;Q&quot;) (&quot;W&quot;) (&quot;E&quot;) (&quot;R&quot;) (&quot;T&quot;) (&quot;Y&quot;) (&quot;U&quot;) (&quot;I&quot;) (&quot;O&quot;) (&quot;P&quot;) (&quot;{&quot;) (&quot;}&quot;)
  (&quot;A&quot;) (&quot;S&quot;) (&quot;D&quot;) (&quot;F&quot;) (&quot;G&quot;) (&quot;H&quot;) (&quot;J&quot;) (&quot;K&quot;) (&quot;L&quot;)
  (&quot;Z&quot;) (&quot;X&quot;) (&quot;C&quot;) (&quot;V&quot;) (&quot;B&quot;) (&quot;N&quot;) (&quot;M&quot;)
  ((A-q)) ((A-w)) ((A-e)) ((A-r)) ((A-t)) ((A-y)) ((A-u)) ((A-i))
  ((A-1)) ((A-2)) ((A-3)) ((A-4)) ((A-5)) ((A-6)) ((A-7)) ((A-8)) ((A-9))
  ((A-0)) ((A-`)) ((A-=)) ((A--))
  ((BackSpace)) ((Delete)))

 (composite
  (&quot;f;&quot; &quot;க்&quot;)				; 0B95 0BCD
  (&quot;f;W&quot; &quot;க்‌ஷ&quot;)			; 0B95 0BCD 200C 0BB7
  (&quot;Zh&quot; &quot;ஒளா&quot;)				; 0B92 0BB3 0BBE
  (&quot;Zp&quot; &quot;ஒளி&quot;)				; 0B92 0BB3 0BBF
  (&quot;ZP&quot; &quot;ஒளீ&quot;)				; 0B92 0BB3 0BC0
  (&quot;Z[&quot; &quot;ஒளு&quot;)				; 0B92 0BB3 0BC1
  (&quot;Z{&quot; &quot;ஒளூ&quot;)				; 0B92 0BB3 0BC2
  (&quot;Z;&quot; &quot;ஒள்&quot;)				; 0B92 0BB3 0BCD
  (&quot;xs&quot; &quot;ஔ&quot;)				; 0B94
  (&quot;xsh&quot; &quot;ஒளா&quot;)				; 0B92 0BB3 0BBE
  (&quot;xsp&quot; &quot;ஒளி&quot;)				; 0B92 0BB3 0BBF
  (&quot;xsP&quot; &quot;ஒளீ&quot;)				; 0B92 0BB3 0BC0
  (&quot;xs[&quot; &quot;ஒளு&quot;)				; 0B92 0BB3 0BC1
  (&quot;xs{&quot; &quot;ஒளூ&quot;)				; 0B92 0BB3 0BC2
  (&quot;xs;&quot; &quot;ஒள்&quot;)				; 0B92 0BB3 0BCD
  )

 (consonant
  (&quot;f&quot; &quot;க&quot;)				; 0B95
  (&quot;q&quot; &quot;ங&quot;)				; 0B99
  (&quot;r&quot; &quot;ச&quot;)				; 0B9A
  (&quot;E&quot; &quot;ஜ&quot;)				; 0B9C
  (&quot;]&quot; &quot;ஞ&quot;)				; 0B9E
  (&quot;l&quot; &quot;ட&quot;)				; 0B9F
  (&quot;z&quot; &quot;ண&quot;)				; 0BA3
  (&quot;j&quot; &quot;த&quot;)				; 0BA4
  (&quot;e&quot; &quot;ந&quot;)				; 0BA8
  (&quot;d&quot; &quot;ன&quot;)				; 0BA9
  (&quot;g&quot; &quot;ப&quot;)				; 0BAA
  (&quot;k&quot; &quot;ம&quot;)				; 0BAE
  (&quot;a&quot; &quot;ய&quot;)				; 0BAF
  (&quot;u&quot; &quot;ர&quot;)				; 0BB0
  (&quot;w&quot; &quot;ற&quot;)				; 0BB1
  (&quot;y&quot; &quot;ல&quot;)				; 0BB2
  (&quot;o&quot; &quot;ழ&quot;)				; 0BB4
  (&quot;t&quot; &quot;வ&quot;)				; 0BB5
  (&quot;U&quot; &quot;ஶ&quot;)				; 0BB6
  (&quot;Q&quot; &quot;ஸ&quot;)				; 0BB8
  (&quot;R&quot; &quot;ஹ&quot;)				; 0BB9

  (&quot;T&quot; &quot;க்ஷ&quot;)				; 0B95 0BCD 0BB7
  )

 (sign
  (&quot;p&quot; &quot;ி&quot;)				; 0BBF
  (&quot;P&quot; &quot;ீ&quot;)				; 0BC0
  (&quot;[&quot; &quot;ு&quot;)				; 0BC1
  (&quot;{&quot; &quot;ூ&quot;)				; 0BC2
  (&quot;;&quot; &quot;்&quot;)				; 0BCD
  )

 (lla
  (&quot;s&quot;))

 (ssa
  (&quot;W&quot;))

 (aa
  (&quot;h&quot;))

 (e
  (&quot;n&quot;))

 (ee
  (&quot;N&quot;))

 (ai
  (&quot;i&quot;))

 (backspace
  ((BackSpace)))

 (delete
  ((Delete)))

 (misc
  (&quot;`&quot; &quot;ஃ&quot;)				; 0B83
  (&quot;m&quot; &quot;அ&quot;)				; 0B85
  (&quot;M&quot; &quot;ஆ&quot;)				; 0B86
  (&quot;b&quot; &quot;இ&quot;)				; 0B87
  (&quot;B&quot; &quot;ஈ&quot;)				; 0B88
  (&quot;c&quot; &quot;உ&quot;)				; 0B89
  (&quot;C&quot; &quot;ஊ&quot;)				; 0B8A
  (&quot;v&quot; &quot;எ&quot;)				; 0B8E
  (&quot;V&quot; &quot;ஏ&quot;)				; 0B8F
  (&quot;I&quot; &quot;ஐ&quot;)				; 0B90
  (&quot;x&quot; &quot;ஒ&quot;)				; 0B92
  (&quot;X&quot; &quot;ஓ&quot;)				; 0B93
  (&quot;Z&quot; &quot;ஔ&quot;)				; 0B94

  (&quot;O&quot; &quot;ௐ&quot;)				; 0BD0

  ((A-0) &quot;௦&quot;)				; 0BE6
  ((A-1) &quot;௧&quot;)				; 0BE7
  ((A-2) &quot;௨&quot;)				; 0BE8
  ((A-3) &quot;௩&quot;)				; 0BE9
  ((A-4) &quot;௪&quot;)				; 0BEA
  ((A-5) &quot;௫&quot;)				; 0BEB
  ((A-6) &quot;௬&quot;)				; 0BEC
  ((A-7) &quot;௭&quot;)				; 0BED
  ((A-8) &quot;௮&quot;)				; 0BEE
  ((A-9) &quot;௯&quot;)				; 0BEF
  ((A-q) &quot;௰&quot;)				; 0BF0
  ((A-w) &quot;௱&quot;)				; 0BF1
  ((A-e) &quot;௲&quot;)				; 0BF2
  ((A-y) &quot;௳&quot;)				; 0BF3
  ((A-u) &quot;௴&quot;)				; 0BF4
  ((A-i) &quot;௵&quot;)				; 0BF5
  ((A-r) &quot;௶&quot;)				; 0BF6
  ((A-t) &quot;௷&quot;)				; 0BF7
  ((A-`) &quot;௸&quot;)				; 0BF8
  ((A-=) &quot;௹&quot;)				; 0BF9
  ((A--) &quot;௺&quot;)				; 0BFA

  (&quot;Y&quot; &quot;ஶ்ரீ&quot;)				; 0BB6 0BCD 0BB0 0BC0

  (&quot;}&quot; &quot;;&quot;)				; 003B

  (&quot;A&quot; &quot;&quot;)
  (&quot;S&quot; &quot;&quot;)
  (&quot;D&quot; &quot;&quot;)
  (&quot;F&quot; &quot;&quot;)
  (&quot;G&quot; &quot;&quot;)
  (&quot;H&quot; &quot;&quot;)
  (&quot;J&quot; &quot;&quot;)
  (&quot;K&quot; &quot;&quot;)
  (&quot;L&quot; &quot;&quot;)
  ))

(state
 (init
  (starter
   (pushback 1)
   (cond
    ((&amp; (= use-surrounding-text 1) (= @-0 -1))
     (shift surrounding-text))
    (1
     (shift preedit)))))

 (surrounding-text
  (consonant
   (consonant-proc)
   (commit))

  (lla
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

   (cond
    ((&amp; (&gt;= @-2 0x0B95) (&lt;= @-2 0x0BB9)	; a consonant
	(= @-1 0x0BC6))
     (delete @-1)
     0x0BCC
     (cond
      ((= @+0 0x200C)
       (delete @+1))))
    ((= @-1 0x0B92)
     (delete @-1)
     0x0B94
     (cond
      ((= @+0 0x200C)
       (delete @+1))))
    (1
     0x0BB3
     (consonant-proc)))

   (commit))

  (ssa
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

   (cond
    ((&amp; (= @-2 0x0B95) (= @-1 0x0BCD))
     0x200C))
   0x0BB7
   (consonant-proc)

   (commit))

  (sign
   (cond
    ((= @+0 0x200C)
     (delete @+1)))
   (move @&lt;)
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

   (cond
    ((= @-1 0x0B94)
     (delete @-1)
     0x0B92 0x0BB3)
    ((= @-1 0x0BCC)
     (delete @-1)
     0x0BC6 0x0BB3))

   (commit))

  (aa
   (pre-proc)

   (cond
    ((= @-1 0x0BC6)
     (cond
      ((&amp; (| (&lt; @-3 0x0B95) (&gt; @-3 0x0BB9)) ; not a consonant
	  (= @-2 0x200C))
       (delete @-2))
      (1
       (delete @-1)))
     0x0BCA)

    ((= @-1 0x0BC7)
     (cond
      ((&amp; (| (&lt; @-3 0x0B95) (&gt; @-3 0x0BB9)) ; not a consonant
	  (= @-2 0x200C))
       (delete @-2))
      (1
       (delete @-1)))
     0x0BCB)

    ((= @-1 0x0B94)
     (delete @-1)
     0x0B92 0x0BB3 0x0BBE)

    ((= @-1 0x0BCC)
     (delete @-1)
     0x0BC6 0x0BB3 0x0BBE)

    (1
     0x0BBE))

   (commit))

  (e
   (pre-proc)

   (cond
    ;; additional check-surrounding-text for this vowel sign
    ((&amp; (&gt;= @+0 0x0B95) (&lt;= @+0 0x0BB9)	; a consonant
	(= @+1 0x0BB3))
     (set c @+0)
     (delete @+2)
     (insert c)
     0x0BCC)

    ;; ordinary check-surrounding-text
    (1
     (check-surrounding-text)
     (cond
      ((= @+0 0x0BBE)
       (delete @+1)
       0x0BCA)
      ((= @+0 0x0BD7)
       (delete @+1)
       0x0BCC)
      (1
       0x0BC6))))

   (commit))

  (ee
   (pre-proc)

   (check-surrounding-text)
   (cond
    ((= @+0 0x0BBE)
     (delete @+1)
     0x0BCB)
    (1
     0x0BC7))

   (commit))

  (ai
   (pre-proc)

   (check-surrounding-text)
   0x0BC8

   (commit))

  (backspace
   (pre-proc)

   (cond
    ((&amp; (&gt;= @-4 0x0B95) (&lt;= @-4 0x0BB9)	; a consonant
	(= @-3 0x0BC6)
	(= @-2 0x0BB3)
	(| (&amp; (&gt;= @-1 0x0BBE) (&lt;= @-1 0x0BC2)) ; a right/above/below vowel sign
	   (= @-1 0x0BCD)))
     (delete @-3)
     0x0BCC)

    ((&amp; (= @-4 0x0BB6) (= @-3 0x0BCD) (= @-2 0x0BB0) (= @-1 0x0BC0)) ; shrii
     (delete @-4))

    ((&amp; (= @-3 0x0B92)
	(= @-2 0x0BB3)
	(| (&amp; (&gt;= @-1 0x0BBE) (&lt;= @-1 0x0BC2)) ; a right/above/below vowel sign
	   (= @-1 0x0BCD)))
     (delete @-3)
     0x0B94)

    ((&amp; (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa
     (delete @-3))

    ((| (= @-1 0x0BCA) (= @-1 0x0BCC))	; vowel sign e/ai
     (delete @-1)
     0x0BC6)

    ((= @-1 0x0BCB)			; vowel sign ee
     (delete @-1)
     0x0BC7)

    ((&amp; (&gt;= @-1 0x0BC6) (&lt;= @-1 0x0BC8)) ; a left vowel sign
     (set vs @-1)
     (delete @-1)
     (cond
      ((&amp; (&gt;= @-1 0x0B95) (&lt;= @-1 0x0BB9)) ; a consonant
       (cond
	((&amp; (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa
	 (delete @-3))
	(1
	 (delete @-1)))

       (cond
	((&amp; (&gt;= @+0 0x0B95) (&lt;= @+0 0x0BB9)    ; a consonant follows
	    (| (&lt; @+1 0x0BBE) (&gt; @+1 0x0BD7))) ; not a vowel sign
	 ;; visual  : E C1 | C2  -&gt;  E C2 |
	 ;; logical : C1 E | C2  -&gt;  C2 E |
	 (cond
	  ((&amp; (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa
	   (delete @+3)
	   0x0B95 0x0BCD 0x0BB7)
	  (1
	   (set c @+0)
	   (delete @+1)
	   (insert c)))
	 (insert vs))

	((&amp; (&gt;= @-1 0x0B95) (&lt;= @-1 0x0BB9)) ; a consonant precedes
	 ;; visual  : C1 E C2 | X  -&gt;  C1 E | X
	 ;; logical : C1 C2 E | X  -&gt;  C1 N E | X
	 0x200C
	 (insert vs))

	(1
	 ;; visual  : X1 E C | X2  -&gt;  X1 E | X2
	 ;; logical : X1 C E | X2  -&gt;  X1 E | X2
	 (insert vs))))

      ((= @-1 0x200C)
       (delete @-1))))

    (1
     (delete @-1)))

   (post-proc)
   (commit))

  (delete
   (pre-proc)

   (cond
    ((&amp; (= @+0 0x0BB6) (= @+1 0x0BCD) (= @+2 0x0BB0) (= @+3 0x0C0)) ; shrii
     (delete @+4))

    ((&amp; (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa
     (cond
      ((&amp; (&gt;= @+3 0x0BC6) (&lt;= @+3 0x0BC8)) ; a left vowel sign
       (delete @+4)
       0x0B95 0x0BCD 0x0BB7)
      ((| (= @+3 0x0BCA) (= @+3 0x0BCB)) ; vowel sign e/ee
       (delete @+4)
       0x0B95 0x0BCD 0x0BB7 0x0BBE)
      ((| (&amp; (&gt;= @+3 0x0BBE) (&lt;= @+3 0x0BC2)) ; vowel sign aa .. uu
	  (= @+3 0x0BCC)		      ; vowel sign ai
	  (= @+3 0x0BCD))		      ; virama
       (delete @+4))
      (1
       (delete @+3))))

    ((&amp; (&gt;= @+0 0x0B95) (&lt;= @+0 0x0BB9)) ; a consonant
     (set c @+0)
     (cond
      ((&amp; (&gt;= @+1 0x0BC6) (&lt;= @+1 0x0BC8)) ; a left vowel sign
       (delete @+2)
       (insert c))
      ((| (= @+1 0x0BCA) (= @+1 0x0BCB)) ; vowel sign e/ee
       (delete @+2)
       (insert c)
       0x0BBE)
      ((| (&amp; (&gt;= @+1 0x0BBE) (&lt;= @+1 0x0BC2)) ; vowel sign aa .. uu
	  (= @+1 0x0BCC)		      ; vowel sign ai
	  (= @+1 0x0BCD))		      ; virama
       (delete @+2))
      (1
       (delete @+1))))

    ((| (= @+0 0x0BCA) (= @+0 0x0BCB))	; vowel sign e/ee
     (delete @+1)
     0x0BBE)

    ((= @+0 0x0BCC)			; vowel sign ai
     (delete @+1)
     0x0BB3)

    (1
     (delete @+1)))

   (post-proc)
   (commit))

  (misc
   (move @&lt;)
   (cond
    ((= @-1 0x200C)
     (delete @-1)))
   (move @&gt;)
   (cond
    ((= @+0 0x200C)
     (delete @+1)))
   (commit)))

 (preedit
  (consonant (shift c-state))
  (composite (commit))
  (sign (commit))
  (misc (commit))
  (lla &quot;ள&quot; (shift c-state))		; 0BB3
  (ssa &quot;ஷ&quot; (shift c-state))		; 0BB7
  (aa &quot;ா&quot; (commit))			; 0BBE
  (e  &quot;ெ&quot; (shift e-state))		; 0BC6
  (ee &quot;ே&quot; (shift ee-state))		; 0BC7
  (ai &quot;ை&quot; (shift ai-state))		; 0BC8
  (nil
   (unhandle)))

 (c-state
  (sign (shift c-s-state))
  (aa &quot;ா&quot; (shift c-s-state))		; 0BBE
  (backspace (undo)))

 (c-s-state
  (sign
   (cond
    ((= @-2 0x0BCC)
     (move @-)
     (delete @-)
     0x0BC6 0x0BB3
     (move @+))
    (1
     (commit)
     (shift preedit))))
  (aa
   &quot;ா&quot;
   (cond
    ((= @-2 0x0BCC)
     (move @-)
     (delete @-)
     0x0BC6 0x0BB3
     (move @+))
    (1
     (commit)
     (shift preedit))))
  (backspace (undo)))

 (e-state
  (consonant (move @&lt;) (delete @+) (move @&gt;) &quot;ெ&quot; (shift e-c-state))
  (lla (delete @-) &quot;ளெ&quot; (shift e-c-state))
  (ssa (delete @-) &quot;ஷெ&quot; (shift e-c-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

 (ee-state
  (consonant (move @&lt;) (delete @+) (move @&gt;) &quot;ே&quot; (shift ee-c-state))
  (lla (delete @-) &quot;ளே&quot; (shift ee-c-state))
  (ssa (delete @-) &quot;ஷே&quot; (shift ee-c-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

 (ai-state
  (consonant (move @&lt;) (delete @+) (move @&gt;) &quot;ை&quot; (shift c-s-state))
  (lla (delete @-) &quot;ளை&quot; (shift c-s-state))
  (ssa (delete @-) &quot;ஷை&quot; (shift c-s-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

 (e-c-state
  (aa (delete @-) &quot;ொ&quot; (shift c-s-state))
  (lla (delete @-) &quot;ௌ&quot; (shift c-s-state))
  (backspace (delete @&lt;) &quot;ெ&quot; (shift e-state)))

 (ee-c-state
  (aa (delete @-) &quot;ோ&quot; (shift c-s-state))
  (backspace (delete @&lt;) &quot;ே&quot; (shift ee-state)))
 )

;; Local Variables:
;; coding: utf-8
;; mode: emacs-lisp
;; End:
</textarea><br><input type="hidden" name="edit_file" value="ta-lk-renganathan.mim"><input type="submit" value="Save"></form>