Mercurial > emacs

changeset 60564:8e3e5150cf9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-coding-system): Set property 'coding-system-define-form to nil. (define-coding-system-alias): Likewise.
author Kenichi Handa <handa@m17n.org>
date Fri, 11 Mar 2005 12:00:47 +0000
parents ca116ec246d7
children 0de72dc870a6
files lisp/international/mule.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))