diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-03-11 12:00:47 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-03-11 12:00:47 +0000 |
| commit | c95cf5aca12ad8da8c78ba6656d816dd9e1b4fc2 (patch) | |
| tree | cb41bfedf5b29abaedbdab3e51625115eb20c86d /lisp/international | |
| parent | 87e3d54cf95bd58c8bbdda8e8fdfa933e138ae5b (diff) | |
| download | emacs-c95cf5aca12ad8da8c78ba6656d816dd9e1b4fc2.tar.gz | |
(make-coding-system): Set property
'coding-system-define-form to nil.
(define-coding-system-alias): Likewise.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 9a5646217ec..1b1d77ff461 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1041,6 +1041,7 @@ a value of `safe-charsets' in PLIST." (setq coding-category (plist-get plist 'coding-category)) (aset coding-spec coding-spec-plist-idx plist)) (put coding-system 'coding-system coding-spec) + (put coding-system 'coding-system-define-form nil) (put coding-category 'coding-systems (cons coding-system (get coding-category 'coding-systems)))) @@ -1102,6 +1103,7 @@ a value of `safe-charsets' in PLIST." (defun define-coding-system-alias (alias coding-system) "Define ALIAS as an alias for coding system CODING-SYSTEM." (put alias 'coding-system (coding-system-spec coding-system)) + (put alias 'coding-system-define-form nil) (add-to-coding-system-list alias) (setq coding-system-alist (cons (list (symbol-name alias)) coding-system-alist)) |