(set-auto-coding): Recognize coding: in first

line even if not the first variable.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 05631e1a1bcd6c285a4c247f88373a2f4212168e..655eccb7452cc18a252868bed2f7936ddb94f667 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -645,10 +645,10 @@ function by default."
              (or limit
                  (setq limit len)))
          (setq limit len))
-       (when (and (string-match "-\\*-[ \t]*coding:[ \t]*\\([^ ;]+\\)" string)
-                  (< (match-beginning 1) limit))
+       (when (and (string-match "-\\*-\\(.*;\\)?[ \t]*coding:[ \t]*\\([^ ;]+\\)" string)
+                  (< (match-beginning 2) limit))
          (setq coding-system
-               (intern (substring string (match-beginning 1) (match-end 1))))
+               (intern (substring string (match-beginning 2) (match-end 2))))
          (if (not (coding-system-p coding-system))
              (setq coding-system nil)))