(reset-language-environment): Put the highset priority to the charset

iso-8859-1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ec80fccabc6db67bb1a3b8225761c30456ad2e6..814a71e11e1873c4060ba67edf2158b6a0f3819a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-07  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-cmds.el (reset-language-environment): Put
+       the highset priority to the charset iso-8859-1.
+
 2009-07-06  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-handle-write-region): Flush file properties

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 34d4fb3830d252482cec5ad4cb3d6c76b971c7d8..ac94cadad0679e6ba3576dde85be932fcfb6a50d 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1794,6 +1794,11 @@ The default status is as follows:
           (coding-system-error 'iso-latin-1))))
     (setq default-process-coding-system
          (cons output-coding input-coding)))
+  ;; Put the highest priority to the charset iso-8859-1 to prefer the
+  ;; registry iso8859-1 over iso8859-2 in font selection.  It also
+  ;; makes unibyte-display-via-language-environment to use iso-8859-1
+  ;; as the unibyte charset.
+  (set-charset-priority 'iso-8859-1)
 
   ;; Don't alter the terminal and keyboard coding systems here.
   ;; The terminal still supports the same coding system