(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 (file)
--- 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)
          ))))