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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e19cef52a580bd29cd564449ea561af42a76325d..b5901c31cab32b379a78768d4276c2bf08fbcf94 100644 (file)
--- 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 2572390147d43d029fdf4eb6e575742ceb4208d0..1465e1f3fabc7231431e6edc77bfd828618c03de 100644 (file)
--- 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)