From e338295e19e84f150339c57a12a599a822f72e3c Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Wed, 1 Feb 2017 23:02:01 +0000
Subject: [PATCH] =?UTF-8?q?ipa:=20=C9=AC=20(vls=20alv=20lat=20frc).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 phsource/ph_ipa   | 23 ++++++++++++++++++++++-
 phsource/phonemes | 20 +-------------------
 2 files changed, 23 insertions(+), 20 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index e44f4675..56789dcc 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -17,7 +17,7 @@
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib frc |     |     |     |     |     |     | s   | z   | S   | Z   | s`  | z`  | s\  | z\  |     |     |     |     |     |     |     |     |     |     |
 // | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     |     | j\  |     | G   |     | R   |     |     |     |     |
-// | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
+// | lat frc |     |     |     |     |     |     | K   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     | l   |     |     |     | l`  |     |     |     | L   |     | L\  |     |     |     |     |     |     |
 // | flp     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -600,6 +600,27 @@ phoneme s_j
   WAV(ufric/s_pzd)
 endphoneme
 
+phoneme K
+  vls alv lat frc
+  ipa ɬ
+  lengthmod 3
+
+  NextVowelStarts
+    VowelStart(l/l@)
+    VowelStart(l/la)
+    VowelStart(l/le)
+    VowelStart(l/li, -10)
+    VowelStart(l/lo)
+    VowelStart(l/lu)
+  EndSwitch
+
+  IF prevPh(isVowel) THEN
+    VowelEnding(l/xl, -40)
+  ENDIF
+
+  WAV(ufric/l#, 60)
+endphoneme
+
 phoneme z
   vcd alv sib frc
   ipa z
diff --git a/phsource/phonemes b/phsource/phonemes
index c8a10eb5..660a2c80 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -750,27 +750,9 @@ phoneme S;
 endphoneme
 
 phoneme l#   // Lateral fricative (eg. Welsh "ll")
-  vls alv frc
-  ipa ɬ
-  lengthmod 3
-
-  NextVowelStarts
-    VowelStart(l/l@)
-    VowelStart(l/la)
-    VowelStart(l/le)
-    VowelStart(l/li, -10)
-    VowelStart(l/lo)
-    VowelStart(l/lu)
-  EndSwitch
-
-  IF prevPh(isVowel) THEN
-    VowelEnding(l/xl, -40)
-  ENDIF
-
-  WAV(ufric/l#, 60)
+  import_phoneme ipa/K
 endphoneme
 
-
 phoneme C // German i**ch**
   vls pal frc
   lengthmod 3