(define-coding-system): Accept :bom for

utf-8.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9b24e2c..9e0d575 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -767,6 +767,8 @@ encoding.  This attribute has a meaning only when `:coding-type' is
                                      :reg-usage
                                      :request
                                      :flags))
+                                  ((eq coding-type 'utf-8)
+                                   '(:bom))
                                   ((eq coding-type 'utf-16)
                                    '(:bom
                                      :endian))