(decode-mac-roman): Test against r1 not r0.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e19cef52a58..b5901c31cab 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-04  Jason Rumney  <jasonr@gnu.org>
+
+        * language/european.el (decode-mac-roman): Test against r1 not r0.
+
 2000-11-03  Stefan Monnier  <monnier@cs.yale.edu>
 
         * progmodes/icon.el (icon-mode-map): Don't rebind \t.
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 2572390147d..1465e1f3fab 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -479,7 +479,7 @@ but default input method is set to \"german-postfix\"."))
       (read r1)
       (if (r1 < 128)  ;; ASCII
           (r0 = ,(charset-id 'ascii))
-        (if (r0 < 160)
+        (if (r1 < 160)
             (r0 = ,(charset-id 'eight-bit-control))
           (r0 = ,(charset-id 'eight-bit-graphic))))
       (translate-character mac-roman-decoder r0 r1)