2180 |
(when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t) |
(when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t) |
2181 |
(let ((end (save-excursion |
(let ((end (save-excursion |
2182 |
;; This is a hack. |
;; This is a hack. |
2183 |
(re-search-forward "\"\\s-*\\?>" size t)))) |
(re-search-forward "[\"']\\s-*\\?>" size t)))) |
2184 |
(when end |
(when end |
2185 |
(if (re-search-forward "encoding=\"\\(.+?\\)\"" end t) |
(if (re-search-forward "encoding=[\"']\\(.+?\\)[\"']" end t) |
2186 |
(let* ((match (match-string 1)) |
(let* ((match (match-string 1)) |
2187 |
(sym (intern (downcase match)))) |
(sym (intern (downcase match)))) |
2188 |
(if (coding-system-p sym) |
(if (coding-system-p sym) |