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 | 0fd5d8e4a6f2b716a06a02e65510b7df36e2d3b0 (patch) | |
tree | 6823b37c1bf53adfe662920d945916682ddf6065 | |
parent | 712334a6b1c336b42524788381701a4a18b3731b (diff) | |
download | emacs-0fd5d8e4a6f2b716a06a02e65510b7df36e2d3b0.tar.gz |
(turkish-case-conversion-enable)
(turkish-case-conversion-disable): New functions.
("Turkish" lang env): Use them.
-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> |