(set-auto-coding): Fix regexps for local

variables section not to eat newlines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8dc3ad6fb9286df00d0867a8e279cc1a14ef0f4f..4752a470bd078e57dfc720d792fed538a57e3ea8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-15  Dave Love  <fx@gnu.org>
+
+       * international/mule.el (set-auto-coding): Fix regexps for local
+       variables section not to eat newlines.
+
 2001-10-13  Stefan Monnier  <monnier@cs.yale.edu>
 
        * bindings.el (esc-map): Revert `j' and `C-j' bindings to

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5609d5bffeb2ccd2158291842ef8dd1a1baddaa5..67b76fdbd5ce57db9104269e00e825d60a6e3536 100644 (file)
--- 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))