mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(xml-find-file-coding-system): Don't warn about utf-16 with BOM.

Browse source
This commit is contained in:
Jason Rumney 2008-02-18 02:41:11 +00:00
parent 9cd41aa99e
commit 228de8de4f
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/international/mule.el
View file

@ -2341,12 +2341,16 @@ added by processing software."
(coding-system-base
(detect-coding-region (point-min) (point-max) t)))))
;; Pure ASCII always comes back as undecided.
(if (memq detected '(utf-8 undecided))
'utf-8
(cond
((memq detected '(utf-8 undecided))
'utf-8)
((eq detected 'utf-16le-with-signature) 'utf-16le-with-signature)
((eq detected 'utf-16be-with-signature) 'utf-16be-with-signature)
(t
(warn "File contents detected as %s.
Consider adding an xml declaration with the encoding specified,
or saving as utf-8, as mandated by the xml specification." detected)
detected))
detected)))
;; Don't interfere with the user's wishes for saving the buffer.
;; We did what we could when the buffer was created to ensure the
;; correct encoding was used, or the user was warned, so any