From cfe98f509802d1bb1a9eb45fde8fe5f5e625f1de Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 15 Oct 2001 08:47:11 +0000 Subject: [PATCH] (set-auto-coding): Fix regexps for local variables section not to eat newlines. --- lisp/international/mule.el | 8 +++++--- 1 file 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." (re-coding (concat "^" prefix - "[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" + ;; N.B. without the \n below, the regexp can + ;; eat newlines. + "[ \t]*coding[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*" suffix "$")) (re-unibyte (concat "^" prefix - "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" + "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*" suffix "$")) (re-end - (concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$")) + (concat "^" prefix "[ \t]*End *:[ \t]*" suffix "$")) (pos (point))) (re-search-forward re-end tail-end 'move) (setq tail-end (point)) -- 2.39.5