Sync to HEAD

[bpt/emacs.git] / lisp / language / european.el

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 2035d47..3da1850 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -28,9 +28,8 @@
 
 ;;; Commentary:
 
-;; For European scripts, character sets ISO8859-1,2,3,4,9,10,13,14,15,
-;; windows-1250,2,4,7, mac-roman, adobe-standard-encoding, cp850 and
-;; next are supported.
+;; For European scripts, all the ISO Latin character sets are
+;; supported, along with various others.
 
 ;;; Code:
 
@@ -272,7 +271,7 @@ covered by other ISO-8859 character sets:
             (unibyte-display . iso-latin-9)
             (input-method . "latin-9-prefix")
             (sample-text
-             . "AVE. \e,b&(48<=>\e(B \e,b$\e(B")
+             . "AVE. \e,B)9.>\e,b<=\e,_/\e(B \e,b$\e(B")
             (documentation . "\
 This language environment is a generic one for the Latin-9 (ISO-8859-15)
 character set which supports the same languages as Latin-1 with the
@@ -484,7 +483,7 @@ and it selects the Spanish tutorial."))
             (nonascii-translation . iso-8859-9)
             (unibyte-display . iso-latin-5)
             (input-method . "turkish-postfix")
-            (sample-text . "Turkish (T\e,M|\e(Brk\e,Mg\e(Be)       Merhaba")
+            (sample-text . "Turkish (T\e,A|\e(Brk\e,Ag\e(Be)       Merhaba")
             (setup-function
              . (lambda ()
                  (set-case-syntax-pair ?I ?\e,C9\e(B (standard-case-table))
@@ -510,7 +509,7 @@ method and applying Turkish case rules for the characters i, I, \e,C9\e(B, \e,C)\e(B
           (nonascii-translation . iso-8859-2)
           (unibyte-display . iso-8859-2)
           (tutorial . "TUTORIAL.pl")
-          (sample-text . "P\e,Bs\e(Bjd\e,B<\e(B, ki\e,Bq\e(B-\e,B?\e(Be t\e,Bj\e(B chmurno\e,B6f\e(B w g\e,B31\e(Bb flaszy")
+          (sample-text . "P\e,As\e(Bjd\e,B<\e(B, ki\e,Bq\e(B-\e,B?\e(Be t\e,Bj\e(B chmurno\e,B6f\e(B w g\e,B31\e(Bb flaszy")
           (documentation . t))
  '("European"))
 
@@ -724,4 +723,5 @@ or nil if no characters are composed."
 
 (provide 'european)
 
+;;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2
 ;;; european.el ends here