(prefer-coding-system): Call set-coding-priority, so that the internal

array of priorities is also updated.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 56a34f380444f1d679736ef38ade2fabb7f5cbd8..e469d573e62d74157887cec00b5e65ad91e1c7e7 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -298,11 +298,9 @@ startup."
        (error "Can't prefer the coding system `%s'" coding-system))
     (set coding-category (or base coding-system))
     (update-coding-systems-internal)
-    (if (not (eq coding-category (car coding-category-list)))
+    (or (eq coding-category (car coding-category-list))
        ;; We must change the order.
-       (setq coding-category-list
-             (cons coding-category
-                   (delq coding-category coding-category-list))))
+       (set-coding-priority (list coding-category)))
     (if (and base (interactive-p))
        (message "Highest priority is set to %s (base of %s)"
                 base coding-system))