Mercurial > emacs
diff lisp/international/mule.el @ 62154:2d0b029e8560
(sgml-xml-auto-coding-function): Recognize encoding='FOO'
in single quotes as well as in double quotes.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 07 May 2005 15:53:56 +0000 |
parents | eaf711995ea5 |
children | c36561fe0657 5ae8a8b0a308 62afea0771d8 |
line wrap: on
line diff
--- a/lisp/international/mule.el Sat May 07 15:46:21 2005 +0000 +++ b/lisp/international/mule.el Sat May 07 15:53:56 2005 +0000 @@ -2180,9 +2180,9 @@ (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t) (let ((end (save-excursion ;; This is a hack. - (re-search-forward "\"\\s-*\\?>" size t)))) + (re-search-forward "[\"']\\s-*\\?>" size t)))) (when end - (if (re-search-forward "encoding=\"\\(.+?\\)\"" end t) + (if (re-search-forward "encoding=[\"']\\(.+?\\)[\"']" end t) (let* ((match (match-string 1)) (sym (intern (downcase match)))) (if (coding-system-p sym)