From: Dave Love <fx@gnu.org>
Date: Tue, 16 Jul 2002 22:43:44 +0000 (+0000)
Subject: (ccl-decode-mule-utf-8): Fix >= #xfe case.
X-Git-Tag: emacs-pretest-21.2.91~160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c26245b5ac2b99221320101fbdd8c9d0731f9005;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14aa46c5079..724309e8f0e 100644
--- 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 97d59196c97..8d5c50b450b 100644
--- 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.