From: Kenichi Handa Date: Tue, 18 Mar 2003 04:23:12 +0000 (+0000) Subject: (no-conversion): Call X-Git-Tag: ttn-vms-21-2-B4~10859 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=701117d5c676f42b2552132e6450b6651f980b8b;p=emacs.git (no-conversion): Call define-coding-system-internal on this coding system instead of calling register-char-codings. --- diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 7372da02f80..45efa97872c 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -306,13 +306,14 @@ When you visit a file with this coding, the file is read into a unibyte buffer as is, thus each byte of a file is treated as a character." (list 'coding-category 'coding-category-binary - 'alias-coding-systems '(no-conversion)) + 'alias-coding-systems '(no-conversion) + 'safe-charsets t 'safe-chars t) nil)) (put 'no-conversion 'eol-type 0) (put 'coding-category-binary 'coding-systems '(no-conversion)) (setq coding-system-list '(no-conversion)) (setq coding-system-alist '(("no-conversion"))) -(register-char-codings 'no-conversion t) +(define-coding-system-internal 'no-conversion) (define-coding-system-alias 'binary 'no-conversion)