# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1110542447 0
# Node ID 8e3e5150cf9e03a01182d2caab8b02d90da75b6c
# Parent  ca116ec246d76218da5313ad541f4b4bb61f100f
(make-coding-system): Set property
'coding-system-define-form to nil.
(define-coding-system-alias): Likewise.

diff -r ca116ec246d7 -r 8e3e5150cf9e lisp/international/mule.el
--- a/lisp/international/mule.el	Fri Mar 11 11:59:42 2005 +0000
+++ b/lisp/international/mule.el	Fri Mar 11 12:00:47 2005 +0000
@@ -1041,6 +1041,7 @@
       (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 @@
 (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))