From d318fcf471a0538c223efd1e3842a989503cef46 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 1 Aug 1999 10:20:43 +0000 Subject: [PATCH] (set-auto-coding): Allow whitespace before and after the "variable: value" pair. --- lisp/international/mule.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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)) -- 2.39.5