# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 896083731 0
# Node ID e7ac7f644152f2abdd01fcfd5e8d5c0bea91542b
# Parent  557fac086b1b243166140cf168767cf592521771
(set-coding-priority): Call
set-coding-priority-internal at the tail.

diff -r 557fac086b1b -r e7ac7f644152 lisp/international/mule.el
--- a/lisp/international/mule.el	Mon May 25 08:08:07 1998 +0000
+++ b/lisp/international/mule.el	Mon May 25 08:08:51 1998 +0000
@@ -769,7 +769,8 @@
       (setq current-list (delq (car l) current-list))
       (setq l (cdr l)))
     ;; Update `coding-category-list' and return it.
-    (setq coding-category-list (append arg current-list))))
+    (setq coding-category-list (append arg current-list))
+    (set-coding-priority-internal)))
 
 ;;; FILE I/O