(set-coding-priority): Call

set-coding-priority-internal at the tail.

(set-coding-priority): Call
set-coding-priority-internal at the tail.
2feaf204 · Kenichi Handa · 66cfb530 · 2feaf204
Commit 2feaf204 authored May 25, 1998 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/international/mule.el lisp/international/mule.el +2 -1

No files found.
--- 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