From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 1 Aug 1999 10:20:43 +0000 (+0000)
Subject: (set-auto-coding): Allow whitespace before
X-Git-Tag: emacs-pretest-21.0.90~7297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d318fcf471a0538c223efd1e3842a989503cef46;p=emacs.git

(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 bcc4aba74c9..512d2addcf6 100644
--- 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))