diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:57:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-11-12 19:57:40 +0000 |
| commit | f2b0f1f3fe9880bfa32de317f310d161c0138f6d (patch) | |
| tree | 234b92bea699c2f22bc715f78b8935b6f098f01e /lisp/language/european.el | |
| parent | 5769ad4e85677f14f15b24c677bdeed040fa8f77 (diff) | |
| download | emacs-f2b0f1f3fe9880bfa32de317f310d161c0138f6d.tar.gz | |
(turkish-case-conversion-enable)
(turkish-case-conversion-disable): New functions.
("Turkish" lang env): Use them.
Diffstat (limited to 'lisp/language/european.el')
| -rw-r--r-- | lisp/language/european.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lisp/language/european.el b/lisp/language/european.el index b070fe75607..54d0f86aaf9 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -368,7 +368,22 @@ and it selects the Spanish tutorial.")) (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> |