[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.158 
emacs/lisp/international/mule.el:1.159
*** emacs/lisp/international/mule.el:1.158      Fri Aug  2 14:01:33 2002
--- emacs/lisp/international/mule.el    Mon Aug 19 02:39:06 2002
***************
*** 2003,2009 ****
  (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'."
!   (when (re-search-forward "\\`[[:space:]\n]*<\\?xml")
      (let ((end (save-excursion
                 ;; This is a hack.
                 (re-search-forward "\"\\s-*\\?>" size t))))
--- 2003,2009 ----
  (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'."
!   (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" nil t)
      (let ((end (save-excursion
                 ;; This is a hack.
                 (re-search-forward "\"\\s-*\\?>" size t))))