(set-auto-coding): Allow whitespace before

and after the "variable: value" pair.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index bcc4aba74c9c11464c39132a75db852c0a293a28..512d2addcf63effeafcb8acedf5b39f6ff2a7491 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -989,16 +989,18 @@ function by default."
                ;; 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))