# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1164158354 0
# Node ID a48ba67a019c2528902bd95ea8d8a9bceef38bd9
# Parent  664b50fcda5bee60431270105c1528f323749ee1
("Turkish"): Sync with HEAD.

diff -r 664b50fcda5b -r a48ba67a019c lisp/language/european.el
--- a/lisp/language/european.el	Wed Nov 22 01:05:20 2006 +0000
+++ b/lisp/language/european.el	Wed Nov 22 01:19:14 2006 +0000
@@ -486,19 +486,25 @@
 	     (unibyte-display . iso-latin-5)
 	     (input-method . "turkish-postfix")
 	     (sample-text . "Turkish (T$(D+d(Brk$(D+.(Be)	Merhaba")
-	     (setup-function
-	      . (lambda ()
-		  (set-case-syntax-pair ?I ?$(D)E(B (standard-case-table))
-		  (set-case-syntax-pair ?$(D*D(B ?i (standard-case-table))))
-	     (exit-function
-	      . (lambda ()
-		  (set-case-syntax-pair ?I ?i (standard-case-table))
-		  (set-case-syntax ?$(D)E(B "w" (standard-case-table))
-		  (set-case-syntax ?$(D*D(B "w" (standard-case-table))))
+	     (setup-function . turkish-case-conversion-enable)
+	     (setup-function . turkish-case-conversion-disable)
 	     (documentation . "Support for Turkish.
 Differs from the Latin-5 environment in using the `turkish-postfix' input
 method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*D(B.")))
 
+(defun turkish-case-conversion-enable ()
+  "Set up Turkish case conversion of `i' and `I' into `$(D*D(B' and `$(D)E(B'."
+  (let ((table (standard-case-table)))
+    (set-case-syntax-pair ?$(D*D(B ?i table)
+    (set-case-syntax-pair ?I ?$(D)E(B table)))
+
+(defun turkish-case-conversion-disable ()
+  "Set up normal (non-Turkish) case conversion of `i' into `I'."
+  (let ((table (standard-case-table)))
+    (set-case-syntax-pair ?I ?i table)
+    (set-case-syntax ?$(D*D(B "w" table)
+    (set-case-syntax ?$(D)E(B "w" table)))
+
 ;; Polish ISO 8859-2 environment.
 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
 ;; Keywords: multilingual, Polish