(compound-text): Force katakana-jisx0201 to be designated to G1.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 873abb875fa695160969a52bd0eaa023a5361560..31d2c1e15630d497a7e826cd7f8a8b1092c98496 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -44,7 +44,7 @@
 (make-coding-system
  'compound-text 2 ?1
  "ISO 2022 based encoding used in inter client communication of X"
- '((ascii t) (latin-iso8859-1 t) nil nil
+ '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
  '((safe-charsets . t)))