# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 933502843 0
# Node ID edfd929009d51a35c38c4ca830c3f0b9cd53c27e
# Parent  5decc043e9bf730f041d12ddb14682e9108c8a27
(set-auto-coding): Allow whitespace before
and after the "variable: value" pair.

diff -r 5decc043e9bf -r edfd929009d5 lisp/international/mule.el
--- a/lisp/international/mule.el	Sat Jul 31 16:46:58 1999 +0000
+++ b/lisp/international/mule.el	Sun Aug 01 10:20:43 1999 +0000
@@ -989,16 +989,18 @@
 		;; in its line.
 		(let* ((prefix (regexp-quote (match-string 1)))
 		       (suffix (regexp-quote (match-string 2)))
-		       (re-coding (concat
-				   "^" prefix
-				   "coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
-				   suffix "$"))
-		       (re-unibyte (concat
-				    "^" prefix
-				    "unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
-				    suffix "$"))
-		       (re-end (concat
-				"^" prefix "end *:[ \t]*" suffix "$"))
+		       (re-coding
+			(concat
+			 "^" prefix
+			 "[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
+			 suffix "$"))
+		       (re-unibyte
+			(concat
+			 "^" prefix
+			 "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
+			 suffix "$"))
+		       (re-end
+			(concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$"))
 		       (pos (point)))
 		  (re-search-forward re-end tail-end 'move)
 		  (setq tail-end (point))