# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873153862 0
# Node ID f523227a99ababaf92a9e80f0c475b5e8e3bba3d
# Parent  d206d8b146dc3c1f04a260c9092ebab31c578712
(set-auto-coding): Recognize coding: in first
line even if not the first variable.

diff -r d206d8b146dc -r f523227a99ab lisp/international/mule.el
--- a/lisp/international/mule.el	Mon Sep 01 22:43:29 1997 +0000
+++ b/lisp/international/mule.el	Mon Sep 01 22:44:22 1997 +0000
@@ -645,10 +645,10 @@
 	      (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)))