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