(reset-language-environment): Put

the highset priority to the charset iso-8859-1.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08bf352b55e1e88eb7ffdd1d3e5c132177617751..7196d29c4771a6621cf1cb76ba99eeb92b7986b6 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  Chong Yidong  <cyd@stupidchicken.com>
 
        * progmodes/hideshow.el (hs-hide-block-at-point): Don't move point

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 34d4fb3830d252482cec5ad4cb3d6c76b971c7d8..e67c8ea5e5c98e8a315c9e656539e01f5c006fdb 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1795,6 +1795,12 @@ The default status is as follows:
     (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
   ;; that it supported a minute ago.