Setup the fontset "fontset-mac" correctly.

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0296acb1b3..e0efd31df9a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-15  YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>  (tiny change)
+
+        * term/mac-win.el: Setup the fontset "fontset-mac" correctly.
+
 2003-01-14  Nick Roberts  <nick@nick.uklinux.net>
 
         * gdb-ui.el: Improve commentary.
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 25c66103dd9..04989999db9 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -205,10 +205,10 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
          (function
           (lambda (key val)
             (or (generic-char-p key)
-                (memq (char-charset key)
+                (memq (char-charset val)
                       '(ascii eight-bit-control eight-bit-graphic))
-                (set-fontset-font "fontset-mac" key monaco-font))))
-         (get 'mac-roman-encoder 'translation-table)))))
+                (set-fontset-font "fontset-mac" val monaco-font))))
+         (get 'mac-roman-decoder 'translation-table)))))
 
 (if (eq system-type 'darwin)
     ;; On Darwin filenames are encoded in UTF-8