diff options
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5609d5bffeb..67b76fdbd5c 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -1365,15 +1365,17 @@ function by default." | |||
| 1365 | (re-coding | 1365 | (re-coding |
| 1366 | (concat | 1366 | (concat |
| 1367 | "^" prefix | 1367 | "^" prefix |
| 1368 | "[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" | 1368 | ;; N.B. without the \n below, the regexp can |
| 1369 | ;; eat newlines. | ||
| 1370 | "[ \t]*coding[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*" | ||
| 1369 | suffix "$")) | 1371 | suffix "$")) |
| 1370 | (re-unibyte | 1372 | (re-unibyte |
| 1371 | (concat | 1373 | (concat |
| 1372 | "^" prefix | 1374 | "^" prefix |
| 1373 | "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" | 1375 | "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*" |
| 1374 | suffix "$")) | 1376 | suffix "$")) |
| 1375 | (re-end | 1377 | (re-end |
| 1376 | (concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$")) | 1378 | (concat "^" prefix "[ \t]*End *:[ \t]*" suffix "$")) |
| 1377 | (pos (point))) | 1379 | (pos (point))) |
| 1378 | (re-search-forward re-end tail-end 'move) | 1380 | (re-search-forward re-end tail-end 'move) |
| 1379 | (setq tail-end (point)) | 1381 | (setq tail-end (point)) |