Mercurial > emacs
changeset 46944:ed9f839eddc9
(sgml-xml-auto-coding-function): Call
re-search-forward with NOERROR t..
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 19 Aug 2002 06:39:06 +0000 |
| parents | 34c75ce396ea |
| children | f9938287430f |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Mon Aug 19 05:03:55 2002 +0000 +++ b/lisp/international/mule.el Mon Aug 19 06:39:06 2002 +0000 @@ -2003,7 +2003,7 @@ (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") + (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" nil t) (let ((end (save-excursion ;; This is a hack. (re-search-forward "\"\\s-*\\?>" size t))))