(set-auto-coding): Allow whitespace before
and after the "variable: value" pair.
This commit is contained in:
parent
116f0564ea
commit
d318fcf471
1 changed files with 12 additions and 10 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue