Commit d318fcf4 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(set-auto-coding): Allow whitespace before

and after the "variable: value" pair.
parent 116f0564
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment