(find-auto-coding): Handle

enable-character-translation in file header.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index e808f4f5d0fb6561276bfc1981c5c99922f5d33b..c0b330a1af3dbfd5302aad2bdd401eb790e5e7b4 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1700,6 +1700,8 @@ If nothing is specified, the return value is nil."
        ;; and for "unibyte:" at the head and tail of SIZE bytes.
        (setq head-found (or (search-forward "coding:" head-end t)
                             (search-forward "unibyte:" head-end t)
+                            (search-forward "enable-character-translation:" 
+                                            head-end t)
                             (search-forward "char-trans:" head-end t)))
        (if (and head-found (> head-found tail-start))
            ;; Head and tail are overlapped.
@@ -1729,9 +1731,9 @@ If nothing is specified, the return value is nil."
                        head-end t))
              (setq coding-system (intern (match-string 2))))
            (when (re-search-forward
-                  "\\(.*;\\)?[ \t]*char-trans:[ \t]*\\([^ ;]+\\)"
+                  "\\(.*;\\)?[ \t]*\\(enable-character-translation\\|char-trans\\):[ \t]*\\([^ ;]+\\)"
                   head-end t)
-             (setq char-trans (match-string 2)))))
+             (setq char-trans (match-string 3)))))
 
        ;; If no coding: tag in the head, check the tail.
        ;; Here we must pay attention to the case that the end-of-line