>From c62a1e90829c482b46e9a3a5da012e3713274f48 Mon Sep 17 00:00:00 2001
From: Elie Roux <address@hidden>
Date: Tue, 1 Jul 2014 20:51:07 +0200
Subject: [PATCH 4/7] improving comments, removing precomposed option

the precomposed option was only a switch for oM, but all fonts support it, so
no reason not to use 0F00.
---
 MIM/bo-ewts.mim | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/MIM/bo-ewts.mim b/MIM/bo-ewts.mim
index ad4787a..ee7cb31 100644
--- a/MIM/bo-ewts.mim
+++ b/MIM/bo-ewts.mim
@@ -26,17 +26,10 @@
 
 (description "Tibetan input method based on EWTS.
 This implementation is based on THDL Extended Wylie Transliteration Scheme
-Version 2.0 <http://www.thdl.org/collections/langling/ewts/ewts.php>.")
+Version 2.0 <http://www.thlib.org/reference/transliteration/#!essay=/thl/ewts>.")
 
 (title "ཀ")
 
-(variable
- (precomposed
-  (_"Flag to tell whether or not to generate precomposed characters.
-If 1, generate precomposed characters if available (e.g. \"ྲྀ\"(U+0F76).
-If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
-  0 0 1))
-
 (map
  ;; This map is used also for subjoined consonants.
  (consonant
@@ -230,7 +223,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   ("glp" "གལྤ")
   ("glb" "གལྦ")
   ("glh" "གལྷ")
-  ;; completing with ambigusous cases with d as prefix
+  ;; ambiguous cases with d as prefix
   ("drk" "དརྐ")
   ("drg" "དརྒ")
   ("drng" "དརྔ")
@@ -248,7 +241,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   ("drmy" "དརྨྱ")
   ("drgw" "དརྒྭ")
   ("drtsw" "དརྩྭ")
-  ;; completing with ambigusous cases with m as prefix
+  ;; ambiguous cases with m as prefix
   ("mrk" "མརྐ")
   ("mrg" "མརྒ")
   ("mrng" "མརྔ")
@@ -269,7 +262,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
 )
 
  (sanskrit
-  ("oM" (cond (precomposed "ༀ") (1 "ཨོཾ")))
+  ("oM" "ༀ")
   ("R+" "ཪ"))
 
  (force-stack
@@ -409,7 +402,6 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (vowel (shift after-vowel)))
   
  (consonant-stack
-  "ཀ+"
   (special-subjoined (shift after-consonant))
   (consonant (set C @-1) (delete @-1) (add C #x50) (insert C)
 	     (shift after-consonant))
@@ -420,7 +412,6 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (force-stack (shift vowel-stack)))
 
  (vowel-stack
-  "ཀ+"
   (vowel (shift after-vowel)))
 
  (dispatch-escape
@@ -428,7 +419,6 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (nil (delete BEG) (shift init) (unhandle)))
 
  (unicode
-  "ཀu"
   (t (set COUNT 0) (set UNICODE 0))
   (hexadigit (cond ((> @-1 ?9) (set UNICODE (+ (* UNICODE 16) (- @-1 55))))
 		   (1 (set UNICODE (+ (* UNICODE 16) (- @-1 48)))))
@@ -437,7 +427,6 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
 		    (shift init)))))
 
  (non-tibetan
-  "ཀA"
   (unescape (shift init))
   (nil (unhandle))))
 
-- 
2.0.0