masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-19 02:10:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

("Turkish"): Sync with HEAD.

Browse source
This commit is contained in:
Kenichi Handa 2006-11-22 01:19:14 +00:00
parent 2bb915b877
commit 09e5eab54c
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/language/european.el
View file

@ -486,19 +486,25 @@ and it selects the Spanish tutorial."))
(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