# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960207146 0
# Node ID e3253b1520604da094645cb43f1099f49da722c7
# Parent  8ba40101475412129b46bc8b2c3d62af29afbecd
(make-coding-system): If CODING-SYSTEM already exists, override it.

diff -r 8ba401014754 -r e3253b152060 lisp/international/mule.el
--- a/lisp/international/mule.el	Mon Jun 05 12:07:08 2000 +0000
+++ b/lisp/international/mule.el	Mon Jun 05 12:12:26 2000 +0000
@@ -621,9 +621,6 @@
 
 2. If PROPERTIES is just a list of character sets, the list is set as
 a value of `safe-charsets' in PLIST."
-  (if (memq coding-system coding-system-list)
-      (error "Coding system %s already exists" coding-system))
-
   ;; Set a value of `coding-system' property.
   (let ((coding-spec (make-vector 5 nil))
 	(no-initial-designation t)