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

546790cb · Jason Rumney · fbf44f44 · 546790cb · 546790cb
Commit 546790cb authored Nov 04, 2000 by Jason Rumney
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/language/european.el lisp/language/european.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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)