Mercurial > emacs
changeset 45456:8da743b93fbf
(sgml-xml-auto-coding-function): Update with more known XML encodings.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Tue, 21 May 2002 21:50:28 +0000 |
| parents | 1a864f82e0cb |
| children | 65d131d4a624 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Tue May 21 21:35:49 2002 +0000 +++ b/lisp/international/mule.el Tue May 21 21:50:28 2002 +0000 @@ -1928,17 +1928,17 @@ (when (re-search-forward "\\`[[:space:]\n]*<\\?xml") (let ((end (save-excursion ;; This is a hack. - (search-forward "\"\\s-*?>" size t)))) + (re-search-forward "\"\\s-*\\?>" size t)))) (when end (if (re-search-forward "encoding=\"\\(.+?\\)\"" end t) (let ((match (downcase (match-string 1)))) - ;; FIXME: what other encodings are valid, and how can we - ;; translate them to the names of coding systems? - (cond ((string= match "utf-8") - 'utf-8) + (cond ((member match '("utf-8" "iso-2022-jp" + "euc-jp" "shift_jis")) + (intern match)) ((string-match "iso-8859-[[:digit:]]+" match) (intern match)) - (t nil))) + (t (message "Warning: unknown XML encoding %s" match) + nil))) 'utf-8))))) ;;;