Mercurial > emacs

comparison lisp/language/cyrillic.el @ 18155:3f147c50716f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-cyrillic-environment-map): Renamed from describe-cyrillic-support-map.
author Richard M. Stallman <rms@gnu.org>
date Sat, 07 Jun 1997 05:54:15 +0000
parents 7839aa2f6765
children 0745f30aec66
comparison
equal deleted inserted replaced
18154:e16ecdfae33a 18155:3f147c50716f
27 ;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ 27 ;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ
28 ;; are converted to ISO8859-5 internally. 28 ;; are converted to ISO8859-5 internally.
29 29
30 ;;; Code: 30 ;;; Code:
31 31
32 (define-prefix-command 'describe-cyrillic-support-map) 32 (define-prefix-command 'describe-cyrillic-environment-map)
33 (define-key-after describe-language-support-map [Cyrillic] 33 (define-key-after describe-language-environment-map [Cyrillic]
34 '("Cyrillic" . describe-cyrillic-support-map) 34 '("Cyrillic" . describe-cyrillic-environment-map)
35 t) 35 t)
36 36
37 (define-prefix-command 'setup-cyrillic-environment-map) 37 (define-prefix-command 'setup-cyrillic-environment-map)
38 (define-key-after setup-language-environment-map [Cyrillic] 38 (define-key-after setup-language-environment-map [Cyrillic]
39 '("Cyrillic" . setup-cyrillic-environment-map) 39 '("Cyrillic" . setup-cyrillic-environment-map)
204 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment 204 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment
205 . setup-cyrillic-environment-map)) 205 . setup-cyrillic-environment-map))
206 (charset . (cyrillic-iso8859-5)) 206 (charset . (cyrillic-iso8859-5))
207 (coding-system . (iso-8859-5)) 207 (coding-system . (iso-8859-5))
208 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 208 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
209 (documentation . (t . describe-cyrillic-support-map)))) 209 (documentation . (t . describe-cyrillic-environment-map))))
210 210
211 (set-language-info-alist 211 (set-language-info-alist
212 "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-iso-environment 212 "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-iso-environment
213 . setup-cyrillic-environment-map)) 213 . setup-cyrillic-environment-map))
214 (charset . (cyrillic-iso8859-5)) 214 (charset . (cyrillic-iso8859-5))
215 (coding-system . (koi8-4)) 215 (coding-system . (koi8-4))
216 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 216 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
217 (documentation . (t . describe-cyrillic-support-map)))) 217 (documentation . (t . describe-cyrillic-environment-map))))
218 218
219 (set-language-info-alist 219 (set-language-info-alist
220 "Cyrillic-ALTERNATIVNYJ" '((setup-function 220 "Cyrillic-Alternativnyj" '((setup-function
221 . (setup-cyrillic-iso-environment 221 . (setup-cyrillic-iso-environment
222 . setup-cyrillic-environment-map)) 222 . setup-cyrillic-environment-map))
223 (charset . (cyrillic-iso8859-5)) 223 (charset . (cyrillic-iso8859-5))
224 (coding-system . (alternativnyj)) 224 (coding-system . (alternativnyj))
225 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") 225 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
226 (documentation 226 (documentation
227 . (t . describe-cyrillic-support-map)))) 227 . (t . describe-cyrillic-environment-map))))
228 228
229 ;;; cyrillic.el ends here 229 ;;; cyrillic.el ends here