From: tomo <tomo>
Date: Mon, 28 Jun 1999 13:42:48 +0000 (+0000)
Subject: (set-language-environment-coding-systems): Use
X-Git-Tag: r21-2-17-tomo-3~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=37b8de6acabc3ce5b8ca688face111e1d2278ced;p=chise%2Fxemacs-chise.git-

(set-language-environment-coding-systems): Use
`set-coding-priority-list' instead of `set-coding-priority'; don't
call `update-coding-systems-internal'.
---

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index f9ed5c8..7eb70d4 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -1234,11 +1234,12 @@ of buffer-file-coding-system set by this function."
 	       (coding-system-change-eol-conversion default-coding eol-type)
 	     default-coding))
 	  (setq default-sendmail-coding-system default-coding)
-	  (set-coding-priority categories)
+	  (set-coding-priority-list categories)
 	  (while priority
 	    (set (car categories) (car priority))
 	    (setq priority (cdr priority) categories (cdr categories)))
-	  (update-coding-systems-internal)))))
+          ;; (update-coding-systems-internal)
+	  ))))
 
 ;; Print all arguments with `princ', then print "\n".
 (defsubst princ-list (&rest args)