From 175600dafc370c425502f0e6017deb2604c7e84f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 12 Mar 2013 22:08:33 -0400 Subject: [PATCH] * lisp/international/mule.el (find-auto-coding): Include file name in obsolescence warning. Fixes: debbugs:13922 --- lisp/ChangeLog | 5 +++++ lisp/international/mule.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b5051155ef..39bc71e8e13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-13 Stefan Monnier + + * international/mule.el (find-auto-coding): Include file name in + obsolescence warning (bug#13922). + 2013-03-12 Teodor Zlatanov * progmodes/cfengine.el (cfengine-parameters-indent): New variable diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 47c7087518e..dd0f3821728 100644 --- 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 -- 2.39.2