Mercurial > emacs

changeset 73945:014379fe3697

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(turkish-case-conversion-enable) (turkish-case-conversion-disable): New functions. ("Turkish" lang env): Use them.
author Richard M. Stallman <rms@gnu.org>
date Sun, 12 Nov 2006 19:57:40 +0000
parents dba240f0d108
children fc54af724e3c
files lisp/language/european.el
diffstat 1 files changed, 16 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/european.el	Sun Nov 12 19:56:51 2006 +0000
+++ b/lisp/language/european.el	Sun Nov 12 19:57:40 2006 +0000
@@ -368,7 +368,22 @@
 	     (unibyte-display . iso-latin-5)
 	     (input-method . "turkish-postfix")
 	     (sample-text . "Turkish (T,M|(Brk,Mg(Be)	Merhaba")
-	     (documentation . t)))
+	     (documentation . t)
+	     (setup-function . turkish-case-conversion-enable)
+	     (exit-function . turkish-case-conversion-disable)))
+
+(defun turkish-case-conversion-enable ()
+  "Set up Turkish case conversion of `i' and `I' into `$,1 P(B' and `$,1 Q(B'."
+  (let ((table (standard-case-table)))
+    (set-case-syntax-pair ?$,1 P(B ?i table)
+    (set-case-syntax-pair ?I ?$,1 Q(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 ?$,1 P(B "w" table)
+    (set-case-syntax ?$,1 Q(B "w" table)))
 
 ;; Polish ISO 8859-2 environment.
 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>