mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(sgml-html-meta-auto-coding-function):

Browse Source 
Remove > after <html to allow HTML attributes.
This commit is contained in:
Juri Linkov 2004-11-11 21:39:41 +00:00
parent 6d1289c338
commit 81668eb260
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/mule.el
View File

@ -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))))