(detect-coding-with-priority): Call

update-coding-systems-internal before detect-coding-region.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 513fd28bb916fbeb1231cbb2b95d40704f40fb35..7c51409422b7f84390de7f4180c8628fbfc92573 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -327,6 +327,7 @@ coding systems ordered by priority."
         (mapc (function (lambda (x) (set (car x) (cdr x))))
               prio-list)
         (set-coding-priority (mapcar #'car prio-list))
+        (update-coding-systems-internal)
         (detect-coding-region ,from ,to))
      ;; We must restore the internal database.
      (set-coding-priority coding-category-list)