Mercurial > emacs

changeset 89199:3cdeb8452578

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibm1047, cp1047): New.
author Dave Love <fx@gnu.org>
date Fri, 11 Oct 2002 17:51:33 +0000
parents 02355a7106cb
children 492be7d36b2a
files lisp/language/english.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/english.el	Fri Oct 11 17:48:56 2002 +0000
+++ b/lisp/language/english.el	Fri Oct 11 17:51:33 2002 +0000
@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2002 Free Software Foundation, Inc.
 
 ;; Keywords: multibyte character, character set, syntax, category
 
@@ -51,6 +52,13 @@
   :charset-list '(ebcdic-uk)
   :mnemonic ?*)
 
+(define-coding-system 'ibm1047
+  "A version of EBCDIC used in OS/390 Unix"  ; says Groff
+  :coding-type 'charset
+  :charset-list '(ibm1047)
+  :mnemonic ?*)
+(define-coding-system-alias 'cp1047 'ibm1047)
+
 ;; Make "ASCII" an alias of "English" language environment.
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))