From: Kenichi Handa <handa@m17n.org>
Date: Mon, 25 May 1998 08:08:51 +0000 (+0000)
Subject: (set-coding-priority): Call
X-Git-Tag: emacs-20.3~850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2feaf204b04935ceeb81f919781dc83944042d4b;p=emacs.git

(set-coding-priority): Call
set-coding-priority-internal at the tail.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 523a9802df4..438839479ba 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -769,7 +769,8 @@ LIST is a list of coding categories ordered by priority."
       (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