mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(sgml-xml-auto-coding-function): Call

Browse source 
re-search-forward with NOERROR t..
This commit is contained in:
Kenichi Handa 2002-08-19 06:39:33 +00:00
parent 20b130094d
commit 623b1d5e44
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-08-19 Kenichi Handa <handa@etl.go.jp>
* international/mule.el (sgml-xml-auto-coding-function): Call
re-search-forward with NOERROR t.
2002-08-19 Miles Bader <miles@gnu.org>
[original idea from Luc Teirlinck <teirllm@mail.auburn.edu>]

2
lisp/international/mule.el
View file

@ -2003,7 +2003,7 @@ Analogous to `define-translation-table', but updates
(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))))