# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1207666530 0
# Node ID b9a2a750f17276354563086edf9b82fbc61edefa
# Parent  a238cf768432ead26c61d78e0cbf89f52a4b8380
(set-locale-environment): Don't warn if	coding system doesn't agree with system
locale (this reverts changes by Dave Love, dated 2002-10-27 and 2002-10-09).

diff -r a238cf768432 -r b9a2a750f172 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue Apr 08 14:46:49 2008 +0000
+++ b/lisp/international/mule-cmds.el	Tue Apr 08 14:55:30 2008 +0000
@@ -2605,21 +2605,7 @@
 	  ;; Fixme: perhaps prefer-coding-system should set this too.
 	  ;; But it's not the time to do such a fundamental change.
 	  (setq default-sendmail-coding-system coding-system)
-	  (setq locale-coding-system coding-system))
-
-	(when (get-language-info current-language-environment 'coding-priority)
-	  (let ((codeset (locale-info 'codeset))
-		(coding-system (car (coding-system-priority-list))))
-	    (when codeset
-	      (let ((cs (coding-system-aliases coding-system))
-		    result)
-		(while (and cs (not result))
-		  (setq result
-			(locale-charset-match-p (symbol-name (pop cs))
-						(locale-info 'codeset))))
-		(unless result
-		  (message "Warning: Default coding system `%s' disagrees with
-system codeset `%s' for this locale." coding-system codeset))))))))
+	  (setq locale-coding-system coding-system))))
 
     ;; On Windows, override locale-coding-system,
     ;; default-file-name-coding-system, keyboard-coding-system,