(cp1251): Alias for windows-1251.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64f0a433594a8f7243116dfcac92b0f4e7ce47e3..73843ccb9d4cd28016361ec198f629355205027c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-01  Dave Love  <fx@gnu.org>
 
+       * language/cyrillic.el (cp1251): Alias for windows-1251.
+
        * vc-cvs.el (vc-cvs-parse-entry): Revert last change to allow
        bootstrap.
 

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 9c9c2fd54eb861a3009f173b41443b44e39486fe..ad3ab94049252439301040fadf361b67c63eb498 100644 (file)
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -463,6 +463,8 @@ Support for Russian using koi8-r and the russian-computer input method.")
         ?\\e$,1(V\e(B ?\\e$,1(W\e(B ?\\e$,1(X\e(B ?\\e$,1(Y\e(B ?\\e$,1(Z\e(B ?\\e$,1([\e(B ?\\e$,1(\\e(B ?\\e$,1(]\e(B ?\\e$,1(^\e(B ?\\e$,1(_\e(B ?\\e$,1(`\e(B ?\\e$,1(a\e(B ?\\e$,1(b\e(B ?\\e$,1(c\e(B ?\\e$,1(d\e(B ?\\e$,1(e\e(B ?\\e$,1(f\e(B
         ?\\e$,1(g\e(B ?\\e$,1(h\e(B ?\\e$,1(i\e(B ?\\e$,1(j\e(B ?\\e$,1(k\e(B ?\\e$,1(l\e(B ?\\e$,1(m\e(B ?\\e$,1(n\e(B ?\\e$,1(o\e(B] nil ?b)))
 
+(define-coding-system-alias 'cp1251 'windows-1251)
+
 (set-language-info-alist
  "Bulgarian" `((coding-system windows-1251)
                  (coding-priority windows-1251)