diff options
| author | Dave Love | 2002-06-10 16:07:03 +0000 |
|---|---|---|
| committer | Dave Love | 2002-06-10 16:07:03 +0000 |
| commit | 05b99d65b033b67ecadb55d9c39efa9fdb5758db (patch) | |
| tree | c017a082daab45d39b03a4ee7f9f600107ee423f | |
| parent | 2008fcce33bf8b81860c1c2922af137f7e46de6b (diff) | |
| download | emacs-05b99d65b033b67ecadb55d9c39efa9fdb5758db.tar.gz emacs-05b99d65b033b67ecadb55d9c39efa9fdb5758db.zip | |
("Tajik", "Bulgarian", "Belarusian"): New
environments.
| -rw-r--r-- | lisp/language/cyrillic.el | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 76a04c3d081..7a0f62675d1 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el | |||
| @@ -146,6 +146,46 @@ | |||
| 146 | :mime-charset 'cp855) | 146 | :mime-charset 'cp855) |
| 147 | (define-coding-system-alias 'ibm855 'cp855) | 147 | (define-coding-system-alias 'ibm855 'cp855) |
| 148 | 148 | ||
| 149 | ;; (set-language-info-alist | ||
| 150 | ;; "Windows-1251" `((coding-system windows-1251) | ||
| 151 | ;; (coding-priority windows-1251) | ||
| 152 | ;; (nonascii-translation | ||
| 153 | ;; . ,(get 'decode-windows-1252 'translation-table)) | ||
| 154 | ;; (input-method . "russian-typewriter") ; fixme? | ||
| 155 | ;; (features code-pages) | ||
| 156 | ;; (documentation . "Support for windows-1251 character set.")) | ||
| 157 | ;; '("Cyrillic")) | ||
| 158 | |||
| 159 | (set-language-info-alist | ||
| 160 | "Tajik" `((coding-system cyrillic-koi8-t) | ||
| 161 | (coding-priority cyrillic-koi8-t) | ||
| 162 | (nonascii-translation . cyrillic-koi8-t) | ||
| 163 | (input-method . "russian-typewriter") ; fixme? | ||
| 164 | (features code-pages) | ||
| 165 | (documentation . "Support for Tajik using KOI8-T.")) | ||
| 166 | '("Cyrillic")) | ||
| 167 | |||
| 168 | (set-language-info-alist | ||
| 169 | "Bulgarian" `((coding-system windows-1251) | ||
| 170 | (coding-priority windows-1251) | ||
| 171 | (nonascii-translation . windows-1251) | ||
| 172 | (input-method . "bulgarian-standard") | ||
| 173 | (features code-pages) | ||
| 174 | (documentation | ||
| 175 | . "Support for Bulgrian with windows-1251 character set.")) | ||
| 176 | '("Cyrillic")) | ||
| 177 | |||
| 178 | (set-language-info-alist | ||
| 179 | "Belarusian" `((coding-system windows-1251) | ||
| 180 | (coding-priority windows-1251) | ||
| 181 | (nonascii-translation . windows-1251) | ||
| 182 | (input-method . "belarusian") | ||
| 183 | (features code-pages) | ||
| 184 | (documentation | ||
| 185 | . "Support for Belarusian with windows-1251 character set. | ||
| 186 | (The name Belarusian replaced Byelorussian in the eraly 1990s.)")) | ||
| 187 | '("Cyrillic")) | ||
| 188 | |||
| 149 | (provide 'cyrillic) | 189 | (provide 'cyrillic) |
| 150 | 190 | ||
| 151 | ;;; cyrillic.el ends here | 191 | ;;; cyrillic.el ends here |