* lisp/international/mule.el (find-auto-coding): Include file name in

obsolescence warning.

Fixes: debbugs:13922

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b5051155efd01813abf3f0bdbd7b8c3b339ae63..39bc71e8e131104992a8982d87fc901fe38af264 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-03-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * international/mule.el (find-auto-coding): Include file name in
+       obsolescence warning (bug#13922).
+
 2013-03-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * progmodes/cfengine.el (cfengine-parameters-indent): New variable

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 47c7087518e7989f181f7c419d075b04c42378f1..dd0f38217288e5e445a22910f118c73463e1f071 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1844,8 +1844,11 @@ If nothing is specified, the return value is nil."
                       (re-search-forward
                        "\\(.*;\\)?[ \t]*unibyte:[ \t]*\\([^ ;]+\\)"
                        head-end t))
-              (display-warning 'mule "`unibyte: t' is obsolete; \
-use \"coding: 'raw-text\" instead." :warning)
+              (display-warning 'mule
+                               (format "\"unibyte: t\" (in %s) is obsolete; \
+use \"coding: 'raw-text\" instead."
+                                       (file-relative-name filename))
+                               :warning)
              (setq coding-system 'raw-text))
            (when (and (not coding-system)
                       (re-search-forward