diff options
| author | Kenichi Handa | 2000-06-05 12:12:26 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-06-05 12:12:26 +0000 |
| commit | b48eb508f46249f8fe64d3b68e41866cc29b856a (patch) | |
| tree | cdb6857aa58794169b7c09471ed276bdeb35a78b | |
| parent | 9ebbe4d8b0626b939263f187b198ab75d29db7b6 (diff) | |
| download | emacs-b48eb508f46249f8fe64d3b68e41866cc29b856a.tar.gz emacs-b48eb508f46249f8fe64d3b68e41866cc29b856a.zip | |
(make-coding-system): If CODING-SYSTEM already exists, override it.
| -rw-r--r-- | lisp/international/mule.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 1e7fa52aced..f193ef7797f 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -621,9 +621,6 @@ treated as a compiled CCL code. | |||
| 621 | 621 | ||
| 622 | 2. If PROPERTIES is just a list of character sets, the list is set as | 622 | 2. If PROPERTIES is just a list of character sets, the list is set as |
| 623 | a value of `safe-charsets' in PLIST." | 623 | a value of `safe-charsets' in PLIST." |
| 624 | (if (memq coding-system coding-system-list) | ||
| 625 | (error "Coding system %s already exists" coding-system)) | ||
| 626 | |||
| 627 | ;; Set a value of `coding-system' property. | 624 | ;; Set a value of `coding-system' property. |
| 628 | (let ((coding-spec (make-vector 5 nil)) | 625 | (let ((coding-spec (make-vector 5 nil)) |
| 629 | (no-initial-designation t) | 626 | (no-initial-designation t) |