Re: Bug in mule.el/sgml-xml-auto-coding-function

[Kevin Rodgers <ihs_4664@yahoo.com>]

Jirka Kosek wrote:
 > function sgml-xml-auto-coding-function tries to detect encoding of XML
 > file.

What version of Emacs are you using?  That function isn't distributed
with 21.3.

 > XML specification allows encoding name to be surrounded by quotes
 > or apostrophes. Current code expect only quotes so it won't detect
 > encoding if specified as:
 >
 > <?xml version="1.0" encoding='windows-1250'?>
 >
 > The following function has corrected RE in order to deal with both
 > delimiters.
 >
 > (defun sgml-xml-auto-coding-function (size)
 >   "Determine whether the buffer is XML, and if so, its encoding.
 > This function is intended to be added to `auto-coding-functions'."
 >   (setq size (+ (point) size))
 >   (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" size t)
 >     (let ((end (save-excursion
 >          ;; This is a hack.
 >          (re-search-forward "[\"']\\s-*\\?>" size t))))
 >       (when end
 >     (if (re-search-forward "encoding=[\"']\\(.+?\\)[\"']" end t)
 >         (let* ((match (match-string 1))
 >            (sym (intern (downcase match))))
 >           (if (coding-system-p sym)
 >           sym
 >         (message "Warning: unknown coding system \"%s\"" match)
 >         nil))
 >       'utf-8)))))

The delimiters must match:

     (if (re-search-forward "encoding=\\([\"']\\)\\(.+?\\)\\1" end t)
         (let* ((match (match-string 2))

-- 
Kevin Rodgers