[Emacs-diffs] /srv/bzr/emacs/trunk r112028: * lisp/international/mule.el (find-auto-coding): Include file name in

[Stefan Monnier]

------------------------------------------------------------
revno: 112028
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13922
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-03-12 22:08:33 -0400
message:
  * lisp/international/mule.el (find-auto-coding): Include file name in
  obsolescence warning.
modified:
  lisp/ChangeLog
  lisp/international/mule.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-12 15:49:26 +0000
+++ b/lisp/ChangeLog    2013-03-13 02:08:33 +0000
@@ -1,3 +1,8 @@
+2013-03-13  Stefan Monnier  <address@hidden>
+
+       * international/mule.el (find-auto-coding): Include file name in
+       obsolescence warning (bug#13922).
+
 2013-03-12  Teodor Zlatanov  <address@hidden>
 
        * progmodes/cfengine.el (cfengine-parameters-indent): New variable

=== modified file 'lisp/international/mule.el'
--- a/lisp/international/mule.el        2013-02-10 03:08:21 +0000
+++ b/lisp/international/mule.el        2013-03-13 02:08:33 +0000
@@ -1844,8 +1844,11 @@
                       (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