/[emacs]/emacs/lisp/language/european.el
ViewVC logotype

Diff of /emacs/lisp/language/european.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69.2.8 by fx, Thu Jun 27 21:54:39 2002 UTC revision 1.69.2.9 by fx, Sat Sep 7 23:56:18 2002 UTC
# Line 348  Latin-9 is sometimes nicknamed `Latin-0' Line 348  Latin-9 is sometimes nicknamed `Latin-0'
348    :mime-charset 'cp857)    :mime-charset 'cp857)
349  (define-coding-system-alias 'ibm857 'cp857)  (define-coding-system-alias 'ibm857 'cp857)
350    
351    (define-coding-system 'cp858
352      "Codepage 858 (Multilingual Latin I + Euro)"
353      :coding-type 'charset
354      :mnemonic ?D
355      :charset-list '(cp858)
356      :mime-charset 'cp858)
357    
358  (define-coding-system 'cp860  (define-coding-system 'cp860
359    "DOS codepage 860 (Portuguese)"    "DOS codepage 860 (Portuguese)"
360    :coding-type 'charset    :coding-type 'charset
# Line 479  but it selects the Dutch tutorial and in Line 486  but it selects the Dutch tutorial and in
486               (unibyte-display . iso-latin-5)               (unibyte-display . iso-latin-5)
487               (input-method . "turkish-postfix")               (input-method . "turkish-postfix")
488               (sample-text . "Turkish (T,A|(Brk,Ag(Be)       Merhaba")               (sample-text . "Turkish (T,A|(Brk,Ag(Be)       Merhaba")
489               (documentation . t)))               (setup-function
490                  . (lambda ()
491                      (set-case-syntax-pair ?I ?,C9(B (standard-case-table))
492                      (set-case-syntax-pair ?,C)(B ?i (standard-case-table))))
493                 (exit-function
494                  . (lambda ()
495                      (set-case-syntax-pair ?I ?i (standard-case-table))
496                      (set-case-syntax ?,C9(B "w" (standard-case-table))
497                      (set-case-syntax ?,C)(B "w" (standard-case-table))))
498                 (documentation . "Support for Turkish.
499    Differs from the Latin-5 environment in using the `turkish-postfix' input
500    method and applying Turkish case rules for the characters i, I, ,C9(B, ,C)(B.")))
501    
502  ;; Polish ISO 8859-2 environment.  ;; Polish ISO 8859-2 environment.
503  ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>  ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>

Legend:
Removed from v.1.69.2.8  
changed lines
  Added in v.1.69.2.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26