diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/mule.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fcf570a3413..23941081c27 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-05-07 Jirka Kosek <jirka@kosek.cz> (tiny change) + + * international/mule.el (sgml-xml-auto-coding-function): Recognize + encoding='FOO' in single quotes as well as in double quotes. + 2005-05-07 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se> * emacs-lisp/cl-macs.el (cl-transform-lambda): Recognize `declare' diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 2b4117c7605..4b5a56a55b6 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -2180,9 +2180,9 @@ This function is intended to be added to `auto-coding-functions'." (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) |