From: Juri Linkov <juri@jurta.org>
Date: Thu, 11 Nov 2004 21:39:41 +0000 (+0000)
Subject: (sgml-html-meta-auto-coding-function):
X-Git-Tag: ttn-vms-21-2-B4~3997
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81668eb26016c75dcc5808f638ec1c4fac4300c2;p=emacs.git

(sgml-html-meta-auto-coding-function):
Remove > after <html to allow HTML attributes.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f5294fea92f..9136a257ee1 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -2126,7 +2126,7 @@ This function is intended to be added to `auto-coding-functions'."
 		  (save-excursion
 		    (forward-line 10)
 		    (point))))
-  (when (and (search-forward "<html>" size t)
+  (when (and (search-forward "<html" size t)
 	     (re-search-forward "<meta\\s-+http-equiv=\"content-type\"\\s-+content=\"text/\\sw+;\\s-*charset=\\(.+?\\)\"" size t))
       (let* ((match (match-string 1))
 	     (sym (intern (downcase match))))
