Mercurial > emacs
changeset 18155:3f147c50716f
(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 | e16ecdfae33a |
| children | f7296dc03177 |
| files | lisp/language/cyrillic.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/cyrillic.el Sat Jun 07 05:53:53 1997 +0000 +++ b/lisp/language/cyrillic.el Sat Jun 07 05:54:15 1997 +0000 @@ -29,9 +29,9 @@ ;;; Code: -(define-prefix-command 'describe-cyrillic-support-map) -(define-key-after describe-language-support-map [Cyrillic] - '("Cyrillic" . describe-cyrillic-support-map) +(define-prefix-command 'describe-cyrillic-environment-map) +(define-key-after describe-language-environment-map [Cyrillic] + '("Cyrillic" . describe-cyrillic-environment-map) t) (define-prefix-command 'setup-cyrillic-environment-map) @@ -206,7 +206,7 @@ (charset . (cyrillic-iso8859-5)) (coding-system . (iso-8859-5)) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") - (documentation . (t . describe-cyrillic-support-map)))) + (documentation . (t . describe-cyrillic-environment-map)))) (set-language-info-alist "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-iso-environment @@ -214,16 +214,16 @@ (charset . (cyrillic-iso8859-5)) (coding-system . (koi8-4)) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") - (documentation . (t . describe-cyrillic-support-map)))) + (documentation . (t . describe-cyrillic-environment-map)))) (set-language-info-alist - "Cyrillic-ALTERNATIVNYJ" '((setup-function + "Cyrillic-Alternativnyj" '((setup-function . (setup-cyrillic-iso-environment . setup-cyrillic-environment-map)) (charset . (cyrillic-iso8859-5)) (coding-system . (alternativnyj)) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") (documentation - . (t . describe-cyrillic-support-map)))) + . (t . describe-cyrillic-environment-map)))) ;;; cyrillic.el ends here