diff options
| author | Philipp Stephani | 2017-06-16 23:49:09 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2017-06-17 16:10:51 +0200 |
| commit | c3813b2aa8d2f5a625195fdbbfe6a01a602d7735 (patch) | |
| tree | 1bf3a0498632f317ed27e6e7d99171d611964f4d /lisp | |
| parent | 5575db9216e949fa1535dac33eec9b2abb48fab4 (diff) | |
| download | emacs-c3813b2aa8d2f5a625195fdbbfe6a01a602d7735.tar.gz emacs-c3813b2aa8d2f5a625195fdbbfe6a01a602d7735.zip | |
Allow local variables section to begin with a square bracket
Fixes Bug#27391.
* lisp/international/mule.el (find-auto-coding): Fix regular
expression for "Local Variables" section.
* test/lisp/international/mule-tests.el (find-auto-coding--bug27391):
Add unit test.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index fa3ad80e2f7..6cfb7e6d457 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -1970,7 +1970,7 @@ use \"coding: 'raw-text\" instead." | |||
| 1970 | (goto-char tail-start) | 1970 | (goto-char tail-start) |
| 1971 | (re-search-forward "[\r\n]\^L" tail-end t) | 1971 | (re-search-forward "[\r\n]\^L" tail-end t) |
| 1972 | (if (re-search-forward | 1972 | (if (re-search-forward |
| 1973 | "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]" | 1973 | "[\r\n]\\([^\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]" |
| 1974 | tail-end t) | 1974 | tail-end t) |
| 1975 | ;; The prefix is what comes before "local variables:" in its | 1975 | ;; The prefix is what comes before "local variables:" in its |
| 1976 | ;; line. The suffix is what comes after "local variables:" | 1976 | ;; line. The suffix is what comes after "local variables:" |