From: tomo <tomo>
Date: Tue, 29 Jun 1999 04:40:56 +0000 (+0000)
Subject: (prefer-coding-system): Use `set-coding-category-system' to set up
X-Git-Tag: r21-2-17-tomo-3~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=85b7b94bfa8e3c70dd5728797d382f00917b671e;p=chise%2Fxemacs-chise.git

(prefer-coding-system): Use `set-coding-category-system' to set up
coding-system for coding-category.
---

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index e03f876..6f64629 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -203,7 +203,7 @@ startup."
     (if (not coding-category)
 	;; CODING-SYSTEM is no-conversion or undecided.
 	(error "Can't prefer the coding system `%s'" coding-system))
-    (set coding-category (or base coding-system))
+    (set-coding-category-system coding-category (or base coding-system))
     ;; (update-coding-systems-internal)
     (or (eq coding-category (car (coding-category-list)))
 	;; We must change the order.