From: tomo <tomo>
Date: Tue, 29 Jun 1999 05:12:26 +0000 (+0000)
Subject: (set-language-environment-coding-systems): Use
X-Git-Tag: r21-2-17-tomo-3~43
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d9db8ec5335be739efc6d362d00db9a9f52e5ab3;p=chise%2Fxemacs-chise.git

(set-language-environment-coding-systems): 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 6f64629..a0f4949 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -1237,7 +1237,7 @@ of buffer-file-coding-system set by this function."
           ;; (setq default-sendmail-coding-system default-coding)
 	  (set-coding-priority-list categories)
 	  (while priority
-	    (set (car categories) (car priority))
+	    (set-coding-category-system (car categories) (car priority))
 	    (setq priority (cdr priority) categories (cdr categories)))
           ;; (update-coding-systems-internal)
 	  ))))