Mercurial > emacs

comparison lisp/language/european.el @ 23111:f72ce5154071

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-latin-1): Doc fix. (setup-latin2-environment): Typo fix.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Aug 1998 21:12:07 +0000
parents c3cb64f8dc9c
children 13247082e0ed
comparison
equal deleted inserted replaced
23110:0d84817a4973 23111:f72ce5154071
30 30
31 ;; Latin-1 (ISO-8859-1) 31 ;; Latin-1 (ISO-8859-1)
32 32
33 (make-coding-system 33 (make-coding-system
34 'iso-latin-1 2 ?1 34 'iso-latin-1 2 ?1
35 "ISO 2022 based 8-bit encoding for Laint-1 (MIME:ISO-8859-1)" 35 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
36 '(ascii latin-iso8859-1 nil nil 36 '(ascii latin-iso8859-1 nil nil
37 nil nil nil nil nil nil nil nil nil nil nil nil t) 37 nil nil nil nil nil nil nil nil nil nil nil nil t)
38 '((safe-charsets ascii latin-iso8859-1) 38 '((safe-charsets ascii latin-iso8859-1)
39 (mime-charset . iso-8859-1))) 39 (mime-charset . iso-8859-1)))
40 40
86 (define-coding-system-alias 'latin-2 'iso-latin-2) 86 (define-coding-system-alias 'latin-2 'iso-latin-2)
87 87
88 (defun setup-latin2-environment () 88 (defun setup-latin2-environment ()
89 "Set up multilingual environment (MULE) for European Latin-2 users." 89 "Set up multilingual environment (MULE) for European Latin-2 users."
90 (interactive) 90 (interactive)
91 (set-language-environment "Laint-2")) 91 (set-language-environment "Latin-2"))
92 92
93 (set-language-info-alist 93 (set-language-info-alist
94 "Latin-2" '((charset ascii latin-iso8859-2) 94 "Latin-2" '((charset ascii latin-iso8859-2)
95 (coding-system iso-latin-2) 95 (coding-system iso-latin-2)
96 (coding-priority iso-latin-2) 96 (coding-priority iso-latin-2)