comparison lisp/international/mule-cmds.el @ 93865:b9a2a750f172

(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).

93864:a238cf768432

					     locale-coding-system)))
	  (prefer-coding-system coding-system)
	  ;; 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))))))))

    ;; On Windows, override locale-coding-system,
    ;; default-file-name-coding-system, keyboard-coding-system,
    ;; terminal-coding-system with system codepage.
    (when (boundp 'w32-ansi-code-page)

93865:b9a2a750f172

					     locale-coding-system)))
	  (prefer-coding-system coding-system)
	  ;; 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))))

    ;; On Windows, override locale-coding-system,
    ;; default-file-name-coding-system, keyboard-coding-system,
    ;; terminal-coding-system with system codepage.
    (when (boundp 'w32-ansi-code-page)