From b31a56772363013e4aed416c6b05e77c7b5a9f07 Mon Sep 17 00:00:00 2001 From: Jirka Kosek Date: Tue, 18 Oct 2011 11:02:47 +0300 Subject: [PATCH] * lisp/international/mule.el (sgml-html-meta-auto-coding-function): Add support for detecting encoding in HTML5 specified only as . Implementation just makes http-equiv and content-type parts from HTML4 encoding string optional. Fixes: debbugs:9716 --- lisp/ChangeLog | 7 +++++++ lisp/international/mule.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0562f2f2fa0..7f03894e728 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2011-10-18 Jirka Kosek (tiny change) + + * international/mule.el (sgml-html-meta-auto-coding-function): + Add support for detecting encoding in HTML5 specified only as + . Implementation just makes http-equiv and + content-type parts from HTML4 encoding string optional. (Bug#9716) + 2011-10-18 Glenn Morris * vc/vc.el (vc-initial-comment): Mark as obsolete. (Bug#9745) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 4a387a233a0..cac37b3b8c5 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -2403,8 +2403,8 @@ This function is intended to be added to `auto-coding-functions'." ;; (allowing for whitespace at bob). Note: 'DOCTYPE NETSCAPE' is ;; useful for Mozilla bookmark files. (when (and (re-search-forward "\\`[[:space:]\n]*\\(]" size t)) + (let* ((match (match-string 2)) (sym (intern (downcase match)))) (if (coding-system-p sym) sym -- 2.39.2