From 701117d5c676f42b2552132e6450b6651f980b8b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Mar 2003 04:23:12 +0000 Subject: [PATCH] (no-conversion): Call define-coding-system-internal on this coding system instead of calling register-char-codings. --- lisp/international/mule-conf.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2