(make-coding-system): If CODING-SYSTEM already exists, override it.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 1e7fa52aced262dcc3d8f98cb99132c9b01c4e7c..f193ef7797fae7abdba31205dcc7f93a9b23c17e 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -621,9 +621,6 @@ treated as a compiled CCL code.
 
 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)