(ccl-decode-mule-utf-8): Fix >= #xfe case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14aa46c50797f71469ca4a05a5805c10bed5929f..724309e8f0e63b8975ea01c32bc93a300272c1e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-16  Dave Love  <fx@gnu.org>
+  
+       * international/utf-8.el (ccl-decode-mule-utf-8): Fix >= #xfe case.
+  
 2002-07-16  Juanma Barranquero  <lektu@terra.es>
 
        * timer.el (timer-set-time, timer-set-time-with-usecs): Fix docstring.

diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el
index 97d59196c973691bfa60117d477fd9262d977292..8d5c50b450b158c658ecb1288236b1f1f8e5341d 100644 (file)
--- a/lisp/international/utf-8.el
+++ b/lisp/international/utf-8.el
@@ -254,7 +254,7 @@
                                   (write-multibyte-character r5 r1))
                               (write-multibyte-character r6 r1)))))))
                ;; else invalid byte >= #xfe
-               (write r0))))))
+               (write-multibyte-character r6 r0))))))
       (repeat))))
 
   "CCL program to decode UTF-8.