[Emacs-diffs] Changes to emacs/lisp/language/european.el

[Kenichi Handa]

Index: emacs/lisp/language/european.el
diff -c emacs/lisp/language/european.el:1.78 
emacs/lisp/language/european.el:1.79
*** emacs/lisp/language/european.el:1.78        Mon Dec  9 21:36:59 2002
--- emacs/lisp/language/european.el     Thu Dec 12 23:42:25 2002
***************
*** 578,586 ****
        (read-multibyte-character r0 r1)
        (translate-character ucs-mule-to-mule-unicode r0 r1)
        (translate-character mac-roman-encoder r0 r1)
!       (if (r0 != ,(charset-id 'eight-bit-graphic))
!         (if (r0 != ,(charset-id 'eight-bit-control))
!             (r1 = ??)))
        (write-repeat r1))))
    "CCL program to encode Mac Roman")
  
--- 578,587 ----
        (read-multibyte-character r0 r1)
        (translate-character ucs-mule-to-mule-unicode r0 r1)
        (translate-character mac-roman-encoder r0 r1)
!       (if (r0 != ,(charset-id 'ascii))
!         (if (r0 != ,(charset-id 'eight-bit-graphic))
!             (if (r0 != ,(charset-id 'eight-bit-control))
!                 (r1 = ??))))
        (write-repeat r1))))
    "CCL program to encode Mac Roman")